在Delphi中，如果针对某字段，可选的控件有DBLabel, DBEdit等；如果针对全表的输入，有DBGrid。使用Dbedit等控件时，用户必须全面安排各字段的位置，虽然能够达到美观的效果，但是，如果字段数多，无疑是很麻烦的。如果采用DBGrid，无论多少个字段，只用一个控件就够了，简单倒是简单，但是各字段是一字排列的，使用起来有点不方便。对于一般的用户来说，采用表格形式的录入，既方便，又美观。这就是本文所要解决的问题。

　　技术关键

　　本控件的主要功能是实现对数据库字段的编辑。按照一般的规律，控件中应包含TdataLink对象，还应该实现与TdataLink相关得一系列方法；但是，那样会耗费大量的代码。代码量越大，系统就越复杂，出错的可能性就越大。本控件的开发思路是以最少的代码实现最多的功能。所以，对数据字段的编辑直接使用TDBComboBox控件。

　　为了实现通用性，在控件内部维护了一个字段编辑控件数组和字段标题数组。如下：

Editors: array of TDBComboBox; -$#@62;具体进行编辑所用的数据控件数组，动态生成

Labels: array of TLabel; -$#@62;各字段的标题，动态生成

　　采用TDBComboBox优点是它不仅能具有一般的编辑功能，还能为各字段添加相应的提示信息。代码如下：

{ 为第I字段增加提示信息的方法}

procedure TDBPanel.AddHits(ItemIndex: Integer; Hits: array of string);
var
m,n,i: Integer;
begin
n := Length(Editors);
m := Length(Hits);
if ItemIndex$#@60;n then begin
for i:=0 to m-1 do Editors[ItemIndex].Items.Add(Hits[i]);
end;
end;

　　具体的应用是千差万别的，所以，控件还需要给程序员留有足够的事件处理接口，以实现具体应用时的特殊功能。这就需要在控件中定义一定的事件处理方法供用户实现。这里提供的是一个OnOkClick事件，即当所有字段编辑完成后所执行的处理。代码如下：

OkButton: TButton; -$#@62;最后增加的确定按钮，用于实现提交动作。

pr rty OnOkClick: TNotifyEvent read FClick write FClick;

通过实现OnOKClick方法，用户可以完成提交、数据合理性检验等各种处理工作。

　　另外一个需要特殊处理的是控制在各个字段间的转换。缺省的情况是用鼠标点击。但是，用户的习惯往往是用键盘中的“上、下、左、右”四个箭头键。要实现这一功能需定义以下两个方法：

procedure AKeyPress(Sender: TObject; var Key: Char);
procedure AKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

　　将以上两个方法赋值给动态生成的Editors，从而实现对箭头键的响应。

　　不同的表字段数不同，有可能出现显示不下的情况，这就需要有滚动的功能。所以，在控件中插入了一个TscrollBox控件。

　　最后一个需要注意的是动态控件的撤消及内存的释放。控件数组的撤消及内存的释放是有顺序的——与创建完全相反的顺序。否则会出错。

　　控件的使用

先将DBPanel控件放在窗体上，然后设置数据源属性、数据输入表格的列数等属性。在程序中，打开数据源后，调用创建数据编辑控件的方法即可。即：

Query1.Open;-$#@62;打开数据源

DBPanel1.CreateEditors; -$#@62;创建各字段的编辑控件

DBPanel1.AddHits(0,["1111","11222","eeee"]); -$#@62;为某字段设置提示信息

DBPanel1.AddHits(1,["1111","11222","eeee"]); -$#@62;为某字段设置提示信息

　　该控件及示例程序在Win98+Delphi 5.0环境下调试通过。

　　附件：TDBPanel的源代码


unit DBPanel;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, dbctrls, stdctrls, db;
type
TDBPanel = class(TPanel)
private
{ Private declarations }
FLeft: Integer;
FTop: Integer;
maxTextLen: Integer;
maxLabelLen: Integer;
FScrollBox: TScrollBox;

{滚动控件}

FLineHeight: Integer;
FClick: TNotifyEvent;

Editors: array of TDBComboBox; -$#@62;具体进行编辑所用的数据控件数组，动态生成

Labels: array of TLabel; -$#@62;各字段的标题，动态生成

OkButton: TButton; -$#@62;最后增加的确定按钮，用于实现提交动作。

{ 数据源}

FDataSource: TDataSource;

FColumns: Integer; -$#@62;输入表格的列数

protected

{ Protected declarations }

procedure FreeEditors; -$#@62;释放数据输入控件的内存

public

procedure CreateEditors;//(DS: TDataSource; ColCount: Integer);-$#@62;创建各字段的数据输入控件

constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure AKeyPress(Sender: TObject; var Key: Char);
procedure AKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure ClearHits(ItemIndex: Integer);
procedure AddHits(ItemIndex: Integer; Hits: array of string);
function Editor(Index: Integer): TDBComboBox;

{ Public declarations }

published
property LeftLimit: Integer read FLeft write FLeft default 10;
property TopLimit: Integer read FTop write FTop default 10;
property EditorLen: Integer read maxTextLen write maxTextLen;
property LabelLen: Integer read maxLabelLen write maxLabelLen default 100;
property LineHeight: Integer read FLineHeight write FLineHeight default 15;
property OnOkClick: TNotifyEvent read FClick write FClick;

property DataSource: TDataSource read FDataSource write FDataSource;-$#@62;数据源

property Columns: In