Fórum Update #194834
13/11/2003
0
oi, pessoal , por favor estou necessitada da ajuda de voces..
Estou fazendo um trabalho para faculdade, estou aprendendo o Delphi, e estou fazendo um programa de contas a pagar, só que nao estou sabendo qual o codigo correto que coloco num botao para dar baixa na duplicata paga, por exempo:
digito a duplicata paga, clico no botao pesquisar, e neste botao é feito uma pesquisa atraves do componente TQuery e o resultado é colocado no dbgrid. Depois de pesquisada e encontrada a duplicata, entro com a data de pagamento e valor pago e clico em um outro botao ´baixar duplicata´, coloquei o seguinte codigo neste botao,mas nao esta dando certo, gostaria de saber onde está o erro?
try
witch qrybaixa do
begin
close;
Params[0].asdatetime := strtodate (editdatapagamento.tex);
Params[1].ascurrency := strtofloat (editvalorpago.text);
params[2].asstring ;= editduplicata.text;
qrybaixa.execsql;
end;
e o código dentro da TQuery é
Update Titulos
Set datapagamento =:datapagamento, valorpagamento =:valorpago
Where duplicata =:duplicata
quero saber tambem como faço para quando clicar o botao pesquisar, me traga como resultado de contas apenas as duplicata que nao estao pagas.
Estou usando o banco de dado SQLServer e os componentes de conexao é DATABASE e o TABLE da paleta DataAccess..
Estou fazendo um trabalho para faculdade, estou aprendendo o Delphi, e estou fazendo um programa de contas a pagar, só que nao estou sabendo qual o codigo correto que coloco num botao para dar baixa na duplicata paga, por exempo:
digito a duplicata paga, clico no botao pesquisar, e neste botao é feito uma pesquisa atraves do componente TQuery e o resultado é colocado no dbgrid. Depois de pesquisada e encontrada a duplicata, entro com a data de pagamento e valor pago e clico em um outro botao ´baixar duplicata´, coloquei o seguinte codigo neste botao,mas nao esta dando certo, gostaria de saber onde está o erro?
try
witch qrybaixa do
begin
close;
Params[0].asdatetime := strtodate (editdatapagamento.tex);
Params[1].ascurrency := strtofloat (editvalorpago.text);
params[2].asstring ;= editduplicata.text;
qrybaixa.execsql;
end;
e o código dentro da TQuery é
Update Titulos
Set datapagamento =:datapagamento, valorpagamento =:valorpago
Where duplicata =:duplicata
quero saber tambem como faço para quando clicar o botao pesquisar, me traga como resultado de contas apenas as duplicata que nao estao pagas.
Estou usando o banco de dado SQLServer e os componentes de conexao é DATABASE e o TABLE da paleta DataAccess..
Katia-oliveira
Curtir tópico
+ 0
Responder
Posts
13/11/2003
Denis
Qual o tipo de erro está dando ?
Verifiquei que no último parametro que está passando tem um ponto e virgula errado. Pode ser isso.
params[2].asstring ;= editduplicata.text;
teria que ser
params[2].asstring := editduplicata.text;
Fora isto está aparentemente ok.
Quanto a fazer uma pesquisa sobre as duplicatas não pagas, creio que usando essa query deve resolver, no caso do seu banco de dados.
Select * from titulos where datapagamento is null
Verifiquei que no último parametro que está passando tem um ponto e virgula errado. Pode ser isso.
params[2].asstring ;= editduplicata.text;
teria que ser
params[2].asstring := editduplicata.text;
Fora isto está aparentemente ok.
Quanto a fazer uma pesquisa sobre as duplicatas não pagas, creio que usando essa query deve resolver, no caso do seu banco de dados.
Select * from titulos where datapagamento is null
Responder
Gostei + 0
13/11/2003
Dogstreet
:idea:
você também pode configurar os parametros na propriedade ´Params´ do TQuery e utilizar o seguinte:
qrybaixa.parambyname(´datapagamento´).value:= strtodate (editdatapagamento.tex);
qrybaixa.parambyname(´valorpagamento´).value:=strtofloat (editvalorpago.text);
qrybaixa.parambyname(´duplicata´).value :=editduplicata.text;
qrybaixa.execsql;
você também pode configurar os parametros na propriedade ´Params´ do TQuery e utilizar o seguinte:
qrybaixa.parambyname(´datapagamento´).value:= strtodate (editdatapagamento.tex);
qrybaixa.parambyname(´valorpagamento´).value:=strtofloat (editvalorpago.text);
qrybaixa.parambyname(´duplicata´).value :=editduplicata.text;
qrybaixa.execsql;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)