● Delphi 4中开发数据库控件的方法 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: georgehill (佐治·希尔【多情网虫无情网】), 信区: Program
标  题: Delphi 4中开发数据库控件的方法
发信站: BBS 荔园晨风站 (Sun Mar 12 01:29:19 2000), 转信

资料整理·中国程序员网站

Delphi 4中开发数据库控件的方法

　　Delphi作为一种目前十分流行的数据库开发语言，在数据库开发领域有着十分重要
的地位，它不仅提供了可视化的开发环境，使得开发变得相对容易；而且还是一种面向
对象的语言，使得程序员能够充分利用面向对象编程的种种优势——如封装、继承等
等，从而大大减轻了开发的难度和工作量。下面，我们就谈一谈利用面向对象的特性来
开发数据库控件的方法。
　　Delphi本身提供了一些数据库控件，如DBGrid、Table等，它们给开发带来了很多方
便。下面我们来以一个能够显示数据表中的所有字段的控件为例来说明如何用Delphi来
进行控件的编程。
　　首先要为控件选择一个合适的父类。Windows的一个好处就在于它将许多操作标准
化了，通过这些标准的操作，使得学习和使用都有章可循，用户就很容易融会贯通地掌
握整个系统。在Delphi中提供了许多控件，这些控件生成的应用程序足以满足Windows
编程的要求。而一些新的控件也可以在此基础上产生。它一方面继承了一部分控件标
准的操作，另一方面也在程序中加入一些代码来实现特定的功能，这样用户使用起来不
会觉得突兀，也简化了程序的开发。根据我们的目标可以看出，利用“下拉框”控件作
为新控件的父类比较合适。因为它提供了下拉框中的所有标准操作，这就可以大大减少
我们的编程量。　　然后就是为特定的功能编写代码。我们应该想到，如果一个下拉框
能够显示一个数据库中的所有字段，那么它一定有一个属性能够与数据库相连。我们将
这个属性定名为DataSource，并将这一属性添加到控件中。添加的方法是，首先在
Private段中加入如下代码：
　　 FDataLink:TFieldDataLink;
　　 function GetDataSource:TDataSource;
　　 Procedure SetDataSource( Value:TDataSource);
　　其中TfieldDataLink是一个十分重要的类，我们之所以能够很容易地进行数据库控
件的开发全是拜它之赐。它有一些十分有用的属性，如：DataSource，利用这个属性，
我们就能很容易地指定新控件的DataSource属性。
　　第三步就是为控件的功能编写代码。可以想到，如果我们想要在拉下下拉框时显示
数据库中的所有字段，就要在它的DropDown事件中加入代码来将所有的字段加入到下拉
框的下拉区域中。这应该分两步走，第一就是要取得指定数据库的所有字段，第二就是
将这些字段以字符串的格式加入到下拉框中（而拉下时显示所有字段的功能则由下拉框
控件自己完成）。在取得数据库的字段时，用到了我们上面提到的TfieldDataLink类，
下面的代码就可以获得指定数据库的字段数目：
　　 j:=0;
　　 j:=FDataLink.DataSource.DataSet .FieldCount ;//取得数据库中的所有字段的
名字
　　 i:=0;
　　然后再用下面的代码将这些字段的名字加入到下拉框的items属性中，值得注意的
是在每次拉下这个下拉框时都要将items属性清空，否则这个下拉框将每次都会因加入
重复的内容而变得越来越长，并且一次选择可以选定许多项。使得控件看起来有点怪。
　　items.Clear ; //清空items属性
　　 repeat //循环操作将字段加入下拉框中。
　　 items.Add (FDataLink.DataSet.Fields[i].FieldName ); //将字段名加入到下拉
框中。
　　 i:=I＋1;
　　 until i>j－1; //直到所有的字段加入完为止
　　第四步，就是将以上代码加入到Delphi的控件编辑窗口中去，点击Delphi的“
Component/New Component”菜单，系统出现一个对话框，将对话框如图1所示填写：
　　填写完毕点击“OK”按钮，就可以创建一个文件，将上面提供的代码加入到文件的
适当位置，就可以完成这个控件的编写。图2是带有这个控件的程序的例子：
　　可以想见，这个控件有着十分广泛的功能，例如，我们能够利用它设置指定字段的
值来运行查询，也可以返回数据库中指定字段的数据类型、长度等信息，给我们的编程
提供了极大的方便。
　　但是也应该看到，这个控件也有一些缺点，那就是它只能显示字段的名称，一般的
数据库中字段的名称都是英文的，这给中文版的应用软件带来不便，下面我们就用
FdataLink的另一个属性来显示中文化的字段。这个属性就是DisplayName,它所指定的是
数据库字段的显示名称，而这个名称我们可以在设计时将其汉化，这样在应用程序中显
示出来的就是有意义的中文了。
　　下面我们将上面提供的一段代码作如下修改：
　　 j:=0;
　　 j:=FDataLink.DataSource.DataSet .FieldCount;
　　 i:=0;
　　 repeat
　　 items.Add (FDataLink.DataSet.Fields[I].DisplayName );
　　//在items属性中加入DisplayName的值
　　 i:=I＋1;
　　 until i>j－1;
　　另外，还要加入下面一段代码，来判断显示的DisplayName和哪个FieldName
相对应。
　　function TListBox1.GetField:string;
　　var
　　 i,j:integer;
　　begin
　　j:=FDataLink.DataSource.DataSet .FieldCount ;
　　 for i :=0 to j－1 do
　　 begin
　　 if FDataLink.DataSource.DataSet.Fields[i].Displayname=text then
　　 begin
　　 Result:=FDataLink.DataSource.DataSet.Fields[i].FieldName;
　　 exit;
　　 end;
　　 end;
　　end;
　　这样，当选择了一个中文化的字段显示名称时，就将返回它的真正的字段名。这下
用起来就更方便了，图3就是我们将中文字段显示在下拉框中的例子。
　　程序中的字段以中文显示能够给用户带来很大的方便。最后，下面附上这段程序的
完整代码，谨供参考。
　　unit DBFieldComboBox;
　　interface
　　uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　 StdCtrls,db,dbctrls;
　　type
　　 TDBFieldComboBox = class(TComboBox)
　　 private
　　 FDataLink:TFieldDataLink;
　　 function GetDataSource:TDataSource;
　　 function TListBox1.GetField:string;
　　 Procedure SetDataSource( Value:TDataSource);
　　 procedure StartDrag(Sender: TObject; var DragObject: TDragObject);
　　 procedure DropDown(Sender : TObject);
　　 { Private declarations }
　　 protected
　　 { Protected declarations }
　　 public
　　constructor create(AOwner:TComponent);override;
　　 destructor Destroy;override;
　　 { Public declarations }
　　 published
　　 property DataSource :TDataSource read GetDataSource write SetDataSource;
　　 property text;
　　 { Published declarations }
　　 end;
　　procedure Register;
　　implementation
　　procedure Register;
　　begin
　　RegisterComponents(`Samples`, [TDBFieldComboBox]);
　　end;
　　constructor TDBFieldComboBox.create(AOwner:TComponent);
　　var i,j:integer;
　　begin
　　 inherited Create(AOwner);
　　 FDataLink:=TFieldDataLink.Create ;
　　 ondropdown:=dropdown;
　　 text:=``;
　　end;
　　destructor TDBFieldComboBox.Destroy;
　　begin
　　 FDataLink.Free ;
　　 inherited Destroy;
　　end;
　　function TListBox1.GetField:string;
　　var
　　 i,j:integer;
　　begin
　　j:=FDataLink.DataSource.DataSet .FieldCount ;
　　 for i :=0 to j－1 do
　　 begin
　　 if FDataLink.DataSource.DataSet.Fields[i].Displayname=text then
　　 begin
　　 Result:=FDataLink.DataSource.DataSet.Fields[i].FieldName;
　　 exit;
　　 end;
　　 end;
　　end;
　　procedure TDBFieldComboBox.SetDataSource ( Value:TDataSource);
　　begin
　　 FDataLink.DataSource :=value;
　　end;
　　function TDBFieldComboBox.GetDataSource :TDataSource;
　　begin
　　 Result:=FDataLink.DataSource ;
　　end;
　　procedure TDBFieldComboBox.StartDrag(Sender: TObject; var DragObject:
TDragObject);
　　begin
　　end;
　　procedure TDBFieldComboBox.DropDown(Sender: TObject);
　　 var
　　 i,j:integer;
　　begin
　　 j:=0;
　　 j:=FDataLink.DataSource.DataSet .FieldCount;
　　 i:=0;
　　 repeat
　　 items.Add (FDataLink.DataSet.Fields[i].DisplayName );//.FieldName);
　　 i:=I＋1;
　　 until i>j－1;
　　end;
　　end.
--
        那你可不可以教我，
        有什么办法可以不去喜欢一个人呢？
                -- Bye 赤明莉香 --
我是来自大富翁的小美！^_^

※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.115]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店