精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>其他>>Delphi开发经验四则

主题:Delphi开发经验四则
发信人: 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]

[关闭][返回]