Дипломная работа: Организация автоматизации учета на предприятиях

IBQuery4.Params.ParamByName('INN').Value:=Edit39.Text;

try

IBQuery4.ExecSQL;

Except

DataModule2.IBTransaction1.RollbackRetaining;

ShowMessage('Запись не добавлена');

exit;

end;

DataModule2.IBTransaction1.CommitRetaining;

ShowMessage('Записьобновлена');

IBQuery1.Close;

IBQuery1.Open;

end;

end;

procedure TForm1.IBQuery1AfterScroll(DataSet: TDataSet);

begin

if IBQuery1.FieldValues['Fam']<> null then

Edit29.Text:=IBQuery1.FieldValues['Fam'];

if IBQuery1.FieldValues['Name']<> null then

Edit30.Text:=IBQuery1.FieldValues['Name'];

if IBQuery1.FieldValues['Otch']<> null then

Edit31.Text:=IBQuery1.FieldValues['Otch'];

if IBQuery1.FieldValues['Pol']<> null then

Edit33.Text:=IBQuery1.FieldValues['Pol'];

if IBQuery1.FieldValues['DR']<> null then

Edit32.Text:=IBQuery1.FieldValues['DR'];

if IBQuery1.FieldValues['Ves']<> null then

Edit34.Text:=IBQuery1.FieldValues['Ves'];

if IBQuery1.FieldValues['Rost']<> null then