⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ppjgcomserver_tlb.pas

📁 公积金监管系统服务端Com中间件,是新疆公积金监管系统的客户端软件
💻 PAS
📖 第 1 页 / 共 3 页
字号:
                                nNumber: Integer; nPromptLevel: Smallint): Smallint; safecall;
    function BankAccountInfo(out vRec: OleVariant): Smallint; safecall;
    function SumUpInfo(const sCityNum: WideString; out vRec: OleVariant): Smallint; safecall;
    function SubBankInfo(const sCityNum: WideString; const sBankNum: WideString; 
                         out vRec: OleVariant): Smallint; safecall;
    function BankOfficeInfo(const sCityNum: WideString; const sBankNum: WideString; 
                            const sSubBankNum: WideString; out vRec: OleVariant): Smallint; safecall;
    function BankSearch0(const sCityNum: WideString; const sYearMonth: WideString): Double; safecall;
    function BankSearch1(const sCityNum: WideString; const sBankNum: WideString; 
                         const sYearMonth: WideString): Double; safecall;
    function BankSearch3(const sCityNum: WideString; const sAccount: WideString; 
                         const sYearMonth: WideString): Double; safecall;
    function BankSearch5(const sCityNum: WideString; const sSumUp: WideString; 
                         const sYearMonth: WideString): Double; safecall;
    function BankSearch8(const sCityNum: WideString; const sBankNum: WideString; 
                         const sSubBankNum: WideString; const sYearMonth: WideString): Double; safecall;
    function BankSearch9(const sCityNum: WideString; const sBankNum: WideString; 
                         const sBankOffice: WideString; const sYearMonth: WideString): Double; safecall;
    function BankSearch10(const sBankNum: WideString; const sYearMonth: WideString): Double; safecall;
    function Get_BankComDataBase: WideString; safecall;
    procedure Set_BankComDataBase(const Value: WideString); safecall;
    function SearchBankDetail(const sTxDB: WideString; nIndex: Smallint; const sParam1: WideString; 
                              const sParam2: WideString; const sParam3: WideString; 
                              const sParam4: WideString; out vRec: OleVariant): Smallint; safecall;
    function TimingOption(out vRec: OleVariant): Smallint; safecall;
    function TimingOptionSave(bPrompt: WordBool; nPrompt: Smallint; bTiming: WordBool; 
                              nTimingForm: Smallint; dtRunTime: TDateTime): Smallint; safecall;
    function StatProviceResult(out vRec: OleVariant): Smallint; safecall;
    function BankDptInfo(nLabel: Smallint; out vRec: OleVariant): Smallint; safecall;
    function StatBankroolFlow(const sCityNum: WideString; const sDpt: WideString; 
                              dBDate: TDateTime; dEDate: TDateTime; out dDebit: Double; 
                              out dCredit: Double): Smallint; safecall;
    function BankroolFlowDetail(const sCity: WideString; const sDpt: WideString; 
                                dtBDate: TDateTime; dtEDate: TDateTime; out vRec: OleVariant): Smallint; safecall;
    function SaveSubBank(const sCityNum: WideString; const sBankNum: WideString; 
                         const sSubBankNum: WideString; const sSubBank: WideString): Smallint; safecall;
    function SaveBankOffice(const sCityNum: WideString; const sBankNum: WideString; 
                            const sSubBankNum: WideString; const sBankOfficeNum: WideString; 
                            const sBankOffice: WideString): Smallint; safecall;
    function DelSubBank(const sCity: WideString; const sBank: WideString; const sSubBank: WideString): Smallint; safecall;
    function DelBankOffice(const sCity: WideString; const sBank: WideString; 
                           const sSubBank: WideString; const sBankOffice: WideString): Smallint; safecall;
    function SaveSumUp(const sCity: WideString; const sSumUpNum: WideString; 
                       const sSumUp: WideString): Smallint; safecall;
    function DelSumUp(const sCity: WideString; const sSumUp: WideString): Smallint; safecall;
    function SaveBankAccount(const sAccountNum: WideString; const sAccount: WideString): Smallint; safecall;
    function DelBankAccount(const sAccount: WideString): Smallint; safecall;
    function OpenAccountInfo(const sCity: WideString; const sBank: WideString; 
                             const sSubBank: WideString; const sBankOffice: WideString; 
                             const sAccount: WideString; const sSumUp: WideString; 
                             out vRec: OleVariant): Smallint; safecall;
    function SaveOpenAccount(const sCity: WideString; const sBank: WideString; 
                             const sSubBank: WideString; const sBankOffice: WideString; 
                             const sAccount: WideString; const sSumUp: WideString; 
                             const sOpenAccount: WideString; dBalance: Double; dtDate: TDateTime): Smallint; safecall;
    function DelOpenAccount(const sCity: WideString; const sBank: WideString; 
                            const sSubBank: WideString; const sBankOffice: WideString; 
                            const sAccount: WideString; const sSumUp: WideString; 
                            const sOpenAccount: WideString): Smallint; safecall;
    function SaveYwdw(const sDwmc: WideString; const sDwzh: WideString; nGzcd: Smallint): Smallint; safecall;
    function DelYwdw(const sDwmc: WideString; const sDwzh: WideString): Smallint; safecall;
    function OpenYwdw(const sDwmc: WideString; const sDwzh: WideString; nGzcd: Smallint; 
                      out vRec: OleVariant): Smallint; safecall;
    function SearchSurveillance(out vRec: OleVariant): Smallint; safecall;
    function CalcFinanceGuideLine(const sCity: WideString; const sMonth: WideString; 
                                  out vRec: OleVariant): Smallint; safecall;
    function OpenTxjgsjk(out vRec: OleVariant): Smallint; safecall;
    function CommonQuery(const sSql: WideString; out vRec: OleVariant): Smallint; safecall;
    function SearchSubjectCollate(const sCity: WideString; const sBank: WideString; 
                                  out vRec: OleVariant): Smallint; safecall;
    function SaveSubjectCollate(const sCity: WideString; const sBank: WideString; 
                                const sSubject: WideString; const sAccount: WideString; 
                                const sSummary: WideString): Smallint; safecall;
    function DelSubjectCollate(const sCity: WideString; const sBank: WideString; 
                               const sSubject: WideString; const sAccount: WideString): Smallint; safecall;
    procedure fBbmlInf(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 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;
    function SearchNationalDebt(const sCity: WideString; const sVariety: WideString; 
                                const sQd: WideString; const sDate: WideString; 
                                const sMoney: WideString; const sCount: WideString; 
                                nSumTj: Smallint; out vRec: OleVariant): Smallint; safecall;
    function SearchNationalDebtVariety(out vRec: OleVariant): Smallint; safecall;
    function SearchNationalDebtInfo(const sCity: WideString; const sVariety: WideString; 
                                    const sQd: WideString; out vRec: OleVariant): Smallint; safecall;
    function SearchNationalDebtDetailed(const sCity: WideString; const sVariety: WideString; 
                                        const sQd: WideString; const sDate: WideString; 
                                        const sGzPzh: WideString; out vRec: OleVariant): Smallint; safecall;
    procedure IpToDsbh(const sDsIP: WideString; var sDsbh: WideString); safecall;
    function BankComDataSave(const sBankNum: WideString; const sCityNum: WideString; 
                             const sAccountNum: WideString; const sSubjectNum: WideString; 
                             dtDate: TDateTime; const sSummary: WideString; dDebit: Double; 
                             dCredit: Double; dBegin: Double; dEnd: Double; 
                             const sFlowBank: WideString; const sFlowAccount: WideString; 
                             const sFlowDpt: WideString; bUpdate: WordBool; 
                             out sOnlyValue: WideString): Smallint; safecall;
    function SearchNationDebtQD(out vRec: OleVariant): Smallint; safecall;
    function ModifyPublishLevel(const sCity: WideString; nType: Integer; nTypeItem: Integer; 
                                nNumber: Integer; nLevel: Integer): Smallint; safecall;
    property BankComDataBase: WideString read Get_BankComDataBase write Set_BankComDataBase;
  end;

// *********************************************************************//
// DispIntf:  IPJgComServerDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D39A23D5-F042-4129-89E8-6CD5A498AAA8}
// *********************************************************************//
  IPJgComServerDisp = dispinterface
    ['{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; dispid 301;
    function UserInfo(out vRec: OleVariant): Smallint; dispid 302;
    function UserSave(const sUid: WideString; const sPwd: WideString; const sName: WideString; 
                      const sQx: WideString; const sSsds: WideString; lSys: WordBool): Smallint; dispid 303;
    function UserDelete(const sUid: WideString): Smallint; dispid 304;
    function ReadMainMap(out sCaption: WideString; out vData: OleVariant): Smallint; dispid 305;
    function WriteMainMap(const sCaption: WideString; vData: OleVariant): Smallint; dispid 306;
    function ReadMap(const sDsbh: WideString; out vData: OleVariant): Smallint; dispid 307;
    function WriteMap(const sDsbh: WideString; vData: OleVariant): Smallint; dispid 308;
    procedure fZcfzbGjjInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); dispid 314;
    procedure fZcfzbGjjSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                           var lResult: Integer); dispid 315;
    procedure fZzsybGjjInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); dispid 316;
    procedure fZzsybGjjSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                           var lResult: Integer); dispid 317;
    procedure fZzsyfpbGjjInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); dispid 318;
    procedure fZzsyfpbGjjSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                             var lResult: Integer); dispid 319;
    procedure fZcfzbJfInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); dispid 320;
    procedure fZcfzbJfSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                          var lResult: Integer); dispid 321;
    procedure fJfszbJfInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); dispid 322;
    procedure fJfszbJfSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                          var lResult: Integer); dispid 323;
    procedure fZhksyebInf(const sDsbh: WideString; const sNy: WideString; const sZhmc: WideString; 
                          var vData: OleVariant); dispid 324;
    procedure fZhksyebSav(const sDsbh: WideString; const sNy: WideString; const sZhmc: WideString; 
                          const sKhyh: WideString; const sYhzh: WideString; aAry: OleVariant; 
                          var lResult: Integer); dispid 325;
    procedure fZfgjjtjbInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); dispid 326;
    procedure fZfgjjtjbSav(const sDsbh: WideString; const sNy: WideString; aAry: OleVariant; 
                           aAry0: OleVariant; var lResult: Integer); dispid 327;
    procedure fXmdkbInf(const sDsbh: WideString; const sNy: WideString; var vData: OleVariant); dispid 328;
    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); dispid 329;
    function DsbhSave(const sDsbh: WideString; const sDsmc: WideString; const sDsIP: WideString; 
                      iDsPort: {??Word}OleVariant; const sDsVIP: WideString; 
                      iDsVPort: {??Word}OleVariant; iDsLeft: {??Word}OleVariant; 
                      iDsTop: {??Word}OleVariant; iDsPWidth: {??Word}OleVariant; 
                      iDsPHeight: {??Word}OleVariant; const sDsPbh: WideString; lHaveXs: WordBool; 
                      lDataInUpDpt: WordBool; const sDsDB: WideString; iDsJb: Smallint; 
                      iConnXh: Smallint): Smallint; dispid 309;
    function DsbhDelete(const sDsbh: WideString): Smallint; dispid 310;
    function DsYjTimeSave(const sDsbh: WideString; dYjtime: TDateTime): Smallint; dispid 311;
    function DsInfo(out vRec: OleVariant): Smallint; dispid 312;
    function YjlxSave(const sDsbh: WideString; iBh: Smallint; const sMc: WideString; lBz: WordBool): Smallint; dispid 313;
    function YjlxInfo(const sDsbh: WideString; out vRec: OleVariant): Smallint; dispid 330;
    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; dispid 331;
    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; dispid 332;
    function YjSet3(const sDsbh: WideString; iFfcsMax: Smallint; iFfcsTime: Smallint; 
                    lFfcsUse: WordBool): Smallint; dispid 333;
    function YjSet4(const sDsbh: WideString; iGzjjMax: Integer; lGzjjUse: WordBool; 
                    iGdjjMax: Integer; lGdjjUse: WordBool; iTqMax: Integer; lTqUse: WordBool): Smallint; dispid 334;
    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; dispid 335;
    function YjSet8(const sDsbh: WideString; const sZzglfKm: WideString; lZzglfUse: WordBool): Smallint; dispid 336;
    function YjSet9(const sDsbh: WideString; fGjsxfBl: Double; const sGjsxfKm: WideString; 
                    lGjsxfUse: WordBool; fDksxfBl: Double; const sDksxfKm: WideString; 
                    lDksxfUse: WordBool): Smallint; dispid 337;
    function YjSet10(const sDsbh: WideString; fZxyskFse: Double; fZxyskYe: Double; 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -