Wenn Du den
Query in einem Datenmodul hast brauchst du ihn nicht dynamisch in einer Procedure erzeugen dann reicht
Delphi-Quellcode:
procedure TfrmEinstellung.Button1Click(Sender: TObject);
begin
DataModule.FrmDataModule.ExecQuery.SQL.Clear;
DataModule.FrmDataModule.ExecQuery.SQL.Add('SELECT * FROM konten');
DataModule.FrmDataModule.ExecQuery.Open;
end;
Bei einem dynamsich erzeugten
Query, befindet sich im DataModul nur eine TZConnection-Komponente mit dem Namen Conn, dann würde die Funktion so aussehen:
Delphi-Quellcode:
procedure TfrmEinstellung.Button1Click(Sender: TObject);
var qkonen: TZQuery;
begin
qKonten := TZQuery.Create( TfrmEinstellung);
qKonten.Connection := DataModule.FrmDataModule.Conn;
qKonten.SQL.Clear;
qKonten.SQL.Add('SELECT * FROM konten');
qKonten.Open;
...
qKonten.Free;
end;