jgbbdisplay.pas

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

  cell1.DoSetCellData(8, 14, Ary[19]);
  cell1.DoSetCellData(7, 18, Ary[20]);
  cell1.DoSetCellData(8, 18, Ary[21]);
  cell1.DoSetCellData(7, 19, Ary[22]);
  cell1.DoSetCellData(8, 19, Ary[23]);
  cell1.DoSetCellData(7, 20, Ary[24]);
  cell1.DoSetCellData(8, 20, Ary[25]);
  cell1.DoSetCellData(3, 12, Ary[26]);
  cell1.DoSetCellData(4, 12, Ary[27]);
  cell1.DoSetCellData(3, 13, Ary[28]);
  cell1.DoSetCellData(4, 13, Ary[29]);
  cell1.DoSetCellData(3, 14, Ary[30]);
  cell1.DoSetCellData(4, 14, Ary[31]);

  cell1.DoSetFormula(3, 10, 'sum(D6:D9)');
  cell1.DoSetFormula(4, 10, 'sum(E6:E9)');
  cell1.DoSetFormula(7, 8, 'sum(H6:H8)');
  cell1.DoSetFormula(8, 8, 'sum(I6:I8)');
  cell1.DoSetFormula(7, 16, 'sum(H11:H15)');
  cell1.DoSetFormula(8, 16, 'sum(I11:I15)');
  cell1.DoSetFormula(7, 22, 'sum(H19:H21)');
  cell1.DoSetFormula(8, 22, 'sum(I19:I21)');
  cell1.DoSetFormula(3, 22, 'sum(D13:D15)');
  cell1.DoSetFormula(4, 22, 'sum(E13:E15)');
end;

procedure TJGBbListGL.Getdata5(const Ary: array of double);
begin
  cell1.DoSetCellData(1, 6, Ary[0]);
  cell1.DoSetCellData(2, 6, Ary[1]);
  cell1.DoSetCellData(1, 7, Ary[2]);
  cell1.DoSetCellData(2, 7, Ary[3]);
  cell1.DoSetCellData(1, 8, Ary[4]);
  cell1.DoSetCellData(2, 8, Ary[5]);
  cell1.DoSetCellData(1, 9, Ary[6]);
  cell1.DoSetCellData(2, 9, Ary[7]);
  cell1.DoSetCellData(4, 6, Ary[8]);
  cell1.DoSetCellData(5, 6, Ary[9]);
  cell1.DoSetCellData(4, 7, Ary[10]);
  cell1.DoSetCellData(5, 7, Ary[11]);
  cell1.DoSetCellData(4, 9, Ary[12]);
  cell1.DoSetCellData(5, 9, Ary[13]);

  cell1.DoSetFormula(1, 10, 'sum(B7:B10)');
  cell1.DoSetFormula(2, 10, 'sum(C7:C10)');
  cell1.DoSetFormula(4, 10, 'sum(E7:E10)');
  cell1.DoSetFormula(5, 10, 'sum(F7:F10)');

  cell1.DoSetFormula(7, 6, 'B7-E7');
  cell1.DoSetFormula(8, 6, 'C7-F7');
  cell1.DoSetFormula(7, 7, 'B8-E8');
  cell1.DoSetFormula(8, 7, 'C8-F8');
  cell1.DoSetFormula(7, 8, 'B9');
  cell1.DoSetFormula(8, 8, 'C9');
  cell1.DoSetFormula(7, 9, 'B10-E10');
  cell1.DoSetFormula(8, 9, 'C10-F10');

  cell1.DoSetFormula(7, 10, 'sum(H7:H10)');
  cell1.DoSetFormula(8, 10, 'sum(I7:I10)');
end;

procedure TJGBbListGL.Getdata6(var Ary: array of double);
var
  Zhmc, Khyh, Yhzh: string;
  i: smallint;

  procedure SetCellData(const row: smallint; Ary: array of double);
  begin
    cell1.DoSetCellData(1, row, Khyh);
    cell1.DoSetCellData(2, row, Yhzh);
    cell1.DoSetCellData(3, row, Ary[0]);
    cell1.DoSetCellData(4, row, Ary[1]);
    cell1.DoSetCellData(5, row, Ary[2]);
    cell1.DoSetCellData(6, row, Ary[3]);
  end;

