[merdashka]

Я понимаю, что вопрос довольно простой, но все же. Как сделать, чтобы при редактировании ComboBox его лист заполнялся данными из таблицы которые удовлетворяют Сombobox.Text+'%'. При чем происходило, чтобы это и при удалении символов из СomboBox.

Я написал следуещее:

procedure TfrmNewZayavka.ComboBox1Change(Sender: TObject);
Var i:Integer;
begin
Query1.Close;
Query1.ParamByName('Name_param').Value:=ComboBox1. Text+'%';
Query1.Open;
Query1.First;
for i:=1 to Query1.RecordCount do
begin
Combobox1.Items.Add(Query1.FieldByName('Zakazchik' ).AsString);
Query1.Next;
end;
end;

Sql запрос следующий:

SELECT Zakazchik
FROM "Zakazchik.db" Country
WHERE (upper(Zakazchik) Like upper(:Name_param))

но нужно добавить чтобы при каждом вводе лист ComboBox очищался, я пытался Написать ComboBox1.Items.Clear но при этом удаляется текст в ComboBox . И событие ONChange не реагирует на удаление
Если можно напишите поподробней. Заранеее блогадарен

[mav_c]

Сообщение от merdashka

Я понимаю, что вопрос довольно простой, но все же. Как сделать, чтобы при редактировании ComboBox его лист заполнялся данными из таблицы которые удовлетворяют Сombobox.Text+'%'. При чем происходило, чтобы это и при удалении символов из СomboBox.

Я написал следуещее:

procedure TfrmNewZayavka.ComboBox1Change(Sender: TObject);
Var i:Integer;
begin
Query1.Close;
Query1.ParamByName('Name_param').Value:=ComboBox1. Text+'%';
Query1.Open;
Query1.First;
for i:=1 to Query1.RecordCount do
begin
Combobox1.Items.Add(Query1.FieldByName('Zakazchik' ).AsString);
Query1.Next;
end;
end;

Sql запрос следующий:

SELECT Zakazchik
FROM "Zakazchik.db" Country
WHERE (upper(Zakazchik) Like upper(:Name_param))

но нужно добавить чтобы при каждом вводе лист ComboBox очищался, я пытался Написать ComboBox1.Items.Clear но при этом удаляется текст в ComboBox . И событие ONChange не реагирует на удаление
Если можно напишите поподробней. Заранеее блогадарен

Используй Dev Express

[merdashka]

Что за DEV Express? Я применил альтернативный способ, но он мне немного не по душе. ComboBox заменил на Edit, под ним разместил DBGrid и скрыл его. При редактировании Edit фильтруется таблица и если RecordCount>0 тогда показываю DBGrid и прописал нажатие клавиш Enter, стрелок, esc, ну и так далее. Но ведь есть более логичный способ?

[mav_c]

Сообщение от merdashka

Что за DEV Express?
Я применил альтернативный способ, но он мне немного не по душе. ComboBox заменил на Edit, под ним разместил DBGrid и скрыл его. При редактировании Edit фильтруется таблица и если RecordCount>0 тогда показываю DBGrid и прописал нажатие клавиш Enter, стрелок, esc, ну и так далее. Но ведь есть более логичный способ?

- Это библиотека компонентов! Просто супер!
Могу прислать!!!

[merdashka]

Если можно с маленькой инструкцией. Буду вечно обязан

[Decoding]

и сюда, пожалуйста - decoding@narod.ru

[4kusNick]

И сюда, если можно:
4kusNick@gmail.com

[merdashka]

Библиотекарь заинтриговал и ушел в тень

[mav_c]

Сообщение от merdashka

Библиотекарь заинтриговал и ушел в тень

Ладно, ладно у меня интернет с 18.00!

[mav_c]

Сообщение от merdashka

Если можно с маленькой инструкцией. Буду вечно обязан

Там файлик pass в нём пароль. Вводить в исходном ВИДЕ!!!

[merdashka]

Спасибо огромное