Delphi开发经验四则

【 tulaoshi.com - Delphi 】

配置数据引擎(BDE、SQL Link)的简单方法

在数据库程序分发时，需要携带数据引擎(BDE、SQL Link)，并且在客户端安装完程序后还需要配置数据引擎，如用户名(username)、密码(Password)等等。如果手工配置的话，工作量比较大，这时，我们可利用InstallShield For Delphi轻松实现配置。在用InstallShield For Delphi制作安装程序时，在生成安装程序的目录里有一个*.iwz的文本文件，只要在[IDAPI Alias]片段中手工加入即可。 例如：

[IDAPI Alias]

username=SYSDBA

password=masterkey

安装程序后数据引擎自动配置完毕。

制做快速按钮条的方法

快速按钮条上的每一个图形按钮都代表着一项常用的功能，同时，这些图形按钮尺寸较普通的图标大，可以放置更大、更形象的图形，甚至可以带上简短的提示，这对于用户执行最常用的功能很有帮助。基于上述原因，越来越多的Windows应用程序采用快速按钮条来改善应用程序的界面。笔者在用Delphi编程时，采用了两种不同的方法来实现快速按钮条，本文结合制作一个具有两组、共六个按钮的快速按钮条的实例，列出了这两种方法的具体设计步骤。

1.组合生成法

(1)在窗体上放置一个Panel1对象，作为图形按钮的载体。

(2)设置Panel1的属性Caption为空，属性Align为alTop,调整其高度至合适尺寸。

(3)在Panel1上放置六个SpeedButton按钮(选用SpeedButton，是因它具有浮动特性)。

(4)在Panel1上放置两个Bevel对象，调整其位置和大小，用于分隔按钮组。

(5)调整SpeedButton1的大小及在Panel1中的位置。

(6)选择SpeedButton1，设置其属性Flat为True。

(7)单击SpeedButton1的属性Glyph所对应的省略号小按钮，打开PictureEditor窗口，选择一个象征“查询”的图标。设置属性ShowHint为True,属性Hint为“查询”。

(8)按步骤（5）至（7）的方法，分别设置好其余几个SpeedButton按钮的属性。

这样，一个快速按钮条就制作完成了。运行时，快速按钮均以浮动方式显示，当鼠标移至其上时，即显示按钮外框，并显示小提示。

2.借用ToolBar生成法

(1)在窗体上放置一个ToolBar1对象。

(2)设置ToolBar1的属性EdgeBorders.ebLeft、ebTop、ebRight、ebButtom均为True；属性Flat为True;调整ToolBar1的大小至合适尺寸。

(3)选择ToolBar1，用右键点出快速选单，分别点击NewButton和NewSeparator增加六个按钮ToolButton和两条分隔栏线。

(4)任意选择一个ToolButton按钮，调整其大小至合适尺寸，所有的ToolButton也同时被调整好。

(5)设置ToolBar1的属性BorderWidth为3，以调整ToolButton的位置。

(6)在窗体上放置一个ImageList1对象，设置它的属性Height和Width的数值，以适应较大尺寸的图像。

(7)双击ImageList1，通过“Add”按钮分别装入六个图像，与ToolBar1中的六个ToolButton一一对应。

(8)设置ToolBar1的属性Images为ImageList1。

(9)设置六个ToolButton的属性ShowHint为True，并分别设置各自的小提示属性Hint。

(10)还可以设置ToolBar1的HotImages指定鼠标指向按钮时的图片集。

采用ToolBar实现的快速按钮条在外观上与第一种方法制作的类似。

以上两种方法均能实现快速按钮条，但各有千秋：第一种设计过程较为简单；第二种方法则提供了更多的功能，如可用HotImages指定鼠标指向按钮时的图片集。读者不妨从中选择一种，并可继续完善其功能。

建立临时表的方法

数据输入是开发数据库程序的必然环节。在Client/Server结构中，客户端可能要输入一批数据后，再向服务器的后台数据库提交，这就需要在本地(客户端)建立临时数据表来存储用户输入的数据，待提交后，清除本地数据表。这种方法的好处是：提高输入效率，减小网络负担。

由于用户一次输入的数据量一般情况下较小(不会超过几百条记录)，所以临时表可以建立在内存中，这样处理速度较快。临时表创建有如下两种方法：

1.使用查询控件创建临时表

第1步：在窗体上放入查询控件(TQuery)，并设置好所连接的数据表。

第2步：添加如下语句：

TQuery. CachedUpdates=True;

TQuery. RequestLive=True。

第3步：在原有的SQL语句后加入一条Where子语句，要求加入这条Where子语句后SQL查询结果为空。

例如：

SELECT Biolife."Species No", Category, Common_Name, Biolife."Species Name", Biolife."Length (cm)", Length_In, Notes, Graphic

FROM "biolife.db" Biolife

where Biolife.Category=′A′ and Biolife.Category=′B′

这样临时表就建立好了。

2.使用代码创建临时表

函数代码如下：

function CreateTableInMemory(const AFieldDefs:TFieldDefs):

TDataSet;