第十四章簡單數(shù)據(jù)庫應(yīng)用的創(chuàng)建及mastapp介紹二-文庫吧資料
2024-09-13 15:30本頁面
【正文】 lds 菜單項， 打開 AddFields 對話框。 圖 New Field 對話框 ４、單擊 Ok按鈕，關(guān)閉 New Field 對話框。 Delphi 會自動地填入相應(yīng)的字段對象名，其缺省值為 Table1Balance。 ３、 Delphi 顯示 New Fields 對話框。 瀏覽 表中的記錄 首先，我們想在顯示 表的網(wǎng)格中增加一個自定義的字段對象，完成以下步驟： １、雙擊窗體中的 Table1，打開字段編輯器 Fields Editor。 圖 設(shè)定字段對象的顯示格式 自定義字段以及計算字段對象的創(chuàng)建 有時候為了使應(yīng)用程序完成所期望的工作，我們要在數(shù)據(jù)庫表現(xiàn)有字段的基礎(chǔ)上增加一些自定義的字段，這些字段并不是數(shù)據(jù)庫表中實際存在的字段，它們常常是根據(jù)數(shù)據(jù)庫表中的其它的字段動態(tài)地計算出來的，因而它們常常被稱為計算字段。 end。)39。,Text,1)。 Insert(39。 Delete(Text,4,1)。DisplayText:Boolean)。 具體方法是：在 Object Inspector 中選取 Table1phone 對象，并為此對象的 OnGetText 事件編寫如下程序代碼： (Sender:TField。 例 在如圖 所示的窗體中，再增加一個 TaxRate 字段， 并在程序設(shè)計過程中設(shè)定它的顯示格式為 %，即設(shè)置 TaxRate 字段對象的DisplayFormat 屬性為 % ， 若 TaxRate 的值為 那么在網(wǎng)格部件中其顯示的格式為 %。{類型不匹配，需要轉(zhuǎn)換 } CustNoString:=。{類型不匹配，需要轉(zhuǎn)換 } {將字段值賦給變量 } CustNoDouble:=。 {在 Edit1 中顯示字段值 } :=Table1Company。 CustNoInt: Integer。字段對象的字段值可以轉(zhuǎn)換 成以下幾種類型的數(shù)據(jù) : AsString: 將字段值轉(zhuǎn)換成字符串?dāng)?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 中， 或者將字段值賦給相匹配的變量。如： := 這條代碼在運行過程中將會出錯，因為 TablelcustNo是 TFloatField 類型即是數(shù)值型數(shù)據(jù)，要在編輯框 Edit1 中顯示數(shù)值型數(shù)據(jù)要經(jīng)過下列轉(zhuǎn)換： :=。在上面的程序代碼中， Table1Company 的類型是 TStringField 即是字符串類型的字段，而編輯框 Edit1 的屬性 Text 的類型也是字符串型的， 因而它們是匹配的 。 end。 為 Read 按鈕編輯的 OnClick 事件處理過程如下： procedure (Sender:TObject)。 讀取字段對象的 字段值 窗體中各部件的屬性如表 所示 表 各部件的屬性 ━━━━━━━━━━━━━━━━━━━━━━━━ 部件的屬性 屬 性 值 ──────────────────────── amp。 :=12。 例如： :=39。 end。購買日期 39。LastInvoiceDate39。電話號碼 39。Phone39。公司名稱 39。Company39。客戶編號 39。 procedure (Sender:TObject)。 字段對象的訪問 在該應(yīng)用窗體的運行過程中，我們通過程序來訪問其中的字段對象并設(shè)置有關(guān)的屬性，這一控制過程我們放在窗體的 OnCreate 事件處理過程中。 通過這種途徑同樣可以訪問 表中的 CustNo 字段， 并為該字段指定一個標(biāo)題信息。).DisplayLabel:=39。 (39。但是在大多數(shù)簡單應(yīng)用程序中，通過列名（字段名）來訪問字段會更加明白而且易讀。 上述代碼讓我們訪問與 Table1 相連的數(shù)據(jù)庫表中的第一個字段，并為該字段指定一個標(biāo)題，這是通過設(shè)置它的 DisplayLabel 屬性值為一個特定的標(biāo)識符來實現(xiàn)的 。 [0].DisplayLabel:=39。索引號在程序運行時賦值，從0開始，表中最左邊的一列（第一個字段）的索引號為 0，緊接著右邊一個為 1，以此類推。 因為動態(tài)字段對象是沒有自己的名字的，永久性的字段對象有自己的名字，所以對這兩種字段對象的訪問方法是不一樣的。修改的屬性如表 所示， 經(jīng)過修改后的程序運行結(jié)果如圖 所示。 ──────────────────────────
公司管理相關(guān)推薦
鄂ICP備17016276號-1