程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi數據庫輸入控件DBPanel的實現下

Delphi數據庫輸入控件DBPanel的實現下

編輯:Delphi

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved