程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi7.0實現添加記錄的“攜帶”實現

Delphi7.0實現添加記錄的“攜帶”實現

編輯:Delphi
  在數據庫管理系統中,數據錄入是數據處理的基本功能,錄入操作方便與否是衡量數據庫應用程序交互良莠的指標之一。錄入中除了應要對錄入數據進行合法檢驗外,還應為用戶提供更多的方便操作,即對於“規范性”數據,如:性別、職稱等字段的數據,應盡可能供用戶“選擇”錄入,而非直接文字輸入,另外,如:出生年月、聯系電話、郵編等類似名稱的字段,程序應設置數據錄入格式,這可以從一定程度
上“規范”數據,並提高錄入速度。除此以外,在較大數據量的錄入中,用戶還希望更快速地進行相似數
據的批量錄入,實現高效數據處理。本文只介紹“批量數據”的錄入處理。

  針對大多數的要錄入的記錄數據都與現有(即已錄入)數據具有或多或少的相同內容,因此,修改記錄的少量字段數據無疑要比逐個字段內容錄入快得多。由於此方法源自Foxbase系統的“Set carry on”命令,因此取名為記錄“攜帶”。以下具體介紹這種錄入數據時采用的“攜帶”功能的實現方法。

  一、建立一動態數組,用來存放整條記錄的所有字段值(不含“備注型”等類型),定義如下:

MyDynamic_Record: Variant; //定義一個動態可變數組,來存放當前記錄各字段值

  注意此處不限定數組單元數和單元值類型,更具有通用性。

  二、在表對象的InsertBefore事件中,完成源數據的讀取並存入動態數組MyDynamic_Record中。

  具體是,用戶定位到要作為源的記錄位置(可以是末記錄或中間某一記錄),使用Insert插入鍵(或其它應用程序提供的按鍵或按鈕)進行插入操作前,為表對象的InsertBefore事件加入讀取當前記錄的各字段值的代碼(見以下MyRecordScatTo()自定義函數),存入MyDynamic_Record中。

  三、在表對象的InsertAfter事件中將MyDynamic_Record數組值寫入新增的記錄的各字段值(代碼見以下My_GathFrom自定義函數)。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved