Система учета информации об изменении конструкторской документации / Программа_NEW-6.4.678 / Unit2

unit Unit2;

interface

uses
SysUtils, Classes, DB, ADODB, Dialogs;

type
TDM = class(TDataModule)
Connect: TADOConnection;
DSJurnal: TDataSource;
DSIzd: TDataSource;
Izdeliya: TADOQuery;
IzdeliyaIZD: TWideStringField;
Familiya: TADOQuery;
DSFamilii: TDataSource;
FamiliyaFamiliya: TWideStringField;
FamiliyaName: TWideStringField;
FamiliyaOtchestvo: TWideStringField;
J: TADOQuery;
Jid_j: TAutoIncField;
Jdata: TDateTimeField;
JPDM: TBooleanField;
JPrim: TBooleanField;
Jsostav: TIntegerField;
Jid_fam: TIntegerField;
JId_izd: TIntegerField;
Izdeliyaid_i: TAutoIncField;
Familiyaid_f: TAutoIncField;
JFAM: TStringField;
Prim: TADOQuery;
DSPrim: TDataSource;
JField: TStringField;
JN_izv: TWideStringField;
Primid_p: TAutoIncField;
PrimPrim: TWideStringField;
procedure JurnalAfterInsert(DataSet: TDataSet);
procedure JAfterInsert(DataSet: TDataSet);
procedure JPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
DM: TDM;

implementation
uses Unit1;
{$R *.dfm}

procedure TDM.JurnalAfterInsert(DataSet: TDataSet);
begin
dM.J.FieldValues['id_izd']:=DM.Izdeliya.FieldValues['id_i'];
end;

procedure TDM.JAfterInsert(DataSet: TDataSet);
begin
dM.J.FieldValues['id_izd']:=DM.Izdeliya.FieldValues['id_i'];
end;

procedure TDM.JPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
MessageDlg('Поле "Номер извещения" обязательно для заполнения!',
mtError,[mbOK],0);
J.Cancel;
end;

end.