15.6.2.4 定義新的字段部件
字段編輯器Fields Editor中的彈出式菜單中New Fields菜單項是用來為數據集部件TTable或TQuery創建用於顯示目的的新的字段部件,我們可以用它來為數據庫表中實際存在的字段創建新的字段部件(如改變字段的數據類型,使它的字段值被顯示時不再需有關的類型轉換),但是我們使用New FIElds菜單項創建新的字段部件主要是創建計算字段。計算字段並不與數據庫表中實際存在的字段對應,它的字段值是根據表中其它的字段值計算而來的,具體的計算表達式由用戶為TTable部件或TQuery部件的OnCalCFIElds事件編寫程序代碼時決定。
定義(創建)計算字段的過程如下:
1.單擊字段編輯器中的New FIElds菜單項,定義字段對話框如圖15.11所示。
2.在FIEldName編輯框中輸入新字段部件的名字,或者從下拉式列表框中選擇一個已存在的字段部件的名字。
3.在FIEldType列表框中為新字段部件選擇一個字段類型。
4.單擊Calculated檢查框,確認定義的新字段部件是計算字段。
5.單擊ok按鈕,創建上述定義的計算字段部件,此時該字段部件的名字會自動地加入到字段編輯中的FIElds列表框中。
創建新的計算字段
新的計算字段創建好了之後,它是沒有任何字段值的,我們必須要編寫相應的程序代碼,根據數據庫表中實際存在的字段的字段值為計算字段的寶定義字段值,我們為計算字段所在數據集部件的OnCalcFIElds事件編寫代碼來為計算字段賦值,其步驟如下:
1.選擇數據集部件TTable或TQuery
2.單擊數據集部件的事件頁
3.雙擊OnCalcFIElds事件為TTable或TQuery部件編寫事件處理過程
15.7 TReport部件及其應用
在一般的數據庫應用程序中都包含著為最終用戶提供輸出報表的功能,使用Delphi開發數據庫應用程序時,可以使用一個叫TReport的部件來執行報表功能的,報表的具體格式和內容是由Delphi提供的一個專用報表生成工具ReprotSmith創建的,它報表的具體格式和內容生成一個報表文件,然後為TReport部件設置相應的屬性參數,由TReport部件執行報表功能。
我們可以在設計階段雙擊TReport部件,調用ReportSimith工具或者在Delphi程序組內雙擊ReportSmith圖標來調用ReportSmith工具來創建一個報表文件,具體的操作步驟和設計方法請參看ReportSimth工具的使用說明。
我們在使用TReport部件執行報表功能時,要設置TReport部件的一些的一些屬性,這些屬性是:
ReportName屬性:說明報表文件的名字,就是用ReportSmith創建的報表文件。
ReportDir屬性:說明報表文件所在的途徑名。
PreVIEw屬性:這是一個布爾型屬性。若它的值為True,那麼在執行報表功能時,只是在屏幕上顯示報表;若它的值為False,則報表內容將在缺省的打印機打印出來。
AutoUnload屬性:布爾型屬性,它的值為True時,在執行完一個報表功能後,自動地從內存中卸出ReportSmith工具;它的值為False時,在運行完一個報表功能後,不從內存中卸出ReportSmith工具。一般情況下,如果應用程序只有一個報表或者只有較少的報表要輸出時,應設置AutoUnload屬性為True,如果應用程序一次要輸出多個報表,那麼要應設置AutoUnload屬性為False。
InitialValues屬性:這是一個字符串類型的屬性,它是說明報表文件中使用的變量,每一條說明一個變量。如:
ReportVAR := Value;
要詳細了解創建和使用報表變量的過程請參看創建報表一節。
TReport部件要真正執行報表功能以輸出一個報表需要調用Run方法。如下所示:
Report1.Run;
TReport部件所具有的重要方法如表15.10所示。
表15.10 TReport部件的方法
━━━━━━━━━━━━━━━━━━━━━━━━━━━━
方法 功 能
────────────────────────────
Run 執行報表功能,輸出報表
RunMacro 發送一個宏命令給Reportimith工具
Connect 預先連接報表文件和數據庫,在輸出報表時不
需要登錄到數據庫
SetVariable 改變說明的報表變量
ReCalcReport 當報表變量改變以後,重新輸出報表
━━━━━━━━━━━━━━━━━━━━━━━━━━━━
還有一些其他的數據訪問部件如TBatchMove部件,它主要用在兩個數據庫表之間移動或拷貝帆數據記錄,具體的使用請參看本地SQL服務器的使用。