begin

  with DM do
  begin
    Zhmc := '01'; //住房公积金存款户
    P_Zhksyeb(IsHz, cCityNum, JGBb_Ny, Zhmc);
    i := 0;
    while not cds.Eof do
    begin
      Khyh := cds.FieldByName('KHYH').AsString;
      Yhzh := cds.FieldByName('YHZH').AsString;
      Ary[0] := cds.FieldByName('QCYE').AsFloat;
      Ary[1] := cds.FieldByName('SR').AsFloat;
      Ary[2] := cds.FieldByName('ZC').AsFloat;
      Ary[3] := cds.FieldByName('QMYE').AsFloat;
      i := i + 1;
      if i > 2 then
        break;
      SetCellData(5 + i, Ary);
      cds.Next;
    end;

    Zhmc := '04'; //住房公积金委托贷款基金户
    P_Zhksyeb(IsHz, cCityNum, JGBb_Ny, Zhmc);
    i := 0;
    while not cds.Eof do
    begin
      Khyh := cds.FieldByName('KHYH').AsString;
      Yhzh := cds.FieldByName('YHZH').AsString;
      Ary[0] := cds.FieldByName('QCYE').AsFloat;
      Ary[1] := cds.FieldByName('SR').AsFloat;
      Ary[2] := cds.FieldByName('ZC').AsFloat;
      Ary[3] := cds.FieldByName('QMYE').AsFloat;
      i := i + 1;
      if i > 4 then
        break;
      SetCellData(7 + i, Ary);
      cds.Next;
    end;

    Zhmc := '02'; //住房公积金结算户
    P_Zhksyeb(IsHz, cCityNum, JGBb_Ny, Zhmc);
    i := 0;
    while not cds.Eof do
    begin
      Khyh := cds.FieldByName('KHYH').AsString;
      Yhzh := cds.FieldByName('YHZH').AsString;
      Ary[0] := cds.FieldByName('QCYE').AsFloat;
      Ary[1] := cds.FieldByName('SR').AsFloat;
      Ary[2] := cds.FieldByName('ZC').AsFloat;
      Ary[3] := cds.FieldByName('QMYE').AsFloat;
      i := i + 1;
      if i > 2 then
        break;
      SetCellData(11 + i, Ary);
      cds.Next;
    end;

    Zhmc := '03'; //住房公积金增值收益存款户
    P_Zhksyeb(IsHz, cCityNum, JGBb_Ny, Zhmc);
    i := 0;
    while not cds.Eof do
    begin
      Khyh := cds.FieldByName('KHYH').AsString;
      Yhzh := cds.FieldByName('YHZH').AsString;
      Ary[0] := cds.FieldByName('QCYE').AsFloat;
      Ary[1] := cds.FieldByName('SR').AsFloat;
      Ary[2] := cds.FieldByName('ZC').AsFloat;
      Ary[3] := cds.FieldByName('QMYE').AsFloat;
      i := i + 1;
      if i > 2 then
        break;
      SetCellData(13 + i, Ary);
      cds.Next;
    end;

    cell1.DoSetFormula(3, 16, 'sum(D7:D16)');
    cell1.DoSetFormula(4, 16, 'sum(E7:E16)');
    cell1.DoSetFormula(5, 16, 'sum(F7:F16)');
    cell1.DoSetFormula(6, 16, 'sum(G7:G16)');

  end;
end;

procedure TJGBbListGL.Getdata7;
var
  Ary: array of double;
  Ary0: array of integer;
begin
  setlength(Ary, 32);
  setlength(Ary0, 5);
  with DM do
  begin
    P_Zfgjjtjb(IsHz, cCityNum, JGBb_Ny);
    cds.First;
    Ary0[0] := cds.FieldByName('BQYJZGS').AsInteger;
    Ary0[1] := cds.FieldByName('BQSJZGS').AsInteger;
    Ary0[2] := cds.FieldByName('GRDKBQFDHS').AsInteger;
    Ary0[3] := cds.FieldByName('GRDKSQMLJFDHS').AsInteger;
    Ary0[4] := cds.FieldByName('BQMYQDKHS').AsInteger;
    Ary[0] := cds.FieldByName('DWJCBL').AsFloat;
    Ary[1] := cds.FieldByName('GRJCBL').AsFloat;
    Ary[2] := cds.FieldByName('SQMJCYE').AsFloat;
    Ary[3] := cds.FieldByName('BQYJCE').AsFloat;
    Ary[4] := cds.FieldByName('BQSJCE').AsFloat;
    Ary[5] := cds.FieldByName('BQGRTQE').AsFloat;
    Ary[6] := cds.FieldByName('BQMGRTQE').AsFloat;
    Ary[7] := cds.FieldByName('JZLX').AsFloat;
    Ary[8] := cds.FieldByName('BQMJCZE').AsFloat;
    Ary[9] := cds.FieldByName('BQMJCYE').AsFloat;
    Ary[10] := cds.FieldByName('BNYWSR').AsFloat;
    Ary[11] := cds.FieldByName('BNYWZC').AsFloat;
    Ary[12] := cds.FieldByName('BNZZSY').AsFloat;
    Ary[13] := cds.FieldByName('BNGLFY').AsFloat;
    Ary[14] := cds.FieldByName('BNMFXZBJZE').AsFloat;
    Ary[15] := cds.FieldByName('BNMFXZBJYE').AsFloat;
    Ary[16] := cds.FieldByName('BNMZFBCZJZE').AsFloat;
    Ary[17] := cds.FieldByName('BNMZFBCZJYE').AsFloat;
    Ary[18] := cds.FieldByName('GRDKSQMYE').AsFloat;
    Ary[19] := cds.FieldByName('GRDKBQFFE').AsFloat;
    Ary[20] := cds.FieldByName('GRDKBQHSE').AsFloat;
    Ary[21] := cds.FieldByName('GRDKBQMDKZE').AsFloat;
    Ary[22] := cds.FieldByName('GRDKBQMDKYE').AsFloat;
    Ary[23] := cds.FieldByName('GRDKYQDKE').AsFloat;
    Ary[24] := cds.FieldByName('QTDKSQMDKYE').AsFloat;
    Ary[25] := cds.FieldByName('QTDKBQFFE').AsFloat;
    Ary[26] := cds.FieldByName('QTDKBQHSE').AsFloat;
    Ary[27] := cds.FieldByName('QTDKBQMDKZE').AsFloat;
    Ary[28] := cds.FieldByName('QTDKBQMDKYE').AsFloat;
    Ary[29] := cds.FieldByName('QTDKYQE').AsFloat;
    Ary[30] := cds.FieldByName('BQGZGME').AsFloat;
    Ary[31] := cds.FieldByName('BQMGZYE').AsFloat;

    cell1.DoSetCellData(3, 12, Ary0[0]);
    cell1.DoSetCellData(3, 13, Ary0[1]);
    cell1.DoSetCellData(7, 21, Ary0[2]);
    cell1.DoSetCellData(7, 22, Ary0[3]);
    cell1.DoSetCellData(7, 23, Ary0[4]);

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

    cell1.DoSetFormula(7, 10, 'H16+H25');
    cell1.DoSetFormula(7, 11, 'H17+H26');
    cell1.DoSetFormula(7, 12, 'H18+H27');
    cell1.DoSetFormula(7, 13, 'H20+H29');
    cell1.DoSetFormula(7, 14, 'H21+H30');
  end;
