Fórum SOMA DBedit com Edit Delphi #599409
28/12/2018
0
Bom dia, estou com um problema na soma de um DBEdit com um Edit que está me tirando o sono rsrs...
Sou novato no Delphi, por isso a dúvida que me parece ser "besta"
Acontece o seguinte, o DBEdit puxa as informações do banco, já o edit, está fazendo algumas somas.
ex:
Dbedit1 = 100 (resultado do banco)
Dbedit2 = 150 (Resultado do banco)
Edit1 = 250 (Soma dos dois Edits)
DBedit3 = 50 (Resultado do banco)
Edit2 = 300 (Edit1+DBEdit3)
Já tentei de várias maneiras, e até agora nada, ele compila certinho, mas na hora de funcionar não rola.
Estou utilizando banco Firebird, Delphi7
Meus componentes são IBdatabase, IBtrans, IBQuery
segue os códigos:
- Para fazer a soma do Edit1 (Esse funciona):
var SomaSIA :Real;
ValorSIA: Double;
begin
Soma:=DbEdit1.Field.AsFloat+DbEdit2.Field.AsFloat;
Edit1.Text:= floattostr(soma);
Valor:= StrtoCurr(Edit1.Text);
Edit1.Text:= FormatFloat('R$ #,0.00',(Valor));
end;
- Para fazer a soma do Edit2 (Aqui está o erro)
var num1,num2, num3:real;
teste: double;
begin
num1:=(Dbedit3.Field.AsFloat);
num2:= StrtoFLoat(edit1.text);
num3:= (num1-num2);
edit2.Text:=FloatToStr(num3);
Teste:=StrtoCURR(Edit2.Text);
Edit2.Text:= FormatFloat('R$ #,0.00',(teste));
Sou novato no Delphi, por isso a dúvida que me parece ser "besta"
Acontece o seguinte, o DBEdit puxa as informações do banco, já o edit, está fazendo algumas somas.
ex:
Dbedit1 = 100 (resultado do banco)
Dbedit2 = 150 (Resultado do banco)
Edit1 = 250 (Soma dos dois Edits)
DBedit3 = 50 (Resultado do banco)
Edit2 = 300 (Edit1+DBEdit3)
Já tentei de várias maneiras, e até agora nada, ele compila certinho, mas na hora de funcionar não rola.
Estou utilizando banco Firebird, Delphi7
Meus componentes são IBdatabase, IBtrans, IBQuery
segue os códigos:
- Para fazer a soma do Edit1 (Esse funciona):
var SomaSIA :Real;
ValorSIA: Double;
begin
Soma:=DbEdit1.Field.AsFloat+DbEdit2.Field.AsFloat;
Edit1.Text:= floattostr(soma);
Valor:= StrtoCurr(Edit1.Text);
Edit1.Text:= FormatFloat('R$ #,0.00',(Valor));
end;
- Para fazer a soma do Edit2 (Aqui está o erro)
var num1,num2, num3:real;
teste: double;
begin
num1:=(Dbedit3.Field.AsFloat);
num2:= StrtoFLoat(edit1.text);
num3:= (num1-num2);
edit2.Text:=FloatToStr(num3);
Teste:=StrtoCURR(Edit2.Text);
Edit2.Text:= FormatFloat('R$ #,0.00',(teste));
Giovani Mendes
Curtir tópico
+ 0
Responder
Posts
28/12/2018
Emerson Nascimento
-------------
soma do edit1
-------------
-------------
soma do edit2
-------------
soma do edit1
-------------
var
Soma: float;
begin
Soma := DbEdit1.Field.AsFloat + DbEdit2.Field.AsFloat;
Edit1.Text := FormatFloat('R$ #,0.00', Soma);
end;
-------------
soma do edit2
-------------
var
Soma: float;
begin
Soma := DbEdit1.Field.AsFloat + DbEdit2.Field.AsFloat + Dbedit3.Field.AsFloat;
Edit2.Text := FormatFloat('R$ #,0.00', Soma);
end;
Responder
Gostei + 0
28/12/2018
Giovani Mendes
Na soma do Edit2, estou tentando fazer o edit1+dbedit3.
Outra coisa, essa variável soma do tipo float, mas nao foi reconhecida no delphi7 "Undeclared identifier: 'float'".
Tentei ela como double, mas nao sei fazer somas de edits com dbedits :(
soma do edit2
-------------
Outra coisa, essa variável soma do tipo float, mas nao foi reconhecida no delphi7 "Undeclared identifier: 'float'".
Tentei ela como double, mas nao sei fazer somas de edits com dbedits :(
soma do edit2
-------------
var
Soma: float;
begin
Soma := DbEdit1.Field.AsFloat + DbEdit2.Field.AsFloat + Dbedit3.Field.AsFloat;
Edit2.Text := FormatFloat('R$ #,0.00', Soma);
end;
Responder
Gostei + 0
28/12/2018
Giovani Mendes
Seguinte!!
Resolução do Post
-------------
Resolução do Post
-------------
var:SomaEdit, SomaDBedit : Double
begin
SomaEdit:=DbEdit1.Field.AsFloat+DbEdit2.Field.AsFloat
Edit1.Text:= FormatFloat('R$ #,0.00',(SomaEdit)); // Soma do DbEdit1+DbEdit2
SomaDBEdit:=SomaEdit-(Dbedit3.Field.AsFloat); //Soma do DBedit3+Edit1
Edit2.Text:=FormatFloat('R$ #,0.00',(SomaDBEdit));
end;
Responder
Gostei + 0