知识大全 Delphi开发经验四则

Posted 2022-07-14 属性

篇首语：坚硬的城市里没有柔软的爱情，生活不是林黛玉，不会因为忧伤而风情万种。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi开发经验四则相关的知识，希望对你有一定的参考价值。

Delphi开发经验四则 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　配置数据引擎(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编程时采用了两种不同的方法来实现快速按钮条本文结合制作一个具有两组共六个按钮的快速按钮条的实例列出了这两种方法的具体设计步骤

　　组合生成法

　　( )在窗体上放置一个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 的属性EdgeBorders ebLeft ebTop ebRight ebButtom均为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 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′

　　这样临时表就建立好了

　　使用代码创建临时表

　　函数代码如下

　　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;

　　在程序中按如下方法调用

　　procedure TForm Button Click(Sender: TObject);

　　var ADataSet:TDataSet;

　　begin

　　ADataSet:=TDataSet Create(Self);

　　with ADataSet FieldDefs do

　　begin

　　Add(′Name′ ftString False);

　　Add(′Value′ ftInteger False);

　　end;

　　with DataSource do

　　begin

　　DataSet:=CreateTableInMemory(ADataSet FieldDefs);

　　DataSet Open;

　　end;

　　ADataSet Free;

　　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)

cha138/Article/program/Delphi/201311/8519