banco de dados e manipulação de valores.. quem pode ajudar??
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 preciso de algo mais. tou postando aqui um link que contem o programinha que fiz. É algo bem simples
[http://www.4shared.com/file/20940017/462fd6e2/programa.html]
Se alguem se dispuser a dar uma olhada nele gostaria de saber o seguinte::
La no programa tem uma série de valores e tem tres campos: subtotal, sutotal2 e total geral.
Subtotal= a soma dos seis primeiros valores
Subtotal2= soma dos quatro campos seguintes
total geral=somas dos dois subtotais
* essa parte das somas não consegui fazer...
outra coisa... quem for ver no programa, cada conjunto de valores corresponde a 1 ano. por exemplo
no ano de 2003
depois no ano de 2004
depois no ano de2005
depois no anor de 2006
so que no ano de 2007 todos os valores devem ser estimados a partir da media dos anos anterores....
basicamente é isso.... se alguem puder dar uma olhada e me retornar alguma coisa ficaria deveras agradecido....
SDS
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 preciso de algo mais. tou postando aqui um link que contem o programinha que fiz. É algo bem simples
[http://www.4shared.com/file/20940017/462fd6e2/programa.html]
Se alguem se dispuser a dar uma olhada nele gostaria de saber o seguinte::
La no programa tem uma série de valores e tem tres campos: subtotal, sutotal2 e total geral.
Subtotal= a soma dos seis primeiros valores
Subtotal2= soma dos quatro campos seguintes
total geral=somas dos dois subtotais
* essa parte das somas não consegui fazer...
outra coisa... quem for ver no programa, cada conjunto de valores corresponde a 1 ano. por exemplo
no ano de 2003
depois no ano de 2004
depois no ano de2005
depois no anor de 2006
so que no ano de 2007 todos os valores devem ser estimados a partir da media dos anos anterores....
basicamente é isso.... se alguem puder dar uma olhada e me retornar alguma coisa ficaria deveras agradecido....
SDS
Barretoee
Curtidas 0
Respostas
Espontes
30/07/2007
Não consegui abrir o arquivo do link.
Mande a parte do código que vc está com problema para o forum.
Edmilson Pontes
Mande a parte do código que vc está com problema para o forum.
Edmilson Pontes
GOSTEI 0
Barretoee
30/07/2007
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
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
GOSTEI 0
Espontes
30/07/2007
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;
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;
GOSTEI 0
Barretoee
30/07/2007
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 obrigado
SDS
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 obrigado
SDS
GOSTEI 0