2 Tabellen gleichzeitig abfragn

[yoshie]

ja sicher doch hier ist die procedure, so funktiniert sie halt net

Delphi-Quellcode:

procedure TZimmeranzeigen.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var k,i,j: byte;

begin
administration.anmelden;
hauptfenster.qrmain.SQL.text:='';
hauptfenster.qrmain.SQL.text:='select * from relation';
hauptfenster.qrmain.open;
k := hauptfenster.qrmain.RecordCount;

anzeige.show;
for i:=0 to anzeige.StringGrid1.ColCount do
for j:=0 to anzeige.StringGrid1.RowCount do
anzeige.stringgrid1.Cells[i,j]:='';
for i:=0 to anzeige.StringGrid2.ColCount do
for j:=0 to anzeige.StringGrid2.RowCount do
anzeige.stringgrid2.Cells[i,j]:='';
for i:=0 to anzeige.StringGrid3.ColCount do
for j:=0 to anzeige.StringGrid3.RowCount do
anzeige.stringgrid3.Cells[i,j]:='';
j:=1;
begin
for i := 1 to k do
begin
    if
(hauptfenster.qrMain.FieldByName('htzid').asstring=stringgrid1.cells[0,arow]
) then
begin
anzeige.stringgrid1.cells[0,0]:='Name';
anzeige.stringgrid1.cells[1,0]:='vorname';
anzeige.stringgrid1.cells[2,0]:='Aufgaben';
anzeige.stringgrid1.cells[3,0]:='Datum';
anzeige.stringgrid1.cells[0,j]:=hauptfenster.qrMain.FieldByName('hid').AsString;
anzeige.stringgrid1.cells[2,j]:=hauptfenster.qrMain.FieldByName('aid').AsString;
anzeige.stringgrid1.cells[3,j]:=hauptfenster.qrMain.FieldByName('datum').AsString;
inc(j);
end;
hauptfenster.qrmain.next;
end;
hauptfenster.qrmain.Close;
 end;

begin;
hauptfenster.qrmain.SQL.text:='';
hauptfenster.qrmain.SQL.text:='select * from hausmeister';
hauptfenster.qrmain.open;
k := hauptfenster.qrmain.RecordCount;
j:=1;
 for i:=1 to k do
     begin
         if (anzeige.stringgrid1.cells[0,j]=hauptfenster.qrMain.FieldByName('hid').asstring)then
      begin
          anzeige.stringgrid1.cells[0,j]:=hauptfenster.qrMain.FieldByName('name').asstring;
      anzeige.stringgrid1.cells[1,j]:=hauptfenster.qrmain.fieldbyname('vorname').asstring;
      inc(j);
       end;
       hauptfenster.qrmain.next;
      end;
    hauptfenster.qrmain.close;
end;

hauptfenster.qrmain.SQL.text:='';
hauptfenster.qrmain.SQL.text:='select * from aufgaben';
hauptfenster.qrmain.open;
j:=1;
for i:=1 to k do
begin
   if (anzeige.stringgrid1.cells[2,j]=hauptfenster.qrMain.FieldByName('aid').asstring )then
      begin
      anzeige.stringgrid1.cells[2,j]:=hauptfenster.qrMain.FieldByName('aufgabe').asstring;
      inc(j);
      end;
hauptfenster.qrmain.next;
end;
hauptfenster.qrmain.close;
 end;

 end.

uund ich möchte halt alles über die erste query öffnung machn also ncht egal schlißen un öffnen