2011計(jì)算機(jī)等考Delphi：數(shù)據(jù)訪問部件應(yīng)用及編程

　　下面是應(yīng)用GotoNearest方法的一段代碼：

　　Table1.SetKey;

　　Table1.Fields[0].AsString:= 'Sm';

　　Table1.GotoNearest;

　　執(zhí)行上述代碼后，若表中存在第一個(gè)字段值等于Sm的記錄時(shí)，記錄指針將移到該記錄處，若表中不存在第一個(gè)字段值等于Sm的記錄，而存在第一個(gè)字段值等于Smith的記錄，那么記錄指針會(huì)移到該記錄處。

　　如果我們不是以數(shù)據(jù)庫(kù)表中的關(guān)鍵字段作為查找字段，我們也可以為TTable部件的IndexFieldName屬性中的字段或IndexName屬性中的字段指定查找值進(jìn)行數(shù)據(jù)查找。例如，假設(shè)Customer表中有一個(gè)名叫CityIndex的輔助索引，我們?yōu)镃ityIndex中的字段指定查找值進(jìn)行查找時(shí)，首先設(shè)置TTable部件的IndexName屬性為CityIndex，然后再進(jìn)行查找，下面是具體的程序代碼：

　　Table1.IndexName := 'CityIndex';

　　Table1.Open;

　　Table1.SetKey;

　　Table1.FieldByName{'City').AsString := Edit1.Text;

　　Table1.GotoKey;

　　使用Find方式：使用Find方式在數(shù)據(jù)庫(kù)中進(jìn)行數(shù)據(jù)查找的方法有：FindNearest方法和FindKey方法。

　　FindKey方法和FindNearest方法為數(shù)據(jù)查找提供了一個(gè)簡(jiǎn)單的方法，它們將SetKey、指定查找值、執(zhí)行查找三個(gè)步驟融合在一步里完成，它們?cè)谥付ú檎抑禃r(shí)，是把各字段的查找值組成一個(gè)數(shù)組傳給FindKey或FindNearest。下面是使FindKey方法的一個(gè)例子。

　　假設(shè)Tabel1對(duì)應(yīng)的表中的第一個(gè)字段是關(guān)鍵字段。

　　Table.FindKey([Edit1.Text]);

　　如果用GotoKey方法完成這一功能則需要編寫下面代碼：

　　Table1.SetKey;

　　Table1.Fields[0].AsStrine := Edit.Text;

　　Table1.GotoKey;

　　FindKey方法和FindNearest方法的區(qū)別與GotoKey和GotoNearest方法的區(qū)別是一樣的。

　　15.4.2.3 創(chuàng)建主要──明細(xì)數(shù)據(jù)庫(kù)應(yīng)用

　　TTable部件中MasterSource屬性和MasterFields屬性是用于定義兩個(gè)數(shù)據(jù)庫(kù)表的一對(duì)多的關(guān)系。MasterSource屬性指定主表對(duì)應(yīng)的TDataSource部件，MasterFields屬性指定主表和明細(xì)表之間建立聯(lián)系的字段，主表和明細(xì)表之間建立一對(duì)多關(guān)系時(shí)，可能不只是基于一個(gè)字段，可能有多個(gè)字段。如果有多個(gè)字段，那么在說明MasterFields屬性時(shí)，多個(gè)字段之間要用分號(hào)隔開。如Table1.MasterFields := 'OrderNo;CustNo'。在設(shè)計(jì)階段可以使用字段連接設(shè)計(jì)器(Field Link Designer)為兩上表創(chuàng)建一對(duì)多的關(guān)系，在Object Inspector 中雙擊TTable部件的MasterFields便可以打開Field Link Designer，進(jìn)行一對(duì)多關(guān)系的創(chuàng)建。 如創(chuàng)建Customer.DB表和Order.DB表之間的一對(duì)多關(guān)系時(shí)，使用Field Link Designer 如圖15.5所示。

　　圖15.5 使用Field Link Designer創(chuàng)建一對(duì)多關(guān)系

　　Field Link Designer提供了一種可視化的方法來創(chuàng)建主要──明細(xì)表之間的一對(duì)多關(guān)系。圖中Available Indexes組合框中存放著明細(xì)表中的關(guān)鍵字段和索引字段，可以選擇索引字段進(jìn)行連接。在主表中選擇一個(gè)用于連接的關(guān)鍵字段，然后將其與明細(xì)表中相應(yīng)的關(guān)鍵字段連接，單擊Add按鈕，主要──明細(xì)表的連接字段將顯示在Joined Fields列表框中，如：

　　CustNo->CustNo