Delphi开发经验三则

Author: 高素梅 Date: 2000年 第36期

#1    一、配置数据引擎(BDE、SQL Link)的简单方法
  在数据库应用程序分发时,需要携带数据引擎(BDE、SQL Link),并且在客户端安装完程序后,还需要配置数据引擎,如用户名(username)、密码(Password)等等。如果手工配置的话,工作量比较大(根据客户机数量而定),一般认为InstallShield For Delphi不能很方便地解决此问题。其实不然,InstallShield For Delphi是可以解决的,在生成安装程序的目录里有一个*.iwz的文本文件,只要在[IDAPI Alias]片段中手工加入即可。例如:
  [IDAPI Alias]
  usesname=SYSDBA
  password=masterkey
  程序安装后数据引擎会自动配置。
#1    二、制作快速按钮条
  快速按钮条上的每一个图形按钮都代表着一项常用的功能,同时,这些图形按钮尺寸较普通的图标大,可以放置更大、更形象的图形,甚至可以带上简短的提示,这对于用户执行最常用的功能很有帮助。基于上述原因,越来越多的Windows应用程序采用快速按钮条来改善应用程序的界面。笔者在用Delphi编程时,采用了两种不同的方法来实现快速按钮条,本文结合制作一个具有两组共六个按钮的快速按钮条的实例,列出了这两种方法的具体设计步骤及优劣比较。
    (一)Panel+SpeedBubbon+Bevel组合
  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按钮的属性。
  这样,一个快速条就制作完成。运行时,快速按钮均以浮动方式显示,当鼠标移至其上时,显示按钮外框,并显示小提示。
  (二)借用ToolBar
  因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指定鼠标指向按钮时的图片集。读者不妨从中选择一种,并可继续完善其功能,例如将其放入CoolBar中。
#1    三、在InterBase数据库中使用函数
  程序员可能在用InterBase作为后台数据库时,会为其提供的函数过少而感到不方便(只有四个),无法方便地编写出复杂的存储过程。InterBase本身无法编写函数,但它可以使用外部函数(调用DLL中的函数)。下例中说明如何在InterBase 中声明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。