Запролнение 2-х связанных таблиц

@sasha198407 · Регистрация: 11.11.2009

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

Доброго времени суток. Есть 2 таблицы на MSSQL. prikaz и gurnal. Хочу в prikaz вводить данные о приказе и чтобы в gurnal отображались имеющиеся документы, в том числе и приказы.
Структура таблиц
prikaz
id_prikaza int //номер приказа
vid varchar(50) //вид документа
date varchar(50) //дата составления
fio varchar(50) //фио
tab_num varchar(50) //таб. номер
podrazdel varchar(50) //подразделение
dolg varchar(50) //должность

gurnal
id_gur int //номер журнала
vid varchar(50) //вид документа
id_doc int //номер документа(например приказа)
date varchar(50) //дата составления
fio varchar(50) //фио

Таблицы связаны по полям id_prikaza и id_doc.

Так же создал форму в Delphi для заполнения приказа при нажатие на кнопку сохранить данные вносятся в таблицу prikaz, ниже обработчик

Delphi

procedure TFPriem.Button2Click(Sender: TObject);
begin
  p0:=MaskEdit1.Text;  //№ приказа
  p1:=DateToStr(DateTimePicker1.Date);  //дата приказа
  p2:=ComboBox1.Text;  //фио
  p3:=DBEdit1.Text;  //Таб. номер
  p6:=DBEdit4.Text;  //Должность
  p12:=DBEdit3.Text;  //Подразделение
  p13:=Label1.Caption; //Вид документа
 
//закрытие запроса
DataModule1.ADOQSelectPriem.Close;
DataModule1.ADOQSelectPriem.SQL.Clear;
//добавление данных
DataModule1.ADOQSelectPriem.SQL.Add('INSERT INTO prikaz (id_prikaza, vid, date, fio, tab_num, podrazdel, dolg)');
DataModule1.ADOQSelectPriem.SQL.Add('VALUES ('+quotedstr(p0)+','+quotedstr(p13)+','+quotedstr(p1)+','+quotedstr(p2)+','+quotedstr(p3)+','+quotedstr(p6)+','+quotedstr(p12)+')');
DataModule1.ADOQSelectPriem.ExecSQL;
 
end;

Всё работает отлично, но как параллельно с этим заполнить ещё таблицу gurnal. В энтернете нашёл, что надо смотреть в сторону

MySQL

1	SELECT SCOPE_IDENTITY()

но как её прикрутить. Может есть и другие варианты? Заранее спасибо всем кто откликнится.

	08.05.2012, 15:11