第十四章簡(jiǎn)單數(shù)據(jù)庫(kù)應(yīng)用的創(chuàng)建及mastapp介紹二-資料下載頁(yè)
2024-09-05 15:30本頁(yè)面
【導(dǎo)讀】單擊LastInvoiceDate字段并將它拖放到字段列表框。中的第三行，即處于Company和Phone字段之間。６、選擇Close按鈕，關(guān)閉字段編輯器FieldsEditor。７、按F9，運(yùn)行上述程序。雖然字段對(duì)象是不可見(jiàn)的對(duì)象，但是它同樣具有很多的屬性。屬性的方法和步驟。２、雙擊table1，打開字段編輯器FieldsEditor。CustNo字段值由原來(lái)的右對(duì)齊變成了居中。段的值計(jì)算得來(lái)的。部件的名稱加上字段的名稱。使網(wǎng)絡(luò)中顯示表中的記錄更符合我們的工作習(xí)慣。所示，經(jīng)過(guò)修改后的程序運(yùn)行結(jié)果如圖所示。0開始，表中最左邊的一列的索引號(hào)為0，緊接著右邊一個(gè)為1，但是在大多數(shù)簡(jiǎn)單應(yīng)用程序中，通過(guò)列名（字段名）來(lái)訪問(wèn)字段。會(huì)更加明白而且易讀。在TTable部件中，提供了一個(gè)名為FieldByName的方法。例在窗體的Oncreate事件處理過(guò)程中訪問(wèn)字段對(duì)象。
【正文】 (39。Phone39。).AsString。 end。 else :=39。查找失敗 39。； end。 查詢數(shù)據(jù)庫(kù)中的記錄 使用 FindKey 方法查找數(shù)據(jù)庫(kù)中的記錄 雖然使用上面的 Gotokey 方法在數(shù)據(jù)庫(kù) 中查找記錄效果不錯(cuò)，但是Delphi 還提供了一種更加容易的查找方法，這就是 Findkey 方法，兩種方法雖然很相似，但是 Findkey 方法更簡(jiǎn)單明了一些。 例 我們可以使 Findkey方法代替上面例子中的處理程序，下面是程序代碼： procedure (Sender:TObject)。 var SeekValue:string。 begin with Table1 do begin :=39。 39。 :=39。 39。 IndexFieldName:=39。CustNo39。 SeekValue:=。 If FindKey([SeekValue]) then begin :=39。查找成功 39。 :=FieldByName(39。Phone39。).AsString。 end。 else :=39。查找失敗 39。； end。 Findkey 方法和 Gotokey 方法的根本區(qū)別在于查找值要作為參數(shù)傳遞給 Findkey 函數(shù) 。而 GOtokey 是不帶參數(shù)的， 它假定用戶已經(jīng)把查找值賦給了代表著被查找到的字段的查找緩沖區(qū)。 Findkey 接受的參數(shù)是放在方括號(hào)中的，是用逗號(hào)分開的查找值數(shù)組。 數(shù)組中的每一個(gè)值都對(duì)應(yīng)于特定列的查找值，即參數(shù)中允許有多個(gè)查找值， Findkey 允許用戶同時(shí)查找數(shù)據(jù)庫(kù)表中的多個(gè)列。上面的程序清單中的Findkey 函數(shù)只接受了變量 Seekvalue 這一個(gè)查找值，這個(gè)查找值對(duì)應(yīng)表中的字段 CustNo， CustNo 是表中的關(guān)鍵字段。如果要同時(shí)查找表中的多個(gè)字段，必須把要查找的多個(gè)字段名賦給 TTable 部件的 IndexFieldName 屬性，并用逗號(hào)分開各字段，然后把每個(gè)字段的查找值賦給 Findkey 的參數(shù)數(shù)組中。 利用 GotoNearest 和 FindNearest 執(zhí)行不精確查找 在我們上面討論的查找中，要么查找成功要么查找失敗，因?yàn)槲覀儾檎业氖翘囟ú檎抑档囊粋€(gè)精確匹配值。 Delphi 還提供了一種查找方法，即不精確查找，這樣的查找絕對(duì)不會(huì)失敗，它總是給用戶查找出一個(gè)結(jié)果來(lái)，也許這結(jié)果并不是用戶需要的，但這個(gè)查找出來(lái)的結(jié)果是最接近用戶要求的。在 Delphi 中是利用 GotoNearest 和 FineNearest 兩種方法來(lái)執(zhí)行不準(zhǔn)確查找的，它們總是從數(shù)據(jù)庫(kù)中查找出與查找值最接近的匹配值。如果它們查找到與查找值精確匹配的值，那當(dāng)然最好不過(guò)了，如果他們找不到精確匹配的值，它們就會(huì)把與用戶指定的查找值最接近的記錄提交給用戶。 GotoNearest 的使用方法和 Gotokey 一樣， FindNearest 的使用方法和 Findkey 一樣。跟 Gotokey 一樣，使用 GotoNearest 時(shí)必須要把查找值賦給字段的查找緩沖區(qū)，兩者的不同之處在于查找值的說(shuō)明方式不一樣，使用GotoNearest 時(shí)， 說(shuō)明的查找值可以是完整的也可以是不完整的，如果要對(duì)39。Dunteman39。進(jìn)行不精確查找，在給字段的查找緩沖區(qū)賦查找值時(shí)，可以使用39。Dunteman39。、 39。Dun39?；蛘?`Du39。作為查找值， 這樣查找出來(lái)的結(jié)果會(huì)盡可能地接近這個(gè)值的。 如果沒(méi)有找到與用戶指定的查找值精確匹配的記錄， Delphi 會(huì)調(diào)整記錄指針并停留在與查找值最接近的第一個(gè)記錄上。例如如果查找 `Dunteman39。時(shí)，沒(méi)有找到精確匹配的值，記錄指針可能會(huì)停留在 `Dunwoody39。上或者停留在更遠(yuǎn)一些的 39。Event39。上；如果查 找 39。Du39。 沒(méi)有找到精確匹配的值，記錄指針可能停留在‘Duncan’ 上，甚至 ‘Dunteman39。 之前， 總之 Delphi 會(huì)自己地調(diào)整記錄指針，使之指向最接近查找值的記錄并將該記錄作為查找的結(jié)果提交給用戶。 GotoNearest 和 FindNearest 都返回一個(gè) Boolean 值以表明查找是否成功。 它們一般都是成功的，它們總是要把記錄指針移到某處。 下面的例子是用 GotoNearest 方法進(jìn)行不精確查找。 例 創(chuàng)建好的窗體 ,在編輯框中輸入一個(gè)不完整的客戶所在的公司名稱，并且 按 “ 不精確查找 ” 按鈕，然后觀察一下查找的結(jié)果并注意記錄指針指向那一條記錄。反復(fù)試驗(yàn)幾次便會(huì)理解 GotoNearest 是如何工作的。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1