end;

procedure TJGBbListGL.Getdata8;
var
  Ary: array of double;
  Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq: string;
  Dkqx, i: integer;

  procedure SetCellD(const row: smallint; Ary: array of double);
  begin
    cell1.DoSetCellData(0, row, xh);
    cell1.DoSetCellData(1, row, dwmc);
    cell1.DoSetCellData(2, row, xmmc);
    cell1.DoSetCellData(3, row, lxspjg);
    cell1.DoSetCellData(4, row, dkhth);
    cell1.DoSetCellData(5, row, Ary[0]);
    cell1.DoSetCellData(6, row, Ary[1]);
    cell1.DoSetCellData(7, row, Ffrq);
    cell1.DoSetCellData(8, row, Dkqx);
    cell1.DoSetCellData(9, row, Ary[2]);
    cell1.DoSetCellData(10, row, Ary[3]);
    cell1.DoSetCellData(11, row, Ary[4]);
    cell1.DoSetCellData(12, row, Ary[5]);
    cell1.DoSetCellData(13, row, Ary[6]);
  end;

begin
  setlength(Ary, 7);
  with DM do
  begin
    P_Xmdkb(IsHz, cCityNum, JGBb_Ny);
    cds.First;
    i := 0;
    while not cds.Eof do
    begin
      Xh := trim(cds.FieldByName('XH').AsString);
      Dwmc := trim(cds.FieldByName('DWMC').AsString);
      Xmmc := trim(cds.FieldByName('XMMC').AsString);
      Lxspjg := trim(cds.FieldByName('LXSPJG').AsString);
      Dkhth := trim(cds.FieldByName('DKHTH').AsString);
      Ffrq := trim(cds.FieldByName('FFRQ').AsString);
      Dkqx := cds.FieldByName('DKQX').AsInteger;

      Ary[0] := cds.FieldByName('DKJE').AsFloat;
      Ary[1] := cds.FieldByName('FFJE').AsFloat;
      Ary[2] := cds.FieldByName('DKLL').AsFloat;
      Ary[3] := cds.FieldByName('QCYE').AsFloat;
      Ary[4] := cds.FieldByName('BQHS').AsFloat;
      Ary[5] := cds.FieldByName('QMYE').AsFloat;
      Ary[6] := cds.FieldByName('QZYQ').AsFloat;
      i := i + 1;
      SetCellD(i + 3, Ary);
      cds.Next;
    end;

    cell1.DoSetFormula(5, 16, 'sum(F5:F16)');
    cell1.DoSetFormula(6, 16, 'sum(G5:G16)');
    cell1.DoSetFormula(10, 16, 'sum(K5:K16)');
    cell1.DoSetFormula(11, 16, 'sum(L5:L16)');
    cell1.DoSetFormula(12, 16, 'sum(M5:M16)');
    cell1.DoSetFormula(13, 16, 'sum(N5:N16)');

  end;
end;

procedure TJGBbListGL.Setdata1(var Ary: array of double);
var
  temp: array of olevariant;
  i: smallint;
begin
  setlength(temp, 35);
  cell1.DoGetCellData(3, 5, temp[0]);
  cell1.DoGetCellData(4, 5, temp[1]);