jgbbdisplay.pas

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

unit JGBbDisplay;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, OleCtrls, CELLLib_TLB, ExtCtrls,
  StdCtrls;

type
  TJGBbListGL = class(TForm)
    CoolBar1: TCoolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolBar1: TToolBar;
    CboML: TComboBox;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Cell1: TCell;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure CboMLChange(Sender: TObject);
  private
    { Private declarations }
    ActiveNum: smallint;
    Tag: smallint;
    lx: smallint;
    DpBbdm: string;
    procedure RefreshItem(const Enable: boolean);
    procedure Getdata1(const Ary: array of double);
    procedure Setdata1(var Ary: array of double);
    procedure Getdata2(const Ary: array of double);
    procedure Setdata2(var Ary: array of double);
    procedure Getdata3(const Ary: array of double);
    procedure Setdata3(var Ary: array of double);
    procedure Getdata4(const Ary: array of double);
    procedure Setdata4(var Ary: array of double);
    procedure Getdata5(const Ary: array of double);
    procedure Setdata5(var Ary: array of double);
    procedure Getdata6(var Ary: array of double);
    function Setdata6: smallint;
    procedure Getdata7;
    function Setdata7: smallint;
    procedure Getdata8;
    function Setdata8: smallint;
  public
    { Public declarations }
    cCityNum: string;
    cCityName: string;
    bbfilename: string;
    JGBb_Ny: string;
    ind: smallint;
    IsHz: boolean;
  end;

var
  JGBbListGL: TJGBbListGL;

implementation

uses dmPJg, uUserFunc, uDMFunc, uConstUtils;

{$R *.dfm}

procedure TJGBbListGL.FormCreate(Sender: TObject);
begin
  ActiveNum := 0;
  Tag := 0;
  cell1.DoLogin('北京金天鹏软件科技有限公司', 363,
    '00FD18FF080193035CFE09FF9908');

  cell1.DoSetShowFormulaState(1);
  //Application.OnMessage:= DoEnter;

{  DM.P_BbmlInfo;
  DM.Qry_Bbml.First;
  while not DM.Qry_Bbml.Eof do
  begin
    if strtoint(Dm.Qry_Bbml.FieldByName('bbbh').AsString) in [1..8] then
      CboMl.Items.Add(Dm.Qry_Bbml.FieldByName('bbbh').AsString + ' :  ' + Dm.Qry_Bbml.FieldByName('bbmc').AsString);
    Dm.Qry_Bbml.Next;
  end;
  DM.Qry_Bbml.Close;    }

end;

procedure TJGBbListGL.RefreshItem(const Enable: boolean);
begin
  ToolButton2.Enabled := Enable;
  ToolButton3.Enabled := Enable;
  Cell1.Enabled := Enable;
  Cell1.DoSetShowFormulaState(0);
  //  Cell1.ShowZeroResult := 0;
  Cell1.PageLabelVisible := false;
  Cell1.DoRedrawAll;
end;

procedure TJGBbListGL.ToolButton5Click(Sender: TObject);
begin
  close;
end;

procedure TJGBbListGL.FormActivate(Sender: TObject);
begin
  CboML.ItemIndex := Ind;
  if ActiveNum = 0 then
  begin
    ActiveNum := 1;
    if CboMl.ItemIndex >= 0 then
      CboML.OnChange(sender)
    else
      RefreshItem(False);
  end;
end;

procedure TJGBbListGL.ToolButton3Click(Sender: TObject);
begin
  Cell1.DoPrintPreview(true);
end;

procedure TJGBbListGL.ToolButton2Click(Sender: TObject);
begin
  Cell1.DoPrint(true);
end;

procedure TJGBbListGL.CboMLChange(Sender: TObject);
var
  Ary: array of double;
  i, j: smallint;
