Показать сообщение отдельно
  #1  
Старый 24.06.2014, 08:43
Посол_вон Посол_вон вне форума
Прохожий
 
Регистрация: 22.05.2014
Сообщения: 11
Версия Delphi: delphi
Репутация: 10
По умолчанию Добавление с DBCombobox

Делаю программу "Электронная библиотека", и получился косяк на самом важно элементе, выдача книги.
(Делаю с помощью access)
вот форма "Выдача книг"

На ней dblookupcombobox берет данные с других таблиц (Клиенты и Книги) и автоматически заполняет bdedit.

в dbcombobox в integer написано (Выдана) т.е предназначена для создавания статуса книги.

Я выбираю фамилию(автоматически заполняются данные:имя, отчество, телефон), далее выбираю название книги
(автоматически заполняются данные:автор), выбираю в "статус" Выдана.


после чего в таблице:

и так далее

т.е заполняет только выше,не понимаю почему, вот код на кнопку "Выдача":

Код:
ADOQuery1.Insert;
ADOQuery1.FieldByName('famp').AsString:=DBLookupComboBox1.Text;
  ADOQuery1.FieldByName('imap').AsString:=DBEdit1.Text; //Добавит содержимое DBedit1 в колонку imap
  ADOQuery1.FieldByName('ot4p').AsString:=DBEdit2.Text;
  ADOQuery1.FieldByName('na3').AsString:=DBLookupComboBox2.Text; //Добавит содержимое DBedit2 в колонку ot4p
  ADOQuery1.FieldByName('avtor').AsString:=DBEdit3.Text;
  ADOQuery1.FieldByName('telefp').AsString:=DBEdit4.Text;
  ADOQuery1.FieldByName('datav').AsString:= datetostr(DateTimePicker1.date);
  ADOQuery1.FieldByName('status').AsString:=DBComboBox1.Text;
  ADOQuery1.Post; //Сохранение в БД
  DBEdit1.Text:='';
  DBEdit2.Text:='';
  DBEdit3.Text:='';
  DBEdit4.Text:='';
Админ: Пользуемся тегами для оформления кода!

Ребят помогите, срочно надо, задавайте вопросы я весь день буду тут, ждать ответа.
Ответить с цитированием