Jhonas

Veja esses posts http://scriptbrasil.com.br/forum/index.php...ualizar+sistema abraço

Procure por um tutorial do Rave na net que voce encontrará uma maneira de fazer isso abraço

Acho que o seu código está muito bom ... mas se quiser outro de exemplo para comparar, veja este http://www.oficinadanet.com.br/artigo/802/...elphi_-_parte_1 http://www.oficinadanet.com.br/artigo/813/...2%80%93_parte_2 abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...%E7o+de+memoria abraço

Seja mais especifico com relação a que abas está se referindo ... seria do PageControl ?

Esse erro ocorre quando o BDE não está instalado ou se voce estiver usando o windows vista ou 7 voce deve dar permissão para que o BDE possa escrever em um diretório especifico voce pode procurar no forum pela palavra BDE abraço

Basta fazer essa modificação procedure TForm1.Edit1Enter(Sender: TObject); begin Edit1.Clear; SysLocale.MiddleEast := true; Edit1.BiDiMode := bdRightToLeft; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if pos('R$',Edit1.Text) > 0 then Edit1.Clear; if key = #13 then begin Edit1.text := 'R$ ' + formatfloat(',0.00',strtofloat(trim(Edit1.text))); exit; end; if not (key in ['0'..'9',',', #8]) then key := #0; end; abraço

