Fórum soma de dbedit e edit qual erro neste código #234526

26/05/2004

0

Delphi

Tenho um DBEdit1(autoIncrement) Um Edit1(Texto)cuja a sua Propriedade Text=8000000.
fiz uma soma do Edit com DbEdit com o seguinte Código:

procedure Tfrmcadastro.DBEdit1Exit(Sender: TObject);
Var
V1: Real;
V2: Real;
begin
V1:=StrTofloat(DbEdit1.Text);
V2:=StrToFloat(Edit1.Text);
DbEdit1.Text:=FloatToStr(v2+v1)
Quando o cursor está no DbEdit1 e pressiono Tab, ele fica 8000001(beleza!), so que: Qdo eu passo para outro registro, dou um refresh ou digito algum dado em outro dbedit, o valor 8000001 fica simplesmente assim: 1. onde estou Errando? Como fazer para 8000001 permanecer ?Ou me digam Uma maneira melhor de fazer isto. Me ajudem Por favor!

Grato,
Adriano


Xadriano

Xadriano

Responder

Posts

26/05/2004

Kotho

tente atribuir valor ao campo da tabela diretamente...


Responder

Gostei + 0

26/05/2004

Jc

você deve salvar o valor no Banco de dados antes de passar para o proximo valor, pois esse valor mostrado no DBEdit1 é apenas uma ´imagem´, o valor mesmo do DbEdit1 e o primeiro valor que vc esta colocando.
Talvez isso resolva.


Responder

Gostei + 0

26/05/2004

Xadriano

Só que eu gostaria que ele gerasse automaticamente.

Se Puderes me ajudar, Ficarei Muito Grato.

Adriano.


Responder

Gostei + 0

26/05/2004

Xadriano

Não entendi, quero que este valor entre atomaticamente no campo.

Grato,


Adriano.


Responder

Gostei + 0

26/05/2004

Rômulo Barros 

procedure Tfrmcadastro.DBEdit1Exit(Sender: TObject); 
Var 
V1: Real; 
V2: Real; 
begin 
V1:=StrTofloat(DbEdit1.Text); 
V2:=StrToFloat(Edit1.Text); 
Query.FieldByName(´CampoCodigo´).AsString := FloatToStr(v2+v1); // Aqui nesta linha :) Veja



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar