jgbbdisplay.pas

ProviceSystem-公积金监管系统中心端

  cell1.DoGetCellData(3, 6, temp[2]);
  cell1.DoGetCellData(4, 6, temp[3]);
  cell1.DoGetCellData(3, 7, temp[4]);
  cell1.DoGetCellData(4, 7, temp[5]);
  cell1.DoGetCellData(3, 8, temp[6]);
  cell1.DoGetCellData(4, 8, temp[7]);
  cell1.DoGetCellData(3, 9, temp[8]);
  cell1.DoGetCellData(4, 9, temp[9]);
  cell1.DoGetCellData(3, 10, temp[10]);
  cell1.DoGetCellData(4, 10, temp[11]);
  cell1.DoGetCellData(3, 11, temp[12]);
  cell1.DoGetCellData(4, 11, temp[13]);
  cell1.DoGetCellData(7, 5, temp[14]);
  cell1.DoGetCellData(8, 5, temp[15]);
  cell1.DoGetCellData(7, 6, temp[16]);
  cell1.DoGetCellData(8, 6, temp[17]);
  cell1.DoGetCellData(7, 7, temp[18]);
  cell1.DoGetCellData(8, 7, temp[19]);
  cell1.DoGetCellData(7, 8, temp[20]);
  cell1.DoGetCellData(8, 8, temp[21]);
  cell1.DoGetCellData(7, 13, temp[22]);
  cell1.DoGetCellData(8, 13, temp[23]);
  cell1.DoGetCellData(7, 9, temp[24]);
  cell1.DoGetCellData(8, 9, temp[25]);
  cell1.DoGetCellData(7, 14, temp[26]);
  cell1.DoGetCellData(8, 14, temp[27]);
  cell1.DoGetCellData(5, 20, temp[28]);
  cell1.DoGetCellData(5, 21, temp[29]);
  cell1.DoGetCellData(5, 22, temp[30]);
  cell1.DoGetCellData(5, 23, temp[31]);
  cell1.DoGetCellData(5, 24, temp[32]);
  cell1.DoGetCellData(5, 25, temp[33]);
  cell1.DoGetCellData(5, 26, temp[34]);

  for i := 0 to 34 do
    Ary[i] := temp[i];
end;

procedure TJGBbListGL.Setdata2(var Ary: array of double);
var
  temp: array of olevariant;
  i: smallint;
begin
  setlength(temp, 16);
  cell1.DoGetCellData(3, 5, temp[0]);
  cell1.DoGetCellData(4, 5, temp[1]);
  cell1.DoGetCellData(3, 6, temp[2]);
  cell1.DoGetCellData(4, 6, temp[3]);
  cell1.DoGetCellData(3, 7, temp[4]);
  cell1.DoGetCellData(4, 7, temp[5]);
  cell1.DoGetCellData(3, 8, temp[6]);
  cell1.DoGetCellData(4, 8, temp[7]);
  cell1.DoGetCellData(3, 9, temp[8]);
  cell1.DoGetCellData(4, 9, temp[9]);
  cell1.DoGetCellData(3, 11, temp[10]);
  cell1.DoGetCellData(4, 11, temp[11]);
  cell1.DoGetCellData(3, 12, temp[12]);
  cell1.DoGetCellData(4, 12, temp[13]);
  cell1.DoGetCellData(3, 13, temp[14]);
  cell1.DoGetCellData(4, 13, temp[15]);
  for i := 0 to 15 do
    Ary[i] := temp[i];
end;

procedure TJGBbListGL.Setdata3(var Ary: array of double);
var
  temp: array of olevariant;
  i: smallint;
begin
  setlength(temp, 14);
  cell1.DoGetCellData(3, 4, temp[0]);
  cell1.DoGetCellData(3, 5, temp[1]);
  cell1.DoGetCellData(3, 6, temp[2]);
  cell1.DoGetCellData(3, 7, temp[3]);
  cell1.DoGetCellData(3, 8, temp[4]);
  cell1.DoGetCellData(3, 9, temp[5]);
  cell1.DoGetCellData(3, 10, temp[6]);
  cell1.DoGetCellData(4, 4, temp[7]);
  cell1.DoGetCellData(4, 5, temp[8]);
  cell1.DoGetCellData(4, 6, temp[9]);
  cell1.DoGetCellData(4, 7, temp[10]);
  cell1.DoGetCellData(4, 8, temp[11]);
  cell1.DoGetCellData(4, 9, temp[12]);
  cell1.DoGetCellData(4, 10, temp[13]);
  for i := 0 to 13 do
    Ary[i] := temp[i];
end;

procedure TJGBbListGL.Setdata4(var Ary: array of double);
var
  temp: array of olevariant;
  i: smallint;
