jgbbsjlr.pas

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

    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.DoSetCellData(3, 12, Ary[32]);
    cell1.DoSetCellData(3, 13, Ary[33]);

    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;

function TFormJGBbSjLr.Setdata7: smallint;
var
  temp: array of olevariant;
  Ary: array of double;
  Ary0: array of integer;
  i: smallint;
begin
  setlength(temp, 37);
  for i := 0 to 36 do
    temp[i] := 0;
  setlength(Ary, 34);
  setlength(Ary0, 3);

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

  cell1.DoGetCellData(7, 21, temp[34]);
  cell1.DoGetCellData(7, 22, temp[35]);
  cell1.DoGetCellData(7, 23, temp[36]);

  for i := 0 to 33 do
    Ary[i] := temp[i];
  for i := 0 to 2 do
    Ary0[i] := temp[34 + i];

  result := DM.F_Zfgjjtjb_Save(Jtb_Ny, Ary, Ary0);
end;

procedure TFormJGBbSjLr.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[1]);
    cell1.DoSetCellData(10, row, Ary[2]);
    cell1.DoSetCellData(11, row, Ary[3]);
    cell1.DoSetCellData(12, row, Ary[4]);
    cell1.DoSetCellData(13, row, Ary[5]);
  end;

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

      Ary[0] := cds_LR.FieldByName('DKJE').AsFloat;
      //Ary[1] := cds_LR.FieldByName('FFJE').AsFloat;
      Ary[1] := cds_LR.FieldByName('DKLL').AsFloat;
      Ary[2] := cds_LR.FieldByName('QCYE').AsFloat;
      Ary[3] := cds_LR.FieldByName('BQHS').AsFloat;
      Ary[4] := cds_LR.FieldByName('QMYE').AsFloat;
      Ary[5] := cds_LR.FieldByName('QZYQ').AsFloat;
      i := i + 1;
      SetCellD(i + 3, Ary);
      cds_LR.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;

function TFormJGBbSjLr.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 11 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[6]);
      cell1.DoGetCellData(8, 3 + j, temp[7]);

      cell1.DoGetCellData(9, 3 + j, temp[8]);
      cell1.DoGetCellData(10, 3 + j, temp[9]);
      cell1.DoGetCellData(11, 3 + j, temp[10]);
      cell1.DoGetCellData(12, 3 + j, temp[11]);
      cell1.DoGetCellData(13, 3 + j, temp[12]);
      xh := temp[0];
      Dwmc := temp[1];
      Xmmc := temp[2];
      lxspjg := temp[3];
      dkhth := temp[4];
      Ffrq := temp[6];
      Dkqx := temp[7];
      Ary[0] := temp[5];
      //Ary[1] := temp[6];
      Ary[1] := temp[8];
      Ary[2] := temp[9];
      Ary[3] := temp[10];
      Ary[4] := temp[11];
      Ary[5] := temp[12];

      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(Jtb_Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq, Dkqx,
        Ary);
      if result <> 0 then
        break;
    end;
  end;
end;

procedure TFormJGBbSjLr.FormCreate(Sender: TObject);
begin
  cell1.DoLogin('北京金天鹏软件科技有限公司', 363,
    '00FD18FF080193035CFE09FF9908');
  LoadFunction;
  LoadCellRelation(cell1);
  cell1.DoSetShowFormulaState(1);
  Application.OnMessage := DoEnter;
end;

procedure TFormJGBbSjLr.ToolButton10Click(Sender: TObject);
begin
  close;
end;

procedure TFormJGBbSjLr.FormActivate(Sender: TObject);
begin
  DT.Date := date();
end;

procedure TFormJGBbSjLr.ToolButton2Click(Sender: TObject);
var
  Ary: array of double;
  ret: smallint;
begin
  DecodeDate(DT.Date, nY, nM, nD);
  Jtb_Ny := trim(inttostr(nY)) + padl(trim(inttostr(nM)), 2, '0');
  ret := -1;
  with DM do
  begin
    case Indx of
      1:
        begin
          setlength(Ary, 35);
          SetData1(Ary);
          ret := F_ZcfzbGjj_Save(Jtb_Ny, Ary);
        end;
      2:
        begin
          setlength(Ary, 16);
          SetData2(Ary);
          ret := F_ZzsybGjj_Save(Jtb_Ny, Ary);
        end;
      3:
        begin
          setlength(Ary, 14);
          SetData3(Ary);
          ret := F_ZzsyfpbGjj_Save(copy(Jtb_Ny, 1, 4), Ary);
        end;
      4:
        begin
          setlength(Ary, 32);
          SetData4(Ary);
          ret := F_ZcfzbJf_Save(Jtb_Ny, Ary);
        end;
      5:
        begin
          setlength(Ary, 14);
          SetData5(Ary);
          ret := F_JfszbJf_Save(Jtb_Ny, Ary);
        end;
      6:
        begin
          ret := SetData6();
          //ret := F_JfszbJf_Save(Jtb_Ny, Ary);
        end;
      7:
        begin
          ret := SetData7();
        end;
      8:
        begin
          ret := SetData8();
        end;
    end;
  end;
  if ret = 0 then
    showmessage('保存成功！')
  else
    showmessage('保存失败！');
end;

procedure TFormJGBbSjLr.ToolButton1Click(Sender: TObject);
var
  Ary: array of double;
  i, j: smallint;
begin
  bbfilename := ExtractFilePath(Paramstr(0)) + BbFileGS +
    copy(trim(CboML.Text), 1, 2) + '.cll';
  if not fileexists(bbfilename) then
  begin
    showmessage('报表文件不存在，请确定报表位置！');
    CboML.ItemIndex := -1;
    exit;
  end;
  for i := 0 to cell1.Cols - 1 do
    for j := 0 to cell1.Rows - 1 do
      cell1.DoClearCell(i, j, 0);

  if cell1.DoOpenFile(bbfilename) > 0 then
    cell1.DoRedrawAll;
  DecodeDate(DT.Date, nY, nM, nD);
  Jtb_Ny := trim(inttostr(nY)) + padl(trim(inttostr(nM)), 2, '0');
  with DM do
  begin
    case Indx of
      1:
        begin
          setlength(Ary, 35);
          P_ZcfzbGjj(Jtb_Ny, Ary);
          GetData1(Ary);
        end;
      2:
        begin
          setlength(Ary, 16);
          P_ZzsybGjj(Jtb_Ny, Ary);
          GetData2(Ary);
        end;
      3:
        begin
          setlength(Ary, 14);
          P_ZzsyfpbGjj(copy(Jtb_Ny, 1, 4), Ary);
          GetData3(Ary);
        end;
      4:
        begin
          setlength(Ary, 32);
          P_ZcfzbJf(Jtb_Ny, Ary);
          GetData4(Ary);
        end;
      5:
        begin
          setlength(Ary, 14);
          P_JfszbJf(Jtb_Ny, Ary);
          GetData5(Ary);
        end;
      6:
        begin
          setlength(Ary, 4);
          //P_Zhksyeb(Jtb_Ny,Zhmc,Khyh,Yhzh,Ary);
          GetData6(Ary);
        end;
      7:
        begin
          GetData7;
        end;
      8:
        begin
          GetData8;
        end;