ppjgcomserver_tlb.pas

公积金监管系统服务端Com中间件,是新疆公积金监管系统的客户端软件

unit pPJgComServer_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 2003-9-22 0:57:22 from Type Library described below.

// ************************************************************************  //
// Type Lib: D:\Program\Delphi\Project\SurveillanceSystem\ProviceSystemCom\Proj\pPJgComServer.tlb (1)
// LIBID: {C45AC9CA-F4E0-45EF-9705-BED88F07D267}
// LCID: 0
// Helpfile: 
// HelpString: pPJgComServer 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
  pPJgComServerMajorVersion = 1;
  pPJgComServerMinorVersion = 0;

  LIBID_pPJgComServer: TGUID = '{C45AC9CA-F4E0-45EF-9705-BED88F07D267}';

  IID_IPJgComServer: TGUID = '{D39A23D5-F042-4129-89E8-6CD5A498AAA8}';
  CLASS_PJgComServer: TGUID = '{3B0F92DB-99A2-42F9-AA00-672394C7A31F}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IPJgComServer = interface;
  IPJgComServerDisp = dispinterface;

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


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  POleVariant1 = ^OleVariant; {*}


// *********************************************************************//
// Interface: IPJgComServer
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D39A23D5-F042-4129-89E8-6CD5A498AAA8}
// *********************************************************************//
  IPJgComServer = interface(IAppServer)
    ['{D39A23D5-F042-4129-89E8-6CD5A498AAA8}']
    function Login(const sUid: WideString; const sPwd: WideString; out sName: WideString; 
                   out sQx: WideString; out sSsds: WideString; out iSys: Smallint): Smallint; safecall;
    function UserInfo(out vRec: OleVariant): Smallint; safecall;
    function UserSave(const sUid: WideString; const sPwd: WideString; const sName: WideString; 
                      const sQx: WideString; const sSsds: WideString; lSys: WordBool): Smallint; safecall;
    function UserDelete(const sUid: WideString): Smallint; safecall;
    function ReadMainMap(out sCaption: WideString; out vData: OleVariant): Smallint; safecall;
    function WriteMainMap(const sCaption: WideString; vData: OleVariant): Smallint; safecall;
    function ReadMap(const sDsbh: WideString; out vData: OleVariant): Smallint; safecall;
    function WriteMap(const sDsbh: WideString; vData: OleVariant): Smallint; safecall;
    procedure fZcfzbGjjInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZcfzbGjjSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                           var lResult: Integer); safecall;
    procedure fZzsybGjjInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZzsybGjjSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                           var lResult: Integer); safecall;
    procedure fZzsyfpbGjjInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZzsyfpbGjjSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                             var lResult: Integer); safecall;
    procedure fZcfzbJfInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZcfzbJfSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                          var lResult: Integer); safecall;
    procedure fJfszbJfInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); safecall;
    procedure fJfszbJfSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                          var lResult: Integer); safecall;
    procedure fZhksyebInf(const sDsbh: WideString; const sNy: WideString; const sZhmc: WideString; 
                          var vData: OleVariant); safecall;
    procedure fZhksyebSav(const sDsbh: WideString; const sNy: WideString; const sZhmc: WideString; 
                          const sKhyh: WideString; const sYhzh: WideString; aAry: OleVariant; 
                          var lResult: Integer); safecall;
    procedure fZfgjjtjbInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZfgjjtjbSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                           aAry0: OleVariant; var lResult: Integer); safecall;
    procedure fXmdkbInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); safecall;
    procedure fXmdkbSav(const sDsbh: WideString; const sNy: WideString; const sXh: WideString; 
                        const sDwmc: WideString; const sXmmc: WideString; 
                        const sLxspjg: WideString; const sDkhth: WideString; 
                        const sFfrq: WideString; lDkqx: Integer; aAry: OleVariant; 
                        var lResult: Integer); safecall;
    function DsbhSave(const sDsbh: WideString; const sDsmc: WideString; const sDsIP: WideString; 
                      iDsPort: Word; const sDsVIP: WideString; iDsVPort: Word; iDsLeft: Word; 
                      iDsTop: Word; iDsPWidth: Word; iDsPHeight: Word; const sDsPbh: WideString; 
                      lHaveXs: WordBool; lDataInUpDpt: WordBool; const sDsDB: WideString; 
                      iDsJb: Smallint; iConnXh: Smallint): Smallint; safecall;
    function DsbhDelete(const sDsbh: WideString): Smallint; safecall;
    function DsYjTimeSave(const sDsbh: WideString; dYjtime: TDateTime): Smallint; safecall;
    function DsInfo(out vRec: OleVariant): Smallint; safecall;
    function YjlxSave(const sDsbh: WideString; iBh: Smallint; const sMc: WideString; lBz: WordBool): Smallint; safecall;
    function YjlxInfo(const sDsbh: WideString; out vRec: OleVariant): Smallint; safecall;
    function YjSet1(const sDsbh: WideString; fRecMax: Double; lRecUse: WordBool; fDayMax: Double; 
                    lDayUse: WordBool; fMonMax: Double; lMonUse: WordBool; 
                    const sDwdkKm: WideString; lDwdkUse: WordBool; const sXmdkKm: WideString; 
                    lXmdkUse: WordBool): Smallint; safecall;
    function YjSet2(const sDsbh: WideString; iGdMax: Integer; iGdMin: Integer; lGdUse: WordBool; 
                    iGdqxMax: Smallint; iGdqxMin: Smallint; lGdqxUse: WordBool; iJkcs: Smallint; 
                    lJkcsuse: WordBool; iYqqxMax: Smallint; iYqqxJsr: Smallint; lYqqxUse: WordBool): Smallint; safecall;
    function YjSet3(const sDsbh: WideString; iFfcsMax: Smallint; iFfcsTime: Smallint; 
                    lFfcsUse: WordBool): Smallint; safecall;
    function YjSet4(const sDsbh: WideString; iGzjjMax: Integer; lGzjjUse: WordBool; 
                    iGdjjMax: Integer; lGdjjUse: WordBool; iTqMax: Integer; lTqUse: WordBool): Smallint; safecall;
    function YjSet6(const sDsbh: WideString; fLzzjBl: Double; const sLzzjKm: WideString; 
                    lLzzjUse: WordBool; fFxzbBl: Double; const sFxzbKm: WideString; 
                    lFxzbUse: WordBool; fZxjfBl: Double; const sZxjfKm: WideString; 
                    lZxjfUse: WordBool): Smallint; safecall;
    function YjSet8(const sDsbh: WideString; const sZzglfKm: WideString; lZzglfUse: WordBool): Smallint; safecall;
    function YjSet9(const sDsbh: WideString; fGjsxfBl: Double; const sGjsxfKm: WideString; 
                    lGjsxfUse: WordBool; fDksxfBl: Double; const sDksxfKm: WideString; 
                    lDksxfUse: WordBool): Smallint; safecall;
    function YjSet10(const sDsbh: WideString; fZxyskFse: Double; fZxyskYe: Double; 
                     const sZxyskKm: WideString; lZxyskUse: WordBool; fZxyfkFse: Double; 
                     fZxyfkYe: Double; const sZxyfkKm: WideString; lZxyfkUse: WordBool; 
                     fQtyskFse: Double; fQtyskYe: Double; const sQtyskKm: WideString; 
                     lQtyskUse: WordBool; fQtyfkFse: Double; fQtyfkYe: Double; 
                     const sQtyfkKm: WideString; lQtyfkUse: WordBool): Smallint; safecall;
    function YjSet11(const sDsbh: WideString; fRecMaxJ: Double; fRecMaxD: Double; 
                     lRecUse: WordBool; fDayMaxJ: Double; fDayMaxD: Double; lDayUse: WordBool; 
                     fMonMaxJ: Double; fMonMaxD: Double; lMonUse: WordBool): Smallint; safecall;
    function YjSetInfo(const sDsbh: WideString; out vRec: OleVariant): Smallint; safecall;
    function CkllSave(const sZxrq: WideString; fHqll: Double; fDqll: Double): Smallint; safecall;
    function DkllSave(iDkqx: Smallint; fDknll: Double; fFxtll: Double): Smallint; safecall;
    function CkllInfo(out vRec: OleVariant): Smallint; safecall;
    function DkllInfo(out vRec: OleVariant): Smallint; safecall;
    function KhyhSave(const sBh: WideString; const sMc: WideString): Smallint; safecall;
    function KhyhhsSave(iHs: Smallint): Smallint; safecall;
    function KhyhInfo(out vRec: OleVariant): Smallint; safecall;
    function KhyhhsInfo: Smallint; safecall;
    function CkllDelete: Smallint; safecall;
    function DkllDelete: Smallint; safecall;
    function KhyhDelete: Smallint; safecall;
    procedure fLogSav(const sDate: WideString; const sContent: WideString; const sType: WideString; 
                      var lRet: Integer); safecall;
    procedure fLogInfo(var vData: OleVariant); safecall;
    procedure fLogDel(var lResult: Integer); safecall;
    function YjSetDsInfo(out vRec: OleVariant): Smallint; safecall;
    function YjSetFz(const sSDsbh: WideString; const sTDsbh: WideString): Smallint; safecall;
    procedure fBbSav(const sDsbh: WideString; const sBbbh: WideString; var vData: OleVariant; 
                     var lResult: Integer); safecall;
    procedure fBbWj(const sDsbh: WideString; const sBbbh: WideString; var vData: OleVariant; 
                    var lResult: Integer); safecall;
    function YjInfoSave(const sDsbh: WideString; vRec: OleVariant): Smallint; safecall;
    procedure fBbCx(const sCmd: WideString; var vData: OleVariant); safecall;
    function YjK(const sDsBm: WideString; const sDate1: WideString; const sDate2: WideString; 
                 fRecMaxJ: Double; fRecMaxD: Double; lRecUse: WordBool; fDayMaxJ: Double; 
                 fDayMaxD: Double; lDayUse: WordBool; fMonMaxJ: Double; fMonMaxD: Double; 
                 lMonUse: WordBool; const sCdb: WideString; out vRec: OleVariant): Smallint; safecall;
    function ProviceResult(const sCityNum: WideString; nPromptLevel: Smallint; nType: Smallint; 
                           nTypeItem: Smallint; const sYearMonth: WideString; nSort: Smallint; 
                           out vRec: OleVariant): Smallint; safecall;
    function ModifyProviceLevel(const sCityNum: WideString; nType: Smallint; nTypeItem: Smallint;