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