datamodule.pas

数据仓库维表及参照表维护系统

unit DataModule;

interface

uses
  SysUtils, Classes, DBXpress, DB, SqlExpr, FMTBcd, DBClient, SimpleDS;

type
  TDataModule1 = class(TDataModule)
    SQLConnection2: TSQLConnection;
    SQLMonitor1: TSQLMonitor;
    SQLConnection1: TSQLConnection;
    SimpleDataSet5: TSimpleDataSet;
    SimpleDataSet4: TSimpleDataSet;
    SimpleDataSet3: TSimpleDataSet;
    SimpleDataSet2: TSimpleDataSet;
    SQLQuery1: TSQLQuery;
    SimpleDataSet6: TSimpleDataSet;
    SimpleDataSet1: TSimpleDataSet;
    SimpleDataSet7: TSimpleDataSet;
    procedure SQLMonitor1Trace(Sender: TObject; CBInfo: pSQLTRACEDesc;
      var LogTrace: Boolean);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

uses Unitmain;

{$R *.dfm}

procedure TDataModule1.SQLMonitor1Trace(Sender: TObject; CBInfo: pSQLTRACEDesc;
  var LogTrace: Boolean);
begin
  unitmain.main.memo1.Lines.Add(CBInfo.pszTrace);
end;

end.