jgjtbbgs.pas

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

    2 : Toolbutton42.Down :=True; //右
    4 : Toolbutton41.Down :=True; //水中
    8 : Toolbutton44.Down :=True; //上
    9 : begin                     //上、左
          Toolbutton40.Down :=True;
          Toolbutton44.Down :=True;
        end;
    10: begin                     //上、右
          Toolbutton42.Down :=True;
          Toolbutton44.Down :=True;
        end;
    12: begin                     //上、水平中
          Toolbutton41.Down :=True;
          Toolbutton44.Down :=True;
        end;
    16: Toolbutton46.Down :=True; //下
    17: begin                     //下、左
          Toolbutton40.Down :=True;
          Toolbutton46.Down :=True;
        end;
    18: begin                     //下、右
          Toolbutton42.Down :=True;
          Toolbutton46.Down :=True;
        end;
    20: begin                     //下、水平中
          Toolbutton41.Down :=True;
          Toolbutton46.Down :=True;
        end;
    32: Toolbutton45.Down :=True; //垂直中
    33: begin                     //垂直中、左
          Toolbutton40.Down :=True;
          Toolbutton45.Down :=True;
        end;
    34: begin                     //垂直中、右
          Toolbutton42.Down :=True;
          Toolbutton45.Down :=True;
        end;
    36: begin                     //垂直中、水平中
          Toolbutton41.Down :=True;
          Toolbutton45.Down :=True;
        end;
  end;
  //数值格式
  if Cell1.DoGetCellNumberStyle(newcol,newrow,c_commas,c_percent,c_decimals,
     c_currency,c_unit,c_minus,c_scientific) = 1 then
  begin
    dec_inc:=c_decimals;
    if c_currency=-1 then
      toolbutton49.Down := false
    else
      toolbutton49.Down := true;
//    toolbutton50.Down :=c_percent;
    if c_percent=0 then
      toolbutton50.Down := false
    else
      toolbutton50.Down := true;
    if c_commas=0 then
      toolbutton51.Down := false
    else
      toolbutton51.Down := true;
  end
  else
  begin
    dec_inc:=-1;
    toolbutton49.Down := false;
    toolbutton50.Down := false;
    toolbutton51.Down := false;
  end;
end;

procedure TFormJtBbGs.FormActivate(Sender: TObject);
var
  scol,srow,ecol,erow:olevariant;
  cPos:string;
  row,col:smallint;
  gs: olevariant;
begin
  dsbh:=' ';
  bb:= DM.cds_Cx.fieldbyname('bbbh').AsString;
  gslx:= 1;
  combobox2.Items := screen.Fonts;
  if not cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    scol:= cell1.DoGetCurrentCol();
    srow:= cell1.DoGetCurrentRow();
  end;
  cPos:=CellSwapPositionStr(scol,srow);
  edit1.Text :=cPos;
  if activenum=0 then
  begin
    if (trim(structfilename)<>'') and fileexists(structfilename) then
      cell1.DoOpenFile(structfilename)
    else if trim(structfilename)= '' then
      begin
        //ll1.DoOpenFile(structfilename);
        //owmessage('failed');
      end;
    activenum:=1;
  end;

  CwBbGsInfo(dsbh,bb,gslx);
  with DM do
  begin
    cds_Cx2.First;
    while not cds_Cx2.Eof do
    begin
      row:= cds_Cx2.fieldbyname('row').AsInteger;
      col:= cds_Cx2.Fieldbyname('col').AsInteger;
      gs:=  cds_Cx2.Fieldbyname('gs').AsVariant;
      cell1.DoSetFormula(col,row,gs);
      cds_Cx2.Next;
    end;
  end;
  cell1.DoSetShowFormulaState(1);
end;

procedure TFormJtBbGs.ToolButton55Click(Sender: TObject);
{划网线}
var
  scol,srow,ecol,erow:olevariant;
  size:integer;
begin
  if not cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    scol:= cell1.DoGetCurrentCol();
    srow:= cell1.DoGetCurrentRow();
    ecol:=scol;
    erow:=srow;
  end;
  size:=combobox1.ItemIndex ;
  if size=0 then
    cell1.DoClearLine(scol,srow,ecol,erow,0)
  else
    cell1.DoDrawLine(scol,srow,ecol,erow,0,size,0);
end;

procedure TFormJtBbGs.ToolButton57Click(Sender: TObject);
{划框线}
var
  scol,srow,ecol,erow:olevariant;
  size:integer;
begin
  if not cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    scol:= cell1.DoGetCurrentCol();
    srow:= cell1.DoGetCurrentRow();
    ecol:=scol;
    erow:=srow;
  end;
  size:=combobox1.ItemIndex ;
  if size=0 then
    cell1.DoClearLine(scol,srow,ecol,erow,1)
  else
    cell1.DoDrawLine(scol,srow,ecol,erow,1,size,0);
