servermain_tlb.pas

车辆管理系统

unit ServerMain_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 2006-05-12 14:20:18 from Type Library described below.

// ************************************************************************  //
// Type Lib: F:\Main\Source\Server\ServerMain.tlb (1)
// LIBID: {62FAC1BB-9098-49DA-AA31-CE103F6472A7}
// LCID: 0
// Helpfile: 
// HelpString: ServerMain Library
// DepndLst: 
//   (1) v1.0 Midas, (C:\WINDOWS\system32\midas.dll)
//   (2) v2.0 stdole, (C:\WINDOWS\system32\Stdole2.tlb)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, Midas, StdVCL, Variants;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  ServerMainMajorVersion = 1;
  ServerMainMinorVersion = 0;

  LIBID_ServerMain: TGUID = '{62FAC1BB-9098-49DA-AA31-CE103F6472A7}';

  IID_ISRDM: TGUID = '{7F4DDFCD-22C8-43DD-AE4A-70E634ACB95B}';
  CLASS_SRDM: TGUID = '{2281195D-2BE4-4107-AD26-BBAFFBBD66C4}';
  CLASS_untPooler: TGUID = '{C3E65EEF-9C13-436C-AA24-C2E1BAF783D7}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  ISRDM = interface;
  ISRDMDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  SRDM = ISRDM;
  untPooler = ISRDM;


// *********************************************************************//
// Interface: ISRDM
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7F4DDFCD-22C8-43DD-AE4A-70E634ACB95B}
// *********************************************************************//
  ISRDM = interface(IAppServer)
    ['{7F4DDFCD-22C8-43DD-AE4A-70E634ACB95B}']
    function GetLogin(const DBName: WideString; const UserCode: WideString; 
                      const PassWord: WideString): Integer; safecall;
    function GetAdmin(const DBName: WideString; const UserCode: WideString; 
                      const PassWord: WideString): WordBool; safecall;
    function GetUserRight(const DBName: WideString; UserID: Integer): OleVariant; safecall;
    function GetUserName(const DBName: WideString; const UserCode: WideString; 
                         const PassWord: WideString): WideString; safecall;
    function GetAppTitle: WideString; safecall;
    function GetLargeData(const DBName: WideString; const CmdStr: WideString; Rcount: Integer): OleVariant; safecall;
    function GetMaxID(const DBName: WideString; const TableName: WideString; 
                      const KeyField: WideString): Integer; safecall;
    function GetServerTime: WideString; safecall;
    function GetAdminLogin(const PassWord: WideString): WordBool; safecall;
    function IsUnique(const DBName: WideString; const TableName: WideString; 
                      const MasterField: WideString; const CheckValue: WideString): WordBool; safecall;
    function ExecSql(const DBName: WideString; const CmdStr: WideString): WordBool; safecall;
    function SysLog(const DBName: WideString; const Fstate: WideString; const Fform: WideString; 
                    const Fevent: WideString; const Fuser: WideString; const Fpcname: WideString): WordBool; safecall;
    function ApplyUpdateDelta(const DBName: WideString; Delta: OleVariant; 
                              const TableName: WideString; const KeyField: WideString; 
                              const UserCode: WideString; const PcName: WideString): WordBool; safecall;
    function GetInNumber(const DBName: WideString; pBillTypeID: Integer): Integer; safecall;
    function GetOutNumber(const DBName: WideString; pBillTypeID: Integer): WideString; safecall;
    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; safecall;
    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; safecall;
    function GetBillStatus(const DBName: WideString; const pSqlTiao: WideString): OleVariant; safecall;
    function IsVip(const DBName: WideString; Cid: Integer): WordBool; safecall;
    function GetVIPID(const DBName: WideString; CustomerID: Integer): Integer; safecall;
    function ExistVip(const DBName: WideString; VIPid: Integer): WordBool; safecall;
    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; safecall;
    function GetVehicleStatus(const DBName: WideString): OleVariant; safecall;
    function GetFinanceBalance(const DBName: WideString; const Sdate: WideString; 
                               const Edate: WideString): OleVariant; safecall;
    function GetFinanceCollect(const DBName: WideString; const Sdate: WideString; 
                               const Edate: WideString): OleVariant; safecall;
    function VehicleRent(const DBName: WideString; const Vcode: WideString; 
                         const Sdate: WideString; const Edate: WideString): OleVariant; safecall;
    function CustomerRent(const DBName: WideString; const CustomerNo: WideString;