- 相關推薦
PowerBuilder中實現數據窗口列不可編輯的一種方法
摘要：本文詳細論述了如何利用DataWindow的Protect屬性靈活實現列不可編輯的方法。
關鍵詞：PowerBuilder；DataWindow; 數據編輯
1 引言
通過數據窗口，用戶可以對數據進行增、刪、改等編輯工作。為了防止用戶由于操作不慎而刪掉數據窗口中的一些重要的數據，在PowerBuilder中，需要將不可刪除數據所在的列設為不可編輯狀態。常用方法有：1）在數據窗口的設計階段將列的Tab值設置為0，或在程序運行階段用函數動態設置列的Tabsequence屬性為0；2）在數據窗口的設計階段將列的Edit屬性設置為DisplayOnly，或在程序運行階段將Edit屬性的DisplayOnly置為Yes。以上方法都簡單且易于實現，但都不夠靈活。用Tabsequence屬性置0的方法，若要恢復該列的可編輯狀態，必須在置0之前用Describe()函數先獲取該列的Tab值，之后用Modify()函數恢復該值即可將該列恢復成可編輯狀態，增加了編寫額外代碼的負擔，而且這種方法還破壞了數據窗口的制表值順序；把DisplayOnly屬性置為Yes的方法，要求該列的Style Type必須選中Edit風格，若該列風格為其它類型，如CheckBox、EditListBox等，則不能用這種方法，因此這種方法也缺乏通用性。本文采用數據窗口中列的Protect屬性來靈活實現列的不可編輯的方法，Protect屬性將忽略數據窗口的制表順序設置，只要列處于保護狀態時，即使該列的制表順序大于0，用戶也不能對該列進行編輯。這種保護數據窗口列中數據的方法，它沒有破壞制表值的順序，很容易恢復列的制表值；而且Protect屬性還允許指定一個條件表達式，使同一列中某些值被保護而另外的值沒有被保護，這對在數據窗口中插入新記錄時很有利。本文詳細論述了如何利用DataWindow的Protect屬性來靈活實現列的不可編輯。
2 Protect屬性的訪問格式
2.1 直接訪問法的格式如下：
dw_controlname.Object.columnname.protect=value或
dw_controlname.Object.#columnnumber.protect=value.
其中value值為0或1，為1時該列處于保護狀態，不可編輯;為0時該列處于非保護狀態，用戶可以編輯該列。
2.2 Modify()函數訪問列屬性的語法格式如下：
dw_controlname.Modify(string modstring)
其中參數modstring是定義屬性的修改方式，即為“columnname.protect={‘integer’}或＃columnnumber.protect={‘integer’}”,integer代表列是否被保護的布爾值，為0即假時，列沒有被保護；為1即真時，列被保護。
如用表達式指定protect屬性，該表達式有如下格式：
defaultvalue~tDataWindowpainterexpression
其中defaultvalue是能轉換為與該屬性適應的數據類型的值，即0或1，為一個缺省值；DataWindowpainterexpression是能使用任何DataWindow畫板函數的表達式，該表達式求值后的數據類型必須與設置的屬性的數據類型相匹配，當設置某列的屬性時，該表達式作用于DataWindow中該列的每一行，這就使得可以根據數據的不同而改變保護的方式。
3 應用實例
下面以一個通訊錄中添加記錄為例詳細說明。
首先在數據庫中建立如表1所示的通訊錄表（Txlb），同時在表中輸入四條記錄。
編號 姓名 工作單位 類別
0001 建國 湖南大學 同學
0002 無名 廣西師大 同學
0003 阿勇 廣西師大 同學
0004 小崔 長沙大學 同事
表1 通訊錄
利用Txlb表建立數據窗口d_txl,數據源選擇Quick Select,表現風格選擇Grid。建立窗體w_txl,并在窗體中放置數據窗口控件dw_1,數據窗口控件dw_1連接的數據窗口即為d_txl,如圖1所示。在該窗體中，用戶如要防止刪除編號列中已有的編號而在新增記錄時又允許在該列輸入新編號，單擊數據窗口中的編號列標題即可。然后單擊“新增”按鈕，此時編號列中已有的編號不可編輯，但對新增的一條記錄該列允許編輯，可以輸入新編號為0005的一條新記錄。記錄輸入完畢，單擊“確定修改”按鈕，輸入數據將存入數據庫，編號列中新增的記錄自動轉為不可編輯，從而實現對新老數據實行不同的保護，這是用方法1）、2)都無法實現的；用戶如發現存入數據庫的編號有錯誤，只要用鼠標雙擊編號列標題，即可解除列的保護狀態，重新編輯該列，從而靈活實現列的編輯要求。對數據窗口控件中的其它列也可以采用同樣的方法來實現新老數據的不同保護，因此這種方法還具有通用性。
圖1 通訊錄窗體w_txl界面
具體實現代碼如下：
.窗體w_txl的open事件
dw_1.settransobject(sqlca)
dw_1.retrieve()
.窗口中“確定修改”按鈕的clicked事件
if dw_1.update(dw_1,true,false)=1 then
dw_1.resetupdate()
commit using SQLCA;
else
rollback using SQLCA;
messagebox(“錯誤�。。 �，“數據保存失敗，請檢查輸入數據是否有錯！”)
end if
.窗口中“新增”按鈕的clicked事件
long rownumber
rownumber=dw_1.insertrow(0)
dw_1.setfocus()
dw_1.scrolltorow(rownumber)
dw_1.setcolumn(1)
.窗口中“退出”按鈕的clicked事件
close(w_txl)
.窗體中數據窗口的clicked事件
string columntext //列標題
string columnname //列名
integer length //列標題長度
columntext=dwo.name //獲得列標
length=len(columntext)
【PowerBuilder中實現數據窗口列不可編輯的一種方法】相關文章：
一種Flyback軟開關實現方法03-18
Boost電路的一種軟開關實現方法03-18
VB5.0中數據庫查詢模塊的實現03-03
電子商務中數據挖掘方法淺談03-01
實現基于網頁的數據庫數據導入03-18
一種實現嵌入式Linux的新方法03-20
一種基于路測數據的基站定位方法03-07
基于XMLSchema的元數據方案實現03-21