Insert в несколько таблиц одновременно.

[alexandro704]

Доброго времени суток. Нуждаюсь в помоще.
Есть у меня база даних которая состоит из нескольких таблиц .

(Три таблицы заполнены , и они изменятся не будут.)
С помощью компонентов Zeos Access подключил базу к Делфи, делаю выборку всё работает. Базу я для примера заполнил вручную с помощью IBExpert.
Теперь же мне понадобилось через форму делфи добавлять записи в базу. И вот тут у меня возникла проблема.Как правильно?(С делфи работал года так 2 назад, а с базами не приходилось, только вот начинаю учить ).

Фамилия,Имя,Отчество, дата рождения табл. Persone
Должность табл. Posada
Дата прийома, и все эти связи табл Employee
LookupComboBox тоже выберают себе данные из уже заполненых таблиц.
Буду очень благодарен.

[BARNEY]

когда выбираете из справочников сохраняйте id того что выбрали в переменную.... а потом эту переменную добавляйте в главную таблицу.

[alexandro704]

Теоретически я понимаю что нужно сначала добавить записи в таблицу Persone (сохранить ID), потом добавить запись в таблицу Posada (сохранить ID), а в конце добавить остальные записи и сохраненные ID в Employee.
Но програмно я не понимаю как это реализовать. Может кто подкинет хотя бы какой-то пример.

[maLoy*508]

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

в DBLookupComboBox есть свойсто KeyField (ключевое поле), ListField(отображаемое в списке поле)...

......
DBLookupComboBox.KeyValue ////будет содержать id выбранной записи...
.....

насчет одновременного insert-a в несколько таблиц - просто по очереди при помощи sql-запроса делаете insert в одну, потом в другую и т.д. таблицы....

[alexandro704]

Я зарание не знаю список всех должностей. Хотя есть вариант что бы добавлять вначале должность, а потом уже из списка делать выбор этой должности. Но это чертовски не удобно.

[maLoy*508]

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

Я зарание не знаю список всех должностей. Хотя есть вариант что бы добавлять вначале должность, а потом уже из списка делать выбор этой должности. Но это чертовски не удобно.

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

если сделают ошибку при вводе должности, например не Водитель, а Водител?

[alexandro704]

Сообщение от maLoy*508

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

если сделают ошибку при вводе должности, например не Водитель, а Водител?

Точно. Да и повторы могут быть. Спс.
Но как сохранить последний ИД табл. Persone и добавить его в основную таблицу Employee?

[Dark_Spirit]

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

 var id_persone:integer;
      id_posada:integer;
 begin

  adocommand1.commandText:='insert into persone(<перечень полей для записи через запятую>)
 values(<значеня для записию колличество значений должно соответсвовать колличеству полей.
 значения через запятую>)';//sql-текст для записи в таблицу Persone
  adoconnection1.begintrans; // начало транзакции 
  try
   adocommand1.execute; // выполнение скрипта
   adoconnection1.commitTrans;// сохранение изменений в базе(таблица Persone)
  except
   adoconnection.rollbackTrans;// если по каким-то причинам данные не сохранены - откат
  end;
  adodataset1.last;// перемещение на последнюю запись в таблице Persone (при условии что
 набор связян с этой таблицей и открыт)
  id_persone:=adodataset1.fieldbyname('id').asinteger;// запоминаем id

// аналогично для таблицы Posada
  adocommand1.commandText:='';
  adoconnection1.begintrans; 
  try
   adocommand1.execute;
   adoconnection1.commitTrans;
  except
   adoconnection.rollbackTrans;
  end;
  adodataset2.last;
  id_posada:=adodataset2.fieldbyname('id').asinteger;

  // ну и сама запись в таблицу Employee
  adocommand1.commandText:='insert into(<поле_id_Persone>, <поле_id_Posada>, <остальные поля>)
 values(id_perdone, id_posada,<щстальные значения>)';
  adoconnection1.begintrans; 
  try
   adocommand1.execute;
   adoconnection1.commitTrans;
  except
   adoconnection.rollbackTrans;
  end;
 end;

примерно так

[maLoy*508]

sql знаете?

with ADOQuery1.SQL do
          begin
           Clear;  
           Add('INSERT INTO (имя таблицы) ('список полей')');
           Add('values('список значений')');
          end;
         ADOQuery1.ExecSql;

_____
лучше делайте так как предложил Dark_Spirit