配置数据引擎(BDESQL Link)的简单方法
在数据库程序分发时需要携带数据引擎(BDESQL Link)并且在客户端安装完程序后还需要配置数据引擎如用户名(username)密码(Password)等等如果手工配置的话工作量比较大这时我们可利用InstallShield For Delphi轻松实现配置在用InstallShield For Delphi制作安装程序时在生成安装程序的目录里有一个*iwz的文本文件只要在[IDAPI Alias]片段中手工加入即可 例如
[IDAPI Alias]
username=SYSDBA
password=masterkey
安装程序后数据引擎自动配置完毕
制做快速按钮条的方法
快速按钮条上的每一个图形按钮都代表着一项常用的功能同时这些图形按钮尺寸较普通的图标大可以放置更大更形象的图形甚至可以带上简短的提示这对于用户执行最常用的功能很有帮助基于上述原因越来越多的Windows应用程序采用快速按钮条来改善应用程序的界面笔者在用Delphi编程时采用了两种不同的方法来实现快速按钮条本文结合制作一个具有两组共六个按钮的快速按钮条的实例列出了这两种方法的具体设计步骤
组合生成法
()在窗体上放置一个Panel对象作为图形按钮的载体
()设置Panel的属性Caption为空属性Align为alTop调整其高度至合适尺寸
()在Panel上放置六个SpeedButton按钮(选用SpeedButton是因它具有浮动特性)
()在Panel上放置两个Bevel对象调整其位置和大小用于分隔按钮组
()调整SpeedButton的大小及在Panel中的位置
()选择SpeedButton设置其属性Flat为True
()单击SpeedButton的属性Glyph所对应的省略号小按钮打开PictureEditor窗口选择一个象征查询的图标设置属性ShowHint为True属性Hint为查询
()按步骤（）至（）的方法分别设置好其余几个SpeedButton按钮的属性
这样一个快速按钮条就制作完成了运行时快速按钮均以浮动方式显示当鼠标移至其上时即显示按钮外框并显示小提示
借用ToolBar生成法
()在窗体上放置一个ToolBar对象
()设置ToolBar的属性EdgeBordersebLeftebTopebRightebButtom均为True属性Flat为True;调整ToolBar的大小至合适尺寸
()选择ToolBar用右键点出快速选单分别点击NewButton和NewSeparator增加六个按钮ToolButton和两条分隔栏线
()任意选择一个ToolButton按钮调整其大小至合适尺寸所有的ToolButton也同时被调整好
()设置ToolBar的属性BorderWidth为以调整ToolButton的位置
()在窗体上放置一个ImageList对象设置它的属性Height和Width的数值以适应较大尺寸的图像
()双击ImageList通过Add按钮分别装入六个图像与ToolBar中的六个ToolButton一一对应
()设置ToolBar的属性Images为ImageList
()设置六个ToolButton的属性ShowHint为True并分别设置各自的小提示属性Hint
()还可以设置ToolBar的HotImages指定鼠标指向按钮时的图片集
采用ToolBar实现的快速按钮条在外观上与第一种方法制作的类似
以上两种方法均能实现快速按钮条但各有千秋第一种设计过程较为简单第二种方法则提供了更多的功能如可用HotImages指定鼠标指向按钮时的图片集读者不妨从中选择一种并可继续完善其功能
建立临时表的方法
数据输入是开发数据库程序的必然环节在Client/Server结构中客户端可能要输入一批数据后再向服务器的后台数据库提交这就需要在本地(客户端)建立临时数据表来存储用户输入的数据待提交后清除本地数据表这种方法的好处是提高输入效率减小网络负担
由于用户一次输入的数据量一般情况下较小(不会超过几百条记录)所以临时表可以建立在内存中这样处理速度较快临时表创建有如下两种方法
使用查询控件创建临时表
第步在窗体上放入查询控件(TQuery)并设置好所连接的数据表
第步添加如下语句
TQuery CachedUpdates=True;
TQuery RequestLive=True
第步在原有的SQL语句后加入一条Where子语句要求加入这条Where子语句后SQL查询结果为空
例如
SELECT BiolifeSpecies No Category Common_Name BiolifeSpecies Name BiolifeLength (cm) Length_In Notes Graphic
FROM biolifedb Biolife
where BiolifeCategory=′A′ and BiolifeCategory=′B′
这样临时表就建立好了
使用代码创建临时表
函数代码如下
function CreateTableInMemory(const AFieldDefs:TFieldDefs):
TDataSet;
var TempTable:TClientDataSet;
begin
TempTable:=nil;
Result:=nil;
if AFieldDefs〈〉nil then
begin
try
TempTable:=TClientDataSetCreate(Application);
TempTableFieldDefsAssign(AFieldDefs);
TempTableCreateDataSet;
Result:=(TempTable as TDataSet);
Except
if TempTable〈〉nil then TempTableFree;
Result:=nil;
raise;
end
end
end;
在程序中按如下方法调用
procedure TFormButtonClick(Sender: TObject);
var ADataSet:TDataSet;
begin
ADataSet:=TDataSetCreate(Self);
with ADataSetFieldDefs do
begin
Add(′Name′ftStringFalse);
Add(′Value′ftIntegerFalse);
end;
with DataSource do
begin
DataSet:=CreateTableInMemory(ADataSetFieldDefs);
DataSetOpen;
end;
ADataSetFree;
end;
这样临时表就创建完成
方法使用简单但由于利用了查询控件清空数据时需要查询服务器后台数据库所以速度稍慢而且不适用于临时表中各个字段由几个数据表的字段拼凑而成的情况方法适用范围广速度快但需要编写代码
在InterBase数据库中使用函数
程序员可能在用InterBase作为后台数据库时常会为其提供的函数过少而感到使用不便(只有四个)无法方便地编写出复杂的存储过程InterBase本身无法编写函数但它可以使用外部函数(调用DLL中的函数)下例中说明如何在InterBase 中声明SUBSTR函数
DECLARE EXTERNAL FUNCTION SUBSTR
CSTRING() SMALLINT SMALLINT
RETURNS CSTRING()
ENTRY_POINT IB_UDF_substr MODULE_NAME ib_udf
其中MODULE_NAME为DLL的名称ENTRY_POINT为函数名
声明后便可以使用例如
select SUBSTR(country)
from country
