.3 adet tablom var
1. Birimler P_birim_adi
2. Alt Birimler P_birim_adi P_islem_adi
3. Bilgiler P_birim_adi P_islem_adi P_durumu ( İşlem Yapıldı - İşlem Yapılmadı)
Benim Yapmak İstediğim
Birimler
Alt Birimler
İşlem Sayısı Toplamı
Yapılan İşlemler
Bekleyen İşlemler
Örnek Olarak
Adli Büro
Hapsen Tazyik
3 Adet İşlem Var
2 İşlem Yapıldı
1 İşlem Beklemede
Zorla Getirme
5 İşlem Var
3 İşlem Yapıldı
2 İşlem Beklemede
İdari Büro
..............
.................
gibi.
Yazdığım Kod
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
i,k,l : Integer;
begin
With UniQuery1 do
begin
close;
sql.clear;
sql.add('SELECT P_birim_adi FROM birimler');
open;
UniQuery1.First;
while not UniQuery1.Eof do
begin
for i := 0 to UniQuery1.FieldCount - 1 do
begin
Memo1.Lines.Add(UniQuery1.Fieldbyname('P_birim_adi').AsString);
With UniQuery2 do
begin
close;
sql.clear;
sql.add('SELECT P_islem_adi FROM alt_birimler where P_birim_adi=(:durum)');
Params.ParamByName('durum').value := UniQuery1.Fieldbyname('P_birim_adi').AsString;
open;
UniQuery2.First;
while not UniQuery2.Eof do
begin
for k := 0 to UniQuery2.FieldCount - 1 do
begin
Memo1.Lines.Add(UniQuery2.Fieldbyname('P_islem_adi').AsString);
With UniQuery3 do
begin
close;
sql.clear;
sql.add('SELECT Count(P_islem_adi) FROM bilgiler where P_islem_adi=(:durum)');
Params.ParamByName('durum').value := UniQuery2.Fieldbyname('P_islem_adi').AsString;
open;
UniQuery3.First;
while not UniQuery3.Eof do
begin
for l := 0 to UniQuery3.FieldCount - 1 do
begin
Memo1.Lines.Add(UniQuery3.FieldByName('Count(P_islem_adi)').AsString);
end;
UniQuery3.Next;
end;
end;
end;
UniQuery2.Next;
end;
end;
end;
UniQuery1.Next;
end;
end;
end;
Ve İkinci bir soru olarak alttaki şekilde stringgride nasıl ekleyebilirim ?
[img]
http://i.hizliresim.com/BZ70lQ.jpg
[/img]
o domates size değil bana hocam benimde gözümün önünde duruyordu ama bende göremedim Allah sizden razı olsun Hocam zor anlarımızda Hızır gibi yetişip yardımcı oluyorsunuz. Çok fazla olmazsam eğer Son bir şey daha sorabilir miyim Hocam? 
Aslında bu 
Şimdi dikkat ettim de birimler tablondaki P_birim_adi hanesi, alt_birimler tablondaki P_birim_adi hanesindeki içerik ile aynı ise bu durumda birimler tablosuna bu SELECT ifadesinde de ihtiyaç kalmıyor. 
