Показать сообщение отдельно
  #2  
Старый 22.11.2011, 19:03
SQLISHE SQLISHE вне форума
Прохожий
 
Регистрация: 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;
Ответить с цитированием