Como Criar Tabelas De Calculo?

[Guest Adriano_Servitec]

Ola amigos,

alguém pode me dar uma ideia como criar a formula no Banco de Dados?

Uso o Delphi 5 e tabela paradox.

porque no formulario da pra fazer direto tipo somar os campos table1resultado:=table1proventos.value-table1descontos.value;

mais ai se tiver que modificar algo tenho que abrir o fonte do Delphi, nesse caso de criar uma formula ou varias formulas e gravar dm DB seria mais pratico, mais como mandar os dados para as somas?

Tipo escrever num edit a formula acima citada e gravar ela no banco de dados assim posso modificar farias vezes no proprio edit.

Tem como fazer um campo calculado na tabela paradox?

Se alguém puder me dar uma dica acho que conseguirei elaborar.

Agradeço pela Atençao!

Adriano....

[Guest Guest]

Ola amigos, resolvi meu problema, fiz da seguinte forma:

Esta ai o exemplo para quem precisar.

criei 6 dbedits

dbedit1=valor, dbedit2=opr1,dbedit3=vlfixo,dbedit4=opr2,dbedit5=quant,dbedit6=resultado.

o que vale + ou - assim:= valor / 30 * 20 = resultado

var

opr,opr2: char;

vr1,vr2,vr3,result: real;

begin

vr1:=StrToFloat(DBEdit1.Text);

vr2:=StrToFloat(DBEdit3.Text);

vr3:=strtofloat(dbedit5.text);

opr:=DBEdit2.Text[1];

opr2:=dbedit4.text[1];

case opr of

'+': result:=vr1+vr2;

'-': result:=vr1-vr2;

'*': result:=vr1*vr2;

'/': result:=vr1/vr2;

else exit end;

vr1:=result;

vr2:=StrToFloat(DBEdit5.Text);

opr:=DBEdit4.Text[1];

case opr of

'+': result:=vr1+vr2;

'-': result:=vr1-vr2;

'*': result:=vr1*vr2;

'/': result:=vr1/vr2;

else exit end;

qry1result.value:=result;

end;

Valeu amigos

T+