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

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);

begin

IBQuery1.Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute Then

begin

DBImage2.Picture.LoadFromFile(OpenPictureDialog1.FileName);

IBQueryFoto.ParamByName('FOTO').LoadFromFile(OpenPictureDialog1.FileName,ftBlob);

IBQueryFoto.ParamByName('Nom').Value := IBQuery1.FieldByName('Nom').Value;

Try

IBQueryFoto.ExecSQL;

Except

DataModule2.IBTransaction1.RollbackRetaining;

ShowMessage('Ошибка установки фотографии');

Exit;

End;

DataModule2.IBTransaction1.CommitRetaining;

IBQuery1.Close;

IBQuery1.Open;

ShowMessage('Фотографияустановлена');

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin