📄 ppjgcomserver_tlb.pas
字号:
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; dispid 338;
function YjSet11(const sDsbh: WideString; fRecMaxJ: Double; fRecMaxD: Double;
lRecUse: WordBool; fDayMaxJ: Double; fDayMaxD: Double; lDayUse: WordBool;
fMonMaxJ: Double; fMonMaxD: Double; lMonUse: WordBool): Smallint; dispid 339;
function YjSetInfo(const sDsbh: WideString; out vRec: OleVariant): Smallint; dispid 340;
function CkllSave(const sZxrq: WideString; fHqll: Double; fDqll: Double): Smallint; dispid 341;
function DkllSave(iDkqx: Smallint; fDknll: Double; fFxtll: Double): Smallint; dispid 342;
function CkllInfo(out vRec: OleVariant): Smallint; dispid 343;
function DkllInfo(out vRec: OleVariant): Smallint; dispid 344;
function KhyhSave(const sBh: WideString; const sMc: WideString): Smallint; dispid 345;
function KhyhhsSave(iHs: Smallint): Smallint; dispid 346;
function KhyhInfo(out vRec: OleVariant): Smallint; dispid 347;
function KhyhhsInfo: Smallint; dispid 348;
function CkllDelete: Smallint; dispid 349;
function DkllDelete: Smallint; dispid 350;
function KhyhDelete: Smallint; dispid 351;
procedure fLogSav(const sDate: WideString; const sContent: WideString; const sType: WideString;
var lRet: Integer); dispid 352;
procedure fLogInfo(var vData: OleVariant); dispid 353;
procedure fLogDel(var lResult: Integer); dispid 354;
function YjSetDsInfo(out vRec: OleVariant): Smallint; dispid 355;
function YjSetFz(const sSDsbh: WideString; const sTDsbh: WideString): Smallint; dispid 356;
procedure fBbSav(const sDsbh: WideString; const sBbbh: WideString; var vData: OleVariant;
var lResult: Integer); dispid 357;
procedure fBbWj(const sDsbh: WideString; const sBbbh: WideString; var vData: OleVariant;
var lResult: Integer); dispid 358;
function YjInfoSave(const sDsbh: WideString; vRec: OleVariant): Smallint; dispid 359;
procedure fBbCx(const sCmd: WideString; var vData: OleVariant); dispid 360;
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; dispid 361;
function ProviceResult(const sCityNum: WideString; nPromptLevel: Smallint; nType: Smallint;
nTypeItem: Smallint; const sYearMonth: WideString; nSort: Smallint;
out vRec: OleVariant): Smallint; dispid 362;
function ModifyProviceLevel(const sCityNum: WideString; nType: Smallint; nTypeItem: Smallint;
nNumber: Integer; nPromptLevel: Smallint): Smallint; dispid 363;
function BankAccountInfo(out vRec: OleVariant): Smallint; dispid 364;
function SumUpInfo(const sCityNum: WideString; out vRec: OleVariant): Smallint; dispid 365;
function SubBankInfo(const sCityNum: WideString; const sBankNum: WideString;
out vRec: OleVariant): Smallint; dispid 366;
function BankOfficeInfo(const sCityNum: WideString; const sBankNum: WideString;
const sSubBankNum: WideString; out vRec: OleVariant): Smallint; dispid 367;
function BankSearch0(const sCityNum: WideString; const sYearMonth: WideString): Double; dispid 368;
function BankSearch1(const sCityNum: WideString; const sBankNum: WideString;
const sYearMonth: WideString): Double; dispid 369;
function BankSearch3(const sCityNum: WideString; const sAccount: WideString;
const sYearMonth: WideString): Double; dispid 370;
function BankSearch5(const sCityNum: WideString; const sSumUp: WideString;
const sYearMonth: WideString): Double; dispid 371;
function BankSearch8(const sCityNum: WideString; const sBankNum: WideString;
const sSubBankNum: WideString; const sYearMonth: WideString): Double; dispid 372;
function BankSearch9(const sCityNum: WideString; const sBankNum: WideString;
const sBankOffice: WideString; const sYearMonth: WideString): Double; dispid 373;
function BankSearch10(const sBankNum: WideString; const sYearMonth: WideString): Double; dispid 374;
property BankComDataBase: WideString dispid 375;
function SearchBankDetail(const sTxDB: WideString; nIndex: Smallint; const sParam1: WideString;
const sParam2: WideString; const sParam3: WideString;
const sParam4: WideString; out vRec: OleVariant): Smallint; dispid 376;
function TimingOption(out vRec: OleVariant): Smallint; dispid 377;
function TimingOptionSave(bPrompt: WordBool; nPrompt: Smallint; bTiming: WordBool;
nTimingForm: Smallint; dtRunTime: TDateTime): Smallint; dispid 378;
function StatProviceResult(out vRec: OleVariant): Smallint; dispid 379;
function BankDptInfo(nLabel: Smallint; out vRec: OleVariant): Smallint; dispid 380;
function StatBankroolFlow(const sCityNum: WideString; const sDpt: WideString;
dBDate: TDateTime; dEDate: TDateTime; out dDebit: Double;
out dCredit: Double): Smallint; dispid 381;
function BankroolFlowDetail(const sCity: WideString; const sDpt: WideString;
dtBDate: TDateTime; dtEDate: TDateTime; out vRec: OleVariant): Smallint; dispid 382;
function SaveSubBank(const sCityNum: WideString; const sBankNum: WideString;
const sSubBankNum: WideString; const sSubBank: WideString): Smallint; dispid 383;
function SaveBankOffice(const sCityNum: WideString; const sBankNum: WideString;
const sSubBankNum: WideString; const sBankOfficeNum: WideString;
const sBankOffice: WideString): Smallint; dispid 384;
function DelSubBank(const sCity: WideString; const sBank: WideString; const sSubBank: WideString): Smallint; dispid 385;
function DelBankOffice(const sCity: WideString; const sBank: WideString;
const sSubBank: WideString; const sBankOffice: WideString): Smallint; dispid 386;
function SaveSumUp(const sCity: WideString; const sSumUpNum: WideString;
const sSumUp: WideString): Smallint; dispid 387;
function DelSumUp(const sCity: WideString; const sSumUp: WideString): Smallint; dispid 388;
function SaveBankAccount(const sAccountNum: WideString; const sAccount: WideString): Smallint; dispid 389;
function DelBankAccount(const sAccount: WideString): Smallint; dispid 390;
function OpenAccountInfo(const sCity: WideString; const sBank: WideString;
const sSubBank: WideString; const sBankOffice: WideString;
const sAccount: WideString; const sSumUp: WideString;
out vRec: OleVariant): Smallint; dispid 391;
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; dispid 392;
function DelOpenAccount(const sCity: WideString; const sBank: WideString;
const sSubBank: WideString; const sBankOffice: WideString;
const sAccount: WideString; const sSumUp: WideString;
const sOpenAccount: WideString): Smallint; dispid 393;
function SaveYwdw(const sDwmc: WideString; const sDwzh: WideString; nGzcd: Smallint): Smallint; dispid 394;
function DelYwdw(const sDwmc: WideString; const sDwzh: WideString): Smallint; dispid 395;
function OpenYwdw(const sDwmc: WideString; const sDwzh: WideString; nGzcd: Smallint;
out vRec: OleVariant): Smallint; dispid 396;
function SearchSurveillance(out vRec: OleVariant): Smallint; dispid 397;
function CalcFinanceGuideLine(const sCity: WideString; const sMonth: WideString;
out vRec: OleVariant): Smallint; dispid 398;
function OpenTxjgsjk(out vRec: OleVariant): Smallint; dispid 399;
function CommonQuery(const sSql: WideString; out vRec: OleVariant): Smallint; dispid 400;
function SearchSubjectCollate(const sCity: WideString; const sBank: WideString;
out vRec: OleVariant): Smallint; dispid 401;
function SaveSubjectCollate(const sCity: WideString; const sBank: WideString;
const sSubject: WideString; const sAccount: WideString;
const sSummary: WideString): Smallint; dispid 402;
function DelSubjectCollate(const sCity: WideString; const sBank: WideString;
const sSubject: WideString; const sAccount: WideString): Smallint; dispid 403;
procedure fBbmlInf(var vData: OleVariant); dispid 404;
procedure fBbmlSav(const sBbbh: WideString; const sBbdm: WideString; const sBbmc: WideString;
var lResult: Integer); dispid 405;
procedure fBbmlDel(const sBbbh: WideString; var lResult: Integer); dispid 406;
procedure fBbgsSav(const sDsbh: WideString; const sBbbh: WideString; const sGs: WideString;
lRow: Integer; lCol: Integer; lGslx: Integer; var lResult: Integer); dispid 407;
procedure fBbgsDel(const sDsbh: WideString; const sBbbh: WideString; lGslx: Integer;
var lResult: Integer); dispid 408;
procedure fBbgsInf(const sDsbh: WideString; const sBbbh: WideString; lGslx: Integer;
var vData: OleVariant); dispid 409;
procedure fBbgsInf1(const sDsbh: WideString; const sBbbh: WideString; var vData: OleVariant); dispid 410;
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; dispid 411;
function SearchNationalDebtVariety(out vRec: OleVariant): Smallint; dispid 412;
function SearchNationalDebtInfo(const sCity: WideString; const sVariety: WideString;
const sQd: WideString; out vRec: OleVariant): Smallint; dispid 413;
function SearchNationalDebtDetailed(const sCity: WideString; const sVariety: WideString;
const sQd: WideString; const sDate: WideString;
const sGzPzh: WideString; out vRec: OleVariant): Smallint; dispid 414;
procedure IpToDsbh(const sDsIP: WideString; var sDsbh: WideString); dispid 415;
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; dispid 416;
function SearchNationDebtQD(out vRec: OleVariant): Smallint; dispid 417;
function ModifyPublishLevel(const sCity: WideString; nType: Integer; nTypeItem: Integer;
nNumber: Integer; nLevel: Integer): Smallint; dispid 418;
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 CoPJgComServer provides a Create and CreateRemote method to
// create instances of the default interface IPJgComServer exposed by
// the CoClass PJgComServer. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoPJgComServer = class
class function Create: IPJgComServer;
class function CreateRemote(const MachineName: string): IPJgComServer;
end;
implementation
uses ComObj;
class function CoPJgComServer.Create: IPJgComServer;
begin
Result := CreateComObject(CLASS_PJgComServer) as IPJgComServer;
end;
class function CoPJgComServer.CreateRemote(const MachineName: string): IPJgComServer;
begin
Result := CreateRemoteComObject(MachineName, CLASS_PJgComServer) as IPJgComServer;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -