发信人: chenjz@GZ()
整理人: teleme(2001-01-18 16:43:26), 站内信件
|
标 题: Delphi开发经验四则
发信站: 网易虚拟社区 (Thu Sep 14 00:50:05 2000), 站内信件
Delphi开发经验四则
（作者：高素梅 2000年09月04日 11:51）
配置数据引擎(BDE、SQL Link)的简单方法
在数据库程序分发时，需要携带数据引擎(BDE、SQL Link)，并且在客户端安
装完程序后还需要配置数据引擎，如用户名(username)、密码(Password)等等。
如果手工配置的话，工作量比较大，这时，我们可利用InstallShield For Delp
hi轻松实现配置。在用InstallShield For Delphi制作安装程序时，在生成安装
程序的目录里有一个*.iwz的文本文件，只要在[IDAPI Alias]片段中手工加入即
可。 例如：
[IDAPI Alias]
username=SYSDBA
password=masterkey
安装程序后数据引擎自动配置完毕。
制做快速按钮条的方法
快速按钮条上的每一个图形按钮都代表着一项常用的功能，同时，这些图形
按钮尺寸较普通的图标大，可以放置更大、更形象的图形，甚至可以带上简短的
提示，这对于用户执行最常用的功能很有帮助。基于上述原因，越来越多的Wind
ows应用程序采用快速按钮条来改善应用程序的界面。笔者在用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所对应的省略号小按钮，打开PictureEdi
tor窗口，选择一个象征“查询”的图标。设置属性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和NewSeparat
or增加六个按钮ToolButton和两条分隔栏线。
(4)任意选择一个ToolButton按钮，调整其大小至合适尺寸，所有的ToolBut
ton也同时被调整好。
(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."Speci
es 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;
var TempTable:TClientDataSet;
begin
TempTable:=nil;
Result:=nil;
if AFieldDefs〈〉nil then
begin
try
TempTable:=TClientDataSet.Create(Application);
TempTable.FieldDefs.Assign(AFieldDefs);
TempTable.CreateDataSet;
Result:=(TempTable as TDataSet);
Except
if TempTable〈〉nil then TempTable.Free;
Result:=nil;
raise;
end
end
end;
在程序中按如下方法调用：
procedure TForm1.Button1Click(Sender: TObject);
var ADataSet:TDataSet;
begin
ADataSet:=TDataSet.Create(Self);
with ADataSet.FieldDefs do
begin
Add(′Name′,ftString,30,False);
Add(′Value′,ftInteger,0,False);
end;
with DataSource1 do
begin
DataSet:=CreateTableInMemory(ADataSet.FieldDefs);
DataSet.Open;
end;
ADataSet.Free;
end;
这样，临时表就创建完成。
方法1使用简单，但由于利用了查询控件，清空数据时需要查询服务器后台数
据库，所以速度稍慢，而且不适用于临时表中各个字段由几个数据表的字段拼凑
而成的情况。方法2适用范围广、速度快，但需要编写代码。
在InterBase数据库中使用函数
程序员可能在用InterBase作为后台数据库时，常会为其提供的函数过少而感
到使用不便(只有四个)，无法方便地编写出复杂的存储过程。InterBase本身无法
编写函数，但它可以使用外部函数(调用DLL中的函数)。下例中说明如何在Inter
Base 中声明SUBSTR函数。
DECLARE EXTERNAL FUNCTION SUBSTR
CSTRING(80), SMALLINT, SMALLINT
RETURNS CSTRING(80)
ENTRY_POINT "IB_UDF_substr" MODULE_NAME "ib_udf"
其中：MODULE_NAME为DLL的名称，ENTRY_POINT为函数名。
声明后便可以使用，例如：
select SUBSTR(country)
from country
本例使用的是Delphi安装时自带的IBLocal数据库，用户也可以自己编写函数
来扩充InterBase。
--
我能翻译善写作熟电脑会说话可是为什么没工作？
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.105.221.21]
|
|