Как сделать поиск по БД через кнопку и ADOQuery SQL? - Delphi БД

[Бахтияр Оралов]

в интернете не смог найти подробного описание кода и как подключать Query к БД...нужно сделать поиск по ФИО в таблице пациенты.

я создал на форму query1 and ADOquery1 and Datasource..потом adoquery есть свойство connection string в нем путь к бд драйвер выбрал ...а свойство в sql незнаю как писать..query связал с datasource..мне нужно чтобы когда я писал в edit слова или буквы,то когда я нажимаю на кнопку поиск и мне выводило поиски..проограмму с кодом скинул сверху.

[Replicant]

Поиск:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM Таблица1 WHERE ФИО LIKE "%'+Edit1.Text+'%"');
  ADOQuery1.Open;
end;

[kropotkina-alice]

Не проще ли:

procedure TForm1.Edit1Change(Sender: TObject);
begin
Query1.Locate('FIO', Edit1.Text, [loCaseInsensitive, loPartialKey]);
end;

И никаких мерцаний...

[Replicant]

Сообщение от kropotkina-alice

Не проще ли:

procedure TForm1.Edit1Change(Sender: TObject);
begin
Query1.Locate('FIO', Edit1.Text, [loCaseInsensitive, loPartialKey]);
end;

Это разные вещи, Вы указатель двигаете, я фильтрую таблицу (н/р Ивановых может быть с десяток в базе, показываю всех). Зависит от конечной цели.

Сообщение от kropotkina-alice

И никаких мерцаний...

Вы о чем? Ничего не мерцает.

[kropotkina-alice]

И еще - зачем писать две строчки?

ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add();

Когда это записывается одной:

ADOQuery1.SQL.Text:=...

[Replicant]

Сообщение от kropotkina-alice

И еще - зачем писать две строчки?

Затем чтобы Вам не было скучно и было чем заняться.
Вы лучше скажите, что у Вас там мерцает?

[xxbesoxx]

мне нужно чтобы когда я писал в edit слова или буквы

можно так запрос по несколько поля . зависимость выбора RadioButton

 procedure TPacient.Button1Click(Sender: TObject);
begin
 if RadioButton1.Checked = true then
  begin
     with ADOQuery1 do
     begin
       SQL.Clear;
       SQL.Add(' SELECT ля-ля  Where [Код_пациента]  like....');
       Open;
     end;
  end
  else
  if RadioButton2.Checked = true then
  begin
     with ADOQuery1 do
     begin
       SQL.Clear;
       SQL.Add(' SELECT ля-ля  Where ФИО  like.....');
       Open;
     end;
  end
  else
  if RadioButton3.Checked = true then
  begin
     with ADOQuery1 do
     begin
       SQL.Clear;
       SQL.Add(' SELECT ля-ля  Where Улица like like .....');
       Open;
     end;
  end;
end;

end.

[xxbesoxx]

Сообщение от kropotkina-alice

Не проще ли:

procedure TForm1.Edit1Change(Sender: TObject);
begin
Query1.Locate('FIO', Edit1.Text, [loCaseInsensitive, loPartialKey]);
end;

И никаких мерцаний...

Фильтрация и SQL запрос "разные вещи" и применяется "разных случаях"

[come-on]

Фильтрация и SQL запрос "разные вещи"

вам бы самому для начала разобраться с этим, чтобы таких перлов больше не выпускать )

[xxbesoxx]

Сообщение от come-on

вам бы самому для начала разобраться с этим

Без вас будет очень трудно разобраться .!
-- Я не понимаю ваши бессмысленный ля-ля
-- Не начинай пожалуйста и Я вам не скажу куда вам надо идты .!
На что вы советуйте что я разобрался самому?