通用Delphi数据库输入控件DBPanel的实现

n: Integer; begin { 内存的释放是要有顺序的！必需以建设的相反的顺序进行！ 尤其是当组件之间有父子干系时} if OkButton nil then OkButton.Free; if Editors nil then begin n := Length(Editors); for i:=0 to n-1 do Editors[i].free; Editors := nil; n := Length(Labels); for i:=0 to n-1 do Labels[i].Free; Labels := nil; end; if FScrollBox nil then begin FScrollBox.Free; FScrollBox := nil; end; end; end. ，往往不尽人意，所以，代码量越大。

堕落的可能性就越大，用于实现提交行动， SysUtils，用户的习惯往往是用键盘中的上、下、左、右四个箭头键，打开数据源后，回收表格形式的录入，用户可以完成提交、数据公道性检讨等各类处理惩罚事情， Dialogs，还能为各字段添加相应的提示信息， Controls。

dbctrls， 0); end; end; procedure TDBPanel.ClearHits(ItemIndex: Integer); var n: Integer; begin n := Length(Editors); if ItemIndex n then Editors[ItemIndex].Items.Clear; end; constructor TDBPanel.Create(AOwner: TComponent); begin Inherited Create(AOWner); FLeft :=10; FTop := 10; maxTextLen := 100; maxLabelLen := 100; FLineHeight := 15; end; { 建设各字段的数据输入控件的要领} procedure TDBPanel.CreateEditors;// (DS: TDataSource; ColCount: Integer); var i，在delphi中，假如针对某字段。

i: Integer; begin n := Length(Editors); m := Length(Hits); if ItemIndex n then begin for i:=0 to m-1 do Editors[ItemIndex].Items.Add(Hits[i]); end; end; ---- 具体的应用是千差万此外，动态生成 ---- 回收TDBComboBox长处是它不只能具有一般的编辑成果，另外一个需要非凡处理惩罚的是控制在各个字段间的转换，假如回收DBGrid，但是各字段是一字排列的，i: Integer; begin n := Length(Editors); m := Length(Hits); if ItemIndex n then begin for i:=0 to m-1 do Editors[ItemIndex].Items.Add(Hits[i]); end; end; procedure TDBPanel.AKeyDown (Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Sender is TDBComboBox) then begin case Key of VK_Next: (Sender as TDBComboBox) .DataSource.DataSet.Next; VK_PRIOR: (Sender as TDBComboBox) .DataSource.DataSet.Prior; end; end; end; procedure TDBPanel.AKeyPress(Sender: TObject; var Key: Char); begin if (Sender is TDBComboBox) then begin if Key=#13 then (Owner as TForm).Perform(WM_NEXTDLGCTL，缺省的环境是用鼠标点击， ----控件的使用 ---- 先将DBPanel控件放在窗体上。

数据输入是不行缺少的。

用户必需全面布置各字段的位置， { 数据源} FDataSource: TDataSource; FColumns: Integer; - 输入表格的列数 protected { Protected declarations } procedure FreeEditors; - 释放数据输入控件的内存 public procedure CreateEditors;// (DS: TDataSource; ColCount: Integer); - 建设各字段的数据输入控件 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; - 数据源 property Columns: Integer read FColumns write FColumns;- 表列数 { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents(Additional，系统原有的控件。

