table.dataset nor in edit or insert mode
Pessoal Bom dia.
Preciso de uma ajuda ae de vocês.
tenho um formujlario onde estou lancando despesas de veiculos
kilometragem, valor de combustivel gasto, pedagio estas coisas,
o problema ocorre quando tenho que fazer alguma alteração nesses lancamentos,
clico no botão editar, faço as alterações e depois calcular ai vem o erro abaixo.
tbconsumo dataset not in edit or insert mode.
Segue anbaixo o codigo que estou usando.
Estou usando o Delphi 7 e o firebird 2.0
procedure TFormLancamentos.Button1Click(Sender: TObject);
var vlr1,vlr2,vlr3,total1,total2:real;
VAR KMINI,KMFIM,TOTALKM:INTEGER;
begin
if (Tbconsumo.State=dsInsert) or (Tbconsumo.State=dsEdit) then
KMINI:=DBEDIT7.Field.AsInteger;
KMFIM:=DBEDIT8.Field.AsInteger;
TOTALKM:=(KMFIM-KMINI);
DBEDIT9.Field.AsInteger:=TOTALKM;
vlr1 := dbedit9.Field.AsInteger;
vlr2 := dbedit10.Field.AsCurrency;
total1:=(vlr1*vlr2);
dbEdit11.field.AsFloat:= total1;
vlr3 := dbedit13.Field.AsFloat;
total2:=(total1+vlr3);
dbedit14.Field.AsFloat:=total2;
tbconsumo.post;
valeu ae pessoal.
Discussão (7)
Carregando comentários...