Thema: Delphi Form schliesst nicht :(

Einzelnen Beitrag anzeigen

Benutzerbild von bundy
bundy

Registriert seit: 24. Mai 2003
Ort: Eisenstadt
438 Beiträge
 
Delphi 2007 Architect
 
#5

Re: Form schliesst nicht :(

  Alt 24. Jan 2004, 22:31
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;
+++Glaube keiner Statistik, die du nicht selbst getürkthast.++++
********************
Ein anonymer Statistiker. *
********************
  Mit Zitat antworten Zitat