Поиск по ФИО

[Александр9797]

Вот сделал поиск по Коду Сотрудника:
procedure TFormSot.Edit1Change(Sender: TObject);
var Kod: Integer;
begin
if DM.ADOTableSot.Filtered then DM.ADOTableSot.Filtered:=False;
if TryStrToInt(Edit1.Text,Kod) then begin
DM.ADOTableSot.Filter:=Format('[КодСотрудника]=%d',[Kod]);
DM.ADOTableSot.Filtered:=True;
end;
end;
Как переделать что бы искало по ФИО
Или как то иначе можно сделать???

[xxbesoxx]

Как переделать что бы искало по ФИО

procedure TForm1.Edit2Change(Sender: TObject);
  var
    S: string;
begin
 if (Trim(Edit2.Text)<>'') then
  begin
    S := 'ShipCity like';
    ADOTable1.Filter := s + '''' + Trim(Edit2.Text) + '%''';
    ADOTable1.Filtered := True;
  end
  else
   ADOTable1.Filtered := False;
end;
end.

[Александр9797]

Выдает ошибку Безымянный.jpg

Вот код:

procedure TFormSot.Edit1Change(Sender: TObject);
var
S: string;
begin
if (Trim(Edit1.Text)<>'') then
begin
S := 'ShipCity like';
DM.ADOTableSot.Filter := s + '''' + Trim(Edit1.Text) + '%''';
DM.ADOTableSot.Filtered := True;
end
else
DM.ADOTableSot.Filtered := False;
end;

Выдает ошибку на вот эту строчку: DM.ADOTableSot.Filtered := True;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[xxbesoxx]

Выдает ошибку на вот эту строчку: DM.ADOTableSot.Filtered := True;

Потому что Вы невнимательно копипастите код .!

S := 'ShipCity like';

ShipCity это у меня есть таблице , У вась как Fio или ФИО ???

[Александр9797]

по русски ФИО

[xxbesoxx]

Сообщение от Александр9797

по русски ФИО

Ну пишите

S := 'ФИО like';

и посмотрите что будеть

[Александр9797]

ShipCity-это название таблицы???
like-это название поля в таблицы???

а все понял

нет все равно выдает ошибку и выводит вот эту строчку
DM.ADOTableSot.Filtered := True;

procedure TFormSot.Edit1Change(Sender: TObject);
var
S: string;
begin
if (Trim(Edit1.Text)<>'') then
begin
S := 'ФИО like';
DM.ADOTableSot.Filter := s + '''' + Trim(Edit1.Text) + '%''';
DM.ADOTableSot.Filtered := True;
end
else
DM.ADOTableSot.Filtered := False;
end;

[xxbesoxx]

Сообщение от Александр9797

ShipCity-это название таблицы???
like-это название поля в таблицы???

Нет..!
ShipCity = это название стольбцов .! на ваши случай надо писать ФИО
like = это конструкция из SQL -ов который применяется на фильтраций

Пожалуйста .!!! Книга просто полистайте если не читайте, Пример работаеть на все версие Delphi

[Александр9797]

Все спасибо сделал по другому вот так:

Var help1,help2:string;
begin
help1:='%'+Unit4.FormJournal.Edit1.Text+'%';
help2:=QuotedStr(help1);
with unit3.DM.ADOQueryJournal do
begin
Close;
SQL.Clear;
SQL.Text := 'select * from ЖурналПеремещенияСотрудников where ФИО like ' + help2+' or Отдел like ' + help2+' or Должность like ' + help2;
Open;
end;
end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор