<p>TMemoField 二進制 不允許 不允許 不允許 不允許 </p>
<p>TGraphilField 字段 </p>
<p>━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━</p>
<p>　</p>
<p>上述這些轉換函數可以在任何與字段部件有關的表達式中使用，只要是表15.9中允許進行轉換的數據類型，這些轉換函數其實是當做字段部件的屬性來使用的，它們可以出現在賦值語句的兩邊。例如下面的程序代碼是將字段部件TableMyField的字段值轉變成字符串類型的數據，并將它賦給編輯框Edit1的Text屬性：</p>
<p>　</p>
<p>Edit1.Text := TableMyField.AsString;</p>
<p>　</p>
<p>而下面的代碼是進行相反的操作，它將編輯框部件Edit1的Text屬性值以字符串的形式賦給字段TableMyField，TableMyField通過AsString接受字符串并將其轉變成自身的數據類型。</p>
<p>　</p>
<p>TableMyField.AsString :=Edit1.Text;</p>
<p>　</p>
<p>15.6.1.4 字段部件的訪問</p>
<p>　</p>
<p>字段部件對應著數據庫表中實際的字段，用戶要讀寫數據庫表中的字段值其實是通過訪問相應的字段部件進行的。在前面的章節中我們介紹過在Delphi的數據庫應用程序中有兩類字段部件：一類是利用字段編輯器創建的永久性字段部件；另一類是隨著數據集部件被激活(被打開)而動態生成的字段部件。對于永久性字段部件的訪問可以直接調用使用字段部件的名字進行。假設我們在設計階段利用字段編輯器創建了對應于Customer.DB表中Company字段的字段部件Table1Company，下面的代碼訪問Company字段的字段值，并將該字段值顯示在編輯框部件Edit1中。</p>
<p>　</p>
<p>Edit1.Text := Table1Company.Value;</p>
<p>　</p>
<p>因為company字段是字符串類型的數據，它與Edit1中的數據類型相匹配的，因此可以直接使用字段部件的Value屬性讀取字段值。如果兩個變量的類型不匹配，則要使用表15.9中的轉換函數進行字段值的讀取。例如：要讀取Customer.DB表中的CustNo字段的值并將它顯示在編輯模框Edit1中，假設我們已用字段編輯器(Fields
Editor)創建了CustNo相應的字段部件，Table1CustNo，則程序代碼如下：</p>
<p>　</p>
<p>Edit1.Text := Table1CustNo.AsString;</p>
<p>　</p>
<p>訪問動態生成的字段部件相對要困難一些，因為動態生成的字段部件是沒有自己的名字的，我們必須利用特殊的手段獲得數據庫表中各字段對應的字段部件，然后對字段進行訪問。一般采用的方法有兩種：</p>
<p>● 使用數據集部件的Fields屬性</p>
<p>● 使用數據集部件的FieldByName方法</p>
<p>　</p>
<p>1. 使用數據集部件的Fields屬性訪問數據庫表中各字段</p>
<p>數據集部件的Fields屬性是與數據集部件相連的數據庫表中各個字段對應的動態字段部件的名字列表，因此我們可以通過Fields屬性的下標(即索引號)來訪問各字段部件，從而達到訪問數據庫表中的各個字段，索引號從0開始，也就是說數據庫表中第一個字段對應著Fields列表的第一行即0索引，第二個字段對應的Fields的索引號為1，以此類推。下面的例子是訪問Customer.DB表中的第一個字段并在編輯框Edit1中顯示其字段值。假設Table1與數據庫表Customer.DB相連。</p>
<p>　</p>
<p>Edit1.Text := Table1.Fields[0].AsString;</p>
<p>　</p>
<p>下面的代碼是將編輯框Edit1中的字符值賦給Customer.DB表中當前記錄的第一個字段，以實現修改Customer.DB表中的字段值。</p>
<p>　</p>
<p>Table1.Fields[0].AsString := Edit1.Text;</p>
<p>　</p>
<p>2.使用數據集部件的FieldByName方法訪問字段部件</p>
<p>在數據集部件所擁有的方法中，有一個FieldByName方法，它是專門用于訪問數據集部件中動態生成的字段部件的，調用FieldByName方法時，必須要把數據庫表中的字段名作為參數傳給FieldByName，調用該方法后便可以得到該字段所對應的字段部件，這樣通過字段部件我們便可以讀寫表中相應的字段值了，用這種方法訪問字段部件時，必須要知道數據庫表中各個字段的名字，否則是沒有辦法調用該方法的。還是基于上面的假設。下面是訪問Customer.DB表中的CustNo字段的程序代碼：</p>
<p>　</p>
<p>Edit1.Text := Table1.FieldByName('CustNo').AsString;</p>
<p>Table1.FieldByName('CustNo').AsString := Edit1.Text;</p>
<p>　</p>
<p>在使用這兩種方法訪問動態生成的字段部件時，可以使用表15.9中的轉換函數，在變量和字段值之間進行數據類型的轉換。</p>
<p>　</p>
<p>15.6.2 字段編輯器的使用</p>
<p>　</p>
<p>字段編輯器(Fields Editor)主要是用于創建永久性的字段部件。在前面的內容中我們知道，當TTable或TQuery部件與數據庫表相連接時，且TTable或TQuery部件被激活時(Active屬性被設置成True或調用Open方法)，Delphi便動態地為表中各字段創建相應的字段部件，字段部件中包含著相應字段的很多信息如字段值、字段值的顯示、編輯格式等，有時我們在應用程序中為了更加方便、可靠地訪問數據庫表中各個字段，需要創建永久性的字段部件，這時我們必須要借助于字段編輯器來實現我們的設想。字段編輯器的主要功能如下：</p>
<p>● 創建永久性的字段部件</p>
<p>● 修改永久性字段的顯示屬性，如顯示格式、顯示寬度等</p>
<p>● 刪除永久性的字段部件</p>
<p>● 增加新的永久性的字段部件</font></p>
<p><font face="宋體" lang="ZH-CN">● 定義計算字段(不對應數據庫表中實際的字段，字段值根據表中其他字段的值計算得出)</p>
<p>　</p>
<p>15.6.2.1 打開字段編輯器</p>
<p>　</p>
<p>為TTable和TQuery部件打開字段編輯有兩種方法：</p>
<p>● 用鼠標左鍵雙擊TTable或TQuery部件</font></p>
<p><font face="宋體" lang="ZH-CN">● 選擇TTable部件或TQuery部件，然后單擊鼠標右鍵，然后從彈出式菜單中選擇
Fields Editor</p>
<p>　</p>
<p>字段編輯器Fields Editor被打開以后，窗體的名字和數據集部件的名字會顯示在窗口的標題上。　</p>
<p>字段編輯器Fields itor中的Fields列表框是用于顯示已經創建的永久性字段部件的名字的。字段編輯器Fields
Editor第一次被打開時，
該列表框是空的，因為在此之前的字段部件都是動態生成的，只要Fields列表框中有字段部件，那么與數據集部件相連的數據瀏覽部件中只顯示Fields中列出的字段的字段值，在Fields列表框中，可以通過拖放字段部件的名字來改變相應的字段值在數據瀏覽部件中的顯示順序，如在TDBGrid部件中根據各字段在Fields列表框中的順序顯示各字段的值。</p>
<p>在字段編輯器Fields Editor窗體上面的導航按鈕是用來移動TTable或TQuery部件中的記錄指針的，使用導航按鈕可以將記錄指針向前、向后移動，也可以移到第一條記錄處或最后一條記錄處。　</p>
<p>字段編輯器中的彈出式菜單　</p>
<p>15.6.2.2 增加字段部件　</p>
<p>字段編輯器Fields Editor中的Add Fields菜單項用于向數據集部件中增加字段部件的，單擊Add
Fields菜單項時便會打開增加字段部件對話框，如圖15.9所示。Available
Fields列表框中顯示出數據集部件TTable或TQuery中當前可以用于創建永久字段部件的全部的字段，也就是說Available
Fields列表框中顯示字段是數據庫表中實際存在的字段，而且還沒有為這些字段創建相應的永久性的字段部件，在缺省狀態下所有的字段都被選擇用于創建相應的永久性的字段部件，用鼠標單擊其中的字段名可以有選擇地創建其相應的永久性的字段部件，選擇好有關的字段名之后，單擊OK按鈕便可以創建永久性的字段部件。　</p>
<p>字段編輯器的增加字段部件對話框　　</p>
<p>15.6.2.3 刪除字段部件　</p>
<p>用字段編輯器Fields Editor為數據集部件創建好的字段部件都會顯示在字段編輯器的Fields列表框中，如果用戶認為其中的一些字段部件不合適或不再需要時，可以單擊這些不需要的字段部件，然后單擊鼠標右鍵彈出一傭彈出式菜單，從彈出式菜單中選擇Delete菜單項，便可刪除相應的字段部件，如果在彈出式菜單中單擊Select
All菜單項，然后選擇Delete菜單項，這樣會刪除已創建好的所有的字段部件。某一個字段部件被刪除以后，通過單擊Add
Fields菜單項可以重新創建，只是先前為該字段部件設定的一些屬性將不復存在。</p>
<p>　15.6.2.4 定義新的字段部件　</p>
<p>字段編輯器Fields Editor中的彈出式菜單中New Fields菜單項是用來為數據集部件TTable或TQuery創建用于顯示目的的新的字段部件，我們可以用它來為數據庫表中實際存在的字段創建新的字段部件(如改變字段的數據類型，使它的字段值被顯示時不再需有關的類型轉換)，但是我們使用New
Fields菜單項創建新的字段部件主要是創建計算字段。計算字段并不與數據庫表中實際存在的字段對應，它的字段值是根據表中其它的字段值計算而來的，具體的計算表達式由用戶為TTable部件或TQuery部件的OnCalCFields事件編寫程序代碼時決定。</p>
<p>定義(創建)計算字段的過程如下：</p>
<p>1.單擊字段編輯器中的New Fields菜單項，定義字段對話框如圖15.11所示。</p>
<p>2.在FieldName編輯框中輸入新字段部件的名字，或者從下拉式列表框中選擇一個已
存在的字段部件的名字。</p>
<p>3.在FieldType列表框中為新字段部件選擇一個字段類型。</p>
<p>4.單擊Calculated檢查框，確認定義的新字段部件是計算字段。</p>
<p>5.單擊ok按鈕，創建上述定義的計算字段部件，此時該字段部件的名字會自動地加入
到字段編輯中的Fields列表框中。　</p>
<p>創建新的計算字段</p>
<p>新的計算字段創建好了之后，它是沒有任何字段值的，我們必須要編寫相應的程序代碼，根據數據庫表中實際存在的字段的字段值為計算字段的寶定義字段值，我們為計算字段所在數據集部件的OnCalcFields事件編寫代碼來為計算字段賦值，其步驟如下：</p>
<p>1.選擇數據集部件TTable或TQuery</p>
<p>2.單擊數據集部件的事件頁</p>
<p>3.雙擊OnCalcFields事件為TTable或TQuery部件編寫事件處理過程</p>
<p>　15.7 TReport部件及其應用　</p>
<p>在一般的數據庫應用程序中都包含著為最終用戶提供輸出報表的功能，使用Delphi開發數據庫應用程序時，可以使用一個叫TReport的部件來執行報表功能的，報表的具體格式和內容是由Delphi提供的一個專用報表生成工具ReprotSmith創建的，它報表的具體格式和內容生成一個報表文件，然后為TReport部件設置相應的屬性參數，由TReport部件執行報表功能。</p>
<p>我們可以在設計階段雙擊TReport部件，調用ReportSimith工具或者在Delphi程序組內雙擊ReportSmith圖標來調用ReportSmith工具來創建一個報表文件，具體的操作步驟和設計方法請參看ReportSimth工具的使用說明。</p>
<p>我們在使用TReport部件執行報表功能時，要設置TReport部件的一些的一些屬性，這些屬性是：</p>
<p>ReportName屬性：說明報表文件的名字，就是用ReportSmith創建的報表文件。</p>
<p>ReportDir屬性：說明報表文件所在的途徑名。</p>
<p>PreView屬性：這是一個布爾型屬性。若它的值為True，那么在執行報表功能時，只是在屏幕上顯示報表；若它的值為False，則報表內容將在缺省的打印機打印出來。</p>
<p>AutoUnload屬性：布爾型屬性，它的值為True時，在執行完一個報表功能后，自動地從內存中卸出ReportSmith工具；它的值為False時，在運行完一個報表功能后，不從內存中卸出ReportSmith工具。一般情況下，如果應用程序只有一個報表或者只有較少的報表要輸出時，應設置AutoUnload屬性為True，如果應用程序一次要輸出多個報表，那么要應設置AutoUnload屬性為False。</p>
<p>InitialValues屬性：這是一個字符串類型的屬性，它是說明報表文件中使用的變量，每一條說明一個變量。如：</p>
<p>　</p>
<p>ReportVAR := Value;</p>
<p>　</p>
<p>要詳細了解創建和使用報表變量的過程請參看創建報表一節。</p>
<p>TReport部件要真正執行報表功能以輸出一個報表需要調用Run方法。如下所示：</p>
<p>　</p>
<p>Report1.Run;</p>
<p>　</p>
<p>TReport部件所具有的重要方法如表15.10所示。</p>
<p>　</p>
<p>表15.10 TReport部件的方法</p>
<p>━━━━━━━━━━━━━━━━━━━━━━━━━━━━</p>
<p>方法 功 能</p>
<p>────────────────────────────</p>
<p>Run 執行報表功能，輸出報表</p>
<p>RunMacro 發送一個宏命令給Reportimith工具</p>
<p>Connect 預先連接報表文件和數據庫，在輸出報表時不</p>
<p>需要登錄到數據庫</p>
<p>SetVariable 改變說明的報表變量</p>
<p>ReCalcReport 當報表變量改變以后，重新輸出報表</p>
<p>━━━━━━━━━━━━━━━━━━━━━━━━━━━━</p>
<p>　</p>
<p>還有一些其他的數據訪問部件如TBatchMove部件，
它主要用在兩個數據庫表之間移動或拷貝帆數據記錄，具體的使用請參看本地SQL服務器的使用。</p>
<p>　</p>
<p>15.8 應用舉例：多個窗體顯示同一個數據庫表</p>
<p>　</p>
<p>在應用當中，我們常常需要以不同的視圖顯示同一個數據庫表中的內容，例如要在兩窗體中同時顯示一個數據庫表中一個記錄的不同字段時，我們必須要想辦法使兩個窗體中的數據瀏覽部件同步地顯示數據庫表中的同一條記錄的不同字段的值。要想做到以不同的視圖顯示同一個數據庫表中的記錄，下面兩條規則是很重要的：</p>
<p>● 多個TDataSource部件能夠同時訪問同一個數據集部件</font></p>
<p><font face="宋體" lang="ZH-CN">●
在多個窗體中顯示同一個表時，必須為每個窗體設置一個TDataSource部件，只須
為其中的一個窗體設置一個TTable部件</p>
<p>　</p>
<p>例如，如果想在窗體Form1和Form2中同時顯示一個數據庫表的記錄，最簡單可行的辦法是：為Form1和Form2各設置一個TDataSource部件叫DataSource1、DataSource2，并在Form1中設置一個TTable部件Table1，連接Form1中的Datasource1和Table1，在程序運行過程中設置Form2中的DataSource2的DataSet屬性為Form1中的Table1，代碼如下：</p>
<p>　</p>
<p>Format2.DataSource1.Dataset := Form1.Table1;</p>
<p>　</p>
<p>這樣，當Table1被打開時，兩個窗體中便可以同步地顯示數據庫表中的同一條記錄了。</p>
<p>一個名叫TWOForms.DPR的例子在C:\Delphi\DEMos\DB\TwoForms中(如果Delphi安裝在其它的磁盤驅動器中，從相應的磁盤驅動器中可以找到該例子)，它演示了在兩個窗體中顯示同一個數據庫表的記錄。應用程序在第一個窗體中打開Contry.DB表，并在窗體中顯示Name、Captial和Continent字段，在第二個窗體中顯示Area和Population字段，在第一個窗體中有一個按鈕用于打開第二個窗體，兩個窗體中都有TDBNavigator部件，用于記錄的導航。</font></p>
<p>　</p>
<hr color="#EE9B73" size="1" width="94%">

</TD>
<TD CLASS="tt3" VALIGN="bottom" width="8%"  bgcolor="#e0e0e0"><strong><A HREF="039.htm"><FONT style="FONT-SIZE: 9pt">后一頁</font></A><BR>
<A HREF="037.htm"><FONT style="FONT-SIZE: 9pt">前一頁</font></A><BR>

<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
</TR>
</table>
</BODY></HTML>