Система учета информации об изменении конструкторской документации / Программа_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.