[Putin666]

Делаю программу, которая добавляет из базы данных пользователей на сервер в определенную группу, права и так далее.

Нужно:
Совершить поиск по базе данных или же фильтрацию;


Пытался сделать через SQL, но почему то не получается... данные, которые отвечают требованиям поиска не высвечиваются DBGrid1, ошибок ни че не выдает как будто запрос проходит, а вывода данных нет.
На форме использую компоненты ADOQuery1, ADOTable1, DataSource1, ADOConnection1

Отрывок кода поиска:

Код:

procedure TForm1.Edit8Change(Sender: TObject);
var
 strField:string;
begin
 if not CheckBox1.Checked then Exit;
 // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Name';
  1: strField:='LastName';
  2: strField:='№_stud';
 end;
 // выполнить поиск
 ADOQuery1.Locate(strField,Edit8.Text,[loCaseInsensitive,loPartialKey]);
end;

procedure TForm1.Edit7Change(Sender: TObject);
var
 strField:string;
begin
 if not CheckBox1.Checked then Exit;
 // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Name';
  1: strField:='LastName';
  2: strField:='№_stud';
 end;
 // выполнить поиск
 ADOQuery1.Close;                              
 ADOQuery1.SQL.Clear;                 
 ADOQuery1.SQL.Add('Select * from users where '+strField+' LIKE "'+Edit7.Text+'%"');
 ADOQuery1.Open;
 ADOQuery1.FieldByName('Name').DisplayLabel:='Name';
 ADOQuery1.FieldByName('LastName').DisplayLabel:='LastName';
 ADOQuery1.FieldByName('№_stud').DisplayLabel:='№_stud';
end;

 procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked=true
 then
  begin
   CheckBox1.Caption:='Режим поиска включен';
   Edit7.SetFocus;
    end
 else CheckBox1.Caption:='Режим поиска выключен';
 end;

Admin: Теги и еще раз теги!

Заранее благодарен