|
#1
|
|||
|
|||
Combobox и Edit
Есть таблица , имеет два столбца
Нужно при выборе определенного значения combobox, подтягивать значение в DBEdit из этой же таблицы То есть , combobox видит значения из scnazva и в DBEdit должно выводиться значение fraza Пример таблицы katalog id scnazva fraza 1 Работа Пекарь 2 Машина Железо 3 Телевизор Изображение Выбираю в combobox "Работа" в DBEdit должно быть "Пекарь" Выбираю в combobox "Телевизор" в DBEdit должно быть "Изображение" Код:
procedure Tnewabon.DBComboBoxEh2DropDown(Sender: TObject); var ADOQuery1: TADOQuery; begin ADOQuery1 := TADOQuery.Create(self); ADOQuery1.Connection := form2.Smart; with ADOQuery1 do begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select scnazva, fraza from katalog'); ADOQuery1.Open; end; DBComboBoxEh2.Items.Clear ; while not ADOQuery1.Eof do begin DBComboBoxEh2.Items.Add(ADOQuery1.Fields[0].AsString); ADOQuery1.Next; end; ADOQuery1.Free; end; Что сюда нужно добавить ? Заранее благодарен Последний раз редактировалось yuoras, 22.05.2021 в 21:13. |