📄 datamodule.pas

📁 公积金监管系统客户端,是新疆公积金监管系统的客户端软件
💻 PAS
📖 第 1 页 / 共 3 页
字号:
  Ary[9] := cds_LR.FieldByName('WTDKQMS').AsFloat;
  Ary[10] := cds_LR.FieldByName('YQDKNCS').AsFloat;
  Ary[11] := cds_LR.FieldByName('YQDKQMS').AsFloat;
  Ary[12] := cds_LR.FieldByName('GJZQNCS').AsFloat;
  Ary[13] := cds_LR.FieldByName('GJZQQMS').AsFloat;
  Ary[14] := cds_LR.FieldByName('ZFGJJNCS').AsFloat;
  Ary[15] := cds_LR.FieldByName('ZFGJJQMS').AsFloat;
  Ary[16] := cds_LR.FieldByName('YFLXNCS').AsFloat;
  Ary[17] := cds_LR.FieldByName('YFLXQMS').AsFloat;
  Ary[18] := cds_LR.FieldByName('QTYFKNCS').AsFloat;
  Ary[19] := cds_LR.FieldByName('QTYFKQMS').AsFloat;
  Ary[20] := cds_LR.FieldByName('ZXYFKNCS').AsFloat;
  Ary[21] := cds_LR.FieldByName('ZXYFKQMS').AsFloat;
  Ary[22] := cds_LR.FieldByName('LZZFNCS').AsFloat;
  Ary[23] := cds_LR.FieldByName('LZZFQMS').AsFloat;
  Ary[24] := cds_LR.FieldByName('DKFXZBNCS').AsFloat;
  Ary[25] := cds_LR.FieldByName('DKFXZBQMS').AsFloat;
  Ary[26] := cds_LR.FieldByName('DFPZZSYNCS').AsFloat;
  Ary[27] := cds_LR.FieldByName('DFPZZSYQMS').AsFloat;
  Ary[28] := cds_LR.FieldByName('GJFXZFZQ').AsFloat;
  Ary[29] := cds_LR.FieldByName('LTXZQ').AsFloat;
  Ary[30] := cds_LR.FieldByName('ZZLDGXZQ').AsFloat;
  Ary[31] := cds_LR.FieldByName('CJDJZQ').AsFloat;
  Ary[32] := cds_LR.FieldByName('CHGFDKBXZQ').AsFloat;
  Ary[33] := cds_LR.FieldByName('CCJTSRBLZQ').AsFloat;
  Ary[34] := cds_LR.FieldByName('QTZQ').AsFloat;

  cds_LR.Active := false;
end;

function TDM.F_ZzsybGjj_Save(const Ny: string; const Ary: array of double):
  smallint;
