Delphi数据库多栏动态组合显示的设计与实现(二)

quasiceo 2017-05-17

展开全文

Delphi数据库多栏动态组合显示的设计与实现(二)

其它 | 作者：慧都控件网 | 2006-08-24 17:34:00| 阅读 2916次有用 (0) 评论 (0) 收藏

概述：

三、代码与实现

1、OWC组件的安装
确保系统已安装Microsoft Office 2000后，启动Delphi 7，单击菜单[Project]→[Import Type Library]；如图2所示，在列表框中选取“Microsoft Office Web Components 9.0（Version 1.0）”选项，其余参数选用默认值，然后单击“Install”按钮，执行安装；若安装成功，则应如图3所示，在ActiveX页面上出现六个OWC控件。

图2：Import Type Library窗口

图3：ActiveX页面上的OWC组件

2、主要控件及属性

控件名称	类	属性名称	值
Spreadsheet1	TSpreadsheet	DisplayColHeaders DisplayPropertyToolbox DisplayRowHeaders DisplayToolbar	False False False False
ADOQuery1	TADOQuery	ConnectionString	C:\Test\DEMOS.udl
SpinEdit1	TSpinEdit	MinValue Value	1 1（该控件用于栏数的调整）
SpinEdit2	TSpinEdit	MinValue Value	1 10（该控件用于栏高的调整）
CheckBox1~ CheckBox4	TcheckBox	用于字段的动态组合显示，	CheckBox1的Checked属性默认为True

程序中所涉及的主要控件及属性见表2。

控件名称类属性名称值

Spreadsheet1 TSpreadsheet DisplayColHeaders False
DisplayPropertyToolbox False
DisplayRowHeaders False
DisplayToolbar False
ADOQuery1 TADOQuery ConnectionString C:\Test\DEMOS.udl
SpinEdit1 TSpinEdit MinValue 1
Value 1（该控件用于栏数的调整）
SpinEdit2 TSpinEdit MinValue 1
Value 10 （该控件用于栏高的调整）
CheckBox1~ TcheckBox 用于字段的动态组合显示， CheckBox1的
CheckBox4 Checked属性默认为True。
表2：程序中主要控件及属性
3、主要源代码
（1）建立多栏动态组合显示的处理过程
procedure TForm1.Process;
var
sqltext:string; //用一字符串变量反映着用户选取字段的情况
m,n,k,i,page:Integer;
cl:olevariant;
bl:wordbool;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
sqltext:='select 编号,'; //编号字段为必选字段
if CheckBox1.Checked then sqltext:=sqltext+'姓名,'; //是否要显示姓名字段
if CheckBox2.Checked then sqltext:=sqltext+'电话,';
if CheckBox3.Checked then sqltext:=sqltext+'生日,';
if CheckBox4.Checked then sqltext:=sqltext+'薪水,';
Delete(sqltext,length(sqltext),1); //删除sqltext字符串的最后一位字符“，”
sqltext:=sqltext+' from employee';
ADOQuery1.SQL.Add(sqltext);
ADOQuery1.Active:=True;
Label4.Caption:=IntToStr(ADOQuery1.RecordCount)+'条'; //显示记录的总数
Spreadsheet1.ActiveSheet.Cells.Clear; //清空工作表所有单元格的内容
ADOQuery1.First;
for m:=0 to SpinEdit1.Value-1 do
//根据栏数的多少，用循环语句显示每一栏的各个字段名称
for n:=0 to ADOQuery1.Fields.Count-1 do
Spreadsheet1.ActiveSheet.Cells.Item[1,m*ADOQuery1.Fields.Count+n+1].Set_Value(ADOQuery1.Fields[n].FieldName);
cl:='red';
bl:=True;
SpreadSheet1.Range['A1','IV1'].Font.Set_Color(cl);
//把工作表的第一行的字体颜色设置为红色
SpreadSheet1.Range['A1','IV1'].Font.Set_Bold(bl);
//把工作表的第一行的字体设置为粗体
k:=2;//记录从单元格的第二行开始显示
if RadioButton1.Checked then // SQL查询结果按先上下后左右的方式进行显示
while not ADOQuery1.Eof do //记录指针未到文件尾时继续执行显示
begin
for m:=0 to SpinEdit1.Value-1 do
// 根据栏数的多少，重复在工作表的相同行、不同列中显示记录内容
begin
for n:=0 to ADOQuery1.Fields.Count-1 do
//根据数据集字段的多少，用循环语句在工作表对应的单元格显示记录内容
Spreadsheet1.ActiveSheet.Cells.Item[k,m*ADOQuery1.Fields.Count+n+1].Set_Value(VarToStr(ADOQuery1.Fields[n].Value));
ADOQuery1.Next; //记录指针往下移一条
if ADOQuery1.Eof then break; //记录指针为文件尾时退出显示过程
end;
Inc(k);// 工作表的单元格往下移一行
end;
if RadioButton2.Checked then // SQL查询结果按先左右后上下的方式进行显示
begin
page:=1;//页数的初始值为1
while not ADOQuery1.Eof do //记录指针未到文件尾时继续执行显示
begin
for m:=0 to SpinEdit1.Value-1 do
// 根据栏数的多少，用循环语句重复在同一页中显示记录内容
begin
for k:=1 to SpinEdit2.Value do
// 根据栏高的多少，重复在工作表的相同列、不同行中显示记录内容
begin
for n:=0 to ADOQuery1.Fields.Count-1 do
//根据数据集字段的多少，用循环语句在工作表对应的单元格显示记录内容
Spreadsheet1.ActiveSheet.Cells.Item[(page-1)*SpinEdit2.Value+k+1,m*ADOQuery1.Fields.Count+n+1].Set_Value(VarToStr(ADOQuery1.Fields[n].Value));
ADOQuery1.Next; //记录指针往下移一条
if ADOQuery1.Eof then break; //记录指针为文件尾时退出显示过程
end;
if ADOQuery1.Eof then break;
end;
Inc(Page); //下一页，Page加1
end;
end;
end;
（2）对SpinEdit1的OnChange事件编程
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
Process; //调用多栏动态组合显示的处理过程
end;
注：RadioButton1~RadioButton2、CheckBox1~ CheckBox4的OnClick事件中也同样调用Process过程。
（3）把Spreadsheet控件的数据导出至Excel中
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Spreadsheet1.ActiveSheet.Export('',ssExportActionOpenInExcel);
end;