bckj_tlb.pas

三层的通用架构

    function StringEncrypt(const SourceString: WideString; const Password: WideString; 
                           EncryptFlag: WordBool): WideString; safecall;
    function StringCompress(const SourceString: WideString; CompressFlag: WordBool): WideString; safecall;
    property Object0: OleVariant read Get_Object0;
    property Object1: OleVariant read Get_Object1;
    property Object2: OleVariant read Get_Object2;
    property Object3: OleVariant read Get_Object3;
    property Object4: OleVariant read Get_Object4;
    property Object5: OleVariant read Get_Object5;
    property Object6: OleVariant read Get_Object6;
    property Object7: OleVariant read Get_Object7;
    property Object8: OleVariant read Get_Object8;
    property Object9: OleVariant read Get_Object9;
    property CustomObject: OleVariant read Get_CustomObject;
  end;

// *********************************************************************//
// DispIntf:  IDefaultRDM6Disp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {43812501-EAE6-4731-B8E4-BCB359A3773B}
// *********************************************************************//
  IDefaultRDM6Disp = dispinterface
    ['{43812501-EAE6-4731-B8E4-BCB359A3773B}']
    function Login(const UserName: WideString; const Password: WideString; EncryptFlag: WordBool): WordBool; dispid 1;
    function AddSQL(ClearFlag: WordBool; const SQLString: WideString; ExecFlag: WordBool): WordBool; dispid 2;
    function ChangePassword(const OldPassword: WideString; const NewPassword: WideString; 
                            EncryptFlag: WordBool): WordBool; dispid 3;
    procedure SetUpdateTableName(const TableName: WideString; const FieldIndexs: WideString); dispid 4;
    function GetErrorString(Index: Integer): WideString; dispid 5;
    function GetUserInfo(AllUsersFlag: WordBool): WideString; dispid 6;
    function ProcessPassword(const BasicStr: WideString; const Value: WideString; 
                             ToNatural: WordBool): WideString; dispid 7;
    function GetProcedureNames: WideString; dispid 8;
    function GetTableNames(SystemTables: WordBool): WideString; dispid 9;
    function GetFieldNames(const TableName: WideString): WideString; dispid 10;
    function GetRegisterUser: WideString; dispid 11;
    function SetUserValue(const UserName: WideString; const Value: WideString): WordBool; dispid 12;
    function GetDateTime: TDateTime; dispid 14;
    procedure BeginTrans; dispid 13;
    procedure CommitTrans(RollbackFlag: WordBool); dispid 16;
    procedure RollbackTrans; dispid 15;
    property Object0: OleVariant readonly dispid 17;
    property Object1: OleVariant readonly dispid 18;
    property Object2: OleVariant readonly dispid 19;
    property Object3: OleVariant readonly dispid 20;
    property Object4: OleVariant readonly dispid 21;
    property Object5: OleVariant readonly dispid 22;
    property Object6: OleVariant readonly dispid 23;
    property Object7: OleVariant readonly dispid 24;
    property Object8: OleVariant readonly dispid 25;
    property Object9: OleVariant readonly dispid 26;
    property CustomObject: OleVariant readonly dispid 27;
    function ConnectNewObject(const TheClassName: WideString): WordBool; dispid 28;
    procedure DisConnectObject; dispid 29;
    function ProcessPassword2(const BasicStr: WideString; const Value: WideString): WideString; dispid 30;
    function StringEncrypt(const SourceString: WideString; const Password: WideString; 
                           EncryptFlag: WordBool): WideString; dispid 31;
    function StringCompress(const SourceString: WideString; CompressFlag: WordBool): WideString; dispid 32;
    function AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; MaxErrors: Integer; 
                             out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant; dispid 20000000;
    function AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; 
                           Options: Integer; const CommandText: WideString; var Params: OleVariant; 
                           var OwnerData: OleVariant): OleVariant; dispid 20000001;
    function AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant; dispid 20000002;
    function AS_GetProviderNames: OleVariant; dispid 20000003;
    function AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; dispid 20000004;
    function AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer; 
                           var OwnerData: OleVariant): OleVariant; dispid 20000005;
    procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; 
                         var Params: OleVariant; var OwnerData: OleVariant); dispid 20000006;
  end;

