1. 在delphi中调用excel有四种方式，我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制 excel的重要属性和方法。  
2.   
3. 　　首先给出通过OLE创建的一些主要代码步进行简单说明：  
4.   
5. 　　创建OLE对象：  
6.   
7.    
8.   
9. 　　Var olecon: TOleContainer;  
10.   
11. 　　Olecon:= TOleContainer.Create(self);  
12.   
13. 　　 Olecon.oleobject:= Olecon.CreateObject('excel.sheet',false)；  
14.   
15. 　 　或选择导入一个excel文件来创建OLE对象：  
16. Olecon.oleobject:= Olecon.CreateObjectFromFile(xlsname,false)；  
17.   
18. 　 　最好隐藏excel的几个工具条,这样就好象是嵌在你的程序中的一个表而已了：  
19.   
20. 　 　Olecon.OleObject.application.CommandBars['Standard'].Visible:=false;  
21.   
22. 　 　Olecon.OleObject.application.CommandBars['Formatting'].Visible:=false;  
23.   
24. 　 　Olecon.OleObject.application.CommandBars['Reviewing'].Visible:=false；  
25.   
26. 　 　然后显示并激活excel表,对TOleContainer定义的对象：  
27.   
28. 　 　Olecon.show;  
29.   
30. 　　Olecon.doverb(0);  
31.   
32. 　 　这样基本可以了，但TOleContainer有个不好的地方，就是当你一点击其它控件是就它就失去焦点，然后就自动退出，其实并没有真的退出，只是需 要你再次激活它而已，关键是当它失去焦点的时候就excel对象就不见了，可以用Timage控件把TOleContainer所在的地方有EXCEL时 候的区域图片截下来骗骗用户，我们这里主要不是讲这个，就不详述了。  
33.   
34. 　　下面我们就开始讲Excel_TLB中的接口的常用属性和方法，主 要是针对导出和设定报表格式的一些接口元素。  
35.   
36. 　　单元格的读写属性：  
37.   
38. 　 　olecon.OleObject.application.cells.item[1,1];  
39.   
40. 　　 olecon.OleObject.application.cells(1,1);  
41.   
42. 　　 olecon.OleObject.application.cells[1,1].Value;  
43.   
44. 　 　上面三种都可以对工作表的‘A1’单元进行读写。  
45.   
46. 在delphi中对单元格(集)，区域，工作表等所有对象的操作都是要Variant来实现的。  
47.   
48. 　　自己的程序中选定区域赋给 Range:  
49.   
50. 　　Var range,sheet:Variant;  
51.   
52. 　　Range:= olecon.OleObject.application.Range['A1:C3'];  
53.   
54. 　 　或者：  
55.   
56. 　　Sheet:= olecon.OleObject.application.Activesheet;  
57.   
58. 　　Range:= olecon.OleObject.application.Range[sheet.cells[1,1],sheet.cells[3,3]];  
59.   
60. 　 　对上面的Range合并单元格：  
61.   
62. 　　 Range.merge;  
63.   
64. 　　Range. FormulaR1C1:=’合并区’；//合并后写入文本  
65.   
66. 　 　注意以后要读合并的单元格里面的文本就是读合并区域的左上角的那个单元格的文本  
67.   
68. 　　在excel表中选定区域赋给range：  
69. range:=excel_grid1.OleObject.application.selection;  
70.   
71. 　 　拆分单元格：  
72. Range.unmerge;  
73.   
74. 　 　合并后设定单元格（集）的格式：  
75.   
76. 　　 Range.HorizontalAlignment:= xlCenter;// 文本水平居中方式  
77.   
78. 　　 Range.VerticalAlignment:= xlCenter//文本垂直居中方式  
79.   
80. 　　 Range.WrapText:=true;//文本自动换行  
81.   
82. 　　Range.Borders.LineStyle:=1//加边框  
83.   
84. 　 　Range.Interior.ColorIndex:=39;//填充颜色为淡紫色  
85.   
86. 　　Range.Font.name:=’ 隶书’;//字体  
87.   
88. 　　Range.Font.Color:=clBlue;//字体颜色  
89. 常用格式也就这些，以上这些对于单个单元格也适用。  
90.   
91. 　　在excel表中寻找前后上下的单元格：  
92.   
93. 　　Var u1,u2,u3,u4,u5:Variant;  
94.   
95. 　　 U1:=olecon.oleobject.application.activecell;//获取当前格；  
96.   
97. 　　 U2:=u1.previous;//非特殊情况就是u1左边的一格；  
98.   
99. 　　U3:=ui.next;//非特殊情况就是u2右边的一格；  
100.   
101. 　 　U4:=olecon.oleobject.application.cells[u1.cells.row-1,u1.cells.column]; //非特殊情况为上面一格  
102.   
103. 　　 U5:=olecon.oleobject.application.cells[u1.cells.row+1,u1.cells.column]; //非特殊情况为下面一格  
104.   
105. 　　删除和插入一行和一列：  
106.   
107. 　　 Olecon.oleobject.application.rows[2].delete;  
108.   
109. 　　 Olecon.oleobject.application.columns[2].delete;  
110.   
111. 　　 Olecon.oleobject.application.rows[2].insert;  
112.   
113. 　　 Olecon.oleobject.application.columns[2].insert;  
114.   
115. 　 　复制指定区域：  
116. Olecon.oleobject.application.range[‘A1:C3’].copy;  
117.   
118. 　 　从指定单元格开始粘贴：  
119. Olecon.oleobject.application.range[‘A4’].PasteSpecial;  
120. 常用的就这些了，对delphi中server面板下的EXEL控件和创建EXCEL.Application COM对象的方式都适用   

  代码中已经进行了注释，不再累叙，针对本文所参考的文章内容（Addr:http://www.codeproject.com/KB/GDI-plus/watermark.aspx）， 作几点说明：

    1、在参考的文章中，对文本字体、显示位置进行了测试和计算，本文为强调主要内容，对这些代码进行了简化；

    2、在水印底色透明处理中，原文采用的是TGpImageAttributes.SetRemapTable方法，而本文采用的则是 TGpImageAttributes.SetColorKey方法，效果是一样的，具体原理可参照我的文章《GDI+ 在Delphi程序的应用 -- 图像的透明显示技巧》；

    3、因图片保存为jpeg格式文件时，GDI+自动对图像进行压缩，导致图片效果较差，所以本文保存图片时设置了图像品质编码参数；

    4、本文采用的GDI+单元介绍和下载地址见《GDI+ for VCL基础 -- GDI+ 与 VCL》。

    如有错误或者指教，请来信：maozefa@hotmail.com

