dmbasemodule.pas

Delphi三层原代码掩饰及补丁

{-----------------------------------------------------------------------------
  Unit: dmBaseModule
  Author:    Aleyn.wu
  Date:      2002-05-12
  Descript: Base Module Interface
-----------------------------------------------------------------------------}
unit dmBaseModule;

interface

uses
  Classes, SysUtils, Variants, hmOleDataSet, hmOleVariant;

type
  IBaseOle = interface;

  IBaseService = interface
    ['{D40CB2CF-23FF-4C41-BB7E-C9FCD28AE7E7}']
    function GetSqlLanguage(Index: integer; var Params, Body: WideString): Boolean; stdcall;
    function InTranstion: WordBool; stdcall;
    function GetInfo: WideString; stdcall;
    procedure ShowMessage(Msg: WideString); stdcall;
    procedure OpenQuery(Sql: WideString); stdcall;
    procedure CloseQuery; stdcall;
    procedure Execute(Sql: WideString); stdcall;
    procedure GetFieldNames(TableName: WideString; var FieldNames: WideString); stdcall;
    procedure BeginTrans; stdcall;
    procedure CommitTrans; stdcall;
    procedure RollbackTrans; stdcall;
    procedure ApplyUpdates(const Delta: OleVariant; TableName, KeyField: WideString); stdcall;
    procedure ApplyUpdatesWithOle(const DeltaName, TableName, KeyField: WideString); stdcall;
    procedure ApplyUpdatesRecordInfo(const DeltaName, TableName, KeyField: WideString); stdcall;
    procedure ApplyUpdatesWithDataSet(const DataSet: integer; TableName, KeyField: WideString); stdcall;
    procedure ReceiveDataWithDefault; stdcall;
    procedure ReceiveDataWithCustom; stdcall;
    procedure ReceiveDataWithResult; stdcall;
    procedure ReceiveDataWithNoData; stdcall;
    procedure RaiseError(Msg: WideString); stdcall;
    procedure DropTable(TableName: WideString); stdcall;
    procedure AssignQueryToDataSet(DataSetIndex: integer; DataSetField, QueryField: WideString); stdcall;
    procedure AssignDataSetToQuery(DataSetIndex: integer; DataSetField, QueryField: WideString); stdcall;
    function UniKey: WideString; stdcall;
    function GetQuery: IHMOleADOQuery; stdcall;
    function GetDataSet(Index: integer): IHMOleClientDataSet; stdcall;
    function GetOle: IBaseOle; stdcall;
    function GetParams: IHMOleVariant; stdcall;
    function GetRecordsAffected: integer; stdcall;
    property RecordsAffected: integer read GetRecordsAffected;
    property Query: IHMOleADOQuery read GetQuery;
    property DataSet[index: integer]: IHMOleClientDataSet read GetDataSet;
    property Ole: IBaseOle read GetOle;
    property Params: IHMOleVariant read GetParams;

  end;

  IBaseDataModule = interface
    ['{0CEF4911-3E0C-4AC9-AAD7-69CA907E3979}']
    function GetModuleInfo: WideString; stdcall;

    function GetBaseService: IBaseService; stdcall;
    procedure SetBaseService(const Value: IBaseService); stdcall;

    function GetModule(): integer; stdcall;
    procedure SetModule(const value: integer); stdcall;

    function Operation(var Data, Msg: OleVariant): WordBool; stdcall;
    procedure LoadOleParam(const Param: OleVariant); stdcall;

    property BaseService: IBaseService read GetBaseService write SetBaseService;
    property Module: integer read GetModule write SetModule;
    property ModuleInfo: WideString read GetModuleInfo;
  end;

  IDataModuleInfo = interface
    ['{B1B99EE8-E0B5-475C-9E21-92E6B416065E}']
    function GetModuleName: WideString; stdcall;
    function GetVersion: Widestring; stdcall;
    function GetDesignner: Widestring; stdcall;
    function GetMemo: Widestring; stdcall;
    function GetLastUpdate: WideString; stdcall;
    function GetModuleIndex: Integer; stdcall;
    property ModuleIndex: Integer read GetModuleIndex;
  end;

  IBaseOle = interface
    procedure AddDspAsName(Name: WideString); stdcall;
    procedure Clear; stdcall;
    function GetValue(Name: WideString): OleVariant; stdcall;
    procedure SetValue(Name: WideString; Value: OleVariant); stdcall;
    property Value[Name: WideString]: OleVariant read GetValue write SetValue;
  end;

implementation

end.