jglrimpl.pas

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

  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZhksyebInf1(sNy, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.GetGjjtjb(const sDate1, sDate2: String; var aAry: TDoubleDynArray;
      var aAry0: TIntegerDynArray;const nConnXh: Smallint=0):integer;
var
  vObj: Variant;
  vA, vB: OleVariant;
  i: integer;
begin
  CoInitialize(nil);
  try
    vA := VarArrayCreate([0, high(aAry)], varDouble);
    vB := VarArrayCreate([0, high(aAry0)], varInteger);
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fGetGjjtjb(sDate1, sDate2, vA, vB);
    for i := 0 to high(aAry) do
      aAry[i] := vA[i];
    for i := 0 to high(aAry0) do
      aAry0[i] := vB[i];

    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.GetYhxx(const sKmdm: String; var sKhyh,
  sYhzh: String;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fGetyhxx(sKmdm, sKhyh, sYhzh);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.Cwcalc(const sKm, sRq, sJzny: String; lFunc: Integer;
  lPz: Smallint; var dResult: Double;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fCwcalc(sKm, sRq, sJzny, lFunc, lPz, dResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.DataChk(var sResult:TStringDynArray;const nConnXh: Smallint=0):integer;
var
  vObj: Variant;
  vDa: OleVariant;
  i: smallint;
begin
  CoInitialize(nil);
  try
    vDa:= varArrayCreate([0, 9], varVariant);
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fDataChk(vDa);
    setlength(sResult, 10);
    for i:=0 to 9 do
      sResult[i]:= vDa[i];
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjA(const sDate1, sDate2: String; fRecMax: Double;
  lRecUse: Boolean; fDayMax: Double; lDayUse: Boolean; fMonMax: Double;
  lMonUse: Boolean; const sDwdkKm: String; lDwdkUse: Boolean;
  const sXmdkKm: String; lXmdkUse: Boolean; var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjA(sDate1,sDate2,fRecMax,lRecUse,fDayMax,lDayUse,fMonMax,
      lMonUse,sDwdkKm,lDwdkUse,sXmdkKm,lXmdkUse,vRec);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjB(const sDate: String; iGdMax, iGdMin: Integer;
  lGdUse: Boolean; iGdqxMax, iGdqxMin: Smallint; lGdqxUse: Boolean;
  iJkcs: Smallint; lJkcsUse: Boolean; iYqqxMax, iYqqxJsr: Smallint;
  lYqqxUse: Boolean; var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjB(sDate,iGdMax, iGdMin,lGdUse,iGdqxMax, iGdqxMin,lGdqxUse,
      iJkcs, lJkcsUse, iYqqxMax, iYqqxJsr, lYqqxUse, vRec);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjC(iFfcsMax, iFfcsTime: Smallint; lFfcsuse: Boolean;
  var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjC(iFfcsMax, iFfcsTime,lFfcsuse,vRec);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjD(const sDate1, sDate2: String; iGzjjMax: Integer;
  lGzjjUse: Boolean; iGdjjMax: Integer; lGdjjUse: Boolean; iTqMax: Integer;
  lTqUse: Boolean; var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjD(sDate1, sDate2, iGzjjMax,lGzjjUse, iGdjjMax, lGdjjUse,
    iTqMax,lTqUse,vRec);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjE(iKhs: Smallint; const sBm, sMc: String;
  var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjE(iKhs,sBm, sMc,vRec);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjF(sDate: String; fLzzjBl: Double; const sLzzjKm: String;
  lLzzjUse: Boolean; fFxzbBl: Double; const sFxzbKm: String;
  lFxzbUse: Boolean; fZxjfBl: Double; const sZxjfKm: String;
  lZxjfUse: Boolean; var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjF(sDate,fLzzjBl,sLzzjKm,lLzzjUse,fFxzbBl,sFxzbKm,
      lFxzbUse, fZxjfBl,sZxjfKm,lZxjfUse,vRec) ;
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjG(aZxrq, aHqll, aDqll, aDkqx, aDkll, aFxll: String;
  var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjG(aZxrq, aHqll, aDqll, aDkqx, aDkll, aFxll,vRec) ;
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjH(const sDate, sZzglfKm: String; lZzglfUse: Boolean;
  var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjH(sDate, sZzglfKm, lZzglfUse,vRec);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjI(const sDate: String; fGjsxfBl: Double;
  const sGjsxfKm: String; lGjsxfUse: Boolean; fDksxfBl: Double;
  const sDksxfKm: String; lDksxfUse: Boolean; var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjI(sDate,fGjsxfBl,sGjsxfKm,lGjsxfUse,fDksxfBl,sDksxfKm,lDksxfUse,vRec);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjJ(const sDate: String; fZxyskFse, fZxyskYe: Double;
  const sZxyskKm: String; lZxyskUse: Boolean; fZxyfkFse, fZxyfkYe: Double;
  const sZxyfkKm: String; lZxyfkUse: Boolean; fQtyskFse, fQtyskYe: Double;
  const sQtyskKm: String; lQtyskUse: Boolean; fQtyfkFse, fQtyfkYe: Double;
  const sQtyfkKm: String; lQtyfkUse: Boolean; var vRec: Variant;const nConnXh: Smallint=0): smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fYjJ(sDate,fZxyskFse, fZxyskYe,sZxyskKm,lZxyskUse,
      fZxyfkFse, fZxyfkYe,sZxyfkKm,lZxyfkUse,
      fQtyskFse, fQtyskYe,sQtyskKm,lQtyskUse,
      fQtyfkFse, fQtyfkYe,sQtyfkKm,lQtyfkUse,vRec);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.GjjCx(const sCmd: String; var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fGjjCx(sCmd, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.KmInfo(var vRec: Variant;const nConnXh: Smallint=0): Smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    Result := vObj.fKmInfo(vRec);
  finally
    CoUninitialize;
  end;
end;

function TJGLR.fYjK(var vRec: Variant;const nConnXh: Smallint=0): Smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    result := vObj.fYjK(vRec);
  finally
    CoUninitialize;
  end;
end;

function TJGLR.SearchFinanceDetailedLedger(const sYearMonth,
  sSubject: String; var vRec: Variant;const nConnXh: Smallint=0): Smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    result := vObj.SearchFinanceDetailedLedger(sYearMonth,sSubject,vRec);
  finally
    CoUninitialize;
  end;
end;

function TJGLR.SearchFinanceGenerlLedger(const sYearMonth,
  sSubject: String; nOrientation: Smallint; var vRec: Variant;const nConnXh: Smallint=0): Smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    result := vObj.SearchFinanceGenerlLedger(sYearMonth,sSubject,nOrientation,vRec);

  finally
    CoUninitialize;
  end;
end;

function TJGLR.SearchFinanceWarrant(const sDate, sNum: String;
  var vRec: Variant;const nConnXh: Smallint=0): Smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    result := vObj.SearchFinanceWarrant(sDate, sNum,vRec);
  finally
    CoUninitialize;
  end;
end;

function TJGLR.SearchGZ(const sDate, sPz, nQx, fGmje: string;
      var vRec: Variant;const nConnXh: Smallint=0): Smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    result := vObj.SearchGZ(sDate, sPz,nQx,fGmje,vRec);
  finally
    CoUninitialize;
  end;
end;

function TJGLR.SearchGZDetail(sGzpzh: string; var vRec: Variant;const nConnXh: Smallint=0): Smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    result := vObj.SearchGZDetail(sGzpzh,vRec);
  finally
    CoUninitialize;
  end;
end;

function TJGLR.SearchSurveillanceDetailed(const sDate: String; nType,
  nTypeItem: Smallint; const sOther: String; nOther: Double;
  var vRec: Variant;const nConnXh: Smallint=0): Smallint;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    Result := vObj.SearchSurveillanceDetailed(sDate, nType, nTypeItem,
      sOther, nOther, vRec);
  finally
    CoUninitialize;
  end;
end;

initialization
  { Invokable classes must be registered }
  InvRegistry.RegisterInvokableClass(TJGLR);

end.