Использование DBLookupComboBox

[dr.Chas]

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

Здравствуйте, мне нужно добавить строку в таблицу Заказ, которая связана с таблицей Поставщики. Как мне сделать так, чтоб при заполнении всех полей, значения поля Код поставщика можно было выбирать из выпадающего списка. База данных присоединеа с помощью компонентов ADO. Помогите пожалуйста)))

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

[rockedit]

Вообщем либо посмотри исходник ссылку на который тебе дали либо есди хочешь кинь мне на мыло, мыло я указал ранее. в первых кодах что я тебе присылал ошибки, не суди строго спать чтото тянет, никак не могу весь код сразу дописать. последний листинг что я прислал будет работать нормально, я тока что протестил

[Irina_87]

ооо, это вообще непонятно))) Это нужно эти компоненты подключать???
Ну я сейчас пришлю архив)))

Я сейчас пришлю))

[rockedit]

Пришло, сделаю напишу. Сейчас посмотрим что ты там натворила))
Насколько я понял тебе нужен выпадающий список в Project2 Form3?
Посоветую на будущее осозноно называть формы, модули , компоненты и т.д.
Напиши на какую форму разместить компонент - выпадающий список?

[Irina_87]

там где добавление записей

Мне нужно, чтобы был выпадающий список Код поставщика и Код потребителя в Заказе

[rockedit]

Вообшем насколько я понял код поставгика у тебя в таблицы поставшики в 0 столбце. я отправил тебе на мыло программу. Project 2 , Form3, по событию OnShow формы я заполняю этот список...к сожалению у мен не стоит MS SQL Server, так тчо откомпилировать код не смог. пробуй у себя, я думаю основная идея будет ясна. про код потрибителя надо было раньше говорить, но думаю по аналогии сделать сможешь. следи за тем, чтоб SQL запрос был правильный!!!

[Irina_87]

Так ниче не изменилось.. Там нет кода, который ты написал

[rockedit]

второй или первый проэкт???
кинь на форму компонент ComboBox1, создай событие OnShow для формы и напиши

procedure TForm3.FormShow(Sender: TObject);
var
 i: integer;
begin
 ComboBox1.Visible:=false;
 ComboBox1.Items.Clear;
 //если редактируем таблицу заказ, то
 if RadioGroup1.ItemIndex = 2 then
     //если таблица активна то
      if ADOQuery1.Active = true then
        //если етсь хоть одна строка в таблице
        if ADOQuery1.RecordCount <> 0 then
         Begin
           ComboBox1.Visible:=true;
           ComboBox1.Text := ADOQuery1.Fields.Fields[0].AsString;
           //Заполняем компонент
           ADOQuery1.First;
            for i := 1 to ADOQuery1.RecordCount do
              Begin
                ComboBox1.Items.Add(ADOQuery1.Fields.Fields[0].AsString);
                ADOQuery1.Next;
               end;
         end;

end;

там етсь этот код, я второй проект редактировал!

[Irina_87]

Нет, там ниче не изменено. Я десять раз проверила. Может не то отослал??

[rockedit]

хз, вроде то. пропиши как я тебе сказал. возми код из моего последнегго сообшения на странице 2 этой темы.