Поиск бд делфи

[Jereme]

Делаю программу на делфи, застопорился на поиске по таблице(
Исправьте ошибку если не сложно.
Заранее спасибо!

[_SERGEYX_]

хм.. это кто же тебя учил для двух маленьких табличек создавать целых 5 форм?
Где ввод пароля на главной форме. А ADOConnection1 на третьей по счету. А поиск на пятой. Который должен работать с ADOQuery1 без sql-запроса.
Вот примерный код для кнопки поиска служащих

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
  if Length(Edit1.Text) < 2 then
    ShowMessage('Мало символов для поиска') else
  begin
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from [Заключённый] where [Фамилия] LIKE "%' +
        Edit1.Text + '%"');
      Open;
      if RecordCount = 0 then
        ShowMessage('Нет совпадений');
    end;
  end;
end;

Параметры здесь не нужны.
Только подключи ADOQuery1 к Form3.ADOConnection1. И убери с него свойство DataSource. Иначе будет перекрестная ссылка.
И на будущее... сортировку нужно делать по клику на заголовке грида, а не в главном меню. Никогда не называй таблицы и поля русскими символами (знаю, что многие называют, но это имхо дилетантство). Переименовывай компоненты осмысленными названиями, а то от ADOQuery1, ADOConnection1, Edit1 глаза режет.
...и, кстати, ADOQuery1.Open и ADOQuery1.Active:= true - это одно и то же. Только первое называется методом, второе - свойством. Учим матчасть.

[Jereme]

Спасибо таварищ)