Progr'amador

ops!, S3c !?!?!? rsrsrsrs. D

Olá, Nesse caso você tera que usar o LOCATE. No Evendo OnChange do Edit. use esse código: Query.Locate('CAMPO_DA_TABELA',Trim(Edit1.Text),[LoPartialKey]); Abs. Progr'amador.

Olá, você poderia usar arquivo INI tambem. Ficaria assim: no uses: inifiles; Abs. Progr'amador.

Puts!!! que furo meu foi falta de atenção minha.

Olá, Na paleta Dialogs você encontra o TOpenDialog, TSaveDialog, entre outros, adcione no form, o dialogo desejado no evendo onClick do toolbutton, você pede pra executar o dialgo, ex: OpenDialog1.Execute; ---- SaveDialog1.Execute; entendeu? Abs. Progr'amador.

Assim: DeleteFile('C:\pasta1\projeto.exe'); Abs. Progr'amador.

Realmente esse código que passei tem erro. Não conheço esse Fortes Report, mas se fosse usando o QuickReport ficaria assim: No else você usara o mesmo código que você usa pra abrir esse relatorio. Abs. Progr'amador.

Olá Alexandre, É tipo assim: Era isso mesmo que você queria? Abs. Progr'amador.

Olá, você pode renomear esses campos na propria select tipo assim: Select TIPODETRABALHO As TipoTrab1 .... (etc...) union Select TIPODETRABALHO As TipoTrab2 .... (etc...) Entedeu? Abs. Progr'amador.

É tipo Assim: If combinação1 = "concluido" Then Comando1.Enabled = True Else Comando1.Enabled = False End If Abs. Progr'amador.

Olá Tenta assim: a.data_agendamento=ToDate(12/11/2004, 'dd/mm/yyyy') Abs. Progr'amador.

Olá, Ae vai um exemplo. procedure TForm1.Label1Click(Sender: TObject); var txtStr : string; TituloStr : string; begin TituloStr := 'Teste'; InputQuery(TituloStr, 'Digite o que quizer', txtStr ); Label1.Caption := txtStr; end; Abs. Progr'amador.

Isso mesmo! no Delphi 2005, você tem opção se quer Indy 9 ou 10. to usando sem problema, não entendi sua pergunta? Abs. Progr'amador.

Olá Flavio, deixe em branco mesmo! ok!? Progr'amador.

Olá Miranda, declare no uses: IdAttachmentFile é so isso! Abs. Progr'amador.

Não sei se entendi, mas tenta isso: procedure TForm1.DBGrid1CellClick(Column: TColumn); begin Table1.Locate('Campo1',Query1.FieldByName('Campo1').AsString,[]); end; Progr'amador.

Ata!!! já tava até postando, pra ver onde você tinha colocado isso, porque esse erro era impossivel!!! Resolvido, tópico Fechado. Abs. Progr'amador.

Olá Tbaiano, faz assim: Select * From SITUACAO Where (COMPT = '2004/01' or COMPT = '2004/02' or COMPT = '2004/03' or COMPT = '2004/04') Abs. Progr'amador.

Olá Paulo, acima eu postei uma dica que é bem simples mas funciona, e continuo insistindo com essa dica! // representa o Ctrl+Shift+N procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssCtrl,ssShift]) then case Key of 78: ShowMessage('Deu Certo'); // 78 = código ascii da tecla 'N' end; end; Abs. Progr'amador.

faz assim: procedure TfrmPedido.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var vTotal : Real; begin if key = vk_return then begin // 'vk_return' representa a tecla enter vTotal := 0; DataModule1.DetalhedoPedido.First; while not DataModule1.DetalhedoPedido.EOF do begin vTotal := vTotal + DataModule1.DetalhedoPedido.FieldByName('Total').Value; DataModule1.DetalhedoPedido.Next; end; Edit1.text := FormatFloat('0.00',vTotal); end; end; Abs. Progr'amador.

Como assim, ele dá algum erro? na hora que você digita? Qual código você ta usando no OnKeyDown? Abs. Progr'amador.

Sei computador deve ta configurado com ponto nas casas decimais, substitua a virgula mpelo ponto e faz o teste ae, ok! Edit1.text := FormatFloat('0.00',vTotal); Abs. Progr'amador

Bom então ta resolvido, certo!? Vou fechar o tópico e qualquer coisa se precisar reabrir me mande uma MP. falou!!! Abs. Progr'amador

Arredondando como? como deveria sair? quantas casas decimais? e como ta saindo ae? você precisa ser mais especifico. no exemplo que passei, é pra sair com duas casas decimais (Ex: 100.00) Abs. Progr'amador.

É tipo assim: use um Edit pra receber esse total, ex: procedure TForm1.Button1Click(Sender: TObject); var vTotal : Real; begin vTotal := 0; Table1.First; while not Table1.EOF do begin vTotal := vTotal + Table1.FieldByName('Total').Value; Table1.Next; end; Edit1.text := FormatFloat('0,00',vTotal); end; Abs. Progr'amador.