李曉平/河北固安華北石油職工大學
---- 無論是開發什麼樣的程序，資料輸入是不可或缺的。快速地產生一個美觀的輸入介面無疑會大大提高程式開發的效率。系統原有的控件，往往不盡人意。在delphi中，如果針對某個字段，可選的控制項有DBLabel, DBEdit等；如果針對全表的輸入，有DBGrid。使用Dbedit等控制項時，使用者必須全面安排各字段的位置，雖然能夠達到美觀的效果，但是，如果字段數多，無疑是很麻煩的。如果採用DBGrid，無論多少個字段，只用一個控件就夠了，簡單倒是簡單，但是各字段是一字排列的，使用起來有點不方便。對於一般的使用者來說，採用表格形式的輸入，既方便，又美觀。這就是本文所要解決的問題。
---- 技術關鍵
---- 本控制項的主要功能是實作資料庫欄位的編輯。依照一般的規律，控制項中應包含TdataLink對象，也應該實作與TdataLink相關得一系列方法；但是，那樣會耗費大量的程式碼。程式碼量越大，系統就越複雜，出錯的可能性就越大。本控制項的開發思路是以最少的程式碼實現最多的功能。所以，對資料欄位的編輯直接使用TDBComboBox控制項。
---- 為了實現通用性，在控制項內部維護了一個欄位編輯控制項陣列和欄位標題陣列。如下：
Editors: array of TDBComboBox;
- >具體進行編輯所用的資料控制項數組，動態生成
Labels: array of TLabel;
- >各欄位的標題，動態生成
---- 採用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< n then begin
for i:=0 to m-1 do Editors[ItemIndex].Items.Add(Hits[i]);
end;
end;
---- 具體的應用是千差萬別的，所以，控制還需要給程式設計師留有足夠的事件處理接口，以實現具體應用時的特殊功能。這就需要在控制項中定義一定的事件處理方法供使用者實作。這裡提供的是一個OnOkClick事件，也就是當所有欄位編輯完成後所執行的處理。程式碼如下：
OkButton: TButton;
- >最後增加的確定按鈕，用於實現提交動作。
property 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;- >開啟資料來源
DBPanel1.CreateEditors; - >建立各欄位的編輯控件
DBPanel1.AddHits(0,['1111','11222','eeee']);
- >為某欄位設定提示訊息
DBPanel1.AddHits(1,['1111','11222','eeee']);
- >為某欄位設定提示訊息
此控制項及範例程式在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;
- >具體進行編輯所用的資料控制項數組，動態生成
Labels: array of TLabel;
- >各欄位的標題，動態生成
OkButton: TButton;
- >最後增加的確定按鈕，用於實現提交動作。
{ 資料來源}
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', [TDBPanel]);
end;
{ 為第I字段增加提示訊息的方法}
procedure TDBPanel.AddHits(ItemIndex:
Integer; Hits: array of string);
var
m,n,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, 0, 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, n, 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, n);
SetLength(Labels, 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,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.