end;

procedure TFormJtBbGs.ToolButton59Click(Sender: TObject);
{划上线}
var
  scol,srow,ecol,erow:olevariant;
  size:integer;
begin
  if not cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    scol:= cell1.DoGetCurrentCol();
    srow:= cell1.DoGetCurrentRow();
    ecol:=scol;
    erow:=srow;
  end;
  size:=combobox1.ItemIndex ;
  if size=0 then
    cell1.DoClearLine(scol,srow,ecol,erow,4)
  else
    cell1.DoDrawLine(scol,srow,ecol,erow,4,size,0);
end;

procedure TFormJtBbGs.ToolButton60Click(Sender: TObject);
{划下线}
var
  scol,srow,ecol,erow:olevariant;
  size:integer;
begin
  if not cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    scol:= cell1.DoGetCurrentCol();
    srow:= cell1.DoGetCurrentRow();
    ecol:=scol;

    erow:=srow;
  end;
  size:=combobox1.ItemIndex ;
  if size=0 then
    cell1.DoClearLine(scol,srow,ecol,erow,5)
  else
    cell1.DoDrawLine(scol,srow,ecol,erow,5,size,0);
end;

procedure TFormJtBbGs.ToolButton61Click(Sender: TObject);
{划左线}
var
  scol,srow,ecol,erow:olevariant;
  size:integer;
begin
  if not cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    scol:= cell1.DoGetCurrentCol();
    srow:= cell1.DoGetCurrentRow();
    ecol:=scol;
    erow:=srow;
  end;
  size:=combobox1.ItemIndex ;
  if size=0 then
    cell1.DoClearLine(scol,srow,ecol,erow,2)
  else
    cell1.DoDrawLine(scol,srow,ecol,erow,2,size,0);
end;

procedure TFormJtBbGs.ToolButton62Click(Sender: TObject);
{划右线}
var
  scol,srow,ecol,erow:olevariant;
  size:integer;
begin
  if not cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    scol:= cell1.DoGetCurrentCol();
    srow:= cell1.DoGetCurrentRow();
    ecol:=scol;
    erow:=srow;
  end;
  size:=combobox1.ItemIndex ;
  if size=0 then
    cell1.DoClearLine(scol,srow,ecol,erow,3)
  else
    cell1.DoDrawLine(scol,srow,ecol,erow,3,size,0);
end;

procedure TFormJtBbGs.ToolButton63Click(Sender: TObject);
{划左斜线}
var
  scol,srow,ecol,erow:olevariant;
  size:integer;
begin
  if not cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    scol:= cell1.DoGetCurrentCol();
    srow:= cell1.DoGetCurrentRow();
    ecol:=scol;
    erow:=srow;
  end;
  size:=combobox1.ItemIndex ;
  if size=0 then
    cell1.DoClearLine(scol,srow,ecol,erow,6)
  else
    cell1.DoDrawLine(scol,srow,ecol,erow,6,size,0);
end;

procedure TFormJtBbGs.ToolButton64Click(Sender: TObject);
{划右斜线}
var
  scol,srow,ecol,erow:olevariant;
  size:integer;
begin
  if not cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    scol:= cell1.DoGetCurrentCol();
    srow:= cell1.DoGetCurrentRow();
    ecol:=scol;
    erow:=srow;
  end;
  size:=combobox1.ItemIndex ;
  if size=0 then
    cell1.DoClearLine(scol,srow,ecol,erow,7)
  else
    cell1.DoDrawLine(scol,srow,ecol,erow,7,size,0);
end;

procedure TFormJtBbGs.ToolButton19Click(Sender: TObject);
{组合单元格}
var
  scol,srow,ecol,erow:olevariant;
begin
  if cell1.dogetselectrange(scol,srow,ecol,erow) then
    cell1.DoJoinCells(scol,srow,ecol,erow);
end;

procedure TFormJtBbGs.ToolButton20Click(Sender: TObject);
{取消组合单元格}
var
  scol,srow,ecol,erow:olevariant;
  ni,nl :integer;
begin
  if cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    for ni:=scol to ecol do
      for nl:=srow to erow do
        cell1.DoUnJoinCells(ni,nl);
  end;
end;

procedure TFormJtBbGs.ToolButton21Click(Sender: TObject);
{行组合单元格}
var
  scol,srow,ecol,erow:olevariant;
  ni :integer;
begin
  if cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    for ni:=srow to erow do
      cell1.DoJoinCells(scol,ni,ecol,ni);
  end;
end;

procedure TFormJtBbGs.ToolButton22Click(Sender: TObject);
{列组合单元格}
var
  scol,srow,ecol,erow:olevariant;
  ni :integer;
begin
  if cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    for ni:=scol to ecol do
      cell1.DoJoinCells(ni,srow,ni,erow);
  end;