begin
  setlength(temp, 32);
  cell1.DoGetCellData(3, 5, temp[0]);
  cell1.DoGetCellData(4, 5, temp[1]);
  cell1.DoGetCellData(3, 6, temp[2]);
  cell1.DoGetCellData(4, 6, temp[3]);
  cell1.DoGetCellData(3, 7, temp[4]);
  cell1.DoGetCellData(4, 7, temp[5]);
  cell1.DoGetCellData(3, 8, temp[6]);
  cell1.DoGetCellData(4, 8, temp[7]);
  cell1.DoGetCellData(7, 5, temp[8]);
  cell1.DoGetCellData(8, 5, temp[9]);
  cell1.DoGetCellData(7, 10, temp[10]);
  cell1.DoGetCellData(8, 10, temp[11]);
  cell1.DoGetCellData(7, 11, temp[12]);
  cell1.DoGetCellData(8, 11, temp[13]);
  cell1.DoGetCellData(7, 12, temp[14]);
  cell1.DoGetCellData(8, 12, temp[15]);
  cell1.DoGetCellData(7, 13, temp[16]);
  cell1.DoGetCellData(8, 13, temp[17]);
  cell1.DoGetCellData(7, 14, temp[18]);
  cell1.DoGetCellData(8, 14, temp[19]);
  cell1.DoGetCellData(7, 18, temp[20]);
  cell1.DoGetCellData(8, 18, temp[21]);
  cell1.DoGetCellData(7, 19, temp[22]);
  cell1.DoGetCellData(8, 19, temp[23]);
  cell1.DoGetCellData(7, 20, temp[24]);
  cell1.DoGetCellData(8, 20, temp[25]);
  cell1.DoGetCellData(3, 12, temp[26]);
  cell1.DoGetCellData(4, 12, temp[27]);
  cell1.DoGetCellData(3, 13, temp[28]);
  cell1.DoGetCellData(4, 13, temp[29]);
  cell1.DoGetCellData(3, 14, temp[30]);
  cell1.DoGetCellData(4, 14, temp[31]);
  for i := 0 to 31 do
    Ary[i] := temp[i];
end;

procedure TJGBbListGL.Setdata5(var Ary: array of double);
var
  temp: array of olevariant;
  i: smallint;
begin
  setlength(temp, 14);
  cell1.DoGetCellData(1, 6, temp[0]);
  cell1.DoGetCellData(2, 6, temp[1]);
  cell1.DoGetCellData(1, 7, temp[2]);
  cell1.DoGetCellData(2, 7, temp[3]);
  cell1.DoGetCellData(1, 8, temp[4]);
  cell1.DoGetCellData(2, 8, temp[5]);
  cell1.DoGetCellData(1, 9, temp[6]);
  cell1.DoGetCellData(2, 9, temp[7]);
  cell1.DoGetCellData(4, 6, temp[8]);
  cell1.DoGetCellData(5, 6, temp[9]);
  cell1.DoGetCellData(4, 7, temp[10]);
  cell1.DoGetCellData(5, 7, temp[11]);
  cell1.DoGetCellData(4, 9, temp[12]);
  cell1.DoGetCellData(5, 9, temp[13]);

  for i := 0 to 13 do
    Ary[i] := temp[i];
end;

function TJGBbListGL.Setdata6: smallint;
var
  temp: array of Olevariant;
  Ary: array of double;
  i, j: smallint;
  Zhmc, Khyh, Yhzh: string;
  Khyh1, Yhzh1: Olevariant;
begin
  setlength(temp, 4);
  setlength(Ary, 4);
  result := 5;
  with DM do
  begin
    for j := 1 to 10 do
    begin
      case j of
        1, 2: Zhmc := '01';
        3..6: Zhmc := '04';
        7, 8: Zhmc := '02';
        9, 10: Zhmc := '03';
      end;
      cell1.DoGetCellData(1, 5 + j, Khyh1);
      cell1.DoGetCellData(2, 5 + j, Yhzh1);
      cell1.DoGetCellData(3, 5 + j, temp[0]);
      cell1.DoGetCellData(4, 5 + j, temp[1]);
      cell1.DoGetCellData(5, 5 + j, temp[2]);
      cell1.DoGetCellData(6, 5 + j, temp[3]);
      Khyh := Khyh1;
      Yhzh := Yhzh1;
      if (trim(Khyh) = '') or (trim(Yhzh) = '') then
        continue;
      if (not IsNum(Khyh)) or (not IsNum(Yhzh)) then
      begin
        showmessage('开户银行、银行帐号，请输入数字字符');
        result := 5;
        break;
      end;
      for i := 0 to 3 do
        Ary[i] := temp[i];

      result := F_Zhksyeb_Save(cCityNum, JGBb_Ny, Zhmc, padl(trim(Khyh), 2,
        '0'), trim(Yhzh), Ary);
      if result <> 0 then
        break;
    end;
  end;
end;

function TJGBbListGL.Setdata7: smallint;
var
  temp: array of olevariant;
  Ary: array of double;
  Ary0: array of integer;
  i: smallint;
