1 Topic by kolobok123789 (edited by kolobok123789 2017-05-25 10:13:20)

  • Registered: 2017-05-22
  • Posts: 5

Topic: [РЕШЕНО] Заполнение Grid из Combobox

Добрый день!
Подскажите пожалуйста, что делаю не так.

Задача состоит в том, чтобы при выборе Имени (first) из Combobox в Grid отображалась Фамилия (last).
Проект приложил.

Заранее всем спасибо за ответы.

Post's attachments

Attachment icon gridtest.rar 293.05 kb, 294 downloads since 2017-05-23 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [РЕШЕНО] Заполнение Grid из Combobox

Здравствуйте.


Кнопка поиска Button2 должна искать в таблице account
Также в таблице account у вас просто нет записей.


Исправленный проект:

Post's attachments

Attachment icon gridtest_fixed.zip 4.5 kb, 277 downloads since 2017-05-24 

Dmitry.
  • Registered: 2017-05-22
  • Posts: 5

Re: [РЕШЕНО] Заполнение Grid из Combobox

Огромное спасибо за пример, но требуемый результат немного тривиален.
Допустим мы хотим добавить информацию об аккаунте, в таблицу accounts вызвав соответствующую форму.
В форме ввода параметров аккаунта мы выбирает в комбобоксе Имя и Фамилию ({first} {last}) которые подтягиваются из таблицы users, и как только мы их выбрали, в grid появляется оставшаяся информация о пользователе (из таблицы users), такие как дата рождения, гражданство и т.д.
Вот как реализовать подобное. Может sql-запрос какой на кнопку повесить вместо штатной функции ПОИСК ?

Спасибо.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [РЕШЕНО] Заполнение Grid из Combobox

Логичней будет выводить информацию о пользователе в отдельные текстовые поля, т.к. грид всеже предназначен для вывода множества записей, пример

procedure Form1_ComboBox1_OnChange (Sender: string);
begin
    Form1.Edit1.Text := SQLExecute('SELECT first FROM users WHERE id='+Form1.ComboBox1.sqlValue);
    Form1.Edit2.Text := SQLExecute('SELECT last FROM users WHERE id='+Form1.ComboBox1.sqlValue);
end;
Dmitry.
  • Registered: 2017-05-22
  • Posts: 5

Re: [РЕШЕНО] Заполнение Grid из Combobox

Гениально!!
Благодарю, задача решена.