var
  aIntf: IJGLR;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZzsybGjjSav(Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;
function TDM.f_ZzsybGjj(const Ny: string): Variant;
var
  aIntf: IJGLR;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZzsybGjjInf(Ny, Result);
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_ZzsybGjj(const Ny: string; var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZzsybGjjInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := cds_LR.FieldByName('ZFGJJCKLXSR').AsFloat;
  Ary[1] := cds_LR.FieldByName('ZFGJJCKLXLJ').AsFloat;
  Ary[2] := cds_LR.FieldByName('ZZSYCKLXSR').AsFloat;
  Ary[3] := cds_LR.FieldByName('ZZSYCKLXSRLJ').AsFloat;
  Ary[4] := cds_LR.FieldByName('WTDKLXSR').AsFloat;
  Ary[5] := cds_LR.FieldByName('WTDKLXSRLJ').AsFloat;
  Ary[6] := cds_LR.FieldByName('GZLXSR').AsFloat;
  Ary[7] := cds_LR.FieldByName('GZLXSRLJ').AsFloat;
  Ary[8] := cds_LR.FieldByName('QTSR').AsFloat;
  Ary[9] := cds_LR.FieldByName('QTSRLJ').AsFloat;
  Ary[10] := cds_LR.FieldByName('ZFGJJLXZC').AsFloat;
  Ary[11] := cds_LR.FieldByName('ZFGJJLXZCLJ').AsFloat;
  Ary[12] := cds_LR.FieldByName('ZFGJJSXFZC').AsFloat;
  Ary[13] := cds_LR.FieldByName('ZFGJJSXFZCLJ').AsFloat;
  Ary[14] := cds_LR.FieldByName('WTDKSXFZC').AsFloat;
  Ary[15] := cds_LR.FieldByName('WTDKSXFZCLJ').AsFloat;

  cds_LR.Active := false;
end;

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

function TDM.f_ZzsyfpbGjj(const Nd: string): Variant;
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZzsyfpbGjjInf(Nd, Result);
  finally
    aIntf := nil;
  end;
end;

procedure TDM.P_ZzsyfpbGjj(const Nd: string; var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
  nn: string;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZzsyfpbGjjInf(Nd, vData);
    self.cds_LR.XMLData := vData;
    Ary[0] := cds_LR.FieldByName('ZZSY').AsFloat;
    Ary[1] := cds_LR.FieldByName('NCWMBSS').AsFloat;
    Ary[2] := cds_LR.FieldByName('KGFPZZSY').AsFloat;
    Ary[3] := cds_LR.FieldByName('TQDKFXZB').AsFloat;
    Ary[4] := cds_LR.FieldByName('TQGLF').AsFloat;
    Ary[5] := cds_LR.FieldByName('LZZFBCZJ').AsFloat;
    Ary[6] := cds_LR.FieldByName('NMWMBSS').AsFloat;
    nn := Nd;
    nn := inttostr(strtoint(nn) - 1);
    aIntf.ZzsyfpbGjjInf(nn, vData);
    self.cds_LR.XMLData := vData;
    Ary[7] := cds_LR.FieldByName('ZZSY').AsFloat;
    Ary[8] := cds_LR.FieldByName('NCWMBSS').AsFloat;
    Ary[9] := cds_LR.FieldByName('KGFPZZSY').AsFloat;
    Ary[10] := cds_LR.FieldByName('TQDKFXZB').AsFloat;
    Ary[11] := cds_LR.FieldByName('TQGLF').AsFloat;
    Ary[12] := cds_LR.FieldByName('LZZFBCZJ').AsFloat;
    Ary[13] := cds_LR.FieldByName('NMWMBSS').AsFloat;
    cds_LR.Active := false;
  finally
    aIntf := nil;
  end;
end;

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

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

procedure TDM.P_ZcfzbJf(const Ny: string; var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZcfzbJfInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := cds_LR.FieldByName('XJNCS').AsFloat;
  Ary[1] := cds_LR.FieldByName('XJQMS').AsFloat;
  Ary[2] := cds_LR.FieldByName('YHCKNCS').AsFloat;
  Ary[3] := cds_LR.FieldByName('YHCKQMS').AsFloat;
  Ary[4] := cds_LR.FieldByName('QTYSKNCS').AsFloat;
  Ary[5] := cds_LR.FieldByName('QTYSKQMS').AsFloat;
  Ary[6] := cds_LR.FieldByName('GDZCNCS').AsFloat;
  Ary[7] := cds_LR.FieldByName('GDZCQMS').AsFloat;
  Ary[8] := cds_LR.FieldByName('QTYFKNCS').AsFloat;
  Ary[9] := cds_LR.FieldByName('QTYFKQMS').AsFloat;
  Ary[10] := cds_LR.FieldByName('SYJJNCS').AsFloat;
  Ary[11] := cds_LR.FieldByName('SYJJQMS').AsFloat;
  Ary[12] := cds_LR.FieldByName('GDJJNCS').AsFloat;
  Ary[13] := cds_LR.FieldByName('GDJJQMS').AsFloat;
  Ary[14] := cds_LR.FieldByName('ZYJJNCS').AsFloat;
  Ary[15] := cds_LR.FieldByName('ZYJJQMS').AsFloat;
  Ary[16] := cds_LR.FieldByName('JFJYNCS').AsFloat;
  Ary[17] := cds_LR.FieldByName('JFJYQMS').AsFloat;
  Ary[18] := cds_LR.FieldByName('JYFPNCS').AsFloat;
  Ary[19] := cds_LR.FieldByName('JYFPQMS').AsFloat;
  Ary[20] := cds_LR.FieldByName('BRJFNCS').AsFloat;
  Ary[21] := cds_LR.FieldByName('BRJFQMS').AsFloat;
  Ary[22] := cds_LR.FieldByName('BRZKNCS').AsFloat;
  Ary[23] := cds_LR.FieldByName('BRZKQMS').AsFloat;
  Ary[24] := cds_LR.FieldByName('QTSRNCS').AsFloat;
  Ary[25] := cds_LR.FieldByName('QTSRQMS').AsFloat;
  Ary[26] := cds_LR.FieldByName('BCJFNCS').AsFloat;
  Ary[27] := cds_LR.FieldByName('BCJFQMS').AsFloat;
  Ary[28] := cds_LR.FieldByName('ZKZCNCS').AsFloat;
  Ary[29] := cds_LR.FieldByName('ZKZCQMS').AsFloat;
  Ary[30] := cds_LR.FieldByName('JFZCNCS').AsFloat;
  Ary[31] := cds_LR.FieldByName('JFZCQMS').AsFloat;
  cds_LR.Active := false;
end;

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

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

procedure TDM.P_JfszbJf(const Ny: string; var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.JfszbJfInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := cds_LR.FieldByName('BRRYJF').AsFloat;
  Ary[1] := cds_LR.FieldByName('BRRYJFLJ').AsFloat;
  Ary[2] := cds_LR.FieldByName('BRGYJF').AsFloat;
  Ary[3] := cds_LR.FieldByName('BRGYJFLJ').AsFloat;
  Ary[4] := cds_LR.FieldByName('QTSR').AsFloat;
  Ary[5] := cds_LR.FieldByName('QTSRLJ').AsFloat;
  Ary[6] := cds_LR.FieldByName('BRZK').AsFloat;
  Ary[7] := cds_LR.FieldByName('BRZKLJ').AsFloat;
  Ary[8] := cds_LR.FieldByName('RYJFZC').AsFloat;
  Ary[9] := cds_LR.FieldByName('RYJFZCLJ').AsFloat;
  Ary[10] := cds_LR.FieldByName('GYJFZC').AsFloat;
  Ary[11] := cds_LR.FieldByName('GYJFZCLJ').AsFloat;
  Ary[12] := cds_LR.FieldByName('ZKZC').AsFloat;
  Ary[13] := cds_LR.FieldByName('ZKZCLJ').AsFloat;
  cds_LR.Active := false;
end;

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

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

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

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

function TDM.F_Zfgjjtjb_Save(const Ny: string; const Ary: array of double;
  Ary0: array of integer): smallint;
var
  aIntf: IJGLR;
  i, iRet: longint;
  vA: TDoubleDynArray;
  vB: TIntegerDynArray;
begin
  vA := VarArrayCreate([0, high(Ary)], varDouble);
  vB := VarArrayCreate([0, high(Ary0)], varInteger);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  for i := 0 to high(Ary0) do
    vB[i] := Ary0[i];
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.ZfgjjtjbSav(Ny, vA, vB, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

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

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

function TDM.F_Xmdkb_Save(const Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq: string;
  const Dkqx: smallint; const Ary: array of double): smallint;
var
  aIntf: IJGLR;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_LR as IJGLR;
  try
    aIntf.XmdkbSav(Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq, Dkqx, vA, iRet);
    result := iRet;
  finally
💿 文件大小 679 K
👤 上传用户 vicegle
📂 所属分类金融证券系统
🏷️ 相关标签

#监管系统 #软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -