banco de dados e manipula��o de valores.. quem pode ajudar??

Question

Bom pessoal,ja Aprendi muita coisa aqui no f�rum com o auxilio dos colegas....Fiz um pequeno programa com um banco de dados Access e alguns botoes pra inserir, modificar, apagar, etc...no entanto prec...

Espontes · Answer

N�o consegui abrir o arquivo do link.Mande a parte do c�digo que vc est� com problema para o forum.Edmilson Pontes...

Barretoee · Answer

Antes de tudo obrigado pela resposta.....

Axo que o que eu preciso implementar deve ser inserido nessa parte do codigo mas nao tenho certeza..

procedure TForm1.orcamentossubtotalChange(Sender: TField);
begin

end;

O nome da tabela � orcamentos e o nome do campo � subtotal....este campo deve receber a soma dos valores contidos em outros campos dessa mesma tabela...

pergunto: � por ai mesmo que devo ir?? outra coisa � necess�rio relacionar essa a��o de soma a um botao?? se possivel gostaria que fosse algo automatico, ou seja a medida que os valores fossem sendo digitados a soma ja ia aparecendo na hora...

SDS

Espontes · Answer

Se entendi vc precisa de algo parecido com o que segue...

procedure Soma() : double;
var i, numReg : integer;
subTotal, subTotal2 : double;
begin
ADODataSet1.Open;
numReg := ADODataSet1.RecordCount;
subTotal := 0;
subTotal2 := 0;

if (numReg >= 10) then
begin
//soma o subtotal
for I := 0 to 5 do
begin
subTotal := subTotal + ADODataSet1.FieldByName(�campo�).AsFloat;
ADODataSet1.Next;
end;

//soma o subtotal2
for i := 6 to 9 do
begin
subTotal2 := subTotal2 + ADODataSet1.FieldByName(�campo�).AsFloat;
ADODataSet1.Next;
end;
end
else
ShowMessage(�Voc� precisa de no m�nimo 10 registros!�);
end;

Barretoee · Answer

Caro espontes,denovo obrigado pela resposta e me perdoe a ignorancia, mas em que ponto do programa eu devo inserir o codigo que vc me passou, ele est� associado a alguma botao?? ou a algum evento??Estou dando os primeiros passos na programa��o, da� minha ignor�ncia no assunto, novamente obrigadoSDS...

F�rum banco de dados e manipula��o de valores.. quem pode ajudar?? #343813