ADOQuery2.Close; // Закрыть запрос
ADOQuery2.SQL.Clear; // Отчистить запрос
ADOQuery2.SQL.Add('select DISTINCT seans from zur '); // 'seans' название нужного поля по которому идёт поиск, 'zur' название нужной таблицы
ADOQuery2.SQL.Add('where seans>=sen and seans like '''+c+'%''ORDER BY seans'); // Добавление новых значений в запрос
ADOQuery2.Parameters.ParamByName('sen').Value:= c; // 'с' как раз вводимое значение в поле edit
ADOQuery2.Open; // Открыть запрос
case RadioGroup2.ItemIndex of
0: seans := 'ФИО';
1: seans := 'ИИН';
2: seans := 'тЕЛЕФОН';
3: seans := 'Адрес';
ADOQuery2.SQL.Add('select DISTINCT seans from zur '); // 'seans' название нужного поля по которому идёт поиск, 'zur' название нужной таблицы
ADOQuery2.SQL.Add('where seans>=sen and seans like '''+c+'%''ORDER BY seans'); // Добавление новых значений в запрос
ADOQuery2.SQL.Add('select DISTINCT '+seans+' from zur '); // 'seans' название нужного поля по которому идёт поиск, 'zur' название нужной таблицы
ADOQuery2.SQL.Add('where '+seans+'>=sen and seans like '''+c+'%''ORDER BY '+seans+''); // Добавление новых значений в запрос
procedure TForm1.Edit1Change(Sender: TObject);
var id: string;
begin
case RadioGroup2.ItemIndex of // где id будет строка с названием поля по которому идёт поиск
0: id := 'ФИО';
1: id := 'ИИН';
2: id := 'тЕЛЕФОН';
3: id := 'Адрес';
end;
ADOQuery2.Close; // Закрыть запрос
ADOQuery2.SQL.Clear; // Отчистить запрос
ADOQuery2.SQL.Add('select DISTINCT '+id+' from table_name'); // 'table_name' название нужной таблицы
ADOQuery2.SQL.Add(' where '+id+'>=par and '+id+' like '''+edit1.Text+'%''ORDER BY '+id+''); // Добавление новых значений в запрос
ADOQuery2.Parameters.Clear;
ADOQuery2.parameters.addParameter.name:='par';
ADOQuery2.Parameters.ParamByName('par').DataType:= ftString;
ADOQuery2.Parameters.ParamByName('par').Attributes:= [paNullable];
ADOQuery2.Parameters.ParamByName('par').Value:= edit1.Text; // как раз вводимое значение в поле edit
ADOQuery2.Open; // Открыть запрос
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.