Ha, eine Frage hätte ich noch.
Ich hab versucht, eine MessageBox einzubauen, so dass diese Erscheint, wenn KEIN Kunde gefunden wurde. Leider schlug mein Versuch fehl, Da diese Messagebox immer wieder erscheint, obwohl ein Kunde gefunden wurde. Ich weiss nicht, wo ich meine Box hinsetzen muss!
Code:
procedure TForm1.BtnSearchClick(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='SELECT * FROM kundendaten WHERE nachname LIKE :name OR telefon1 LIKE :telefon1 OR telefon2 LIKE :telefon2';
ADOQuery1.Parameters.ParamByName('name').Value := '%' + EditSearch.Text + '%';
ADOQuery1.Parameters.ParamByName('telefon1').Value := '%' + EditSearch.Text + '%';
ADOQuery1.Parameters.ParamByName('telefon2').Value := '%' + EditSearch.Text + '%';
ADOQuery1.Open;
if ADOQuery1.Active then
ADOQuery1.Refresh
else
ADOQuery1.Open;
MessageDlg('Der Kunde "' + EditSearch.Text + '" wurde leider nicht gefunden!', mtInformation,
[mbOK],0);
end;