Alex Freitas

Boa Noite... Resolvi utilizar um banco de dados Access, para realizar os cálculos, no caso de cálculos "comuns" funciona beleza, mas quando coloco um valor tipo ( 0,03599 ), exibe uma mensagen de erro, EZeroDivide. É possível realizar um cálculo com valores deste tipo... iniciando por 0,0?... desde já agradeço.

Pirambu! Certo, o cálculo funcionou... Obrigado pela ajuda. Mais preciso de mais uma ajudinha... Gostaria que me desse uma dica, de como deixar os valores com um formato do tipo Currency, com duas casas decimais. Ex.: 1.200,45.

Bom criei um form em minha aplicação que usarei para realizar alguns cálculos. A form está montada da seguinte forma. Edit1 ( nele quero digitar um valor no formato R$ 0,00). Edit2 ( nele quero digitar um segundo valor no mesmo formoto R$ 0,00). Edit3 ( nele quero digitar um valor do tipo 0,0000). Edit4 ( nele quero que saia o resultado). e um Botão que usareia para calcular. Queria realizar o seguinte calculo: No evento OnClick do botão. Edt4 = Edit1 - Edit2 * 20% / Edit3; Deve ser bem simples mais estou quebrando a cara, alguém pode me ajudar?

Boa tarde!! Criei uma aplicação para gerar o relatório de acordo com os dodos digitado em um Edit e 2 DateTimePicker, só que ao clicar no botão, o relatório em quick Reports é gerado, mais não apresenta nenhum dado, mesmo tendo dados para apresentar. O código que estou usando é o seguinte: procedure TFrmRelCorretor.BitBtn1Click(Sender: TObject); var Inicio,Final:string; begin If DateTimePicker2.Date < DateTimePicker1.Date Then begin ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!'); DateTimePicker2.Date := DateTimePicker1.Date; end Else begin Inicio := DateToStr(DateTimePicker1.Date); Final := DateToStr(DateTimePicker2.Date); QueryPE.Close; QueryPE.SQL.Clear; QueryPE.SQL.Add('SELECT * FROM Clientes WHERE DatadePagamento >=:pInicial and DatadePagamento <=:pFinal and (Clientes.Corretor) In ('''+EdtCampo.Text+''')'); QueryPE.Parameters.ParamByName('pInicial').Value := StrToDate(inicio); QueryPE.Parameters.ParamByName('pFinal').Value := StrToDate(final); QueryPE.Open; FrmRel1.QuickRep1.Preview; FrmRelCorretor.Close; End End; End. alguém pode me ajudar, ou até mesmo melhorar o código

Consegui resolver o erro. O problema foi resolvido quando eu troquei a formato da data em meu banco de dados que é em Access 2003, o formato estava como Data Abreviada, e alterei para Data Completa resolvendo o problema. Porem está acontecendo que a consulta não filtra os dados digitados, exibe todo o conteúdo do BD. Fiz alguma coisa errada ou falta alguma coisa?

Este erro eu consegui resolver, a sua dica funcionou, muito obrigado, Porém gerou um novo erro... "Project xxxxxxxx.exe raised exception class EOleException with message 'Objeto Parameter definido incorretamente. As informações são inconsistentes ou incompletas'. Process stopped. Use Step or Run to continue." Porque está acontecendo este erro??

