---- 本控件的主要功能是實現對數據庫字段的編輯。按照一般的規律,控件中應包含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 re
[1] [2] [3] 下一頁