jglrimpl.pas

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

{ Invokable implementation File for TJGLR which implements IJGLR }

unit JGLRImpl;

interface

uses InvokeRegistry, Types, XSBuiltIns, JGLRIntf, ActiveX, ComObj,
  Variants, EncdDecd, classes, uConstUtils;

type

  { TJGLR }
  TJGLR = class(TInvokableClass, IJGLR)
  public
    function UserInf(var vData: variant;const nConnXh: Smallint=0): integer; stdcall;
    function UserSav(const UserId: string; const UserName: string;
      const UserPwd: string; const UserQx: string;
      const Ssds: string; var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function UserDel(const UserId: string; var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function Login(const Uid, Pwd: string; var UserName, UserQx,
      Ssds: string; var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function BbmlInf(var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
    function BbmlSav(const sBbbh, sBbdm, sBbmc: string;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function BbmlDel(const sBbbh: string; var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function BbgsInf(const sDsbh, sBbbh: string; lGslx: Integer;
      var vData: variant;const nConnXh: Smallint=0): integer; stdcall;
    function BbgsInf1(const sDsbh, sBbbh: string; var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
    function BbgsSav(const sDsbh, sBbbh, sGs: string; lRow, lCol,
      lGslx: Integer; var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function BbgsDel(const sDsbh, sBbbh: string; lGslx: Integer;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function GjjConnected(var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function CwConnected(var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function ZcfzbGjjInf(const sNy: string; var vData: variant;const nConnXh: Smallint=0): integer; stdcall;
    function ZcfzbGjjSav(const sNy: string; aAry: TDoubleDynArray;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function ZzsybGjjInf(const sNy: string; var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
    function ZzsybGjjSav(const sNy: string; aAry: TDoubleDynArray;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function ZzsyfpbGjjInf(const sNd: string; var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
    function ZzsyfpbGjjSav(const sNd: string; aAry: TDoubleDynArray;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function ZcfzbJfInf(const sNy: string; var vData: variant;const nConnXh: Smallint=0): integer; stdcall;
    function ZcfzbJfSav(const sNy: string; aAry: TDoubleDynArray;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function JfszbJfInf(const sNy: string; var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
    function JfszbJfSav(const sNy: string; aAry: TDoubleDynArray;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function ZhksyebInf(const sNy, sZhmc: string; var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
    function ZhksyebInf1(const sNy: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function ZhksyebSav(const sNy, sZhmc, sKhyh, sYhzh: string;
      aAry: TDoubleDynArray; var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function ZfgjjtjbInf(const sNy: string; var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
    function ZfgjjtjbSav(const sNy: string; aAry: TDoubleDynArray;
      aAry0: TIntegerDynArray; var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function XmdkbInf(const sNy: string; var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
    function XmdkbSav(const sNy, sXh, sDwmc, sXmmc, sLxspjg, sDkhth,
      sFfrq: string; lDkqx: Integer; aAry: TDoubleDynArray;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function GetData(const sBbNumber, sDptNumber, sZth, sBbDate: string; lCol,
      lRow: Integer; var lResult: string;const nConnXh: Smallint=0): integer; stdcall;
    function Relation(const sBbNumber: string; var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
    function RelationSav(const sBbNumber: string; lRelationNo: Integer;
      const sRelationL, sRelation, sRelationR: string;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function RelationDel(const sBbNumber: string; lRelationNo: Integer;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function GjGet(lCol, lRow: Integer; const sBbNum, sDptNum,
      sDate: string; var dResult: Double;const nConnXh: Smallint=0): integer; stdcall;
    function GjSumH(lCol, lRowb, lRowe: Integer; const sBbNum, sDptNum,
      sDate: string; var dResult: Double;const nConnXh: Smallint=0): integer; stdcall;
    function GjSumV(lColb, lCole, lRow: Integer; const sBbNum, sDptNum,
      sDate: string; var dResult: Double;const nConnXh: Smallint=0): integer; stdcall;
    function BbSav(const sBbbh: string; const vData: TByteDynArray;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function BbWj(const sBbbh: string; var vData: TByteDynArray;
      var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
    function GetGjjtjb(const sDate1, sDate2: String; var aAry: TDoubleDynArray;
      var aAry0: TIntegerDynArray;const nConnXh: Smallint=0):integer;stdcall;
    function GetYhxx(const sKmdm: String; var sKhyh, sYhzh: String;const nConnXh: Smallint=0):integer;stdcall;
    function Cwcalc(const sKm, sRq, sJzny: String; lFunc: Integer;
       lPz: Smallint; var dResult: Double;const nConnXh: Smallint=0):integer;stdcall;
    function DataChk(var sResult:TStringDynArray;const nConnXh: Smallint=0):integer;stdcall;

    function 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; stdcall;
    function 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; stdcall;
    function fYjC(iFfcsMax, iFfcsTime: Smallint; lFfcsuse: Boolean;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function 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; stdcall;
    function fYjE(iKhs: Smallint; const sBm, sMc: String;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function 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; stdcall;
    function fYjG(aZxrq, aHqll, aDqll, aDkqx, aDkll, aFxll: String;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjH(const sDate, sZzglfKm: String; lZzglfUse: Boolean;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function 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; stdcall;
    function 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; stdcall;
    function GjjCx(const sCmd: String; var vData: Variant;const nConnXh: Smallint=0):integer; stdcall;
    function KmInfo(var vRec: Variant;const nConnXh: Smallint=0): Smallint;stdcall;

    function fYjK(var vRec: Variant;const nConnXh: Smallint=0): Smallint;stdcall;

    function SearchFinanceDetailedLedger(const sYearMonth,
      sSubject: String; var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;
    function SearchFinanceGenerlLedger(const sYearMonth, sSubject: String;
      nOrientation: Smallint; var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;
    function SearchFinanceWarrant(const sDate, sNum: String;
      var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;
    function SearchGZ(const sDate, sPz, nQx, fGmje: string;
      var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;
    function SearchGZDetail(sGzpzh:string;var vRec: Variant;const nConnXh: Smallint=0):Smallint; stdcall;
    function SearchSurveillanceDetailed(const sDate: String; nType,
      nTypeItem: Smallint; const sOther: String; nOther: Double;
      var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;

  end;

{var
  ass: TStringStream;
  ams: TMemoryStream;   }

implementation

function TJGLR.UserInf(var vData: variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fUserInf(vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.UserSav(const UserId: string; const UserName: string;
  const UserPwd: string; const UserQx: string;
  const Ssds: string; var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fUserSav(UserId, UserName, UserPwd, UserQx, Ssds, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.UserDel(const UserId: string; var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fUserDel(UserId, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.Login(const Uid, Pwd: string; var UserName, UserQx,
  Ssds: string; var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fLogin(Uid, Pwd, UserName, UserQx, Ssds, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.BbmlInf(var vData: Variant;const nConnXh: Smallint=0): integer; stdcall;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fBbmlInf(vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.BbmlSav(const sBbbh, sBbdm, sBbmc: string;
      var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fBbmlSav(sBbbh, sBbdm, sBbmc, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.BbmlDel(const sBbbh: string; var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fBbmlDel(sBbbh, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.BbgsDel(const sDsbh, sBbbh: string; lGslx: Integer;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fBbgsDel(sDsbh, sBbbh, lGslx, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.BbgsInf(const sDsbh, sBbbh: string; lGslx: Integer;
  var vData: variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fBbgsInf(sDsbh, sBbbh, lGslx, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.BbgsInf1(const sDsbh, sBbbh: string; var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fBbgsInf1(sDsbh, sBbbh, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.BbgsSav(const sDsbh, sBbbh, sGs: string; lRow, lCol,
  lGslx: Integer; var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fBbgsSav(sDsbh, sBbbh, sGs, lRow, lCol, lGslx, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.GjjConnected(var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fGjjConnected(lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.CwConnected(var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fCwConnected(lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZcfzbGjjInf(const sNy: string; var vData: variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZcfzbGjjInf(sNy, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZcfzbGjjSav(const sNy: string; aAry: TDoubleDynArray;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
  vA: OleVariant;
  i: integer;
begin
  vA := VarArrayCreate([0, high(aAry)], varDouble);
  for i := 0 to high(aAry) do
    vA[i] := aAry[i];
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZcfzbGjjSav(sNy, vA, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZzsybGjjInf(const sNy: string; var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZzsybGjjInf(sNy, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZzsybGjjSav(const sNy: string; aAry: TDoubleDynArray;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
  vA: OleVariant;
  i: integer;
begin
  vA := VarArrayCreate([0, high(aAry)], varDouble);
  for i := 0 to high(aAry) do