14.5.1 使用GotoKey方法查找數據記錄
使用Gotokey方法查詢數據庫中的記錄的具體步驟如下：
１、確保要查找的字段是關鍵字或已經為它定義了輔助索引，並保證TTable部件的屬性列表中有關鍵字段名或輔助索引名。
２、通過調用GotoKey方法，把要查找的TTable部件置成查找模式。
３、把查找值送進被查找的Field的查找緩沖區。
４、調用TTable部件的GotoKey方法，並測試它的返回值判斷查找是否成功。
如果查找成功，GotoKey返回一個True值，並且表中的記錄指針指向找到的記錄。如果查找失敗，GotoKey返回False，表中的記錄指針不發生變化。
在這裡要注意的是如何給Field的查找緩沖區賦值，我們知道字段對象是不可見的對象，它們沒有自己的名字，在大多數情況下，要使用TTable部件的FieldByName 方法到字段列表中查找字段對象以便為它賦值。但字段緩沖區也是沒有名字的，當TTable部件處於查找模式時，我們只要把查找值賦給字段對象的AsString屬性就可以了。AsString的作用不只是它的表面意思。它是一個轉換屬性，任何賦給字段對象的AsString屬性的字符串都將轉換成該字段對象應於數據庫表中的字段的數據類型。當然AsString不能將查找值轉換成BLOB、Bytes、Memo和Graphic類型的數據，用戶一般也不會查找這種數據類型的字段。
下面便是說明使用Gotokey方法查找數據記錄的例子。
例14.3 當用戶在Edit1部件中輸入客戶號碼並單擊查找按鈕，程序便開始在Table1中查找這個客戶號。如果查找成功，查找信息“查找成功”便會顯示在標簽Label1上，被查詢到的客戶的電話號碼顯示在標簽Label2上。表中的記錄指針將轉移到該客戶記錄處。並且在網格DBGrid1中以高亮度顯示這一條記錄。
查詢數據庫中的記錄
下面的程序清單是查詢按鈕上的OnClick事件的處理程序，它是使用Gotokey方法查找數據庫中的記錄的。
procedure TForm1.Button1OnClick(Sender:TObject);
begin
with Table1 do
begin
Label1.Caption:=' ';
Label1.Caption:=' ';
IndexFieldName:='CustNo';
setkey;
FieldByName('CustNo').AsString:=Edit1.Text;
If GotoKey then
begin
Label1.Caption:='查找成功';
Label1.Caption:=FieldByName('Phone').AsString;
end;
else
Label1.Caption:='查找失敗'；
end;
查詢數據庫中的記錄
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是如何工作的。
