Der
Query liegt aber in einen Datamodule.
Es handelt sich hierbei um ein Suchform das nach eingabe der Suchkriterien wieder schliessen soll.
Delphi-Quellcode:
procedure Tsuche_Nachname_form.SpeedButton1Click(Sender: TObject);
begin
if CheckBox1.Checked=true then
begin
DataModule_Kunden.mySQLQuery1.SQL.Clear;
DataModule_Kunden.mySQLQuery1.SQL.Text:='select * from kunden where Installationsfirma like"'+ Edit2.Text+'%" and Nachname like "%'+ Edit1.Text+'%"';
DataModule_Kunden.mySQLQuery1.Active := true;
close;
hauptform.dxTabSheet8.Show;
end;
if CheckBox1.Checked=false then
begin
DataModule_Kunden.mySQLQuery1.SQL.Clear;
DataModule_Kunden.mySQLQuery1.SQL.Text:='select * from kunden where Installationsfirma like"'+ Edit2.Text+'%" and Nachname like "'+ Edit1.Text+'%"';
DataModule_Kunden.mySQLQuery1.Active := true;
close;
hauptform.dxTabSheet8.Show;
end;
end;