begin
  for i := 0 to cell1.Cols - 1 do
    for j := 0 to cell1.Rows - 1 do
      cell1.DoClearCell(i, j, 0);

  bbfilename := ExtractFilePath(Paramstr(0)) + BbFileGS +
    copy(trim(CboML.Text), 1, 2) + '.cll';

  if cell1.DoOpenFile(bbfilename) > 0 then
    cell1.DoRedrawAll;
  with DM do
  begin
    case CboMl.ItemIndex of
      0:
        begin
          setlength(Ary, 35);
          P_ZcfzbGjj(IsHz, cCityNum, JGBb_Ny, Ary);
          GetData1(Ary);
        end;
      1:
        begin
          setlength(Ary, 16);
          P_ZzsybGjj(IsHz, cCityNum, JGBb_Ny, Ary);
          GetData2(Ary);
        end;
      2:
        begin
          setlength(Ary, 14);
          P_ZzsyfpbGjj(IsHz, cCityNum, copy(JGBb_Ny, 1, 4), Ary);
          GetData3(Ary);
        end;
      3:
        begin
          setlength(Ary, 32);
          P_ZcfzbJf(IsHz, cCityNum, JGBb_Ny, Ary);
          GetData4(Ary);
        end;
      4:
        begin
          setlength(Ary, 14);
          P_JfszbJf(IsHz, cCityNum, JGBb_Ny, Ary);
          GetData5(Ary);
        end;
      5:
        begin
          setlength(Ary, 4);
          //P_Zhksyeb(Jtb_Ny,Zhmc,Khyh,Yhzh,Ary);
          GetData6(Ary);
        end;
      6:
        begin
          GetData7;
        end;
      7:
        begin
          GetData8;
        end;
    end;
  end;
  cell1.DoRedrawAll;
end;

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

  cell1.DoSetCellData(7, 5, Ary[14]);
  cell1.DoSetCellData(8, 5, Ary[15]);
  cell1.DoSetCellData(7, 6, Ary[16]);
  cell1.DoSetCellData(8, 6, Ary[17]);
  cell1.DoSetCellData(7, 7, Ary[18]);
  cell1.DoSetCellData(8, 7, Ary[19]);
  cell1.DoSetCellData(7, 8, Ary[20]);
  cell1.DoSetCellData(8, 8, Ary[21]);

  cell1.DoSetCellData(7, 13, Ary[22]);
  cell1.DoSetCellData(8, 13, Ary[23]);

  cell1.DoSetCellData(7, 9, Ary[24]);
  cell1.DoSetCellData(8, 9, Ary[25]);

  cell1.DoSetCellData(7, 14, Ary[26]);
  cell1.DoSetCellData(8, 14, Ary[27]);

  cell1.DoSetCellData(5, 20, Ary[28]);
  cell1.DoSetCellData(5, 21, Ary[29]);

  cell1.DoSetCellData(5, 22, Ary[30]);
  cell1.DoSetCellData(5, 23, Ary[31]);
  cell1.DoSetCellData(5, 24, Ary[32]);
  cell1.DoSetCellData(5, 25, Ary[33]);
  cell1.DoSetCellData(5, 26, Ary[34]);

  cell1.DoSetFormula(3, 16, 'sum(D6:D12)');
  cell1.DoSetFormula(4, 16, 'sum(E6:E12)');

  cell1.DoSetFormula(7, 10, 'sum(H6:H9)');
  cell1.DoSetFormula(8, 10, 'sum(I6:I9)');

  cell1.DoSetFormula(7, 15, 'sum(H14:H15)');
  cell1.DoSetFormula(8, 15, 'sum(I14:I15)');

  cell1.DoSetFormula(7, 16, 'H11+H16');
  cell1.DoSetFormula(8, 16, 'I11+I16');

  cell1.DoSetFormula(5, 27, 'sum(F21:F27)');

end;

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

  cell1.DoSetFormula(3, 4, 'sum(D6:D10)');
  cell1.DoSetFormula(4, 4, 'sum(E6:E10)');
  cell1.DoSetFormula(3, 10, 'sum(D12:D14)');
  cell1.DoSetFormula(4, 10, 'sum(E12:E14)');
  cell1.DoSetFormula(3, 14, 'D5-D11');
  cell1.DoSetFormula(4, 14, 'E5-E11');

end;

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

end;

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