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

[Медведев]

Есть главная таблица id_family с одним единственным полем id_fam (serial) и подчиненная таблица persons с первичным ключом id_person (serial) с внешним ключом id_fam. и обязательным полем family. Нужно, что б при нажатии кнопки в таблице id_family поле id_fam = id_fam +1, а в таблице persons поле id_fam = новому полю id_family.id_fam id_person = id_person+1.

Если поле family разрешить быть null можно сделать так:

procedure TFrom_main.BitBtn_fam_addClick(Send er: TObject);
begin
DataModule1.UniQuery_persons.Active :=false;
DataModule1.UniQuery_persons.ReadOn ly:= False;
DataModule1.UniQuery_id_family.Acti ve:= true;

with DataModule1.UniQuery_temp do
begin
Close;
SQL.Clear;
SQL.Add('SELECT max(culture.id_family.id_fam)');
SQL.Add ('FROM culture.id_family;');
Open;
ID := Fields.Fields[0].AsInteger + 1;
Close;
SQL.Clear;
SQL.Add(format ('INSERT INTO culture.id_family' +
'(id_fam ) VALUES (%s) ;',[IntToStr(ID)]));
ExecSQL;
end;

with DataModule1.UniQuery_temp do
begin
Close;
SQL.Clear;
SQL.Add(format('INSERT INTO culture.persons'+
'(id_fam ) VALUES (%s) ;',[IntToStr(ID)]));
ExecSQL;
end;

DataModule1.UniQuery_persons.SQL.Cl ear;
DataModule1.UniQuery_persons.SQL.Ad d('SELECT *');
DataModule1.UniQuery_persons.SQL.Ad d('FROM culture.persons');
DataModule1.UniQuery_persons.SQL.Ad d('where id_fam =');
DataModule1.UniQuery_persons.SQL.Ad d('(SELECT max(id_fam)');
DataModule1.UniQuery_persons.SQL.Ad d('FROM culture.persons)');
DataModule1.UniQuery_persons.Active := true;

Form_family.Caption:= 'Новая семья';
Form_family.ShowModal;
end;

Но мне то нужно обязательное поле???