Gente estou tentando criar uma aplicação que faz uma consulta à uma tabela em Access 2003 e posteriormente gere um relatório em QuickReports, A minha Form de pesquisa está montada com um Edit, 2 DateTimePicker, e 1 botão para Ok e um Cancelar, e uma ADOQuery para fazer a ligação com a tabela... No evento onclick do Botão 1 digitei o seguinte código para a pesquisa. procedure TFrmRelCorretor.BitBtn1Click(Sender: TObject); Var Inicio, Final : String; begin If DateTimePicker2.Date < DateTimePicker1.Date then Begin ShowMessage('Intervalo de datas inválido, a data inicial é menor que a data final!'); DateTimePicker2.Date := DateTimePicker1.Date; end else begin Inicio := DateToStr(DateTimePicker1.Date); Final := DateToStr(DateTimePicker2.Date); QueryPesCorretor.Close; QueryPesCorretor.SQL.Clear; QueryPesCorretor.SQL.Add('Select * From Clientes Where DataCadastro >=: PInicio and DataCadastro <=: PFinal and Clientes.Corretor = '''+EdtCampo.Text+''''); QueryPesCorretor.Parameters.ParamByName('PInicio').Value := StrToDate(Inicio); QueryPesCorretor.Parameters.ParamByName('PFinal').Value := StrToDate(Final); QueryPesCorretor.Open; FrmRelPorCorretor.QuickRep1.Preview; FrmRelCorretor.Close; end end; end. Porem quando a aplicação é execultada, sai o seguinte erro: Project AutoControle.Exe Raised exception class EdatabaseError with message 'QueryPesCorretor: Parameter 'PInicio' Not Found. Process stopped.... Por favor me ajudem a resolver este erro...

Boa tarde! O codigo que tentei foi o seguinte porem não funcionou... unit UBkpRst; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ComCtrls, StdCtrls, FileCtrl, ExtCtrls; type TFrmBkpRst = class(TForm) RadioGroup1: TRadioGroup; DriveComboBox1: TDriveComboBox; DirectoryListBox1: TDirectoryListBox; Animate1: TAnimate; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmBkpRst: TFrmBkpRst; implementation {$R *.dfm} procedure TFrmBkpRst.SpeedButton1Click(Sender: TObject); begin Animate1.Visible := True; Animate1.Active := True; //ativa a animação If RadioGroup1.ItemIndex = 0 then begin CopyFile(PChar(Application.ExeName)+('\Cadastros.mdb'), PChar(DirectoryListBox1.Directory); end end; end. Será que tem como mudar isso???

Eu não iniciei o código, so criei e organizei a Form, preciso que vocês me auxiliem em desenvolver o código para fazer a copia de segurança.

Banco de dadas que estou usando é Access 2003

Bom dia. Gente preciso de uma ajuda. Estou criando em minha aplicação um tela de Backup, porem não sei ne por onde criar o código para para funcionar. a minha form é a seguinte unit UBkpRst; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ComCtrls, StdCtrls, FileCtrl, ExtCtrls; type TFrmBkpRst = class(TForm) RadioGroup1: TRadioGroup; DriveComboBox1: TDriveComboBox; DirectoryListBox1: TDirectoryListBox; Animate1: TAnimate; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; private { Private declarations } public { Public declarations } end; var FrmBkpRst: TFrmBkpRst; implementation {$R *.dfm} end. Estudei um pouco e vi que geralmente faz com o CopyFile, mais não consegui construir o código. desde já agradeço.

Obrigado Jonas deu certo, valeu mesmo...

Obrigado Jonas pela Dica, vou fazer o teste e volto a postar assim que terminar.

Olá, preciso de uma ajuda de vocês... Estou criando uma aplicação onde exibe os dados em uma DBGrid, e logo abaixo há um campo DBEdit, para alterar a sua situação, é um cadastro de vendas... Gostaria que a linha do DGrid mudasse de cor de acordo com a situação informada. Por exemplo: Se tiver pago cor verde se tiver vencida de cor vermelha. alguém sabe como fazer isso?

Boa tarde! Uso uma conexão ADOQuery para fazer conexão com os dados da mina tabela e assim gerar um relatório em quick reports, na tabela há uma relatório do tipo "ValordoCheque" e eu queria que no final do relatório saisse a soma de todos os valores desta coluna, não sei nem por onde começar , alguém pode me ajudar??? desde já agradeço... há e o banco de dados é Access...

Só completando a minha resposta se o campo estiver como currency e na tabela como valor padão não salvará. é só alterar o campo Currency para false.

Consegui resolver: Alterei o valor para padrão, e depois em Fieldkind alterei para fkInternalCalc... O glôria, obrigado amigos pelas dicas...

Bom dia!! Estou com um problema na aplicação que Criei. O problema é o seguinte estou usando uma conexão Tipo ADO, ADOQuery, Onde tenho 2 Campos Com a propriedade FieldKind como fkCalculated mais não estou conseguindo salvar estes campo no banco de dados o que posso acrescentar neste cadigo para salvar em meu banco de dados? procedure TFrmCadCheques.FormShow(Sender: TObject); begin QueryCheques.Open; QueryCheques.Insert; QueryCheques.Edit; QueryChequesCheDatadeCastro.AsDateTime := (Date); QueryChequesCheJuros.Value :=(3.5); end; procedure TFrmCadCheques.BitBtn1Click(Sender: TObject); begin QueryCheques.Post; end; procedure TFrmCadCheques.QueryChequesCalcFields(DataSet: TDataSet); begin QueryChequesReceber.Value := (QueryChequesCheValorCheque.Value*QueryChequesCheJuros.Value)/100; QueryChequesTot.Value := QueryChequesCheValorCheque.Value+QueryChequesReceber.Value; end; end. Só lembrando que os campo as quais não estou conseguindo salvar é QueryChequesTot Tipo e QueryChequesReceber ambos do tipo Currency. Por favor me ajudem

:rolleyes: Obrigado, pelas informações serão muito úteis. :rolleyes:

Boa noite. Sou novo em programação Delphi, fiz uma pequena aplicação que faz o cadastro de cheques, empresa consulta dos mesmos e impressão do relatório. Usei conexão com banco de dados Access... Pois bem, não sei como formular um preço a cobrar, não sei o que devo levar em consideração para não obrar um preço absurdo e nem muito barato. A verdade é que não tenho nenhuma formação em programação, aprendi tudo estudando pela internet, já via alguns tópicos que dão algumas dicas mais eram muito generalizadas, preciso de conselhos de pessoas que trabalham diariamente com programação Delphi. Se puderem me ajudar agradeço desde já...

Sim, na minha tabela tem sim estes campos. Campos as seguir: Na Form / Na Tabela DBEdit1 = Valor do Cheque. DBEdit2 = Juros. DBEdit3 = Valor a pagar: DBEdit1 = Total: O DBEdit1 Salva normalmente, já os demais não

O comando Tabela.Post; eu dei no envento onclick do batão 'Salvar' por ex. os demais campos salvam os dados sem problema algun, só não salva os valores calculados.

:blink: Consegui realizar o cálculo muito Obrigado. Porem não consigo salvar o resultado no banco de dados Access 2003. Preciso de mais um ajuda kkk, desculpem o incomodo é que sou novo em Delphi.

Bom dia! Preciso de uma ajuda! Estou criando uma aplicação, que usa alguns campos DBEdit para o cadastro de dados em um banco de dados Access 2003. Preciso de um comando que no DBEdit seja apresentado um valor preestabelecido. Na Form existe 4 DBEdit usando a ADOQuery DBEdit1 - Tipo Data, (Neste campo quero exibir a data atual sem permitir alteração). DBEdit2 – Tipo Currency, (Ficará livre pra digitação do valor “Valor do Cheque”). DBedit3 – Tipo Currency, (Neste campo quero exibir uma taxa fixa de 3,5% para calculo futuro). DBEdit4 – ( Quero realizar o seguinte cálculo DBEdit2 * DBEdit3) Espero ter sido claro. Isso é possível?? Desde já agradeço.

Obrigado consegui resolver!!!!