Заполнение DBCombobox/ DBListBox

← →
Denis_Ac (2004-10-22 08:07) [0]

Как сделать, чтобы из таблицы справочника:
--------------------------|
название группы| факультет|
--------------------------|
Combobox заполнить названием факультетов, а ListBox названием групп выбранного факультета.
ЗЫ Непонятен именно процесс заполнение (Пытался зделать, а работать не хочет :(((( )

← →
ЮЮ © (2004-10-22 08:14) [1]

>Пытался зделать, а работать не хочет

И где эта попытка? Теперь всем нам пытаться?
Неверное или неполное условие: В справочнике у тебя "факультет", а Combobox хочешь заполнить "названиями факультетов"

← →
Denis_Ac (2004-10-22 08:24) [2]

Это я чисто условно написал.(факультет и названиями факультетов,одно и тоже)
Sorry - "зделать"=сделать. Как их заполнить.

← →
Submarine (2004-10-22 10:07) [3]

Реализация этой задачи простая, она проще реализуются через обычный Combobox и Listbox:
Зы

type
TIDD = class
Iobject: integer;
end;
// Заполняем сомбобокс по выбору вида корреспонденции
fmdtmdl.help1.Close;
fmdtmdl.help1.SQL.Clear;
fmdtmdl.help1.sql.Add("Select *");
fmdtmdl.help1.sql.Add("From CATALOGCONTENT");
fmdtmdl.help1.sql.Add("where catalogid=203");
irec:=0;
with fmDTMDL.help1 do
begin
open;
while not EOF do
begin
Combobox1.items.add(FieldByName("name").AsString);
idd:=tidd.create;
idd.Iobject := FieldByName("CONTENTID").value;
ComboBox1.Items.Objects[IRec] := idd;
irec:=irec+1;
next;
end;
end;
А в Listbox также заполняем, используя
входной параметр (Tidd(ComboBox1.Items.Objects[irec]).Iobject);

← →
Submarine (2004-10-22 10:17) [4]

Забываю кидать обьяснение:
Сначала я кидаю вид корреспонденции в Items, а в обьект закидываю его код, а потом просто при выборе вида корреспонденции
открываю запрос типа select * From table where id=:dd,
где dd=(Tidd(ComboBox1.Items.Objects[irec]).Iobject);
и спокойно заполняй себе, что хочешь....

Заполнение DBCombobox/ DBListBox Найти похожие ветки