14.5.2 使用FindKey方法查找數據庫中的記錄

　　雖然使用上面的Gotokey方法在數據庫中查找記錄效果不錯，但是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方法的根本區別在于查找值要作為參數傳遞給Findkey 函數。而GOtokey是不帶參數的，它假定用戶已經把查找值賦給了代表著被查找到的字段的查找緩沖區。

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

　　14.5.3 利用GotoNearest和FindNearest執行不精確查找

　　在我們上面討論的查找中，要么查找成功要么查找失敗，因為我們查找的是特定查找值的一個精確匹配值。Delphi還提供了一種查找方法，即不精確查找，這樣的查找絕對不會失敗，它總是給用戶查找出一個結果來，也許這結果并不是用戶需要的，但這個查找出來的結果是最接近用戶要求的。在Delphi中是利用GotoNearest和FineNearest兩種方法來執行不準確查找的，它們總是從數據庫中查找出與查找值最接近的匹配值。如果它們查找到與查找值精確匹配的值，那當然最好不過了，如果他們找不到精確匹配的值，它們就會把與用戶指定的查找值最接近的記錄提交給用戶。

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

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

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

　　下面的例子是用GotoNearest方法進行不精確查找。

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

　　利用GotoNearest方法執行不精確查找

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

　　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 方法執行上面的不精確查找， 具體使用方法可以參看Findkey方法的使用。

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

　　GotoNearest方法進行不精確查找