ShowMessage DBGRID ADOTABLE

above92

код на едите
procedure TForm5.Edit1Change(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
Datamodule2.ADOQuery2.Active:=false;
Datamodule2.ADOQuery2.Close;
Datamodule2.ADOQuery2.SQL.Clear;
Datamodule2.ADOQuery2.SQL.Add('SELECT * FROM sotr WHERE fio LIKE '''+Edit1.Text+'%''');
Datamodule2.ADOQuery2.Open;
Datamodule2.ADOQuery2.Active:=true;
Form3.DBGrid1.DataSource:=Datamodule2.DataSource4;
end;
 
if Edit1.text<>' ' then BitBtn1.Enabled:=true;
end;
код на кнопке
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
Form5.Close;
Form5.Edit1.Clear;
как сделать сообщение (ничего не найдено) если по нажатию на кнопку ничего не будет найдено в бд?
1 ответ

above92

После
Datamodule2.ADOQuery2.Open;
if Datamodule2.ADOQuery2.isempty then
Showmessage('Ничего не найдено');
или
if Datamodule2.ADOQuery2.EOF then
Showmessage('Ничего не найдено');