Isso se chama caracter nullo ( #0 ) veja este post http://scriptbrasil.com.br/forum/index.php...st&p=598047 abraço

Voce pode dar o nome que quiser, mas por definição se chama Controle Empresarial abraço

quando voce trabalha com componente Query , voce está trabalhando com uma cópia da tabela quando voce deleta os registros , eles não são deletados fisicamente, por isso o tamanho continua subindo a cada nova inserção voce precisa trabalhar com o compomnente Table tambem, ele consegue fazer um pack na tabela, ou seja, deleta fisicamente os registros da tabela, e com isso o tamanho diminui exemplo: procedure tbDBDeleteAll(const DataSet: TDataSet); begin with DataSet do while RecordCount > 0 do Delete; end; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin query1.Active := true; // Deletar registros da tabela tbDBDeleteAll(query1); query1.Active := false; // necessario fechar a query // Deletar registros fisicamente da tabela Table1.EmptyTable; end; procedure TForm1.Button2Click(Sender: TObject); var i : integer; begin // Rotina para inserir 100 registros na tabela query1.Active := true; for i := 1 to 100 do begin query1.Last; query1.Append; query1.edit; Query1NUM_OS.AsInteger := i; Query1CHECK_LIST.Value := 'INSERINDO UMA STRING'; query1.Post; end; end; OBS: inicialmente a tabela tem 2K de registros ( ou seja vazio ) ... após a inserção a tabela passa a ter 100 registros e tamanho = 14K se clicar novamente no botão para inserir novos registros ( + 100 registros ) a tabela passa a ter 26K se clicar no botão para deletar, os registros não aparecem mas continua com o mesmo tamanho o comando Table1.EmptyTable; faz um pack na tabela e ela volta a ter os 2k iniciais abraço

veja que voce usou DataConfigs.DataSet.FieldByName('PATH_FOTOS').Value agora Ds.DataSet.FieldByName('PATH_FOTOS').Value voce tem que verificar se realmente existe um valor para ser passado abraço

coloque qualquer caminho que esteja no campo 'PATH_FOTOS' e faça o teste abraço

então tente substituir o valor do banco de dados e veja o que acontece WinExec('cmd /c net use Y: '+PAnsiChar('caminho para foto'), SW_ShowNormal); ou WinExec('cmd /c net use Y: '+ 'caminho para foto', SW_ShowNormal); voce deve ir testanto de todas as maneiras para poder achar o problema abraço

exemplo usando o PChar e o PAnsiChar winexec(PChar ('c:\windows\system32\mspaint.exe "c:\imagem.jpg"'),sw_show); winexec(PAnsiChar('c:\windows\system32\mspaint.exe "c:\imagem.jpg"'),sw_show); no seu caso tente WinExec('cmd /c net use Y: '+PAnsiChar(DataConfigs.DataSet.FieldByName('PATH_FOTOS').Value), SW_ShowNormal); ou WinExec(PAnsiChar('cmd /c net use Y: ')+PAnsiChar(DataConfigs.DataSet.FieldByName('PATH_FOTOS').Value), SW_ShowNormal); abraço

Foi mal ... propriedade RequestLive = true abraço

deixe na query a propriedade ReadOnly = false abraço

picture1.picture.loadfromfile(foto1); se voce esta carregando a foto por um caminho que esta no banco e a foto estando em outra pasta, não vejo problema nehhum abraço

Ronaldo ... não dá pra advinhar o que voce esta fazendo, sem o código abraço

um arquivo terá uma extensão ( *.db *.txt *.dat ... C:\Teste\Arquivo.txt .... etc ) uma pasta não tem extensão ( C:\Teste C:\MinhaPasta D:\Meus Documentos\Temp ... etc ) abraço

Acho que voce está errando aqui: abraço

exemplo: uses FileCtrl; function DirExists(Dirname: string): boolean; var r: TSearchRec; i: integer; begin Result := False; TRY i := FindFirst(Dirname, faDirectory, r); if i=0 then Result := true; FINALLY FindClose(r); END; end; procedure TForm1.Button1Click(Sender: TObject); begin {$I-} if DirExists('C:\TESTE') = false then begin MkDir('C:\TESTE'); if IOResult <> 0 then MessageDlg('´Diretório já Existe!', mtWarning, [mbOk], 0) else MessageDlg('Novo Diretório Criado!', mtInformation, [mbOk], 0); end; end; abraço

quando quero deletar um perfil, simplesmente ele apresenta o erro abaixo e não deleta: tradução do erro: o que voce entende quando lê o erro ? abraço

Deletei o anterior ... vai um exemplo completo unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Label1: TLabel; Label2: TLabel; Button2: TButton; procedure Find (Str: string); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; TotalSize: Integer; implementation {$R *.DFM} uses FileCtrl; procedure TForm1.Find(Str: string); var MySearch: TSearchRec; FindResult: Integer; begin FindResult:=FindFirst(Str+'\*.*', faArchive+faHidden+ faAnyFile+faVolumeID+ faSysFile+faReadOnly+faDirectory, MySearch); while FindResult=0 do begin if (MySearch.Attr=faDirectory) and (MySearch.Name<>'.') and (MySearch.Name<>'..') then Find(Str+'\'+MySearch.Name) else TotalSize:=TotalSize+MySearch.Size; FindResult:=FindNext(MySearch); end; FindClose(MySearch); end; procedure TForm1.Button1Click(Sender: TObject); var St: string; begin St:='c:\'; if SelectDirectory(St, [], 0) then Edit1.Text:=St; end; procedure TForm1.Button2Click(Sender: TObject); begin TotalSize:=0; if Length(Edit1.Text)>0 then begin Find(Edit1.Text); Label1.Caption:='Total size = '+formatfloat(',0.00',(TotalSize)) + ' bytes'; Label2.Caption:='Total size = '+formatfloat(',0.00',(TotalSize / 1024)) + ' Mb'; end; end; end. OBS: clique no Button1 para procurar o diretorio ou pasta o caminho do diretorio ou pasta será colocado no edit1 ao clicar o Button2 voce verá o resultado no label1 em bytes e no label2 em Mb abraço

No primeiro o código devera ficar no evento OnTitleClick do DBGrid No segundo o código deverá ficar no evento OnDrawColumnCell e lá voce especifica a condição de um valor para determinado campo exempo: Neste código estamos trocando a cor da fonte de um campo se o valor do caixa for menor ou maior que zero a idéia é a mesma se quizer ocultar o texto ... basta deixar a cor da font igual a do fundo if (Column.Field.FieldName = 'CAIXA') then begin if CDS_CaixaP.FieldByName ('CAIXA').Value < 0 then begin DBGrid1.Canvas.Font.Color:= clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; abraço

voce tem que tirar a chave do registro se quiser deletar o perfil abraço