cxSpreadSheetBook控件使用

cxSpreadSheetBook控件使用：

1、新建工程，拖入四个Button，cxSpreadSheetBook、dxComponentPrinter、dxPSEngineControlle控件，窗口如图：

2、对四个Button录入代码：

unit Unit1; 

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,

  StdCtrls, cxSSheet, ExtCtrls, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,

  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,

  dxPSEdgePatterns, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,

  dxPSPrVwStd, dxPSPrVwAdv, dxPSPrVwRibbon, dxPScxPageControlProducer,

  dxPScxSSLnk, dxPScxEditorProducers, dxPScxExtEditorProducers, dxPSCore,

  dxPSBaseGridLnk, dxPScxGridLnk, dxPScxGridLayoutViewLnk, dxPScxCommon,

  dxPSTextLnk;

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    cxSpreadSheetBook1: TcxSpreadSheetBook;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    dxComponentPrinter1: TdxComponentPrinter;

    dxComponentPrinter1Link1: TdxSpreadSheetBookReportLink;

    dxPSEngineController1: TdxPSEngineController;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1;

implementation

{$R *.dfm}

  //装入按扭

procedure TForm1.Button1Click(Sender: TObject);

begin

   //装载文件

   cxSpreadSheetBook1.LoadFromFile(‘f:\绍兴市公立医院综合改革监测(上虞201501).xls‘)    //cxSpreadSheet1.LoadFromFile(‘f:\绍兴市公立医院综合改革监测(上虞201501).xls‘)

end;

//保存按扭

procedure TForm1.Button2Click(Sender: TObject);

begin

   cxSpreadSheetBook1.SaveToFile(‘f:\绍兴市公立医院综合改革监测(上虞201501).xls‘);

end;

//打印按扭

procedure TForm1.Button3Click(Sender: TObject);

begin

  dxComponentPrinter1Link1.Preview(true);

  //dxComponentPrinter1.Print(True, nil, dxComponentPrinter1Link1);

end;

//取数按扭

procedure TForm1.Button4Click(Sender: TObject);

var

  CellObject: TcxSSCellObject;

begin

 cxSpreadSheetBook1.ActivePage := 0;//表页为第一页

 //CellObject := cxSpreadSheetBook1.ActiveSheet.getCellObject(4, 6);

 //ShowMessage(CellObject.Text);

  with cxSpreadSheetBook1.ActiveSheet.GetCellObject(4,6) do

  begin

    try

      Text := ‘100‘;//在第5列第7行显示100

    finally

      Free;                                                // and free it (important!)

    end;

  end;

end;

end.

3、执行窗口如图：