Detail Tablodan Master a Bilgi Aktarma

[haydarxxx]

Slm.FireBird veri tabanı kullanıyorum.

Kod: Tümünü seç

 var
a:integer;
 begin
Gauge1.visible:=True;
Gauge1.MaxValue := DataModule1.IBDataSet_SPORCU.RecordCount;
DataModule1.IBDataSet_SPORCU.First; //döngü başlangıcı
begin
While not DataModule1.IBDataSet_SPORCU.Eof Do
begin
 DataModule1.IBDataSet_SPORCU.edit;
  try
DataModule1.IBQuery9.close;
DataModule1.IBQuery9.SQL.Clear;
DataModule1.IBQuery9.SQL.Add('select count(*) from TBL_SPORCU WHERE IDMAC=IDMAC');
DataModule1.IBQuery9.open;


DataModule1.IBQuery8.close;
DataModule1.IBQuery8.SQL.Clear;
DataModule1.IBQuery8.SQL.Add('select count(*) from TBL_SPORCUDETAY  WHERE IDSPOR=IDSPOR  AND HAREKET='+quotedstr(DBEdit1.text)+'');
DataModule1.IBQuery8.open;

DataModule1.IBDataSet_SPORCU.FieldByName('VERDIGI').AsInteger:=DataModule1.IBDataSet_SPORCUDETAY.FieldByName('VOLUMLU').AsInteger;



except
 on E:exception do
 end;

DataModule1.IBDataSet_SPORCU.post;
DataModule1.IBDataSet_SPORCU.Next;
Gauge1.Progress:= Gauge1.Progress + 1;
 end;
  end;
a:=application.MessageBox ('Detay verileri aktarıldı','Aktarım Tamam',+mb_iconinformation);
Gauge1.Progress:=0;
Gauge1.visible:=false;
end;

yazdığım kodlama da

DataModule1.IBQuery9.close;
DataModule1.IBQuery9.SQL.Clear;
DataModule1.IBQuery9.SQL.Add('select count(*) from TBL_SPORCU WHERE IDMAC=IDMAC');
DataModule1.IBQuery9.open;

ile masterdan örneğin bu koşula uyan 3 tane kayıt çekiyor.
sonra IBQuery8 ile detayda

DataModule1.IBQuery8.close;
DataModule1.IBQuery8.SQL.Clear;
DataModule1.IBQuery8.SQL.Add('select count(*) from TBL_SPORCUDETAY WHERE IDSPOR=IDSPOR AND HAREKET='+quotedstr(DBEdit1.text)+'');
DataModule1.IBQuery8.open;

DBEdit1.text deki verileri çağırıp

Kod: Tümünü seç

DataModule1.IBDataSet_SPORCU.FieldByName('VERDIGI').AsInteger:=DataModule1.IBDataSet_SPORCUDETAY.FieldByName('VOLUMLU').AsInteger;

master tabloma döngü içinde sırası ile aktarmak istedim.Fakat döngü ile masterdan ilk bulduğu yada son bulduğu kaydı alıp masterdaki tabloda bir kişiye yazdırıyor oysaki benim sorgu ile çekmiş olduğum masterda 3 kayıt var bu 3 kayda sırası ile detaydaki uyan bilgileri aktarmıyor.Nasıl bir şey yapmalı.

Birde

Kod: Tümünü seç

While not DataModule1.IBDataSet_SPORCU.Eof Do

döngüsünü aslında ben IBQuery9 şeklinde düzenlemek istiyorum.Burada tüm master döngüsü yapıyor.Ben döngü sayısını IBQuery9 çekmiş olduğum örneğin 3 kayıt sayısı kadar dönmesini istiyorum.Bazı denemeler yaptım ama hiç biri olmadı