dm.pas

Monitor.dfm Meter.dpr pasMain.pas

unit DM;

interface

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

type
  TDM1 = class(TDataModule)
    DataDB: TTable;
    TimeDB: TTable;
    ModuleDB: TTable;
    DSTdb: TTable;
    ProtocalDB: TTable;
    ProtocalDS: TDataSource;
    WTMdb: TTable;
    Backup: TQuery;
    TestArgDB: TTable;
    BillDB: TTable;
    Tableoperator: TTable;
    procedure InfoDBPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure InfoDBUpdateError(DataSet: TDataSet; E: EDatabaseError;
      UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
    procedure InfoDBDeleteError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure InfoDBEditError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM1: TDM1;

implementation

uses pasMain,global;
{$R *.DFM}

procedure TDM1.InfoDBPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
//        DSTdb.Cancel;
//        frmMain.StatusBar.SimpleText := 'Post Error';
end;

procedure TDM1.InfoDBUpdateError(DataSet: TDataSet; E: EDatabaseError;
  UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
//        frmMain.StatusBar.SimpleText := 'Post Error';
end;

procedure TDM1.InfoDBDeleteError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
//        frmMain.StatusBar.SimpleText := 'Post Error';
end;

procedure TDM1.InfoDBEditError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
//        frmMain.StatusBar.SimpleText := 'Post Error';
end;

procedure TDM1.DataModuleCreate(Sender: TObject);
begin
    dm1.DataDB.DatabaseName:=dbname;
    dm1.DSTDB.DatabaseName:=dbname;
    dm1.MODULEDB.DatabaseName:=dbname;
    dm1.TIMEDB.DatabaseName:=dbname;
    dm1.WTMDB.DatabaseName:=dbname;
    dm1.BILLDB.DatabaseName:=dbname;
    dm1.PROTOCALDB.DatabaseName:=dbname;
    dm1.TESTARGDB.DatabaseName:=dbname;
    dm1.TABLEOPERATOR.DatabaseName:=dbname;
    dm1.BACKUP.DatabaseName:=dbname;

    dm1.DataDB.Active :=TRUE;
    dm1.DSTDB.Active :=TRUE;
    dm1.MODULEDB.Active :=TRUE;
    dm1.TIMEDB.Active :=TRUE;
    dm1.WTMDB.Active :=TRUE;
    dm1.BILLDB.Active :=TRUE;
    dm1.PROTOCALDB.Active :=TRUE;
    dm1.TESTARGDB.Active :=TRUE;
    dm1.TABLEOPERATOR.Active :=TRUE;
end;

end.