知识大全 Delphi 开发数据库控件的方法[2]

Posted 2022-07-14 知

篇首语：古之立大事者，不惟有超世之才，亦必有坚忍不拔之志。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi 开发数据库控件的方法[2]相关的知识，希望对你有一定的参考价值。

Delphi 开发数据库控件的方法[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　下面我们将上面提供的一段代码作如下修改

　　 j:= ;　　 j:=FDataLink DataSource DataSet FieldCount;　　 I:= ;　　 repeat　　 items Add (FDataLink DataSet Fields[I] DisplayName );　　 //在items属性中加入DisplayName的值　　 I:=I＋ ;　　 until I>j－ ;

　　另外还要加入下面一段代码来判断显示的DisplayName和哪个FieldName相对应

　　function TListBox GetField:string;　　var　　 I j:integer;　　begin　　j:=FDataLink DataSource DataSet FieldCount ;　　 for I := to j－ do　　 begin　　 if FDataLink DataSource DataSet Fields[I] Displayname=text then　　 begin　　 Result:=FDataLink DataSource DataSet Fields[I] FieldName;　　 exit;　　 end;　　 end;　　end;

　　这样当选择了一个中文化的字段显示名称时就将返回它的真正的字段名这下用起来就更方便了图就是我们将中文字段显示在下拉框中的例子

　　程序中的字段以中文显示能够给用户带来很大的方便最后下面附上这段程序的完整代码谨供参考

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 TListBox 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:Tponent);override;　　 destructor Destroy;override;　　 Public declarations 　　 published　　 property DataSource :TDataSource read GetDataSource write SetDataSource;　　 property text;　　 Published declarations 　　 end; cha138/Article/program/Delphi/201311/8536