后记：有朋友用C++写本文代码，编译时出现LINK Error: unresolved external '_EncoderQuality' referenced ...错误，其原 因是EncoderQuality是用DEFINE_GUID宏定义的GUID，而编译器误认为外部变量，所以出现链接错误。解决的办法是： 在#include <gdiplus.h>前添加#include <initguid.h>。(2008.5.16  12:48)

1. 模糊查询  
2.   
3.   
4. 1．用变量进行模糊查询  
5. 对数据进行模糊查询主要用SQL语句LIKE来实现。该语句放在Where语句的后面，使用标识符“%”、“_”、“[]”、“[^]”对数据进行模糊查询。  
6. 例如，对姓名为“王”，并且姓名为两个字的学生信息。  
7. Select * FROM MR_Student where 姓名 like '林_'  
8. 例如，查询数学成绩在70~79之间的学生信息。  
9. Select * FROM MR_Student where 数学 like '7[0123456789]'  
10. 例如，查询除三年级二班的所有学生信息。  
11. Select * FROM MR_Student where 班级 like '三年[^二]_'  
12. 例如，查询三年级的所有学生信息。  
13. Select * FROM MR_Student where 班级like '三*'  
14. 下面对姓名进行模糊查询，只要在“姓名”文本框中输入名字中的任意一个字，便可以查找相关人员的信息。  
15. 操作步骤如下：  
16. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。  
17. （2）主要程序代码如下：  
18.   with ADOQuery1 do  
19.   begin  
20.     close;  
21.     SQL.Clear;  
22.     SQL.Add('Select * FROM MR_Student where 姓名 like '+''''+'%'+Trim(edit1.Text)+'%'+'''');  
23.     open;  
24.   end;  
25. 上面的SQL语句也可以写成如下形式：  
26. SQL.Add('Select * FROM MR_Student where 姓名 like ''%'+Trim(edit1.Text)+'%''');  
27.   
28.   
29. 2．使用参数进行模糊查询  
30. 在Delphi中进行模糊查询时，可以用TADOQuery组件来向SQL语句中传递参数。  
31. 其格式为：“Like:参数名”。  
32. 利用TADOQuery组件的ParamByName方法将值传递给参数。  
33. * 注意：在Like后面必须加空格。  
34. 下面用TADOQuery组件进行参数传递，并对数据进行模糊查询。  
35. 操作步骤如下：  
36. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。  
37. （2）主要程序代码如下：  
38.   with ADOQuery1 do  
39.   begin  
40.     close;  
41.     SQL.Clear;  
42.     SQL.Add('Select * FROM MR_Student where 姓名 like :aa');  
43.     Parameters.ParamByName('aa').Value:='%'+trim(Edit1.text)+'%';  
44.     open;  
45.   end;  
46.     
47.     
48. 3．复杂模糊查询  
49. 在对信息进行模糊查询的时候，也可以通过逻辑运算符（AND、OR、NOT）插入其他的查询条件来提高查询的速度。  
50. 下面是模糊查询和其他查询方法相结合而形成的复杂模糊查询。  
51. 操作步骤如下：  
52. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton、TComboBox和TDBGrid等组件。  
53. （2）主要程序代码如下：  
54.   if CheckBox1.Checked=true then  
55.    Str := ' and 班级='+''''+ComboBox1.Text+''''  
56.   else  
57.    ComboBox1.Enabled := False;  
58.   with ADOQuery1 do  
59.   begin  
60.    close;  
61.    SQL.Clear;  
62.    SQL.Add('Select * FROM MR_Student where 姓名 like ''%'+Trim(edit1.Text)+'%'''+Str);  
63.    open;  
64.   end;  

1. 存 储 过  程  
2.   
3. 1．创建存储过程  
4. 创建存储过程主要用SQL语句Create PROCEDURE来实现，并用“Exec语句+存储过程名”来执行已创建的存储过程。  
5. 本示例是用存储过程来执行多表合并的操作。  
6. 操作步骤如下：  
7. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit和TDBGrid等组件。  
8. （2）主要程序代码如下：  
9.   with ADOQuery1 do  
10.   begin  
11.     Close;  
12.     SQL.Clear;  
13.     SQL.add('create procedure '+Edit1.Text);    //创建存储过程  
14.     SQl.Add('as ');  
15.     SQL.Add('select k.学生编号,k.学生姓名,j.外语 FROM tb_stu AS k INNER JOIN tb_mark AS j ON k.学生编号 = j.学生编号 Where (((k.学生编号)=[j].[学生编号]))');  
16.     ExecSQL;  
17.     SQL.Clear;  
18.     SQL.Add('Exec '+Edit1.Text);    //执行存储过程  
19.     Open;  
20.   end;  
21.     
22.     
23. 2．对存储过程进行加密  
24. 在创建存储过程时，可以为存储过程加密，这样用户可以隐藏存储过程的文本，避免其他用户在存储过程属性中查看其语句，主要用WITH ENCRYPTION选项实现。在对存储过程加密前必须对已有的存储过程进行删除。  
25. 下面用存储过程的WITH ENCRYPTION选项来创建一个加密存储过程。  
26. 操作步骤如下：  
27. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit、TMemo和TDBGrid等组件。  
28. （2）主要程序代码如下：  
29.   with ADOQuery1 do  
30.   begin  
31.     close;  
32.     SQL.Clear;  
33.     SQL.Add('if EXISTS(Select name FROM sysobjects Where name='+QuotedStr(Trim(Edit1.Text))+' AND type = ''p'')');    //判断存储过程是否存在  
34.     SQL.Add('Drop PROCEDURE '+Trim(Edit1.Text));    //删除已有的存储过程  
35.     EXECSQL;  
36.     close;  
37.     SQL.Clear;  
38.     //为存储过程加密  
39.     SQL.Add('Create PROCEDURE '+Edit1.Text+' WITH ENCRYPTION AS '+Trim(Memo1.Text));  
40.     EXECSQL;  
41.   end;  
42.     
43.     
44. 3．用存储过程附加数据库  
45. 使用存储过程附加数据库可以方便地将没有连接的数据库附加到当前服务器上，只是在附加数据库前先将存储过程所在的数据库以手动方式附加到服务器上。附加数据库主要用系统存储过程sp_attach_db来实现。在存储过程中不可以用占位符N。  
46. 下面用存储过程将服务器以外的数据库附加到服务器上，只适用于英文数据库名。  
47. 操作步骤如下：  
48. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton和TEdit等组件。  
49. （2）主要程序代码如下：  
50. 创建一个含有参数的存储过程。  
51.   with ADOQuery1 do  
52.   begin  
53.     close;  
54.     SQL.Clear;  
55.     SQL.Add('Create PROCEDURE '+Trim(Edit4.Text));  
56.     SQL.Add('@Table varchar(20),');  
57.     SQL.Add('@date varchar(200),');  
58.     SQL.Add('@LOG varchar(200)');  
59.     SQL.Add('AS');  
60.     SQL.Add('EXEC sp_attach_db @dbname=@Table,@filename1=@date,@filename2 =@LOG');  
61.     EXECSQL;  
62.   end  
63. 执行带参数的存储过程。  
64.   with ADOQuery1 do  
65.   begin  
66.     close;  
67.     SQL.Clear;  
68.     SQL.Add('if EXISTS(Select name FROM sysobjects Where name='+QuotedStr(Trim(Edit4.Text))+' AND type = ''p'')');    //判断存储过程是否存在  
69.     //以传参的形式调用存储过程  
70.     SQL.Add('EXEC '+Trim(Edit4.Text)+' @Table='+QuotedStr(Trim(Edit1.Text))+',@date='+QuotedStr(Trim(Edit2.Text))+ ',@LOG='+QuotedStr(Trim(Edit3.Text)));  
71.     EXECSQL;  
72.   end;  
73.     
74.     
75. 4．用存储过程备份数据库  
76. 备份数据库与附加数据库所用的方法基本相同，只是备份数据库用SQL语句BACKUP DATABASE来实现，而附加数据库则用系统存储过程sp_attach_db来实现。  
77. 下面利用存储过程对服务器上的任意数据库进行备份。  
78. 操作步骤如下：  
79. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton和TEdit等组件。  
80. （2）主要程序代码如下：  
81. 创建一个含有参数的存储过程。  
82.   with ADOQuery1 do  
83.   begin  
84.     close;  
85.     SQL.Clear;  
86.     SQL.Add('Create PROCEDURE '+Trim(Edit3.Text));  
87.     SQL.Add('@name varchar(20),');  
88.     SQL.Add('@way varchar(200)');  
89.     SQL.Add('AS');  
90.     SQL.Add('backup database @name to disk=@way');  
91.     EXECSQL;  
92.     Showmessage('存储过程'+Edit3.Text+'创建成功。');  
93.   end  
94. 执行存储过程备份数据库。  
95.   with ADOQuery1 do  
96.   begin  
97.     close;  
98.     SQL.Clear;  
99.     SQL.Add('if EXISTS(Select name FROM sysobjects Where name='+QuotedStr(Trim(Edit3.Text))+' AND type = ''p'')');    //判断存储过程是否存在  
100.     //以传参的形式调用存储过程  
101.     SQL.Add('EXEC '+Trim(Edit3.Text)+' @name='+Trim(ComboBox1.Text)+',@way='+QuotedStr(Trim(Edit2.Text)));  
102.     EXECSQL;  
103.   end;  

1. 触发器  
2.   
3. 1．利用触发器添加数据  
4. 用触发器对相关表添加数据时，所添加的记录将存储在系统临时表“inserted”中，可以将该表中的字段信息添加到其他表的相应字段中。在用触发器向其他表添加数据时，应注意表中的字段是否有不为空的记录。  
5. 下面利用触发器在“tb_Stu”表中添加记录后，在“tb_Mark”表中会自动添加相应的记录。  
6. 操作步骤如下：  
7. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit和TDBGrid等组件。  
8. （2）主要程序代码如下：  
9.   with ADOQuery3 do  
10.   begin  
11.     Close;  
12.     SQL.Clear;  
13.     SQL.Add('Create TRIGGER '+Edit1.Text+' ON dbo.tb_Stu');  
14.     SQL.Add('FOR Insert');  
15.     SQL.Add('AS');  
16.     SQL.Add('DECLARE @id Int,@name varChar(10)');  
17.     SQL.Add('Select @id=学生编号,@name=学生姓名  from inserted');  
18.     SQL.Add('Insert INTO tb_Mark (学生编号,学生姓名,高数,外语,计算机文化基础,马经,数据库管理,数据结构,软件工程) VALUES (@id,@name,0,0,0,0,0,0,0)');  
19.     EXECSQL;  
20.   end;  
21.     
22.     
23. 2．利用触发器更新数据  
24. 在表中更新数据时，将更新前的数据存放在系统临时表“deleted”中，将更新后的数据存放在系统临时表“inserted”中。在触发器中可以根据“deleted”表中的字段对相关表进行查询，并用“inserted”表中的数据修改相关表中的信息。  
25. 下面利用触发器在“tb_Stu”表中更新记录后，在“tb_Mark”表中会自动更新相关的数据。  
26. 操作步骤如下：  
27. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit和TDBGrid等组件。  
28. （2）主要程序代码如下：  
29.   with ADOQuery3 do  
30.   begin  
31.     Close;  
32.     SQL.Clear;  
33.     SQL.Add('Create TRIGGER '+Edit1.Text+' ON dbo.tb_Stu');  
34.     SQL.Add('FOR Update');  
35.     SQL.Add('AS');  
36.     SQL.Add('DECLARE @id Int,@name varchar(10)');  
37.     SQL.Add('select @id=学生编号 from deleted');  
38.     SQL.Add('select @name=学生姓名 from Inserted');  
39.     SQL.Add('Update tb_Mark SET 学生姓名=@name Where 学生编号 = @id');  
40.     EXECSQL;  
41.   end;  
42.     
43.     
44. 3．利用触发器删除数据  
45. 在对表中的数据进行删除时，会将删除的记录存入系统临时表“deleted”中，触发器将利用该表中的信息在相关表中进行查询，并删除符合条件的记录。  
46. * 注意：如果某两个表是一对一的关系，那么触发器应创建在从表中。  
47. 下面利用触发器在“tb_Stu”表中删除记录后，“tb_Mark”表将自动删除相关的记录。  
48. 操作步骤如下：  
49. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit和TDBGrid等组件。  
50. （2）主要程序代码如下：  
51.   with ADOQuery3 do  
52.   begin  
53.     Close;  
54.     SQL.Clear;  
55.     SQL.Add('Create TRIGGER '+Edit1.Text+' ON dbo.tb_Stu');  
56.     SQL.Add('FOR Delete ');  
57.     SQL.Add('AS');  
58.     SQL.Add('DECLARE @id Int,@name varchar(10)');  
59.     SQL.Add('select @id=学生编号,@name=学生姓名 from deleted');  
60.     SQL.Add('Delete tb_Mark where 学生编号=@id and 学生姓名=@name');  
61.     EXECSQL;  
62.   end;  

1. 在数据库输入中,怎样使"中文名称"输入翻译成"简码"存入另一字段?以便以后查询使用?  
2. 如: "工资处"译成"GZC"  
3.   
4. //这个函数拿去用（我刚写好，已测试通过）  
5. function GetHzPy(const AHzStr: string): string;  
6. const  
7.   ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),  
8.     (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),  
9.     (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),  
10.     (3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000),  
11.     (9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589));  
12. var  
13.   i, j, HzOrd: integer;  
14.   Hz: string[2];  
15. begin  
16.   i := 1;  
17.   while i <= Length(AHzStr) do  
18.   begin  
19.     if (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) then  
20.     begin  
21.       HzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160;  
22.       for j := 0 to 25 do  
23.       begin  
24.         if (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) then  
25.         begin  
26.           Result := Result + char(byte('A') + j);  
27.           break;  
28.         end;  
29.       end;  
30.       Inc(i);  
31.     end else Result := Result + AHzStr[i];  
32.     Inc(i);  
33.   end;  
34. end;  
35.   
36. ///////////////////////////////////////  
37. 这个函数用户识别单独汉字的简码 字符串的简码函数请自行制作  
38. function GetPYIndexChar(hzchar:string):char;  
39. begin  
40.   case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of  
41.     $B0A1..$B0C4 : result := 'A';  
42.     $B0C5..$B2C0 : result := 'B';  
43.     $B2C1..$B4ED : result := 'C';  
44.     $B4EE..$B6E9 : result := 'D';  
45.     $B6EA..$B7A1 : result := 'E';  
46.     $B7A2..$B8C0 : result := 'F';  
47.     $B8C1..$B9FD : result := 'G';  
48.     $B9FE..$BBF6 : result := 'H';  
49.     $BBF7..$BFA5 : result := 'J';  
50.     $BFA6..$C0AB : result := 'K';  
51.     $C0AC..$C2E7 : result := 'L';  
52.     $C2E8..$C4C2 : result := 'M';  
53.     $C4C3..$C5B5 : result := 'N';  
54.     $C5B6..$C5BD : result := 'O';  
55.     $C5BE..$C6D9 : result := 'P';  
56.     $C6DA..$C8BA : result := 'Q';  
57.     $C8BB..$C8F5 : result := 'R';  
58.     $C8F6..$CBF9 : result := 'S';  
59.     $CBFA..$CDD9 : result := 'T';  
60.     $CDDA..$CEF3 : result := 'W';  
61.     $CEF4..$D188 : result := 'X';  
62.     $D1B9..$D4D0 : result := 'Y';  
63.     $D4D1..$D7F9 : result := 'Z';  
64.   else  
65.     result := char(0);  
66.   end;  
67. end;