📄 pjglr_tlb.pas
字号:
function fYjK(out vRec: OleVariant): Smallint; safecall;
function SearchFinanceGenerlLedger(const sYearMonth: WideString; const sSubject: WideString;
nOrientation: Smallint; out vRec: OleVariant): Smallint; safecall;
function SearchFinanceDetailedLedger(const sYearMonth: WideString; const sSubject: WideString;
out vRec: OleVariant): Smallint; safecall;
function SearchFinanceWarrant(const sDate: WideString; const sNum: WideString;
out vRec: OleVariant): Smallint; safecall;
function SearchGZ(const sDate: WideString; const sPz: WideString; const nQx: WideString;
const fGmje: WideString; out vRec: OleVariant): Smallint; safecall;
function SearchGZDetail(const sGzpzh: WideString; out vRec: OleVariant): Smallint; safecall;
function SearchSurveillanceDetailed(const sDate: WideString; nType: Smallint;
nTypeItem: Smallint; const sOther: WideString;
nOther: Double; out vRec: OleVariant): Smallint; safecall;
function SetConnectXh(nConnectXh: Smallint): Smallint; safecall;
end;
// *********************************************************************//
// DispIntf: IJGLRServerDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B561E7AF-3A1F-4EEB-B334-8BE1D7BE5E01}
// *********************************************************************//
IJGLRServerDisp = dispinterface
['{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); dispid 301;
procedure fUserSav(const UserId: WideString; const UserName: WideString;
const UserPwd: WideString; const UserQx: WideString; const Ssds: WideString;
var lResult: Integer); dispid 302;
procedure fUserDel(const UserId: WideString; var lResult: Integer); dispid 303;
procedure fUserInf(var vData: OleVariant); dispid 304;
procedure fBbmlSav(const sBbbh: WideString; const sBbdm: WideString; const sBbmc: WideString;
var lResult: Integer); dispid 305;
procedure fBbmlDel(const sBbbh: WideString; var lResult: Integer); dispid 306;
procedure fBbmlInf(var vData: OleVariant); dispid 307;
procedure fBbgsSav(const sDsbh: WideString; const sBbbh: WideString; const sGs: WideString;
lRow: Integer; lCol: Integer; lGslx: Integer; var lResult: Integer); dispid 308;
procedure fBbgsDel(const sDsbh: WideString; const sBbbh: WideString; lGslx: Integer;
var lResult: Integer); dispid 309;
procedure fBbgsInf(const sDsbh: WideString; const sBbbh: WideString; lGslx: Integer;
var vData: OleVariant); dispid 310;
procedure fBbgsInf1(const sDsbh: WideString; const sBbbh: WideString; var vData: OleVariant); dispid 311;
procedure fGjjConnected(var lResult: Integer); dispid 312;
procedure fCwConnected(var lResult: Integer); dispid 313;
procedure fZcfzbGjjInf(const sNy: WideString; var vData: OleVariant); dispid 314;
procedure fZcfzbGjjSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); dispid 315;
procedure fZzsybGjjInf(const sNy: WideString; var vData: OleVariant); dispid 316;
procedure fZzsybGjjSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); dispid 317;
procedure fZzsyfpbGjjInf(const sNy: WideString; var vData: OleVariant); dispid 318;
procedure fZzsyfpbGjjSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); dispid 319;
procedure fZcfzbJfInf(const sNy: WideString; var vData: OleVariant); dispid 320;
procedure fZcfzbJfSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); dispid 321;
procedure fJfszbJfInf(const sNy: WideString; var vData: OleVariant); dispid 322;
procedure fJfszbJfSav(const sNy: WideString; aAry: OleVariant; var lResult: Integer); dispid 323;
procedure fZhksyebInf(const sNy: WideString; const sZhmc: WideString; var vData: OleVariant); dispid 324;
procedure fZhksyebSav(const sNy: WideString; const sZhmc: WideString; const sKhyh: WideString;
const sYhzh: WideString; aAry: OleVariant; var lResult: Integer); dispid 325;
procedure fZfgjjtjbInf(const sNy: WideString; var vData: OleVariant); dispid 326;
procedure fZfgjjtjbSav(const sNy: WideString; aAry: OleVariant; aAry0: OleVariant;
var lResult: Integer); dispid 327;
procedure fXmdkbInf(const sNy: WideString; var vData: OleVariant); dispid 328;
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); dispid 329;
procedure fGetData(const sBbNumber: WideString; const sDptNumber: WideString;
const sZth: WideString; const sBbDate: WideString; lCol: Integer;
lRow: Integer; var lResult: WideString); dispid 330;
procedure fRelation(const sBbNumber: WideString; var vData: OleVariant); dispid 331;
procedure fRelationSav(const sBbNumber: WideString; lRelationNo: Integer;
const sRelationL: WideString; const sRelation: WideString;
const sRelationR: WideString; var lResult: Integer); dispid 332;
procedure fRelationDel(const sBbNumber: WideString; lRelationNo: Integer; var lResult: Integer); dispid 333;
procedure fGjGet(lCol: Integer; lRow: Integer; const sBbNum: WideString;
const sDptNum: WideString; const sDate: WideString; var dResult: Double); dispid 334;
procedure fGjSumH(lCol: Integer; lRowb: Integer; lRowe: Integer; const sBbNum: WideString;
const sDptNum: WideString; const sDate: WideString; var dResult: Double); dispid 335;
procedure fGjSumV(lColb: Integer; lCole: Integer; lRow: Integer; const sBbNum: WideString;
const sDptNum: WideString; const sDate: WideString; var dResult: Double); dispid 336;
procedure fBbSav(const sBbbh: WideString; vData: OleVariant; var lResult: Integer); dispid 337;
procedure fBbWj(const sBbbh: WideString; var vData: OleVariant; var lResult: Integer); dispid 338;
procedure fGetBbData(const sNy: WideString; const sBb: WideString; var vData: OleVariant); dispid 339;
procedure fZhksyebInf1(const sNy: WideString; var vData: OleVariant); dispid 340;
procedure fGetGjjtjb(const sDate1: WideString; const sDate2: WideString; var aAry: OleVariant;
var aAry0: OleVariant); dispid 341;
procedure fGetYhxx(const sKmdm: WideString; var sKhyh: WideString; var sYhzh: WideString); dispid 342;
procedure fCwcalc(const sKm: WideString; const sRq: WideString; const sJzny: WideString;
lFunc: Integer; lPz: Smallint; var dResult: Double); dispid 343;
procedure fDataChk(var sResult: OleVariant); dispid 344;
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); dispid 345;
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); dispid 346;
procedure fYjC(iFfcsMax: Smallint; iFfcsTime: Smallint; lFfcsuse: WordBool; out vRec: OleVariant); dispid 347;
procedure fYjD(const sDate1: WideString; const sDate2: WideString; iGzjjMax: Integer;
lGzjjUse: WordBool; iGdjjMax: Integer; lGdjjUse: WordBool; iTqMax: Integer;
lTqUse: WordBool; out vRec: OleVariant); dispid 348;
procedure fYjE(iKhs: Smallint; const sBm: WideString; const sMc: WideString;
out vRec: OleVariant); dispid 349;
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); dispid 350;
procedure fYjG(const aZxrq: WideString; const aHqll: WideString; const aDqll: WideString;
const aDkqx: WideString; const aDkll: WideString; const aFxll: WideString;
out vRec: OleVariant); dispid 351;
procedure fYjH(const sDate: WideString; const sZzglfKm: WideString; lZzglfUse: WordBool;
out vRec: OleVariant); dispid 352;
procedure fYjI(const sDate: WideString; fGjsxfBl: Double; const sGjsxfKm: WideString;
lGjsxfUse: WordBool; fDksxfBl: Double; const sDksxfKm: WideString;
lDksxfUse: WordBool; out vRec: OleVariant); dispid 353;
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); dispid 354;
procedure fGjjCx(const sCmd: WideString; var vData: OleVariant); dispid 355;
function fKmInfo(var vRec: OleVariant): Smallint; dispid 356;
function fYjK(out vRec: OleVariant): Smallint; dispid 357;
function SearchFinanceGenerlLedger(const sYearMonth: WideString; const sSubject: WideString;
nOrientation: Smallint; out vRec: OleVariant): Smallint; dispid 358;
function SearchFinanceDetailedLedger(const sYearMonth: WideString; const sSubject: WideString;
out vRec: OleVariant): Smallint; dispid 359;
function SearchFinanceWarrant(const sDate: WideString; const sNum: WideString;
out vRec: OleVariant): Smallint; dispid 360;
function SearchGZ(const sDate: WideString; const sPz: WideString; const nQx: WideString;
const fGmje: WideString; out vRec: OleVariant): Smallint; dispid 361;
function SearchGZDetail(const sGzpzh: WideString; out vRec: OleVariant): Smallint; dispid 362;
function SearchSurveillanceDetailed(const sDate: WideString; nType: Smallint;
nTypeItem: Smallint; const sOther: WideString;
nOther: Double; out vRec: OleVariant): Smallint; dispid 363;
function SetConnectXh(nConnectXh: Smallint): Smallint; dispid 364;
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 CoJGLRServer provides a Create and CreateRemote method to
// create instances of the default interface IJGLRServer exposed by
// the CoClass JGLRServer. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoJGLRServer = class
class function Create: IJGLRServer;
class function CreateRemote(const MachineName: string): IJGLRServer;
end;
implementation
uses ComObj;
class function CoJGLRServer.Create: IJGLRServer;
begin
Result := CreateComObject(CLASS_JGLRServer) as IJGLRServer;
end;
class function CoJGLRServer.CreateRemote(const MachineName: string): IJGLRServer;
begin
Result := CreateRemoteComObject(MachineName, CLASS_JGLRServer) as IJGLRServer;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -