15.6.2.4 定義新的字段部件

　　字段編輯器Fields Editor中的彈出式菜單中New Fields菜單項(xiàng)是用來(lái)為數(shù)據(jù)集部件TTable或TQuery創(chuàng)建用于顯示目的的新的字段部件，我們可以用它來(lái)為數(shù)據(jù)庫(kù)表中實(shí)際存在的字段創(chuàng)建新的字段部件(如改變字段的數(shù)據(jù)類(lèi)型，使它的字段值被顯示時(shí)不再需有關(guān)的類(lèi)型轉(zhuǎn)換)，但是我們使用New Fields菜單項(xiàng)創(chuàng)建新的字段部件主要是創(chuàng)建計(jì)算字段。計(jì)算字段并不與數(shù)據(jù)庫(kù)表中實(shí)際存在的字段對(duì)應(yīng)，它的字段值是根據(jù)表中其它的字段值計(jì)算而來(lái)的，具體的計(jì)算表達(dá)式由用戶(hù)為T(mén)Table部件或TQuery部件的OnCalCFields事件編寫(xiě)程序代碼時(shí)決定。

　　定義(創(chuàng)建)計(jì)算字段的過(guò)程如下：

　　1.單擊字段編輯器中的New Fields菜單項(xiàng)，定義字段對(duì)話(huà)框如圖15.11所示。

　　2.在FieldName編輯框中輸入新字段部件的名字，或者從下拉式列表框中選擇一個(gè)已存在的字段部件的名字。

　　3.在FieldType列表框中為新字段部件選擇一個(gè)字段類(lèi)型。

　　4.單擊Calculated檢查框，確認(rèn)定義的新字段部件是計(jì)算字段。

　　5.單擊ok按鈕，創(chuàng)建上述定義的計(jì)算字段部件，此時(shí)該字段部件的名字會(huì)自動(dòng)地加入到字段編輯中的Fields列表框中。

　　創(chuàng)建新的計(jì)算字段

　　新的計(jì)算字段創(chuàng)建好了之后，它是沒(méi)有任何字段值的，我們必須要編寫(xiě)相應(yīng)的程序代碼，根據(jù)數(shù)據(jù)庫(kù)表中實(shí)際存在的字段的字段值為計(jì)算字段的寶定義字段值，我們?yōu)橛?jì)算字段所在數(shù)據(jù)集部件的OnCalcFields事件編寫(xiě)代碼來(lái)為計(jì)算字段賦值，其步驟如下：

　　1.選擇數(shù)據(jù)集部件TTable或TQuery

　　2.單擊數(shù)據(jù)集部件的事件頁(yè)

　　3.雙擊OnCalcFields事件為T(mén)Table或TQuery部件編寫(xiě)事件處理過(guò)程

　　15.7 TReport部件及其應(yīng)用

　　在一般的數(shù)據(jù)庫(kù)應(yīng)用程序中都包含著為最終用戶(hù)提供輸出報(bào)表的功能，使用Delphi開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)，可以使用一個(gè)叫TReport的部件來(lái)執(zhí)行報(bào)表功能的，報(bào)表的具體格式和內(nèi)容是由Delphi提供的一個(gè)專(zhuān)用報(bào)表生成工具ReprotSmith創(chuàng)建的，它報(bào)表的具體格式和內(nèi)容生成一個(gè)報(bào)表文件，然后為T(mén)Report部件設(shè)置相應(yīng)的屬性參數(shù)，由TReport部件執(zhí)行報(bào)表功能。

　　我們可以在設(shè)計(jì)階段雙擊TReport部件，調(diào)用ReportSimith工具或者在Delphi程序組內(nèi)雙擊ReportSmith圖標(biāo)來(lái)調(diào)用ReportSmith工具來(lái)創(chuàng)建一個(gè)報(bào)表文件，具體的操作步驟和設(shè)計(jì)方法請(qǐng)參看ReportSimth工具的使用說(shuō)明。

　　我們?cè)谑褂肨Report部件執(zhí)行報(bào)表功能時(shí)，要設(shè)置TReport部件的一些的一些屬性，這些屬性是：

　　ReportName屬性：說(shuō)明報(bào)表文件的名字，就是用ReportSmith創(chuàng)建的報(bào)表文件。

　　ReportDir屬性：說(shuō)明報(bào)表文件所在的途徑名。

　　PreView屬性：這是一個(gè)布爾型屬性。若它的值為T(mén)rue，那么在執(zhí)行報(bào)表功能時(shí)，只是在屏幕上顯示報(bào)表;若它的值為False，則報(bào)表內(nèi)容將在缺省的打印機(jī)打印出來(lái)。

　　AutoUnload屬性：布爾型屬性，它的值為T(mén)rue時(shí)，在執(zhí)行完一個(gè)報(bào)表功能后，自動(dòng)地從內(nèi)存中卸出ReportSmith工具;它的值為False時(shí)，在運(yùn)行完一個(gè)報(bào)表功能后，不從內(nèi)存中卸出ReportSmith工具。一般情況下，如果應(yīng)用程序只有一個(gè)報(bào)表或者只有較少的報(bào)表要輸出時(shí)，應(yīng)設(shè)置AutoUnload屬性為T(mén)rue，如果應(yīng)用程序一次要輸出多個(gè)報(bào)表，那么要應(yīng)設(shè)置AutoUnload屬性為False。

　　InitialValues屬性：這是一個(gè)字符串類(lèi)型的屬性，它是說(shuō)明報(bào)表文件中使用的變量，每一條說(shuō)明一個(gè)變量。如：

　　ReportVAR := Value;

　　要詳細(xì)了解創(chuàng)建和使用報(bào)表變量的過(guò)程請(qǐng)參看創(chuàng)建報(bào)表一節(jié)。

　　TReport部件要真正執(zhí)行報(bào)表功能以輸出一個(gè)報(bào)表需要調(diào)用Run方法。如下所示：

　　Report1.Run;

　　TReport部件所具有的重要方法如表15.10所示。

　　表15.10 TReport部件的方法

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　方法 功 能

　　────────────────────────────

　　Run 執(zhí)行報(bào)表功能，輸出報(bào)表

　　RunMacro 發(fā)送一個(gè)宏命令給Reportimith工具

　　Connect 預(yù)先連接報(bào)表文件和數(shù)據(jù)庫(kù)，在輸出報(bào)表時(shí)不

　　需要登錄到數(shù)據(jù)庫(kù)

　　SetVariable 改變說(shuō)明的報(bào)表變量

　　ReCalcReport 當(dāng)報(bào)表變量改變以后，重新輸出報(bào)表

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　還有一些其他的數(shù)據(jù)訪(fǎng)問(wèn)部件如TBatchMove部件，它主要用在兩個(gè)數(shù)據(jù)庫(kù)表之間移動(dòng)或拷貝帆數(shù)據(jù)記錄，具體的使用請(qǐng)參看本地SQL服務(wù)器的使用。

　　15.8 應(yīng)用舉例：多個(gè)窗體顯示同一個(gè)數(shù)據(jù)庫(kù)表

　　在應(yīng)用當(dāng)中，我們常常需要以不同的視圖顯示同一個(gè)數(shù)據(jù)庫(kù)表中的內(nèi)容，例如要在兩窗體中同時(shí)顯示一個(gè)數(shù)據(jù)庫(kù)表中一個(gè)記錄的不同字段時(shí)，我們必須要想辦法使兩個(gè)窗體中的數(shù)據(jù)瀏覽部件同步地顯示數(shù)據(jù)庫(kù)表中的同一條記錄的不同字段的值。要想做到以不同的視圖顯示同一個(gè)數(shù)據(jù)庫(kù)表中的記錄，下面兩條規(guī)則是很重要的：

　　● 多個(gè)TDataSource部件能夠同時(shí)訪(fǎng)問(wèn)同一個(gè)數(shù)據(jù)集部件

　　● 在多個(gè)窗體中顯示同一個(gè)表時(shí)，必須為每個(gè)窗體設(shè)置一個(gè)TDataSource部件，只須為其中的一個(gè)窗體設(shè)置一個(gè)TTable部件

　　例如，如果想在窗體Form1和Form2中同時(shí)顯示一個(gè)數(shù)據(jù)庫(kù)表的記錄，最簡(jiǎn)單可行的辦法是：為Form1和Form2各設(shè)置一個(gè)TDataSource部件叫DataSource1、DataSource2，并在Form1中設(shè)置一個(gè)TTable部件Table1，連接Form1中的Datasource1和Table1，在程序運(yùn)行過(guò)程中設(shè)置Form2中的DataSource2的DataSet屬性為Form1中的Table1，代碼如下：

　　Format2.DataSource1.Dataset := Form1.Table1;

　　這樣，當(dāng)Table1被打開(kāi)時(shí)，兩個(gè)窗體中便可以同步地顯示數(shù)據(jù)庫(kù)表中的同一條記錄了。

　　一個(gè)名叫TWOForms.DPR的例子在C:\Delphi\DEMos\DB\TwoForms中(如果Delphi安裝在其它的磁盤(pán)驅(qū)動(dòng)器中，從相應(yīng)的磁盤(pán)驅(qū)動(dòng)器中可以找到該例子)，它演示了在兩個(gè)窗體中顯示同一個(gè)數(shù)據(jù)庫(kù)表的記錄。應(yīng)用程序在第一個(gè)窗體中打開(kāi)Contry.DB表，并在窗體中顯示Name、Captial和Continent字段，在第二個(gè)窗體中顯示Area和Population字段，在第一個(gè)窗體中有一個(gè)按鈕用于打開(kāi)第二個(gè)窗體，兩個(gè)窗體中都有TDBNavigator部件，用于記錄的導(dǎo)航。