datamodule.pas

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

    aIntf := nil;
  end;
end;

function TDM.f_GjGet(const icol, irow: smallint; const cbbnum, cdptnum,
  cdate: string): double;
var
  aIntf: IJGLR;
  iRet: double;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.GjGet(icol, irow, cbbnum, cdptnum, cdate, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.f_GjSumH(const icol, irowb, irowe: smallint; const cbbnum,
  cdptnum, cdate: string): double;
var
  aIntf: IJGLR;
  iRet: double;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.GjSumH(icol, irowb, irowe, cbbnum, cdptnum, cdate, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.f_GjSumV(const icolb, icole, irow: smallint; const cbbnum,
  cdptnum, cdate: string): double;
var
  aIntf: IJGLR;
  iRet: double;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.GjSumV(icolb, icole, irow, cbbnum, cdptnum, cdate, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.fSpRelationdel(const bbnumber: string;
  const relationno: integer): smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.Relationdel(bbnumber, relationno, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.fSpRelationSave(const bbnumber: string;
  const relationno: integer; const relationl, relation,
  relationr: string): smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.RelationSav(bbnumber, relationno, relationl, relation, relationr,
      iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.pQryRelation(const bbnumber: string);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    //self.cds_LR.Active:= false;
    aIntf.Relation(bbnumber, vData);
    self.cds_SD.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

function TDM.f_BbSav(const bbbh: string; const wj: TByteDynArray): smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.BbSav(bbbh, wj, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.f_BbWj(const bbbh: string; var wj: TByteDynArray): smallint;
var
  aIntf: IJGLR;
  iRet: longint;
begin
  aIntf := HttpRio_SD as IJGLR;
  try
    aIntf.BbWj(bbbh, wj, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_ZcfzbGjj_Save1(const Ny: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.ZcfzbGjjSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_ZzsybGjj_Save1(const Ny: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.ZzsybGjjSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_ZzsyfpbGjj_Save1(const Nd: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.ZzsyfpbGjjSav(Dsbh, Nd, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_ZcfzbJf_Save1(const Ny: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.ZcfzbJfSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_JfszbJf_Save1(const Ny: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.JfszbJfSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_Zhksyeb_Save1(const Ny, Zhmc, Khyh, Yhzh: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.ZhksyebSav(Dsbh, Ny, Zhmc, Khyh, Yhzh, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_Zfgjjtjb_Save1(const Ny: string; const Ary: array of double;
  Ary0: array of integer): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
  vB: TIntegerDynArray;
begin
  setlength(vA, high(Ary) + 1);
  setlength(vB, high(Ary0) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  for i := 0 to high(Ary0) do
    vB[i] := Ary0[i];
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.ZfgjjtjbSav(Dsbh, Ny, vA, vB, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.F_Xmdkb_Save1(const Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth,
  Ffrq: string; const Dkqx: smallint;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.XmdkbSav(Dsbh, Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq, Dkqx, vA,
      iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TDM.f_Zhksyeb1(const Ny: string): Variant;
var
  aIntf: IJGLR;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZhksyebInf1(Ny, Result);
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_Zhksyeb1(const Ny: string);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZhksyebInf1(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;


procedure TDM.p_GetGjjtjb(const Date1, Date2: string;
  var Ary: array of double; var Ary0: array of Integer);
var
  aIntf: IJGLR;
  i: longint;
  vA: TDoubleDynArray;
  vB: TIntegerDynArray;
begin
  setlength(vA, high(Ary) + 1);
  setlength(vB, high(Ary0) + 1);
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.GetGjjtjb(date1, date2, vA, vB);
  finally
    aIntf := nil;
  end;
  for i := 0 to high(vA) do
    Ary[i] := vA[i];
  for i := 0 to high(vB) do
    Ary0[i] := vB[i];
end;

function TDM.f_GetYhxx(const Kmdm: string; var Khyh, Yhzh: string): integer;
var
  aIntf: IJGLR;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.GetYhxx(Kmdm, Khyh, Yhzh);
  finally
    aIntf := nil;
  end;
end;

function TDM.f_Cwcalc(const Km, Rq, Jzny: string; Func: Integer;
  Pz: Smallint): Double;
var
  aIntf: IJGLR;
  ret: double;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.CwCalc(Km, Rq, Jzny, Func, Pz, ret);
    result := ret;
  finally
    aIntf := nil;
  end;
end;

procedure TDM.DataChk(var strs: TStringDynArray);
var
  aIntf: IJGLR;
  vA: TStringDynArray;
  i: smallint;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    setlength(strs, 10);
    aIntf.DataChk(vA);
    for i := 0 to 9 do
      strs[i] := vA[i];
  finally
    aIntf := nil;
  end;
end;

procedure TDM.GzqkCx(const sCmd: string);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.GjjCx(sCmd, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

function TDM.GzqkSav(const sCmd: string):smallint;
var
  aIntf: IPJgWsServer;
  vData: variant;
begin
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.CommonQuery(sCmd, vData);
  finally
    aIntf := nil;
  end;
end;

function TDM.IpToDsbh(const sDsip: string): string;
var
  aIntf: IPJgWsServer;
  dsbh:string;
begin
  aIntf := HttpRio_SC as IPJgWsServer;
  try
    aIntf.IpToDsbh(sDsip, dsbh);
    result:= dsbh;
  finally
    aIntf := nil;
  end;
end;

end.