第十四章簡單數(shù)據(jù)庫應用的創(chuàng)建及mastapp介紹二(編輯修改稿)
2024-10-11 15:30 本頁面
【文章內(nèi)容簡介】 型不匹配，則要經(jīng)過一定的轉(zhuǎn)換才能夠相互賦值。如： := 這條代碼在運行過程中將會出錯，因為 TablelcustNo是 TFloatField 類型即是數(shù)值型數(shù)據(jù)，要在編輯框 Edit1 中顯示數(shù)值型數(shù)據(jù)要經(jīng)過下列轉(zhuǎn)換： :=。 AsString 是字段對象的屬性，通過字段對象的 AsString 屬性可以讀取字段值并且將它轉(zhuǎn)換成字符串類型。字段對象的字段值可以轉(zhuǎn)換 成以下幾種類型的數(shù)據(jù) : AsString: 將字段值轉(zhuǎn)換成字符串數(shù)據(jù) AsBoolean: 將字段值轉(zhuǎn)換成布爾型數(shù)據(jù) AsDateTime: 將字段值轉(zhuǎn)換成日期時間數(shù)據(jù) AsFloat: 將字段值轉(zhuǎn)換成數(shù)值型數(shù)據(jù) AsInteger: 將字段值轉(zhuǎn)換成整數(shù)型數(shù)據(jù) 下面的程序代碼是從字段對象中讀取字段值并將它顯示在編輯框 Edit1 中， 或者將字段值賦給相匹配的變量。 CustNoDouble: Double。 CustNoInt: Integer。 CustNoString: String。 {在 Edit1 中顯示字段值 } :=Table1Company。{類型相匹配，不需要轉(zhuǎn)換 } :=。{類型不匹配，需要轉(zhuǎn)換 } {將字段值賦給變量 } CustNoDouble:=。{類型相匹配，不需要轉(zhuǎn)換 } CustNoInt:=。{類型不匹配，需要轉(zhuǎn)換 } CustNoString:=。{類型不匹配，需要轉(zhuǎn)換 } 設定字段對象的顯示格式 我們即可以在設計階段設定字段對象的顯示格式，也可以在運行過程中通過程序代碼來設定字段對象的顯示格式。 例 在如圖 所示的窗體中，再增加一個 TaxRate 字段， 并在程序設計過程中設定它的顯示格式為 %，即設置 TaxRate 字段對象的DisplayFormat 屬性為 % ， 若 TaxRate 的值為 那么在網(wǎng)格部件中其顯示的格式為 %。 在運行過程中我們通過程序代碼來設定字段 Phone 的顯示格式， 美國的電話表示形式與中 國的表示形式不一樣（如美國 8085550269,中國 (808) 5550269 ）， 為此我們將 phone 字段的值表示成中國式的形式。 具體方法是：在 Object Inspector 中選取 Table1phone 對象，并為此對象的 OnGetText 事件編寫如下程序代碼： (Sender:TField。 Text:OpenString。DisplayText:Boolean)。 begin If DisplayText then begin Text:=。 Delete(Text,4,1)。 Delete(Text,7,1)。 Insert(39。(39。,Text,1)。 Insert(39。)39。,Text,1)。 end。 end。 圖 設定字段對象的顯示格式 自定義字段以及計算字段對象的創(chuàng)建 有時候為了使應用程序完成所期望的工作，我們要在數(shù)據(jù)庫表現(xiàn)有字段的基礎(chǔ)上增加一些自定義的字段，這些字段并不是數(shù)據(jù)庫表中實際存在的字段，它們常常是根據(jù)數(shù)據(jù)庫表中的其它的字段動態(tài)地計算出來的，因而它們常常被稱為計算字段。 例如我們創(chuàng)建一個瀏覽 表中記錄的應用如圖 所示。 瀏覽 表中的記錄 首先，我們想在顯示 表的網(wǎng)格中增加一個自定義的字段對象，完成以下步驟： １、雙擊窗體中的 Table1，打開字段編輯器 Fields Editor。 ２、在 Fields Editor 窗口中，單擊鼠標右鍵，選擇 New Fields 菜單項。 ３、 Delphi 顯示 New Fields 對話框。選擇 Field Type 列表框中的 Currency 項， 并在 Field Name 文體 框中 輸入 Balance ， 這 樣我們自定 義了一個 CurrencyField 類型的字段 Balance。 Delphi 會自動地填入相應的字段對象名，其缺省值為 Table1Balance。如圖 所示。 圖 New Field 對話框 ４、單擊 Ok按鈕，關(guān)閉 New Field 對話框。當 Fields Editor 窗口重新出現(xiàn)時， 注意 Balance 已經(jīng)出現(xiàn)在 Fields 列表框中。 ５、在 Fields Editor 窗口中單擊鼠標右鍵， 并選擇 Add Fields 菜單項， 打開 AddFields 對話框。 ６、從 Available Fields 列表框中， 按住 Ctrl 鍵并單擊鼠標左鍵， 選擇字段： OrderNo、 CustNo、 SaleDate、 ShipData、 ItemsTotal、 Amo
公司管理相關(guān)推薦
鄂ICP備17016276號-1