22.11.2011, 19:03
|
Прохожий
|
|
Регистрация: 22.11.2011
Сообщения: 7
Репутация: 10
|
|
Решение найдено
Код:
procedure TMform.Button1Click(Sender: TObject);
begin
//Осуществляем поиск
ADOQuery1.Close; {деактивируем запрос в качестве одной из мер предосторожности}
ADOQuery1.SQL.Clear; {стираем предыдущий запрос}
ADOQuery1.SQL.Add('select КЛ, ФИО, Оборудование, Телефон, SN, [Дата поступления], [Дата ремонта]') ;
ADOQuery1.SQL.Add('from Клиент');
ADOQuery1.SQL.Add('where ((КЛ LIKE ''%'+Edit1.Text+'%'') AND (ФИО LIKE ''%'+Edit2.Text+'%'' OR ФИО IS NULL ) AND (Оборудование LIKE ''%'+Edit4.Text+'%'' OR Оборудование IS NULL) AND (Телефон LIKE ''%'+Edit3.Text+'%'' OR Телефон IS NULL) )');
ADOQuery1.Open; {выполняем запрос}
ADOQuery1.Active:=true;
DataSource1.DataSet:=ADOQuery1;
DbGrid1.DataSource:=DataSource1;
end;
|