(Excel报表.pptVIP

数据库系统开发 Development of Database System 数据库系统开发 第12次课内容 Excel报表 Excel的基本概念 Delphi与Excel 简单Excel报表生成 复杂Excel报表生成 利用Excel模板制作报表 数据库系统开发 一、Excel的基本概念 Excel凭借其强大的表格处理功能，广泛应用于各类机关和企业的日常办公中。 企业利用Excel编制了大量表格，积累了宝贵的数据资源 在应用软件中加入对Excel信息的读写，会使软件使用更方便，数据处理更灵活 一、Excel的基本概念 Excel文档的组织结构 Workbook Worksheet Cell 区域 区域表达 “C6”,”D6” 数据库系统开发 二、Delphi与Excel 应用程序可以通过OLE技术访问控制office Delphi从版本5开始提供的Excel组件极大地简化了OLE自动化技术的应用。 数据库系统开发 二、Delphi与Excel Delphi控制Excel的一般步骤 应用程序与Excel应用程序关联（通过ExcelAppliation控件） 新建或打开一个WorkBook，并与相应的Delphi控件关联（ExcelWorkBook控件） 新建或激活一个WorkSheet，并与相应的Delphi控件关联（ExcelWorkSheet控件） 通过ExcelWorkSheet控件的方法和属性对Cell的内容、格式等进行控制 保存workbook 断开与Excel应用程序的关联 数据库系统开发 二、Delphi与Excel 例1 编写程序，生成如下样式的excel文件 数据库系统开发 二、Delphi与Excel 数据库系统开发 二、Delphi与Excel 字体设置 工作表所有单元格字体设置(默认字体) ExcelWorksheet1.Cells.Font.Size:=11; ExcelWorksheet1.Cells.Font.name:=‘宋体’; … 单元格或区域字体设置 ExcelWorksheet1.cells.item[1,1].font.bold:=true; ExcelWorksheet1.Range[A1,D1].Font.Bold:=true; ExcelWorksheet1.Range[A1,D1].Font.Size:=18; … 数据库系统开发 二、Delphi与Excel 对齐方式 所有单元个对齐方式 水平对齐方式：ExcelWorksheet1.Cells.HorizontalAlignment:=xlCenter; 垂直对齐方式： ExcelWorksheet1.Cells.VerticalAlignment:=xlBottom 单元格或区域对齐方式 参考字体设置 数据库系统开发 二、Delphi与Excel 单元格值 ExcelWorksheet1.Cells.Item[3,1]:=5; 第三行第1列值 单元格合并 ExcelWorksheet1.Range[‘A4’,‘D4’].Merge(true) 合并区块值 ExcelWorksheet1.Range[A4,D4].Value2:=‘x’ 数据库系统开发 二、Delphi与Excel 边框线 ExcelWorksheet1.Range[A1,D4].Borders.LineStyle:=xlcontinuous; 数据库系统开发 二、Delphi与Excel 例2，从Excel中读取数据 数据库系统开发 二、Delphi与Excel 打开已有文件 数据库系统开发 二、Delphi与Excel 不同于各种语言中下标从0开始，Excel中的对象数字下标都从1开始 下列代码中的对象都为数组的第一个对象 ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]); ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet); 单元格第4行第5列如何表达？ 数据库系统开发 二、Delphi与Excel 隐藏excel程序界面 self.ExcelApplication1.Visible[1]:=false; 数据库系统开发 三、简单Excel报表 例3：在Excel中输出所有顾客信息 思路： 通过数据集控件读取需要的数据 遍历该数据集，并通过Excel控件逐行输出记录 数据库系统开发 四、复杂报表的输出 例4，发票打印程序实现 目标格式： 数据库系统开发 四、复杂报表的输出