第十四章簡單數(shù)據(jù)庫應(yīng)用的創(chuàng)建及mastapp介紹二-wenkub.com
2024-09-01 15:30 本頁面
【正文】 例 創(chuàng)建好的窗體 ,在編輯框中輸入一個不完整的客戶所在的公司名稱，并且 按 “ 不精確查找 ” 按鈕，然后觀察一下查找的結(jié)果并注意記錄指針指向那一條記錄。 之前， 總之 Delphi 會自己地調(diào)整記錄指針，使之指向最接近查找值的記錄并將該記錄作為查找的結(jié)果提交給用戶。Event39。 如果沒有找到與用戶指定的查找值精確匹配的記錄， Delphi 會調(diào)整記錄指針并停留在與查找值最接近的第一個記錄上。、 39。跟 Gotokey 一樣，使用 GotoNearest 時必須要把查找值賦給字段的查找緩沖區(qū)，兩者的不同之處在于查找值的說明方式不一樣，使用GotoNearest 時， 說明的查找值可以是完整的也可以是不完整的，如果要對39。 Delphi 還提供了一種查找方法，即不精確查找，這樣的查找絕對不會失敗，它總是給用戶查找出一個結(jié)果來，也許這結(jié)果并不是用戶需要的，但這個查找出來的結(jié)果是最接近用戶要求的。 數(shù)組中的每一個值都對應(yīng)于特定列的查找值，即參數(shù)中允許有多個查找值， Findkey 允許用戶同時查找數(shù)據(jù)庫表中的多個列。； end。).AsString。 If FindKey([SeekValue]) then begin :=39。 39。 var SeekValue:string。查找失敗 39。Phone39。).AsString:=。CustNo39。 39。并且在網(wǎng)格 DBGrid1 中以高亮度顯示這一條記錄。 下面便是說明使用 Gotokey 方法查找數(shù)據(jù)記錄的例子。但字段緩沖區(qū)也是沒有名字的，當(dāng) TTable 部件處于查找模式時，我們只要把查找值賦給字段對象的 AsString 屬性就可以了。 ４、調(diào)用 TTable 部件的 GotoKey 方法，并測試它的返回值判斷查找是否成功。這兩種方法的思想是在指定列（字段）中尋找指定的查找值，如果在數(shù)據(jù)庫表中找到了這個值，表中的記錄指針便指向該記錄，這樣我們便查詢到了我們需要的記錄，進(jìn)而可以訪問找 到的記錄中的各項數(shù)據(jù)。如果想查詢數(shù)據(jù)庫，首先要確定要查詢的字段要么是數(shù)據(jù)庫表中的關(guān)鍵字段，要么是輔助索引。 ３、雙擊 OnCalcField 事件，為 Table1OnCalcField 編寫事件處理過程如下： procedure (DataSet:TDataSet)。 至此我們 已經(jīng)為 Table1 創(chuàng)建了一個自定義的字段對象 Balance，下面我們把 Balance 字段設(shè)置成計算字段對象，使其顯示每一個客戶的現(xiàn)金余額，即此字段的值是由 ORDERS. DB 表中 ItemsTotal和 Amountpaid 字段的值計算而來的。當(dāng) Fields Editor 窗口重新出現(xiàn)時， 注意 Balance 已經(jīng)出現(xiàn)在 Fields 列表框中。選擇 Field Type 列表框中的 Currency 項， 并在 Field Name 文體 框中 輸入 Balance ， 這 樣我們自定 義了一個 CurrencyField 類型的字段 Balance。 例如我們創(chuàng)建一個瀏覽 表中記錄的應(yīng)用如圖 所示。,Text,1)。(39。 begin If DisplayText then begin Text:=。 在運(yùn)行過程中我們通過程序代碼來設(shè)定字段 Phone 的顯示格式， 美國的電話表示形式與中 國的表示形式不一樣（如美國 8085550269,中國 (808) 5550269 ）， 為此我們將 phone 字段的值表示成中國式的形式。{類型相匹配，不需要轉(zhuǎn)換 } CustNoInt:=。 CustNoString: String。 AsString 是字段對象的屬性，通過字段對象的 AsString 屬性可以讀取字段值并且將它轉(zhuǎn)換成字符串類型。 在這里要注意的是：從字段對象中讀取字段值時必須要將它賦給與之?dāng)?shù)據(jù)類型相匹配的變量，否則會出錯。Read Button1 字段值 Label1 Edit1 ━━━━━━━━━━━━━━━━━━━━━━━━ 其它部件的的屬性跟前面的例子一樣?？蛻艟幪?39。 end。 FieldByName(39。 FieldByName(39。 {通過字段名訪問字段對象 } FieldByName(39。 例 在窗體的 Oncreate 事件處理過程中訪問字段對象。標(biāo)識符 39。在 TTable 部件中，提供了一個名為 FieldByName 的方法以便讓我們通過列名訪問字段對象。標(biāo)識符 39。 動態(tài)字段對象的訪問 動態(tài)字段對象存在于數(shù)據(jù)集部件 TTable 和 TQuery 部件中，它們是隨著磁盤上的數(shù)據(jù)庫文件的打開而動態(tài)生成的，并
公司管理相關(guān)推薦
鄂ICP備17016276號-1