第十四章 簡(jiǎn)單數(shù)據(jù)庫(kù)應(yīng)用的創(chuàng)建及mastapp介紹（二）(文件)
【正文】 lds Editor 窗口中單擊鼠標(biāo)右鍵， 并選擇 Add Fields 菜單項(xiàng)， 打開 AddFields 對(duì)話框。為使應(yīng)用程序?qū)崿F(xiàn)這種計(jì)算功能，完成以下步驟： １、在 Object Inspector 中選擇自定義字段對(duì)象 Table1Balance，修改其 Calculated 屬性值為 True。 begin :=。如果我們查詢的是 Paradox 或dBASE 數(shù)據(jù)庫(kù)系統(tǒng)中的表，這是唯一的選擇。 使用 GotoKey 方法查找數(shù)據(jù)記錄 使用 Gotokey 方法查詢數(shù)據(jù)庫(kù)中的記錄的具體步驟如下： １、確保要查找的字段是關(guān)鍵字或已經(jīng)為它定義了輔助索引，并保證 TTable 部件的屬性列表中有關(guān)鍵字段名或輔助索引名。 如果查找成功， GotoKey 返回一個(gè) True 值 ，并且表中的記錄指針指向找到的記錄。 AsString 的作用不只是它的表面意思。 例 當(dāng)用戶在 Edit1 部件中輸入客戶號(hào)碼并單擊查找按鈕，程序便開始在 Table1 中查找這個(gè)客戶號(hào)。 查詢數(shù)據(jù)庫(kù)中的記錄 下面的程序清單是查詢按鈕上的 OnClick 事件的處理程序，它是使用Gotokey 方法查找數(shù)據(jù)庫(kù)中的記錄的。 :=39。 setkey。 If GotoKey then begin :=39。).AsString。； end。 begin with Table1 do begin :=39。 IndexFieldName:=39。查找成功 39。 end。 Findkey 方法和 Gotokey 方法的根本區(qū)別在于查找值要作為參數(shù)傳遞給 Findkey 函數(shù) 。上面的程序清單中的Findkey 函數(shù)只接受了變量 Seekvalue 這一個(gè)查找值，這個(gè)查找值對(duì)應(yīng)表中的字段 CustNo， CustNo 是表中的關(guān)鍵字段。在 Delphi 中是利用 GotoNearest 和 FineNearest 兩種方法來(lái)執(zhí)行不準(zhǔn)確查找的，它們總是從數(shù)據(jù)庫(kù)中查找出與查找值最接近的匹配值。Dunteman39。Dun39。例如如果查找 `Dunteman39。上；如果查 找 39。 GotoNearest 和 FindNearest 都返回一個(gè) Boolean 值以表明查找是否成功。反復(fù)試驗(yàn)幾次便會(huì)理解 GotoNearest 是如何工作的。 下面的例子是用 GotoNearest 方法進(jìn)行不精確查找。 沒(méi)有找到精確匹配的值，記錄指針可能停留在‘Duncan’ 上，甚至 ‘Dunteman39。上或者停留在更遠(yuǎn)一些的 39。作為查找值， 這樣查找出來(lái)的結(jié)果會(huì)盡可能地接近這個(gè)值的。Dunteman39。 GotoNearest 的使用方法和 Gotokey 一樣， FindNearest 的使用方法和 Findkey 一樣。 利用 GotoNearest 和 FindNearest 執(zhí)行不精確查找 在我們上面討論的查找中，要么查找成功要么查找失敗，因?yàn)槲覀儾檎业氖翘囟ú檎抑档囊粋€(gè)精確匹配值。 Findkey 接受的參數(shù)是放在方括號(hào)中的，是用逗號(hào)分開的查找值數(shù)組。查找失敗 39。Phone39。 SeekValue:=。 :=39。 例 我們可以使 Findkey方法代替上面例子中的處理程序，下面是程序代碼： procedure (Sender:TObject)。 else :=39。 :=FieldByName(39。CustNo39。 IndexFieldName:=39。 begin with Table1 do begin :=39。表中的記錄指針將轉(zhuǎn)移到該客戶記錄處。當(dāng)然 AsString不能將查找值轉(zhuǎn)換成 BLOB、Bytes、 Memo 和 Graphic 類型的數(shù)據(jù)，用戶一般也不會(huì)查找這種數(shù)據(jù)類型的字段。 在這里要注意的是如何給 Field 的查找緩沖區(qū)賦值， 我們知道字段對(duì)象是不可見的對(duì)象，它們沒(méi)有自己的名字，在大多數(shù)情況下，要使用 TTable 部件的 FieldByName 方法到字段列表中查找字段對(duì)象以便為它賦值。 ３、把查找值送進(jìn)被查找的 Field 的查找緩沖區(qū)。兩種方法十分相似，主要區(qū)別在于我們?nèi)绾沃付ú檎抑怠? 瀏覽 中的記錄 查詢數(shù)據(jù)庫(kù)中的記錄 數(shù)據(jù)庫(kù)中儲(chǔ)存著大量的數(shù)據(jù)信息，如何 充分有效地查詢其中的數(shù)據(jù)，對(duì)用戶而言是至關(guān)重要的。 ２、在 Object Inspector 窗口中，選擇 Table1 部件的 Event 頁(yè)。 圖 字段編輯器 Fields Editor ８、雙擊 Fields Editor 的控制盒關(guān)閉字段
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1