2011計(jì)算機(jī)等考Delphi：數(shù)據(jù)庫創(chuàng)建及MASTAPP介紹

　　14.5.2 使用FindKey方法查找數(shù)據(jù)庫中的記錄

　　雖然使用上面的Gotokey方法在數(shù)據(jù)庫中查找記錄效果不錯，但是Delphi 還提供了一種更加容易的查找方法，這就是Findkey方法，兩種方法雖然很相似，但是Findkey方法更簡單明了一些。

　　例14.4 我們可以使Findkey方法代替上面例子中的處理程序，下面是程序代碼：

　　procedure TForm1.Button1OnClick(Sender:TObject);

　　var

　　SeekValue:string;

　　begin

　　with Table1 do

　　begin

　　Label1.Caption:=' ';

　　Label1.Caption:=' ';

　　IndexFieldName:='CustNo';

　　SeekValue:=Edit1.Text;

　　If FindKey([SeekValue]) then

　　begin

　　Label1.Caption:='查找成功';

　　Label1.Caption:=FieldByName('Phone').AsString;

　　end;

　　else

　　Label1.Caption:='查找失敗';

　　end;

　　Findkey方法和Gotokey方法的根本區(qū)別在于查找值要作為參數(shù)傳遞給Findkey 函數(shù)。而GOtokey是不帶參數(shù)的，它假定用戶已經(jīng)把查找值賦給了代表著被查找到的字段的查找緩沖區(qū)。

　　Findkey接受的參數(shù)是放在方括號中的，是用逗號分開的查找值數(shù)組。數(shù)組中的每一個(gè)值都對應(yīng)于特定列的查找值，即參數(shù)中允許有多個(gè)查找值，F(xiàn)indkey 允許用戶同時(shí)查找數(shù)據(jù)庫表中的多個(gè)列。上面的程序清單中的Findkey函數(shù)只接受了變量Seekvalue這一個(gè)查找值，這個(gè)查找值對應(yīng)表中的字段CustNo，CustNo是表中的關(guān)鍵字段。如果要同時(shí)查找表中的多個(gè)字段，必須把要查找的多個(gè)字段名賦給TTable部件的IndexFieldName屬性，并用逗號分開各字段，然后把每個(gè)字段的查找值賦給Findkey的參數(shù)數(shù)組中。

　　14.5.3 利用GotoNearest和FindNearest執(zhí)行不精確查找

　　在我們上面討論的查找中，要么查找成功要么查找失敗，因?yàn)槲覀儾檎业氖翘囟ú檎抑档囊粋�(gè)精確匹配值。Delphi還提供了一種查找方法，即不精確查找，這樣的查找絕對不會失敗，它總是給用戶查找出一個(gè)結(jié)果來，也許這結(jié)果并不是用戶需要的，但這個(gè)查找出來的結(jié)果是最接近用戶要求的。在Delphi中是利用GotoNearest和FineNearest兩種方法來執(zhí)行不準(zhǔn)確查找的，它們總是從數(shù)據(jù)庫中查找出與查找值最接近的匹配值。如果它們查找到與查找值精確匹配的值，那當(dāng)然最好不過了，如果他們找不到精確匹配的值，它們就會把與用戶指定的查找值最接近的記錄提交給用戶。

　　GotoNearest的使用方法和Gotokey一樣，F(xiàn)indNearest的使用方法和Findkey一樣。跟Gotokey一樣，使用GotoNearest時(shí)必須要把查找值賦給字段的查找緩沖區(qū)，兩者的不同之處在于查找值的說明方式不一樣，使用GotoNearest時(shí)，說明的查找值可以是完整的也可以是不完整的，如果要對'Dunteman'進(jìn)行不精確查找，在給字段的查找緩沖區(qū)賦查找值時(shí)，可以使用'Dunteman'、'Dun'或者`Du'作為查找值，這樣查找出來的結(jié)果會盡可能地接近這個(gè)值的。

　　如果沒有找到與用戶指定的查找值精確匹配的記錄，Delphi會調(diào)整記錄指針并停留在與查找值最接近的第一個(gè)記錄上。例如如果查找`Dunteman'時(shí)，沒有找到精確匹配的值，記錄指針可能會停留在`Dunwoody'上或者停留在更遠(yuǎn)一些的'Event'上;如果查找'Du' 沒有找到精確匹配的值，記錄指針可能停留在‘Duncan’上，甚至‘Dunteman'之前，總之Delphi會自己地調(diào)整記錄指針，使之指向最接近查找值的記錄并將該記錄作為查找的結(jié)果提交給用戶。

　　GotoNearest和FindNearest都返回一個(gè)Boolean值以表明查找是否成功。它們一般都是成功的，它們總是要把記錄指針移到某處。

　　下面的例子是用GotoNearest方法進(jìn)行不精確查找。

　　例14.5 創(chuàng)建好的窗體,在編輯框中輸入一個(gè)不完整的客戶所在的公司名稱，并且按“不精確查找”按鈕，然后觀察一下查找的結(jié)果并注意記錄指針指向那一條記錄。反復(fù)試驗(yàn)幾次便會理解GotoNearest是如何工作的。

　　利用GotoNearest方法執(zhí)行不精確查找

　　窗體中的“不精確查找”按鈕的事件處理過程代碼如下：

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　with table1 do

　　begin

　　IndexFieldNames:='Company';

　　setkey;

　　FieldByName('Company').AsString:=Edit1.text;

　　GotoNearest;

　　label3.caption:=FieldByName('Company').AsString;

　　end;

　　end;

　　讀者可以利用 FindNearest 方法執(zhí)行上面的不精確查找， 具體使用方法可以參看Findkey方法的使用。

　　在上面的例子中要設(shè)置table1的IndexFieldNames屬性為Company。

　　GotoNearest方法進(jìn)行不精確查找