Delphi开发经验四则

原创 2000年09月06日 12:23:00
作者:高素梅

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

  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所对应的省略号小按钮,打开PictureEditor窗口,选择一个象征“查询”的图标。设置属性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和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指定鼠标指向按钮时的图片集。读者不妨从中选择一种,并可继续完善其功能。

  建立临时表的方法

  数据输入是开发数据库程序的必然环节。在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."Species 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中的函数)。下例中说明如何在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。

Delphi使用技巧四则

一、定制Speedbar   在Delphi的可视化设计界面中,使用最频繁的地方要数位于屏幕左上角的加速按钮栏(Speedbar)了。在实践过程中,笔者无意中发现了Speedbar的定制方法,这...
  • my98800
  • my98800
  • 2016年08月08日 20:13
  • 182

javaweb开发经验总结

通用代码进行抽取,减少代码的出错和维护量 前台js和后台js如何有校验,使用统一的校验类进行校验 通用的基础类,使用指定的文件夹或者包或者文件进行统一的管理。 开发注意标准化开发,如果查询的是相同的数...
  • u010503822
  • u010503822
  • 2017年06月09日 15:13
  • 530

Delphi的三层开发初学经验

在数据库开发方面Delphi相对于其他众多开发工具其优势在于灵活快速,且十分稳定。本实例使用Remote DataModule(远程数据模块)创建。 服务端:   首先让我们来编译服务器端,打开D...
  • u014802181
  • u014802181
  • 2015年11月12日 10:31
  • 858

Delphi的三层开发初学经验

近日闲来无事,看了写有关Delphi的书,发现有关三层的书都一样简单略过,网上搜索了一下也是零零碎碎,经过简单实验测试了一下内容。 在数据库开发方面Delphi相对于其他众多开发工具其优势在于灵活快速...
  • chinajobs
  • chinajobs
  • 2015年04月10日 14:13
  • 854

java开发经验分享

一、 编码 1. 约束自己,规范编码习惯 充足的代码注释、标准缩进的格式、注意命名规范。参考《开发管理规范》 "看上去"专业能促进代码质量。越是难看的代码,在它的演化过程中会越来越差...
  • sinat_31804365
  • sinat_31804365
  • 2016年08月28日 17:04
  • 676

WebService开发经验

去年,在一个大型项目(1500w)中用到Web Services,现在项目进入了尾声,所以对以前的开发经历做一个总结。 我想大家一定会问?为什么你们项目中要用到Web Services,因为客户有如...
  • yzh1986
  • yzh1986
  • 2013年06月03日 23:34
  • 854

java项目开发经验总结

Java就是用来做项目的!Java的主要应用领域就是企业级的项目开发!要想从事企业级的项目开发,你必须掌握如下要点: 1、掌握项目开发的基本步骤 2、具备极强的面向对象的分析与设计技巧 3、掌握...
  • qq_35447305
  • qq_35447305
  • 2016年09月05日 18:02
  • 11538

delphi一步步开发H5 APP

APP越来越流行,客户需要开发APP,对习惯了用delphi的开发者来说,如何开发APP是个让人头大的问题。其实delphi开发APP是完全可行的。 下面就通过示例,一步步都大家如何开发一个APP。先...
  • pcwe2002
  • pcwe2002
  • 2017年01月18日 23:39
  • 2594

以Delphi Package架构多人开发应用程序环境

印象中的Package   在一般的AP开发时,我们知道在Delphi7.0整合环境中将Project->Options->选到Packages卷标页,Builder with runtime p...
  • xiexuan2007
  • xiexuan2007
  • 2013年12月20日 12:24
  • 1263

项目开发实际开发流程的一点经验

在一个项目开发过程中,有 1、项目开发前的项目估算; 2、需求阶段(相关人员理解需求); 3、设计阶段(包括概要设计,详细设计); 4、编码阶段(开发阶段); 5、测试阶段;   项目开发过程中,一般...
  • suxinpingtao51
  • suxinpingtao51
  • 2013年11月06日 18:12
  • 2210
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi开发经验四则
举报原因:
原因补充:

(最多只允许输入30个字)