// *********************************************************************//
// Interface: IDefaultRDM7
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {234B2687-5C40-4E46-8DBB-39E582D59328}
// *********************************************************************//
  IDefaultRDM7 = interface(IAppServer)
    ['{234B2687-5C40-4E46-8DBB-39E582D59328}']
    function Login(const UserName: WideString; const Password: WideString; EncryptFlag: WordBool): WordBool; safecall;
    function AddSQL(ClearFlag: WordBool; const SQLString: WideString; ExecFlag: WordBool): WordBool; safecall;
    function ChangePassword(const OldPassword: WideString; const NewPassword: WideString; 
                            EncryptFlag: WordBool): WordBool; safecall;
    procedure SetUpdateTableName(const TableName: WideString; const FieldIndexs: WideString); safecall;
    function GetErrorString(Index: Integer): WideString; safecall;
    function GetUserInfo(AllUsersFlag: WordBool): WideString; safecall;
    function ProcessPassword(const BasicStr: WideString; const Value: WideString; 
                             ToNatural: WordBool): WideString; safecall;
    function GetProcedureNames: WideString; safecall;
    function GetTableNames(SystemTables: WordBool): WideString; safecall;
    function GetFieldNames(const TableName: WideString): WideString; safecall;
    function GetRegisterUser: WideString; safecall;
    function SetUserValue(const UserName: WideString; const Value: WideString): WordBool; safecall;
    function GetDateTime: TDateTime; safecall;
    procedure BeginTrans; safecall;
    procedure CommitTrans(RollbackFlag: WordBool); safecall;
    procedure RollbackTrans; safecall;
    function Get_Object0: OleVariant; safecall;
    function Get_Object1: OleVariant; safecall;
    function Get_Object2: OleVariant; safecall;
    function Get_Object3: OleVariant; safecall;
    function Get_Object4: OleVariant; safecall;
    function Get_Object5: OleVariant; safecall;
    function Get_Object6: OleVariant; safecall;
    function Get_Object7: OleVariant; safecall;
    function Get_Object8: OleVariant; safecall;
    function Get_Object9: OleVariant; safecall;
    function Get_CustomObject: OleVariant; safecall;
    function ConnectNewObject(const TheClassName: WideString): WordBool; safecall;
    procedure DisConnectObject; safecall;
    function ProcessPassword2(const BasicStr: WideString; const Value: WideString): WideString; safecall;
    function StringEncrypt(const SourceString: WideString; const Password: WideString; 
                           EncryptFlag: WordBool): WideString; safecall;
    function StringCompress(const SourceString: WideString; CompressFlag: WordBool): WideString; safecall;
    property Object0: OleVariant read Get_Object0;
    property Object1: OleVariant read Get_Object1;
    property Object2: OleVariant read Get_Object2;
    property Object3: OleVariant read Get_Object3;
    property Object4: OleVariant read Get_Object4;
    property Object5: OleVariant read Get_Object5;
    property Object6: OleVariant read Get_Object6;
    property Object7: OleVariant read Get_Object7;
    property Object8: OleVariant read Get_Object8;
    property Object9: OleVariant read Get_Object9;
    property CustomObject: OleVariant read Get_CustomObject;
  end;

