servermain_tlb.pas

车辆管理系统

                          const Sdate: WideString; const Edate: WideString): OleVariant; safecall;
  end;

// *********************************************************************//
// DispIntf:  ISRDMDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7F4DDFCD-22C8-43DD-AE4A-70E634ACB95B}
// *********************************************************************//
  ISRDMDisp = dispinterface
    ['{7F4DDFCD-22C8-43DD-AE4A-70E634ACB95B}']
    function GetLogin(const DBName: WideString; const UserCode: WideString; 
                      const PassWord: WideString): Integer; dispid 301;
    function GetAdmin(const DBName: WideString; const UserCode: WideString; 
                      const PassWord: WideString): WordBool; dispid 302;
    function GetUserRight(const DBName: WideString; UserID: Integer): OleVariant; dispid 303;
    function GetUserName(const DBName: WideString; const UserCode: WideString; 
                         const PassWord: WideString): WideString; dispid 304;
    function GetAppTitle: WideString; dispid 305;
    function GetLargeData(const DBName: WideString; const CmdStr: WideString; Rcount: Integer): OleVariant; dispid 306;
    function GetMaxID(const DBName: WideString; const TableName: WideString; 
                      const KeyField: WideString): Integer; dispid 307;
    function GetServerTime: WideString; dispid 308;
    function GetAdminLogin(const PassWord: WideString): WordBool; dispid 309;
    function IsUnique(const DBName: WideString; const TableName: WideString; 
                      const MasterField: WideString; const CheckValue: WideString): WordBool; dispid 310;
    function ExecSql(const DBName: WideString; const CmdStr: WideString): WordBool; dispid 311;
    function SysLog(const DBName: WideString; const Fstate: WideString; const Fform: WideString; 
                    const Fevent: WideString; const Fuser: WideString; const Fpcname: WideString): WordBool; dispid 312;
    function ApplyUpdateDelta(const DBName: WideString; Delta: OleVariant; 
                              const TableName: WideString; const KeyField: WideString; 
                              const UserCode: WideString; const PcName: WideString): WordBool; dispid 313;
    function GetInNumber(const DBName: WideString; pBillTypeID: Integer): Integer; dispid 315;
    function GetOutNumber(const DBName: WideString; pBillTypeID: Integer): WideString; dispid 316;
    function ApplyupdateMD(const DBName: WideString; Mdelta: OleVariant; 
                           const MtableName: WideString; const MkeyField: WideString; 
                           Ddetla: OleVariant; const DtableName: WideString; 
                           const DkeyField: WideString; const UserCode: WideString; 
                           const PcName: WideString): WordBool; dispid 314;
    function WriteDraft(const DBName: WideString; pStatus: Integer; const pBillName: WideString; 
                        const pBillNo: WideString; const pBillSelfNo: WideString; 
                        const pCompany: WideString; const pRemark: WideString; 
                        const pCreaUser: WideString): WordBool; dispid 317;
    function GetBillStatus(const DBName: WideString; const pSqlTiao: WideString): OleVariant; dispid 318;
    function IsVip(const DBName: WideString; Cid: Integer): WordBool; dispid 319;
    function GetVIPID(const DBName: WideString; CustomerID: Integer): Integer; dispid 320;
    function ExistVip(const DBName: WideString; VIPid: Integer): WordBool; dispid 321;
    function WriteBalance(const DBName: WideString; pStatus: Integer; pBillStatus: Integer; 
                          const pNo: WideString; const pBillName: WideString; pCusTomerID: Integer; 
                          const pRemark: WideString; pOverk: Single; Poverf: Single; 
                          Povert: Single; pHire: Single; pMortgage: Single; pPMortgage: Single; 
                          pPMainTain: Single; pPBenZine: Single; pPOther: Single; 
                          const pCreaUser: WideString): WordBool; dispid 322;
    function GetVehicleStatus(const DBName: WideString): OleVariant; dispid 323;
    function GetFinanceBalance(const DBName: WideString; const Sdate: WideString; 
                               const Edate: WideString): OleVariant; dispid 324;
    function GetFinanceCollect(const DBName: WideString; const Sdate: WideString; 
                               const Edate: WideString): OleVariant; dispid 325;
    function VehicleRent(const DBName: WideString; const Vcode: WideString; 
                         const Sdate: WideString; const Edate: WideString): OleVariant; dispid 326;
    function CustomerRent(const DBName: WideString; const CustomerNo: WideString; 
                          const Sdate: WideString; const Edate: WideString): OleVariant; dispid 327;
    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;

// *********************************************************************//
// The Class CoSRDM provides a Create and CreateRemote method to          
// create instances of the default interface ISRDM exposed by              
// the CoClass SRDM. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoSRDM = class
    class function Create: ISRDM;
    class function CreateRemote(const MachineName: string): ISRDM;
  end;

// *********************************************************************//
// The Class CountPooler provides a Create and CreateRemote method to          
// create instances of the default interface ISRDM exposed by              
// the CoClass untPooler. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CountPooler = class
    class function Create: ISRDM;
    class function CreateRemote(const MachineName: string): ISRDM;
  end;

implementation

uses ComObj;

class function CoSRDM.Create: ISRDM;
begin
  Result := CreateComObject(CLASS_SRDM) as ISRDM;
end;

class function CoSRDM.CreateRemote(const MachineName: string): ISRDM;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_SRDM) as ISRDM;
end;

class function CountPooler.Create: ISRDM;
begin
  Result := CreateComObject(CLASS_untPooler) as ISRDM;
end;

class function CountPooler.CreateRemote(const MachineName: string): ISRDM;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_untPooler) as ISRDM;
end;

end.