data.pas

进行图纸的资料归档及管理

unit data;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Db,ADODB;

type
  TmainData = class(TDataModule)
    tzdata: TADOQuery;
    outdata: TADOQuery;
    maindataset: TADOConnection;
    tzDataSource: TDataSource;
    outDataSource: TDataSource;
    tzQuery: TADOQuery;
    outdataDSDesigner: TWideStringField;
    outdataDSDesigner2: TWideStringField;
    outdataDSDesigner3: TWideStringField;
    outdataDSDesigner4: TWideStringField;
    outdataDSDesigner5: TIntegerField;
    outdataDSDesigner6: TIntegerField;
    outdataDSDesigner7: TDateField;
    outdataDSDesigner8: TMemoField;
    outdataDSDesigner9: TMemoField;
    tzdataDSDesigner: TWideStringField;
    tzdataDSDesigner2: TWideStringField;
    tzdataDSDesigner3: TWideStringField;
    tzdataDSDesigner4: TWideStringField;
    tzdataDSDesigner5: TWideStringField;
    tzdataDSDesigner6: TIntegerField;
    tzdataDSDesigner7: TWideStringField;
    tzdataDSDesigner8: TDateField;
    tzdataDSDesigner9: TWideStringField;
    tzdataDSDesigner10: TDateField;
    tzdataDSDesigner11: TMemoField;
    outdataDSDesigner10: TWideStringField;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure tzdataAfterPost(DataSet: TDataSet);
    procedure tzdataBeforePost(DataSet: TDataSet);
    procedure tzdataPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure editdataAfterPost(DataSet: TDataSet);
    procedure editdataBeforePost(DataSet: TDataSet);
    procedure editdataPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure outdataAfterPost(DataSet: TDataSet);
    procedure outdataBeforePost(DataSet: TDataSet);
    procedure outdataPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainData: TmainData;

implementation

{$R *.DFM}

procedure TmainData.DataModuleCreate(Sender: TObject);
begin
maindataset.connected:=true;
tzdata.active:=true;
outdata.active:=true;
//editdata.active:=true;
end;

procedure TmainData.DataModuleDestroy(Sender: TObject);
begin
maindataset.connected:=false;
tzdata.active:=false;
outdata.active:=false;
//editdata.active:=false;


end;

procedure TmainData.tzdataAfterPost(DataSet: TDataSet);
begin
maindataset.committrans;
end;

procedure TmainData.tzdataBeforePost(DataSet: TDataSet);
begin
maindataset.begintrans;
end;

procedure TmainData.tzdataPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
maindataset.rollbacktrans;
action:=daabort;
end;

procedure TmainData.editdataAfterPost(DataSet: TDataSet);
begin
maindataset.committrans;
end;

procedure TmainData.editdataBeforePost(DataSet: TDataSet);
begin
maindataset.begintrans;
end;

procedure TmainData.editdataPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
maindataset.rollbacktrans;
action:=daabort;
end;

procedure TmainData.outdataAfterPost(DataSet: TDataSet);
begin
maindataset.committrans;
end;

procedure TmainData.outdataBeforePost(DataSet: TDataSet);
begin
maindataset.begintrans;
end;

procedure TmainData.outdataPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
maindataset.rollbacktrans;
action:=daabort;
end;

end.