摘 要：在Delphi 7中，结合Microsoft OWC(Office Web Components)的Spreadsheet控件进行编程，以电子表格的形式多栏、动态组合地显示SQL查询结果。
    关键词：多栏，动态组合， Spreadsheet控件，SQL查询结果

一、 引言  

    在 Delphi数据库应用系统的开发过程中，经常会遇到SQL查询结果返回字段数较少但记录数较多的情况，如果使用传统的DBGrid感应控件来显示这些记录，那么用户在查看数据的过程中需要不断地往下翻动记录，非常费劲。为了有效地减少用户翻动记录的次数，并考虑到字段数较少的特点，我们设想用分栏的方式来显示记录。带着这一设想，本文将结合Microsoft OWC的Spreadsheet控件进行编程，以电子表格的形式多栏、动态组合地显示SQL查询结果，程序运行的界面如图1所示。

二、原理机制

   1、Spreadsheet控件的主要属性及方法
要想在DBGrid中实现数据记录的多栏显示，则要求软件开发人员使用SQL语句根据栏数的多少对记录进行合并。SQL是一种用于数据库设计、维护和控制的结构化查询语言，和其它计算机语言相比，它没有显式地提供分支、循环等流程控制，所以使用SQL语言进行记录合并时必然困难重重，故有必要寻找一种全新的多栏显示方案。经过认真的思考和反复的试验，我们从Microsoft OWC（Office Web Components）组件中有了新的发现。OWC是Microsoft Office 2000提供的一组控件，它为动态Web文档的图形绘制提供了灵活机制，同时它也实现了Excel部分功能和提供了数据库存取接口，在 VB、VC、Delphi和C++Builder等开发环境中均可以直接使用这些组件来建立复杂的、交互的和基于 Web 的应用系统。OWC共有六个控件，它们分别是ChartSpace、Spreadsheet、DataSourceControl、RecordNavigationControl、ExpandControl、PivotTable，其中，Spreadsheet 控件使软件开发人员在Delphi环境中获得一个完整的电子表格、某一单元格区域或某一命名区域（如打印区域、自动筛选区域或用户定义名称区域），并可将它们与数据库系统相关联。正因为Spreadsheet 控件在Delphi环境中提供了类似 Excel的功能，所以只要确保Spreadsheet 控件的某单元格与SQL查询结果的某记录的相应字段一一对应，我们便很容易地根据栏数的多少把SQL查询结果写进电子表格中，从而实现多栏显示。
本文所使用Spreadsheet控件的主要属性和方法可参见表1，具体用法参见源代码。
属性或方法 含义
ActiveSheet属性 电子表格的当前工作表；
Range属性 某一单元格或单元格的矩形区域；
Cells属性 引用对象中单元格的Range对象；
Item属性 Item属性有两个参数：第一个参数用于指定单元格的行地址，第二个参数用于指定单元格的列地址；
Set_Value方法 为指定的单元格写入数据；
Export方法 将指定的工作表保存到文件中，并可以在 Excel 中打开；该方法有FileName、Action两个参数，其中Action参数的值可选ssExportActionNone、或ssExportActionOpenInExcel。参数的使用技巧是：如果不指定FileName参数，则系统会在用户的“Temp”文件夹中创建临时文件；如果 Action 参数设置为ssExportActionNone，则必须指定FileName参数。

表1：Spreadsheet控件的主要属性和方法
2、多栏显示的原理
数据记录的多栏显示一般有两种方式：一种就是把数据记录在每页中先上下后左右地在各栏中显示；另一种就是把数据记录在每页中先左右后上下地在各栏中显示。此外，数据记录的多栏显示还涉及栏高（每一栏中有多少条记录）的问题，本文的演示程序在第一种方式中把页数设定为1（不进行分页），而在第二种方式中允许用户动态调整栏高。采用Spreadsheet 控件实现多栏显示的关键是：如何准确控制Spreadsheet 控件相应的单元格与SQL查询结果的某记录的相应字段一一对应，以第二种方式为例，设栏高为h、SQL查询结果的记录有x个字段，那么第p页的第k行所对应的Excel单元格的行地址应是：（p-1）*h+k，而第c栏的第r个字段所对应的Excel单元格的列地址应为：(c-1)* x+r。
3、动态组合显示的原理
所谓动态组合显示实质是指用户自由选取需要的字段进行显示，它的实现过程主要分两步：（1）如下列程序所示，用一字符串变量反映着用户选取字段的情况。
Var sqltext:string;
sqltext:='select 编号,';
if CheckBox1.Checked then sqltext:=sqltext+'姓名,';//是否要显示姓名字段
if CheckBox2.Checked then sqltext:=sqltext+'电话,';
……
（2）上述的程序是针对动态组合显示的字段总数和名称均无法决定，以及SQL查询语句中相邻两字段用“，”隔开的格式要求而设计的，显然，字符串变量sqltext中的末字段也带有“，”分隔符，应用Delerte函数进行删除。Delete函数的格式是：Delete(str,m,n)，功能是把字符串str从m位开始，删除n位。