pjglr_tlb.pas

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

unit PJGLR_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 2005-06-12 21:50:34 from Type Library described below.

// ************************************************************************  //
// Type Lib: D:\PROGRAM\Delphi\Project\SurveillanceSystem\CityInputCom\Proj\PJGLR.tlb (1)
// LIBID: {02A837B9-E5D2-451F-807D-B0E6DF4B012D}
// LCID: 0
// Helpfile: 
// HelpString: PJGLR 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
  PJGLRMajorVersion = 1;
  PJGLRMinorVersion = 0;

  LIBID_PJGLR: TGUID = '{02A837B9-E5D2-451F-807D-B0E6DF4B012D}';

  IID_IJGLRServer: TGUID = '{B561E7AF-3A1F-4EEB-B334-8BE1D7BE5E01}';
  CLASS_JGLRServer: TGUID = '{AA4D5A27-7DC7-4D3B-8276-329CA9E60A29}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IJGLRServer = interface;
  IJGLRServerDisp = dispinterface;

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


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


// *********************************************************************//
// Interface: IJGLRServer
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B561E7AF-3A1F-4EEB-B334-8BE1D7BE5E01}
// *********************************************************************//
  IJGLRServer = interface(IAppServer)
    ['{B561E7AF-3A1F-4EEB-B334-8BE1D7BE5E01}']
    procedure fLogin(const Uid: WideString; const Pwd: WideString; var UserName: WideString; 
                     var UserQx: WideString; var Ssds: WideString; var lResult: Integer); safecall;
    procedure fUserSav(const UserId: WideString; const UserName: WideString; 
                       const UserPwd: WideString; const UserQx: WideString; const Ssds: WideString; 
                       var lResult: Integer); safecall;
    procedure fUserDel(const UserId: WideString; var lResult: Integer); safecall;
    procedure fUserInf(var vData: OleVariant); safecall;
    procedure fBbmlSav(const sBbbh: WideString; const sBbdm: WideString; const sBbmc: WideString; 
                       var lResult: Integer); safecall;
    procedure fBbmlDel(const sBbbh: WideString; var lResult: Integer); safecall;
    procedure fBbmlInf(var vData: OleVariant); safecall;
    procedure fBbgsSav(const sDsbh: WideString; const sBbbh: WideString; const sGs: WideString; 
                       lRow: Integer; lCol: Integer; lGslx: Integer; var lResult: Integer); safecall;
    procedure fBbgsDel(const sDsbh: WideString; const sBbbh: WideString; lGslx: Integer; 
                       var lResult: Integer); safecall;
    procedure fBbgsInf(const sDsbh: WideString; const sBbbh: WideString; lGslx: Integer; 
                       var vData: OleVariant); safecall;
    procedure fBbgsInf1(const sDsbh: WideString; const sBbbh: WideString; var vData: OleVariant); safecall;
    procedure fGjjConnected(var lResult: Integer); safecall;
    procedure fCwConnected(var lResult: Integer); safecall;
    procedure fZcfzbGjjInf(const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZcfzbGjjSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); safecall;
    procedure fZzsybGjjInf(const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZzsybGjjSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); safecall;
    procedure fZzsyfpbGjjInf(const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZzsyfpbGjjSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); safecall;
    procedure fZcfzbJfInf(const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZcfzbJfSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); safecall;
    procedure fJfszbJfInf(const sNy: WideString; var vData: OleVariant); safecall;
    procedure fJfszbJfSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); safecall;
    procedure fZhksyebInf(const sNy: WideString; const sZhmc: WideString; var vData: OleVariant); safecall;
    procedure fZhksyebSav(const sNy: WideString; const sZhmc: WideString; const sKhyh: WideString; 
                          const sYhzh: WideString; aAry: OleVariant; var lResult: Integer); safecall;
    procedure fZfgjjtjbInf(const sNy: WideString; var vData: OleVariant); safecall;
    procedure fZfgjjtjbSav(const sNy: WideString; aAry: OleVariant; aAry0: OleVariant; 
                           var lResult: Integer); safecall;
    procedure fXmdkbInf(const sNy: WideString; var vData: OleVariant); safecall;
    procedure fXmdkbSav(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;
    procedure fGetData(const sBbNumber: WideString; const sDptNumber: WideString; 
                       const sZth: WideString; const sBbDate: WideString; lCol: Integer; 
                       lRow: Integer; var lResult: WideString); safecall;
    procedure fRelation(const sBbNumber: WideString; var vData: OleVariant); safecall;
    procedure fRelationSav(const sBbNumber: WideString; lRelationNo: Integer; 
                           const sRelationL: WideString; const sRelation: WideString; 
                           const sRelationR: WideString; var lResult: Integer); safecall;
    procedure fRelationDel(const sBbNumber: WideString; lRelationNo: Integer; var lResult: Integer); safecall;
    procedure fGjGet(lCol: Integer; lRow: Integer; const sBbNum: WideString; 
                     const sDptNum: WideString; const sDate: WideString; var dResult: Double); safecall;
    procedure fGjSumH(lCol: Integer; lRowb: Integer; lRowe: Integer; const sBbNum: WideString; 
                      const sDptNum: WideString; const sDate: WideString; var dResult: Double); safecall;
    procedure fGjSumV(lColb: Integer; lCole: Integer; lRow: Integer; const sBbNum: WideString; 
                      const sDptNum: WideString; const sDate: WideString; var dResult: Double); safecall;
    procedure fBbSav(const sBbbh: WideString; vData: OleVariant; var lResult: Integer); safecall;
    procedure fBbWj(const sBbbh: WideString; var vData: OleVariant; var lResult: Integer); safecall;
    procedure fGetBbData(const sNy: WideString; const sBb: WideString; var vData: OleVariant); safecall;
    procedure fZhksyebInf1(const sNy: WideString; var vData: OleVariant); safecall;
    procedure fGetGjjtjb(const sDate1: WideString; const sDate2: WideString; var aAry: OleVariant; 
                         var aAry0: OleVariant); safecall;
    procedure fGetYhxx(const sKmdm: WideString; var sKhyh: WideString; var sYhzh: WideString); safecall;
    procedure fCwcalc(const sKm: WideString; const sRq: WideString; const sJzny: WideString; 
                      lFunc: Integer; lPz: Smallint; var dResult: Double); safecall;
    procedure fDataChk(var sResult: OleVariant); safecall;
    procedure fYjA(const sDate1: WideString; const sDate2: WideString; fRecMax: Double; 
                   lRecUse: WordBool; fDayMax: Double; lDayUse: WordBool; fMonMax: Double; 
                   lMonUse: WordBool; const sDwdkKm: WideString; lDwdkUse: WordBool; 
                   const sXmdkKm: WideString; lXmdkUse: WordBool; out vRec: OleVariant); safecall;
    procedure fYjB(const sDate: WideString; iGdMax: Integer; iGdMin: Integer; lGdUse: WordBool; 
                   iGdqxMax: Smallint; iGdqxMin: Smallint; lGdqxUse: WordBool; iJkcs: Smallint; 
                   lJkcsUse: WordBool; iYqqxMax: Smallint; iYqqxJsr: Smallint; lYqqxUse: WordBool; 
                   out vRec: OleVariant); safecall;
    procedure fYjC(iFfcsMax: Smallint; iFfcsTime: Smallint; lFfcsuse: WordBool; out vRec: OleVariant); safecall;
    procedure fYjD(const sDate1: WideString; const sDate2: WideString; iGzjjMax: Integer; 
                   lGzjjUse: WordBool; iGdjjMax: Integer; lGdjjUse: WordBool; iTqMax: Integer; 
                   lTqUse: WordBool; out vRec: OleVariant); safecall;
    procedure fYjE(iKhs: Smallint; const sBm: WideString; const sMc: WideString; 
                   out vRec: OleVariant); safecall;
    procedure fYjF(const sDate: WideString; fLzzjBl: Double; const sLzzjKm: WideString; 
                   lLzzjUse: WordBool; fFxzbBl: Double; const sFxzbKm: WideString; 
                   lFxzbUse: WordBool; fZxjfBl: Double; const sZxjfKm: WideString; 
                   lZxjfUse: WordBool; out vRec: OleVariant); safecall;
    procedure fYjG(const aZxrq: WideString; const aHqll: WideString; const aDqll: WideString; 
                   const aDkqx: WideString; const aDkll: WideString; const aFxll: WideString; 
                   out vRec: OleVariant); safecall;
    procedure fYjH(const sDate: WideString; const sZzglfKm: WideString; lZzglfUse: WordBool; 
                   out vRec: OleVariant); safecall;
    procedure fYjI(const sDate: WideString; fGjsxfBl: Double; const sGjsxfKm: WideString; 
                   lGjsxfUse: WordBool; fDksxfBl: Double; const sDksxfKm: WideString; 
                   lDksxfUse: WordBool; out vRec: OleVariant); safecall;
    procedure fYjJ(const sDate: 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; out vRec: OleVariant); safecall;
    procedure fGjjCx(const sCmd: WideString; var vData: OleVariant); safecall;
    function fKmInfo(var vRec: OleVariant): Smallint; safecall;