Записи в БД и ComboBox

@TEKJ · Регистрация: 11.11.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер. Вообще суть проблемы такова. Хочу запихнуть в ComboBox список менеджеров из БД. Делаю добавление при активации формы, т.к. в процессе выполнения программы новые менеджеры могут добавляться в бд, поэтому при показе формы, они также должны быть учтены в combobox, НО у меня сделана 1 запись, при каждом закрытии и открытии формы заново, запись снова добавляется. Вариант, как каждый раз обнулять Items в ComboBox сразу отпадает, т.к. при повторном открытии формы добавляется лишь последняя запись.

Delphi

procedure TForm1.FormActivate(Sender: TObject);
var i:integer;
begin
for i:=1 to DataModule1.ADOTable9.RecordCount do
begin
sComboBox1.Items.Add(DataModule1.ADOTable9.FieldByName('Ìåíåäæåð').AsString);
DataModule1.ADOTable9.Next;
end
end;

Скандербег · 03.03.2013, 00:00

А метод First датасата возвращает указатель на первую запись. Забыто?
Так что утверждение:

Вариант, как каждый раз обнулять Items в ComboBox сразу отпадает, т.к. при повторном открытии формы добавляется лишь последняя запись.

слишком категорично и ничем не оправдано. Надо лишь каждый раз перед циклом возвращать внутренний указатель на первую запись в выборке.

Скандербег 1074 / 987 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	03.03.2013, 00:00	2
	А метод First датасата возвращает указатель на первую запись. Забыто? Так что утверждение: Вариант, как каждый раз обнулять Items в ComboBox сразу отпадает, т.к. при повторном открытии формы добавляется лишь последняя запись. слишком категорично и ничем не оправдано. Надо лишь каждый раз перед циклом возвращать внутренний указатель на первую запись в выборке. 0