dmdefaultmodule.pas

Delphi三层原代码掩饰及补丁

unit dmDefaultModule;

interface

uses
  SysUtils, Variants, Classes, dmBaseModuleImp, hmStrTools, hmSqlTools, hmDateTools, hmTimeTools;

type
  TdmDefault = class(TBaseDataModule)
  private
    procedure LoadStoreProcWithParam(index: integer);
  protected
    function ActionList(CmdIndex: integer; var Data, Msg: OleVariant): WordBool; override;
    function OpenView(var Data, Msg: OleVariant): WordBool;
    function OpenStoreProc(var Data, Msg: OleVariant): WordBool;
    function Execute(var Data, Msg: OleVariant): WordBool;
    function OpenSql(var Data, Msg: OleVariant): WordBool;
    function UpdateWithDelta(var Data, Msg: OleVariant): WordBool;
    function UpdateWithMCDelta(var Data, Msg: OleVariant): WordBool;
    function UpdateWithDRI(var Data, Msg: OleVariant): WordBool;
    function UpdateWithMCDRI(var Data, Msg: OleVariant): WordBool;
    function GetInnerModuleInfo: WideString; override;
  end;

  TdmDefaultInfo = class(TBaseDataModuleInfo)
  public
    function GetModuleName: WideString; override; stdcall;
    function GetVersion: Widestring; override; stdcall;
    function GetMemo: Widestring; override; stdcall;
    function GetLastUpdate: WideString; override; stdcall;
    function GetModuleIndex: Integer; override; stdcall;
  end;

implementation

uses swModuleIndex;

{ TdmDefault }

function TdmDefault.ActionList(CmdIndex: integer; var Data, Msg: OleVariant): WordBool;
begin
  case CmdIndex of
    acOpenView: Result := OpenView(Data, Msg);
    acOpenStoreProc: Result := OpenStoreProc(Data, Msg);
    acExecute: Result := Execute(Data, Msg);
    acOpenSql: Result := OpenSql(Data, Msg);
    acUpdateWithDelta: Result := UpdateWithDelta(Data, Msg);
    acUpdateWithDRI: Result := UpdateWithDRI(Data, Msg);
    acUpdateWithMCDelta: Result := UpdateWithMCDelta(Data, Msg);
    acUpdateWithMCDRI: Result := UpdateWithMCDRI(Data, Msg);
  else
    Result := inherited ActionList(CmdIndex, Data, Msg);
  end;
end;

function TdmDefault.Execute(var Data, Msg: OleVariant): WordBool;
begin
  Self.CheckTranstion;
  try
    Service.BeginTrans;
    LoadStoreProcWithParam(Ole.StoreProcIndex);
    Service.Execute(StoreProc.SqlLanguage);
    Service.CommitTrans;
    Service.ReceiveDataWithNoData;
    Msg := 'Θ