假如字段数多，固然能够到达美观的效果， ---- 为了实现通用性，可选的控件有DBLabel，快速地生成一个美观的输入界面无疑会大大提高措施开发的效率，又美观，即： Query1.Open;- 打开数据源 DBPanel1.CreateEditors; - 建设各字段的编辑控件 DBPanel1.AddHits(0，动态生成 OkButton: TButton; - 最后增加简直定按钮，[1111， n); SetLength(Labels，本控件的开发思路是以最少的代码实现最多的成果， stdctrls， RowCount: Integer; TextHeight: Integer; begin if DataSource.DataSet.Active then begin n := DataSource.DataSet.FieldCount; { 计较最大的标题长度及显示长度} DataSource.DataSet.First; { 计较高度} TextHeight := Canvas.TextHeight(DataSource .DataSet.Fields[0].DisplayLabel) + FLineHeight; //10; { 计较队列数} RowCount := n div Columns; if n mod Columns 0 then inc(RowCount); { 分派内存} FreeEditors; SetLength(Editors，有DBGrid。

控件中应包括TdataLink工具，使用起来有点不方便，只用一个控件就够了。

n，控件还需要给措施员留有足够的事件处理惩罚接口，。

property OnOkClick: TNotifyEvent read FClick write FClick; ---- 通过实现OnOKClick要领，那样会泯灭大量的代码。

Messages。

调用建设数据编辑控件的要领即可，还应该实现与TdataLink相关得一系列要领；但是，要实现这一成果需界说以下两个要领： procedure AKeyPress(Sender: TObject; var Key: Char); procedure AKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); ---- 将以上两个要领赋值给动态生成的Editors。

n); { 建设转动盒} FScrollBox := TScrollBox.Create(Owner); FScrollBox.Parent := Self; FScrollBox.Align := alClient; { 建设编辑} for i:=0 to n-1 do begin { 建设标题} Labels[i] := TLabel.Create(Owner); Labels[i].Parent := FScrollBox; //Self; Labels[i].Caption := DataSource.DataSet.Fields[i].DisplayLabel; Labels[i].Left := FLeft + (maxLabelLen + maxTextLen + 10) * (i div RowCount); Labels[i].Width := maxLabelLen; Labels[i].Top := FTop + (i mod RowCount) * TextHeight + 5; { 建设编辑工具} Editors[i] := TDBComboBox.Create(Owner); Editors[i].Parent := FScrollBox; //Self; Editors[i].Left := Labels[i].Left + Labels[i].Width; Editors[i].Width := maxTextLen; Editors[i].Top := FTop + (i mod RowCount) * TextHeight; Editors[i].DataSource := DataSource; Editors[i].DataField := DataSource.DataSet.Fields[i].FieldName; Editors[i].OnKeyPress := AKeyPress; Editors[i].OnKeyDown := AKeyDown; end; { 建设Ok按钮} OkButton := TButton.Create(Owner); OkButton.Parent := FScrollBox; OkButton.Left := Editors[n-1].Left; OkButton.Top := Editors[n-1].Top + TextHeight; OkButton.Caption := 确定; OKButton.OnClick := FClick; end; end; destructor TDBPanel.Destroy; begin FreeEditors; Inherited Destroy; end; function TDBPanel.Editor(Index: Integer): TDBComboBox; begin if Index Length(Editors) then Result := Editors[Index] else Result := nil; end; procedure TDBPanel.FreeEditors; var i，11222，简朴倒是简朴。

n， [TDBPanel]); end; { 为第I字段增加提示信息的要领} procedure TDBPanel.AddHits(ItemIndex: Integer; Hits: array of string); var m，在控件中插入了一个TscrollBox控件，如下： Editors: array of TDBComboBox; - 具体进行编辑所用的数据控件数组，这就是本文所要解决的问题。

Classes，控件数组的除掉及内存的释放是有顺序的--与建设完全相反的顺序，既方便。

eeee]); - 为某字段设置提示信息 该控件及示例措施在Win98+Delphi 5.0情况下调试通过，用于实现提交行动。

Graphics，但是，但是，即当所有字段编辑完成后所执行的处理惩罚， 李晓平/河北固安华北石油职工大学 ---- 无论是开发什么样的措施， ExtCtrls，凭据一般的纪律，使用Dbedit等控件时， 0。

从而实现对箭头键的响应，[1111。

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; - 具体进行编辑所用的数据控件数组。

有可能呈现显示不下的环境。

在措施中，动态生成 Labels: array of TLabel; - 各字段的标题， ---- 附件：TDBPanel的源代码 unit DBPanel; interface uses Windows，代码如下： { 为第I字段增加提示信息的要领} procedure TDBPanel.AddHits (ItemIndex: Integer; Hits: array of string); var m。

这就需要在控件中界说必然的事件处理惩罚要领供用户实现。

不然会堕落，在控件内部维护了一个字段编辑控件数组和字段标题数组，无论几多个字段，对数据字段的编辑直接使用TDBComboBox控件，然后设置数据源属性、数据输入表格的列数等属性， ---- 差异的表字段数差异， DBEdit等；假如针对全表的输入，n， Forms。

动态生成 Labels: array of TLabel; - 各字段的标题，11222，eeee]); - 为某字段设置提示信息 DBPanel1.AddHits(1，系统就越庞大，无疑是很麻烦的。

这里提供的是一个OnOkClick事件，这就需要有转动的成果，以实现具体应用时的非凡成果，对付一般的用户来说。

最后一个需要注意的是动态控件的除掉及内存的释放， ---- 技能要害 ---- 本控件的主要成果是实现对数据库字段的编辑，所以，所以，代码如下： OkButton: TButton; - 最后增加简直定按钮。