begin
  setlength(temp, 37);
  setlength(Ary, 32);
  setlength(Ary0, 5);

  cell1.DoGetCellData(3, 10, temp[0]);
  cell1.DoGetCellData(3, 11, temp[1]);
  cell1.DoGetCellData(3, 14, temp[2]);
  cell1.DoGetCellData(3, 15, temp[3]);
  cell1.DoGetCellData(3, 16, temp[4]);
  cell1.DoGetCellData(3, 17, temp[5]);
  cell1.DoGetCellData(3, 18, temp[6]);
  cell1.DoGetCellData(3, 19, temp[7]);
  cell1.DoGetCellData(3, 20, temp[8]);
  cell1.DoGetCellData(3, 21, temp[9]);
  cell1.DoGetCellData(3, 23, temp[10]);
  cell1.DoGetCellData(3, 24, temp[11]);
  cell1.DoGetCellData(3, 25, temp[12]);
  cell1.DoGetCellData(3, 26, temp[13]);
  cell1.DoGetCellData(3, 27, temp[14]);
  cell1.DoGetCellData(3, 28, temp[15]);
  cell1.DoGetCellData(3, 29, temp[16]);
  cell1.DoGetCellData(3, 30, temp[17]);
  cell1.DoGetCellData(7, 15, temp[18]);
  cell1.DoGetCellData(7, 16, temp[19]);
  cell1.DoGetCellData(7, 17, temp[20]);
  cell1.DoGetCellData(7, 18, temp[21]);
  cell1.DoGetCellData(7, 19, temp[22]);
  cell1.DoGetCellData(7, 20, temp[23]);
  cell1.DoGetCellData(7, 24, temp[24]);
  cell1.DoGetCellData(7, 25, temp[25]);
  cell1.DoGetCellData(7, 26, temp[26]);
  cell1.DoGetCellData(7, 27, temp[27]);
  cell1.DoGetCellData(7, 28, temp[28]);
  cell1.DoGetCellData(7, 29, temp[29]);
  cell1.DoGetCellData(7, 30, temp[30]);
  cell1.DoGetCellData(7, 31, temp[31]);

  cell1.DoGetCellData(3, 12, temp[32]);
  cell1.DoGetCellData(3, 13, temp[33]);
  cell1.DoGetCellData(7, 21, temp[34]);
  cell1.DoGetCellData(7, 22, temp[35]);
  cell1.DoGetCellData(7, 23, temp[36]);

  for i := 0 to 31 do
    Ary[i] := temp[i];
  for i := 0 to 4 do
    Ary0[i] := temp[32 + i];

  result := F_Zfgjjtjb_Save(cCityNum, JGBb_Ny, Ary, Ary0);

end;

function TJGBbListGL.Setdata8: smallint;
var
  temp: array of Olevariant;
  Ary: array of double;
  j: smallint;
  Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq: string;
  Dkqx: smallint;
begin
  setlength(temp, 14);
  setlength(Ary, 7);
  result := 5;
  with DM do
  begin
    for j := 1 to 12 do
    begin
      cell1.DoGetCellData(0, 3 + j, temp[0]);
      cell1.DoGetCellData(1, 3 + j, temp[1]);
      cell1.DoGetCellData(2, 3 + j, temp[2]);
      cell1.DoGetCellData(3, 3 + j, temp[3]);
      cell1.DoGetCellData(4, 3 + j, temp[4]);
      cell1.DoGetCellData(5, 3 + j, temp[5]);
      cell1.DoGetCellData(6, 3 + j, temp[6]);
      cell1.DoGetCellData(7, 3 + j, temp[7]);
      cell1.DoGetCellData(8, 3 + j, temp[8]);
      cell1.DoGetCellData(9, 3 + j, temp[9]);
      cell1.DoGetCellData(10, 3 + j, temp[10]);
      cell1.DoGetCellData(11, 3 + j, temp[11]);
      cell1.DoGetCellData(12, 3 + j, temp[12]);
      cell1.DoGetCellData(13, 3 + j, temp[13]);
      xh := temp[0];
      Dwmc := temp[1];
      Xmmc := temp[2];
      lxspjg := temp[3];
      dkhth := temp[4];
      Ffrq := temp[7];
      Dkqx := temp[8];
      Ary[0] := temp[5];
      Ary[1] := temp[6];
      Ary[2] := temp[9];
      Ary[3] := temp[10];
      Ary[4] := temp[11];
      Ary[5] := temp[12];
      Ary[6] := temp[13];

      if (trim(dwmc) = '') or (trim(Xmmc) = '') or (trim(dkhth) = '') then
        continue;
      if not IsNum(xh) then
      begin
        showmessage('序号请输入数字字符');
        result := 5;
        break;
      end;

      result := F_Xmdkb_Save(cCityNum, JGBb_Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth,
        Ffrq, Dkqx, Ary);
      if result <> 0 then
        break;
    end;
  end;

end;

end.