// *********************************************************************//
// DispIntf:  IDefaultRDM7Disp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {234B2687-5C40-4E46-8DBB-39E582D59328}
// *********************************************************************//
  IDefaultRDM7Disp = dispinterface
    ['{234B2687-5C40-4E46-8DBB-39E582D59328}']
    function Login(const UserName: WideString; const Password: WideString; EncryptFlag: WordBool): WordBool; dispid 1;
    function AddSQL(ClearFlag: WordBool; const SQLString: WideString; ExecFlag: WordBool): WordBool; dispid 2;
    function ChangePassword(const OldPassword: WideString; const NewPassword: WideString; 
                            EncryptFlag: WordBool): WordBool; dispid 3;
    procedure SetUpdateTableName(const TableName: WideString; const FieldIndexs: WideString); dispid 4;
    function GetErrorString(Index: Integer): WideString; dispid 5;
    function GetUserInfo(AllUsersFlag: WordBool): WideString; dispid 6;
    function ProcessPassword(const BasicStr: WideString; const Value: WideString; 
                             ToNatural: WordBool): WideString; dispid 7;
    function GetProcedureNames: WideString; dispid 8;
    function GetTableNames(SystemTables: WordBool): WideString; dispid 9;
    function GetFieldNames(const TableName: WideString): WideString; dispid 10;
    function GetRegisterUser: WideString; dispid 11;
    function SetUserValue(const UserName: WideString; const Value: WideString): WordBool; dispid 12;
    function GetDateTime: TDateTime; dispid 14;
    procedure BeginTrans; dispid 13;
    procedure CommitTrans(RollbackFlag: WordBool); dispid 16;
    procedure RollbackTrans; dispid 15;
    property Object0: OleVariant readonly dispid 17;
    property Object1: OleVariant readonly dispid 18;
    property Object2: OleVariant readonly dispid 19;
    property Object3: OleVariant readonly dispid 20;
    property Object4: OleVariant readonly dispid 21;
    property Object5: OleVariant readonly dispid 22;
    property Object6: OleVariant readonly dispid 23;
    property Object7: OleVariant readonly dispid 24;
    property Object8: OleVariant readonly dispid 25;
    property Object9: OleVariant readonly dispid 26;
    property CustomObject: OleVariant readonly dispid 27;
    function ConnectNewObject(const TheClassName: WideString): WordBool; dispid 28;
    procedure DisConnectObject; dispid 29;
    function ProcessPassword2(const BasicStr: WideString; const Value: WideString): WideString; dispid 30;
    function StringEncrypt(const SourceString: WideString; const Password: WideString; 
                           EncryptFlag: WordBool): WideString; dispid 31;
    function StringCompress(const SourceString: WideString; CompressFlag: WordBool): WideString; dispid 32;
    function AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; MaxErrors: Integer; 
                             out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant; dispid 20000000;
    function AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; 
                           Options: Integer; const CommandText: WideString; var Params: OleVariant; 
                           var OwnerData: OleVariant): OleVariant; dispid 20000001;
    function AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant; dispid 20000002;
    function AS_GetProviderNames: OleVariant; dispid 20000003;
    function AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; dispid 20000004;
    function AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer; 
                           var OwnerData: OleVariant): OleVariant; dispid 20000005;
    procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; 
                         var Params: OleVariant; var OwnerData: OleVariant); dispid 20000006;
  end;

// *********************************************************************//
// Interface: IDefaultRDM8
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {4B493F35-FDFD-4693-93AB-70A1F6A41B20}
// *********************************************************************//
  IDefaultRDM8 = interface(IAppServer)
    ['{4B493F35-FDFD-4693-93AB-70A1F6A41B20}']
    function Login(const UserName: WideString; const Password: WideString; EncryptFlag: WordBool): WordBool; safecall;
    function AddSQL(ClearFlag: WordBool; const SQLString: WideString; ExecFlag: WordBool): WordBool; safecall;
    function ChangePassword(const OldPassword: WideString; const NewPassword: WideString; 
                            EncryptFlag: WordBool): WordBool; safecall;
    procedure SetUpdateTableName(const TableName: WideString; const FieldIndexs: WideString); safecall;
    function GetErrorString(Index: Integer): WideString; safecall;
    function GetUserInfo(AllUsersFlag: WordBool): WideString; safecall;
    function ProcessPassword(const BasicStr: WideString; const Value: WideString; 
                             ToNatural: WordBool): WideString; safecall;
    function GetProcedureNames: WideString; safec