system_module.pas

Delphi三层原代码掩饰及补丁

unit System_Module;

interface

uses
  SysUtils, Variants, Classes, dmBaseModule, hmSqlStore, Provider, hmProvider,
  hmStrTools, hmSqlTools, hmDateTools, hmTimeTools, hmUniKey, Math,DB;

type
  TdmSystem = class(TBaseDataModule)
  protected
    function ActionList(CmdIndex: integer; var Data, Msg: OleVariant): WordBool; override;
    function Action1(var Data, Msg: OleVariant): WordBool;
    function Action2(var Data, Msg: OleVariant): WordBool;
    function Action3(var Data, Msg: OleVariant): WordBool;
    function Action4(var Data, Msg: OleVariant): WordBool;
    function Action5(var Data, Msg: OleVariant): WordBool;
    function Action6(var Data, Msg: OleVariant): WordBool;
    function Action7(var Data, Msg: OleVariant): WordBool;
    function Action8(var Data, Msg: OleVariant): WordBool;
    function Action9(var Data, Msg: OleVariant): WordBool;
    function Action10(var Data, Msg: OleVariant): WordBool;
    function Action11(var Data, Msg: OleVariant): WordBool;
  end;

implementation

{ TdmSystem }

function TdmSystem.ActionList(CmdIndex: integer; var Data, Msg: OleVariant): WordBool;
begin
  case CmdIndex of
    1: Result := Action1(Data, Msg);
    2: Result := Action2(Data, Msg);
    3: Result := Action3(Data, Msg);
    4: Result := Action4(Data, Msg);
    5: Result := Action5(Data, Msg);
    6: Result := Action6(Data, Msg);
    7: Result := Action7(Data, Msg);
    8: Result := Action8(Data, Msg);
    9: Result := Action9(Data, Msg);
    10: Result := Action10(Data, Msg);
    11: Result := Action11(Data, Msg);
    else
      Result := inherited ActionList(CmdIndex, Data, Msg);
  end;
end;

function TdmSystem.Action1(var Data, Msg: OleVariant): WordBool;
var
  Option: integer;
begin
  Option := Ole['Option'];
  case Option of
    1: Sql.LoadFromStore(0);
    2:
      begin
        Sql.LoadFromStore(3);
        Sql.Params.ParamValue['@mm_PersonKey'] := Ole['@mm_PersonKey'];
      end;
    3: Sql.LoadFromStore(9);
    4: Sql.LoadFromStore(18);
    5:
      begin
        Sql.LoadFromStore(19);
        Sql.Params.ParamValue['@mm_PersonKey'] := Ole['@mm_PersonKey'];
        Sql.Params.ParamValue['@mm_UserType'] := Ole['@mm_UserType'];
      end;
  end;
  SaveData(Data);
  Result := True;
end;

function TdmSystem.Action2(var Data, Msg: OleVariant): WordBool;
begin
  StoreProc.LoadFromStore(1);
  StoreProc['@mm_PersonKey'] := Ole['@mm_PersonKey'];
  StoreProc['@mm_Type'] := Ole['@mm_Type'];
  StoreProc['@mm_Authority'] := EDS('123');
  StoreProc['@mm_Remark'] := Ole['@mm_Remark'];
  Cmd.Execute(StoreProc);
  Msg := '穝糤ノめΘ