end;

procedure TFormJtBbGs.ToolButton14Click(Sender: TObject);
{适合列宽}
var
  scol,srow,ecol,erow:olevariant;
  ni,nwidth :integer;
begin
  if cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    for ni:=scol to ecol do
    begin
      nwidth:=cell1.DoGetColBestWidth(ni);
      if nwidth<>0 then
        cell1.DoSetColWidth(ni,nwidth);
    end;
  end
  else
  begin
    scol:=cell1.DoGetCurrentCol();
    nWidth:=cell1.DoGetColBestWidth(sCol);
    if nWidth<>0 then
      cell1.DoSetColWidth(sCol,nWidth);
  end;
end;

procedure TFormJtBbGs.ToolButton15Click(Sender: TObject);
{适合行宽}
var
  scol,srow,ecol,erow:olevariant;
  ni,nHeight :integer;
begin
  if cell1.dogetselectrange(scol,srow,ecol,erow) then
  begin
    for ni:=srow to erow do
    begin
      nHeight:=cell1.DoGetRowBestHeight(ni);
      if nHeight<>0 then
        cell1.DoSetRowHeight(ni,nHeight);
    end;
  end
  else
  begin
    srow:=cell1.DoGetCurrentRow();
    nHeight:=cell1.DoGetRowBestHeight(srow);
    if nHeight<>0 then
      cell1.DoSetRowHeight(srow,nHeight);
  end;
end;

procedure TFormJtBbGs.ToolButton10Click(Sender: TObject);
{粘贴}
var
  col,row:integer;
begin
  col:= cell1.DoGetCurrentCol();
  row:= cell1.DoGetCurrentRow();
  cell1.DoPaste(col,row,true);
end;

procedure TFormJtBbGs.ToolButton17Click(Sender: TObject);
{垂直拆分}
var
  row,col,ni:integer;
begin
  row:= cell1.DoGetCurrentRow();
  col:= cell1.DoGetCurrentCol();
  if Cell1.Rows=Row+1 Then
    Cell1.DoAppendRow(1)
  else
    cell1.DoInsertRow(row+1,1);
  for ni:=0 to col-1 do
  begin
      cell1.DoJoinCells(ni,row,ni,row+1);
  end;
  for ni:=col+1 to cell1.Cols-1 do
  begin
      cell1.DoJoinCells(ni,row,ni,row+1);
  end;
  Cell1.DoRedrawAll;
end;

procedure TFormJtBbGs.ToolButton18Click(Sender: TObject);
{水平拆分}
var
  row,col,ni:integer;
begin
  row:= cell1.DoGetCurrentRow();
  col:= cell1.DoGetCurrentCol();
  if Cell1.Cols=Col+1 then
    Cell1.DoAppendCol(1)
  else
    cell1.DoInsertCol(Col+1,1);
  for ni:=0 to row-1 do
  begin
      cell1.DoJoinCells(Col,ni,Col+1,ni);
  end;
  for ni:=row+1 to cell1.Rows-1 do
  begin
      cell1.DoJoinCells(Col,ni,Col+1,ni);
  end;
  Cell1.DoRedrawAll;
end;

procedure TFormJtBbGs.ToolButton40Click(Sender: TObject);
{对齐方式}
var
  scol,srow,ecol,erow:olevariant;
  style,ni,nl:integer;
begin
  //水平控制
  if Sender = toolbutton40 then
  begin
    if toolbutton40.down then
      toolbutton40.Down :=true
    else
      toolbutton40.Down :=false;
    toolbutton41.Down :=false;
    toolbutton42.Down :=false;
  end
  else if Sender = toolbutton41 then
  begin
    if toolbutton41.down then
      toolbutton41.Down :=true
    else
      toolbutton41.Down :=false;
    toolbutton40.Down :=false;
    toolbutton42.Down :=false;
  end
  else if Sender = toolbutton42 then
  begin
    toolbutton40.Down :=false;
    toolbutton41.Down :=false;
    if toolbutton42.down then
      toolbutton42.Down :=true
    else
      toolbutton42.Down :=false;
  end;
  //垂直控制
  if Sender = toolbutton44 then
  begin
    if toolbutton44.down then
      toolbutton44.Down :=true
    else
      toolbutton44.Down :=false;
    toolbutton45.Down :=false;
    toolbutton46.Down :=false;
  end
  else if Sender = toolbutton45 then
  begin
    if toolbutton45.down then
      toolbutton45.Down :=true
    else
      toolbutton45.Down :=false;
    toolbutton44.Down :=false;
    toolbutton46.Down :=false;
  end
  else if Sender = toolbutton46 then
  begin
    if toolbutton46.down then
      toolbutton46.Down :=true
    else
      toolbutton46.Down :=false;
    toolbutton44.Down :=false;
    toolbutton45.Down :=false;
  end;
  //计算组合