2 Tablom var master-details şeklinde birinde üyelerin kayıtları ve diğerinde her üyenin yatırdığı para miktarı kaydını tutuyorum... Borc tablosunun dbgridinde yatirdigi_para diye bi alan var o alandaki tüm kayıtları toplayamıyorum
Adotable kullandımm yanlış mı yaptımm query mi kullanmam gerekir??

Hocam sizin başka bi konudaki yazınızdan aynı bu kodlarlarla hallettim bi sorum daha olacak...
Kodlarım birazcık uzun oldu kayıt olma tarihinden bu güne kadar ay kadar aidatla çarpıyo falan yatırması gekenden çıkarıyor vs.
Şimdi vt nına kayıt yaptıgımızda veya düzenlediğimizde sildiğimizde yani toplamı etkilyecek bir işlem yaptıgımızda her butona bu kodları yazmak dogrumu yada bi fonksiyon yazsak da her işlemde onu çağırsak olabilir mi böyle bi imkan var mı delphi de ??

Zaten dünden beri query kullanıyorum ama sorunum o deil... Bütün yatırılan parayı topluyorum ama yeni bi aidat ekledniğinde yada bi aidat düzenlendiğinde yada silindiğinde label daki toplam değişmiyor sadece formun onshowuna yazdım kodlarımı ...

Yani kodlarının hepsini aynı şekilde bütün butonlara yazsam doğru olur mu yada istenildiğinde o kodları çağırmak gibi bi seçeneğimiz var mı ?

Şimdiden çok tşk ederim...

Birazcık açarmısnız?  Onu nasıl yapmak gerekir hocam procedure u nerye tanımlaycam ve onu istediğim zaman nasıl çağıracağım?

procedure TForm6.FormShow(Sender: TObject);
var
tarih1,tarih2 : TDateTime;
yil1,yil2,ay1,ay2,gun1,gun2 : word;
fark : Integer;
SONUC:integer;
begin
begin
SONUC:=0;
DataModule9.ADOQuery5.Close;
DataModule9.ADOQuery5.SQL.Clear;
DataModule9.ADOQuery5.SQL.Add('Select * From 130_AIDATLAR Where UYE_NO='''+DBEdit1.text+'''');
DataModule9.ADOQuery5.Open;
DataModule9.ADOQuery5.First;
While not DataModule9.ADOQuery5.eof Do
begin
SONUC:=SONUC+DataModule9.ADOQuery5.FieldByName('YATIRDIGI').AsInteger;
DataModule9.ADOQuery5.Next;
end;
end;
BitBtn3.Visible:=true;
BitBtn4.Visible:=false;
tarih1:=StrToDate(DBEdit6.Text);
tarih2:=Date;

fark:=SONUC-((((ay2+((yil2-yil1)*12))-ay1)+1)*400);// 400 tl aylık aidatı
if fark>0 then
Label7.Caption:='TL FAZLA YATIRMIŞ..!'
else if fark<0 then
label7.Caption:='TL EKSİK YATIRMIŞ..!'
else if fark=0 then
label7.Caption:='AÇIK YOK ŞU ANDA';
label5.Caption:=inttostr(fark);
DataModule9.ADOTable5_130AIDATLAR.Refresh;
end;




//kardes ins olur dediğin gibi yoksa her butona yazmam gerekecek bu kadar kodu... tsk ederim

Selamlar..Cevap biraz geç oldu ama..diğer arkadaşlarda faydalanır....
with query do
begin
 close;
 sql.clear;
 sql.add('SELECT SUM(YATIRDIGI_PARA) AS SONUC FROM BORC ');
 Open;
end;

 Label1.caption := Floattostr(query.fields[0].asFloat);
...Yukardaki kodu Datasourcenin "OnDataChange" olayına atarsan labeldeki sonuç kayıt anında değişir.