-----------
改变光标形状-
screen.Cursor:=crHourGlass; //光标开始出现沙漏形状，显示忙的状态
screen.Cursor:=crdefault; //恢复光标形状为默认形状—空心箭头
-------------
显示信息框-
showmessage('对不起！免费版不提供此功能。'+#13+#10+
''+#13+#10+
'您可以用程序自带的数据库测试所有功能！'+#13+#10+
''+#13+#10+
'如果您觉得此程序好用，请购买正式版！'+#13+#10+
''); 

showmessage(
'' +
'预览时出现文字不齐和缺少表格线属正常现象！'+#13+#10+
''+
'实际打印效果一切正常！'+#13+#10+
'')

------------------------
自动拷贝-
CopyFile(pchar('c:\人事管理\idapi32.cfg'),pchar('C:\Program Files\Common Files\Borland Shared\BDE\idapi32.cfg'),False);

另外在uses 声明里要手工加上 ShellAPI，切记！
路径和文件名可以没有DOS的8.3格式限制，即允许长文件名。

-------------
超级链接-
Shellexecute(handle,nil,pchar('http://thlt.126.com'),nil,nil,sw_ShowNormal);
另外注意在单元声明中加上ShellApi单元。
('http://thlt.126.com' 也可以是本地文件-最好用相对路径。)

-------
关于表单(窗口)-

form1.show 显示表单
form1.hide 隐藏表单
form1.close 关闭表单
form1.WindowState := wsMinimized; 表单最小化 (BorderlIcons的四个属性全部设为False)
form1.WindowState := wsMaximized; 表单最大化 (BorderlIcons的四个属性全部设为False)

--------
预览打印-
bbxz.Quickrep1.Preview
(表单名.Quickrep控件名.Preview)

-------------------------------
指定的文件不存在时自动退出-
if not fileexists('regall.dat') then
closeflag := true
else
begin
//...
end;
---------------------------------
用媒体播放器播放指定的mid文件-
if fileexists('back.mid') then
begin
mediaplayer1.FileName := 'back.mid';
mediaplayer1.Open;
mediaplayer1.Play;
end; }

--------
有更新動作的sql用Execute執行
而無更新動作的sql要用Open打開。 

--------------
插入与查询-
insert into lx2(姓名,年龄) values ("合计",56)

select avg(年龄) as 平均年龄 from lx2

select * from lx1 where 年龄>all (select 年龄 from lx3 where 出生年月>1980)

insert into lx3( 乡镇,职务补贴, 年龄) values ("合计",100,35)
---------------------
人事管理常用字段名-
乡镇,姓名,工作单位,性别,出生年月,年龄,学历,工作时间,职称,类别,小计,职务工资,职务补贴

insert into lx1 (乡镇,姓名,工作单位,性别,出生年月,年龄,学历,工作时间,职称,类别,小计,
职务工资,职务补贴) values("乡镇","姓名","工作单位","性别",avg(出生年月),sum(年龄),"学历",
avg(工作时间),"职称","类别",avg(小计),sum(职务工资),avg(职务补贴))

------------
建立临时表-
const
TmpTblName = 'Temp.DB'; //字段共有20个(连编号)
FldNames: array[0..19] of string = ('编号', '乡镇',
'总数','男', '女','干部','干选','干捐','工人',
'大本','大专','中师','高中','中高','中一','中二',
'小高','小一','小二','均龄');
FldTypes: array[0..19] of string = ('INTEGER', 'CHAR(8)',
'INTEGER','INTEGER', 'INTEGER','INTEGER', 'INTEGER', 'INTEGER',
'INTEGER','INTEGER', 'INTEGER', 'INTEGER','INTEGER', 'INTEGER',
'INTEGER','INTEGER', 'INTEGER', 'INTEGER','INTEGER', 'INTEGER');

------------------------
静态与动态SQL语句-
静态SQL语句在程序设计时便已固定下来，它不包含任何参数和变量，
例如下面的语句便是一条静态SQL语句：　
Select * From Cusromer Where CustNo = 1234;　

而动态SQL语句，也被称作参数化的语句，在其中间包含着表示字段名
或表名的参数，例如下面的语句是两条动态SQL语句：　

Select * From Customer Where CustNo =: Number;
select * from 'rsgl.db' where 乡镇 LIKE :"xz"

其中的变量Number便是一个参数变量，"xz"是字符串变量，它由一个冒号引导，在程序运行
过程中，必须要为该参数赋值，该条SQL语句才能正确执行，每次运行
应用程序时可以为该参数变量赋予不同的值。

----------------
定义每列的宽度-
SQL.Clear;
DBGrid1.Columns[0].Width := 30; //列数从0开始，0,1,2,3, ...
DBGrid1.Columns[1].Width := 30;
DBGrid1.Columns[2].Width := 30;

-----------------------------------
解决Delphi5的ADO的一个BUG的四行代码(否则退出时提示游标错误)-
adotable1.open;
adotable1.first;
adotable2.open;
adotable2.first;
--------------------------------------------------------------------------------------