【文章內(nèi)容簡介】 是用戶不是管理員時，系統(tǒng)就會自動對某些功能進(jìn)行限制。其關(guān)鍵的代碼如下：Dim usertype2 As String usertype2 = usertype If usertype2 0 Then ‘判斷用戶類型 = False = False = False = False ’限制快捷方式 “增加用戶”Private Sub 修改密碼_Click() Unload Me Private Sub 資產(chǎn)查詢_Click() Unload Me …… 為了使主界面符合用戶的操作習(xí)慣，特意使用MDI模塊設(shè)計，由下拉菜單和快捷方式結(jié)合提供索引，方便用戶快速熟悉軟件的使用。 用戶管理模塊 功能簡介用戶管理模塊包括兩部分：修改密碼和添加用戶。修改密碼的功能要求在已知所要修改密碼的用戶名和密碼才允許進(jìn)行，用于用戶修改密碼和管理員對普通用戶的管理。添加用戶的功能僅限于管理員，普通用戶無法進(jìn)行。用戶名要求是唯一的，所以當(dāng)輸入新的用戶名時，首先與數(shù)據(jù)表中已有的用戶名相對照，當(dāng)沒有與已有用戶的用戶名重復(fù)時才允許添加。 1)修改密碼系統(tǒng)通過用戶名找到數(shù)據(jù)庫中相關(guān)的記錄，判斷密碼是否正確。如果不正確將彈出對話框予以提示，正確將繼續(xù)進(jìn)行。設(shè)置的新密碼將要求輸入兩次，兩次輸入必須一致，否則有對話框提示。符合上述條件時，系統(tǒng)自動更新數(shù)據(jù)，并將新的密碼保存下來。其中關(guān)鍵的程序如下：sql = select * from 用戶表 where 用戶名=39。 amp。 amp。 39。and 用戶密碼=39。 amp。 amp。 39。 Set rs = TransactSQL(sql) If = True Then MsgBox 用戶密碼不匹配，無權(quán)更改！, vbOKOnly + vbExclamation, 警告If Then MsgBox 兩次輸入密碼不同！, vbOKOnly(1) = MsgBox 密碼修改成功！, vbOKOnly, 修改密碼 2）添加用戶系統(tǒng)將首先判斷該用戶名是否已經(jīng)存在，如果在數(shù)據(jù)庫的相應(yīng)字段位置發(fā)現(xiàn)已有此用戶名，則不允許添加。然后，通過兩個Optional控件選擇新用戶的用戶類型，設(shè)置的密碼同樣要求輸入兩次，兩次輸入必須一致，否則有對話框提示。符合上述條件時，系統(tǒng)自動更新數(shù)據(jù)，并將新的密碼保存下來。其中關(guān)鍵的程序如下：sql2 = select * from 用戶表 where 用戶名=39。 amp。 amp。 39。 If = False Then MsgBox 該用戶已經(jīng)存在！, vbOKOnly + vbExclamation, 提示 If Then MsgBox 兩次輸入密碼不同！, vbOKOnly 39。添加新紀(jì)錄 If = True Then (2) = 0 Else (2) = MsgBox 用戶添加成功！, vbOKOnly 功能簡介資產(chǎn)管理包括三個可操作的窗體：資產(chǎn)列表，資產(chǎn)查詢，資產(chǎn)增加/修改。其中資產(chǎn)增加/修改界面只有管理員才能打開。模塊資產(chǎn)列表界面顯示所有資產(chǎn)的情況，通過此界面也能提供進(jìn)行資產(chǎn)管理的連接。在資產(chǎn)管理中選中相應(yīng)的資產(chǎn)管理員可以對其進(jìn)行刪除或修改。在資產(chǎn)查詢界面中為用戶提供了三種查詢方式，分別按照不同的字段篩選資產(chǎn)。 1）資產(chǎn)列表資產(chǎn)列表界面設(shè)計的關(guān)鍵是通過過程序?qū)?shù)據(jù)表中相關(guān)的字段與控件MSFlexGrid相綁定，通過MSFlexGrid顯示數(shù)據(jù)庫中指定數(shù)據(jù)表的內(nèi)容。如果想要對其中某一資產(chǎn)進(jìn)行修改或刪除，就要先選中想要的行，使左下角的空白處顯示相應(yīng)的編號，然后再點(diǎn)擊相應(yīng)的按鈕。進(jìn)入這個界面還要通過通用模塊中的全局變量usertype判斷當(dāng)前的用戶類型，若不是管理員，則令“增加”、“修改”和“刪除”按鈕的Enabl屬性設(shè)為Fasle。此外還要給MSFlexGrid控件的每列設(shè)置好寬度和名稱。鑒于本部分的代碼繁多，即使摘出其中的關(guān)鍵部分也篇幅不小，所以就不在此處羅列，詳細(xì)的代碼將在附錄中的維護(hù)手冊給出。2）資產(chǎn)增加/修改 本著節(jié)約成本，便于維護(hù)的想法，這個界面作為資產(chǎn)增加和修改的公用界面，所以首先判斷它應(yīng)該處于哪種狀態(tài)。 If ModifyBkFlag2 = True Then Dim sql As String sql = select * from 資產(chǎn)狀態(tài)表 where 編號 =39。 amp。 ModifyBkFlag1 amp。 39。 ModifyBkFlag2 = ModifyBkFlag2 Xor True = False Else = False 如果選擇了增加資產(chǎn)，只需要將每一個text控件中輸入的內(nèi)容導(dǎo)入數(shù)據(jù)表相應(yīng)字段即可。其中為了保證資產(chǎn)編號的唯一性，所以新添加資產(chǎn)的編號必須與已有資產(chǎn)的編號不同，而且考慮到資產(chǎn)的某些屬性是必要的，所以不允許某些text控件中的內(nèi)容為空。其中的某些關(guān)鍵代碼如下： sql2 = select * from 資產(chǎn)狀態(tài)表 where 編號 =39。 amp。 amp。 39。 If Trim() = Or… Or _Trim() = Then MsgBox 有些必要的信息錄入為空！, vbOKOnlyElse Set rs = TransactSQL(sql2)If = False Then MsgBox 該編號資產(chǎn)已經(jīng)存在，請核對！, vbOKOnly Else 39。添加新紀(jì)錄 (0) = Trim() …… (9) = Trim() MsgBox 資產(chǎn)添加成功！, vbOKOnly 如果選擇的是修改資產(chǎn)，也只需要將每一個text控件中輸入的內(nèi)容導(dǎo)入數(shù)據(jù)表相應(yīng)字段即可。其中為了保證資產(chǎn)編號的唯一性，所以改后資產(chǎn)的編號必須與已有資產(chǎn)的編號不同，而且考慮到資產(chǎn)的某些屬性是必要的，所以不允許某些text控件中的內(nèi)容為空。其變成思想與添加資產(chǎn)大同小異，所以代碼這里就不羅列了，詳細(xì)請見于附錄。3）資產(chǎn)查詢 在資產(chǎn)查詢中首先通過Checkbox控件選擇查詢方式，再根據(jù)選定的查詢方式在數(shù)據(jù)表中的相關(guān)字段中進(jìn)行檢索，將檢索出來的結(jié)果在下面的MSFlexGid控件中顯示，而MSFlexGid控件當(dāng)然也需要再一次進(jìn)行與數(shù)據(jù)表的綁定，每一列的列名和寬度設(shè)定。其中的一些關(guān)鍵代碼如下： If Then 39。判斷是否選擇按編號查詢 If Trim() = Then MsgBox 編號不能為空！, vbOKOnly + vbExclamation, 警告 Else bf(0) = True sql = sql amp。 編號 =39。 amp。 Trim() amp。 39。 39。組合查詢語句 If Check2 Then 39。判斷是否按資產(chǎn)名稱查詢 If Trim() = Then MsgBox 資產(chǎn)名稱不能為空！, vbOKOnly + vbExclamation, 警告 Else bf(1) = True If bf(0) Then sql = sql amp。 設(shè)備名稱=39。 amp。 Trim() amp。 39。 39。組何查詢語句 Else sql = sql amp。 設(shè)備名稱=39。 amp。 Trim() amp。 39。 If Check3 Then 39。判斷是否選擇按首次保管人查詢 If Trim() = Then MsgBox 首次保管人不能為空！, vbOKOnly + vbExclamation, 警告 Else bf(2) = True If bf(0) Or bf(1) Then sql = sql amp。 and 首次保管人=39。 amp。 Trim() amp。 39。 39。組合查詢語句 Else sql = sql amp。 首次保管人=39。 amp。 Trim() amp。 39。 39。判斷是否設(shè)置查詢方式 If Not (bf(0) Or bf(1) Or bf(2)) Then MsgBox 請設(shè)置查詢方式！, vbOKOnly + vbExclamation, 警告 39。查詢所有滿足條件的內(nèi)容 sql = sql amp。 order by 編號 Set rs = TransactSQL(sql) If = True Then MsgBox 沒有找到要查詢的信息, vbOKOnly Else With assetmentQueryGrid .Rows = 1 Do While Not .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = (0) …… .TextMatrix(.Rows 1, 9) = (9) Loop With assetmentQueryGrid ‘對控件的列名進(jìn)行設(shè)置 .TextMatrix(0, 0) = 編號 …… .TextMatrix(0, 9) = 報廢日期 .ColWidth(0) = 600 .ColWidth(9) = 1300 .BackColorFixed = RGB(247, 214, 157) End WithEnd Sub考慮到借還管理的功能也可以通過資產(chǎn)管理模塊節(jié)約了成本、縮短了項(xiàng)目開發(fā)周期，提高系統(tǒng)的穩(wěn)定性和可維護(hù)性，方便了用戶對軟件的適應(yīng)。在借還管理中采用了和資產(chǎn)管理相同的界面設(shè)置和基本思想。這里就不贅述了，詳細(xì)請參考附錄中的維護(hù)手冊。幫助菜單的下拉菜單有兩個選項(xiàng)“使用指南”和“關(guān)于”，這兩個選項(xiàng)分別觸發(fā)一個彈出窗體?！笆褂弥改稀贝绑w用于為新用戶提供軟件操作的一些簡單指導(dǎo)，“關(guān)于”窗體介紹關(guān)于本軟件的一些信息。這里主要用圖示展示一下界面的設(shè)計，而技術(shù)方面只是涉及一個簡單的窗體切換，和text控件的多行輸入，并沒有什么比較復(fù)雜的代碼。 5 軟件測試系統(tǒng)測試是系統(tǒng)開發(fā)的重要補(bǔ)充和有力保障，要貫穿在系統(tǒng)開發(fā)的始終。一般的做法是：首先對每一個程序模塊進(jìn)行單元測試，消除程序模塊內(nèi)部在邏輯上和功能上的錯誤和缺陷；然后對照軟件設(shè)計進(jìn)行集成測試，檢測和排除子系統(tǒng)結(jié)構(gòu)上的錯誤；最后從系統(tǒng)全體出發(fā)，運(yùn)行系統(tǒng)，看是否滿足需求。硬件系統(tǒng)（Dell Latitude C640 Notebook）CPUMobile Intel Pentium 4M 內(nèi)存768 MB DDR2硬盤40 GB 4200 rad/min顯卡ATI Mobility Radeon 7500 32MB顯示器’ TFT LCD 1024*768軟件系統(tǒng)操作系統(tǒng)Microsoft Windows XP Home Edition + SP2程序開發(fā)軟件Visual Basic Editor（Access 2003內(nèi)建）數(shù)據(jù)庫Access 2003辦公軟件Microsoft Office 2003 Professional　　單元測試　　單元測試又稱模塊測試，是針對軟件設(shè)計的最小單位——程序模塊進(jìn)行正確性檢驗(yàn)的測試工作，其目的在于發(fā)現(xiàn)各模塊內(nèi)部可能存在的各種差錯，通俗地說，就是查找Bug。一般來說，單元測試是工作量最大、最繁雜的測試項(xiàng)目?！　∠到y(tǒng)建設(shè)過程中已經(jīng)不間斷地進(jìn)行了許多單元測試，主要針對的是表格和控件屬性設(shè)置的合理性以及系統(tǒng)報錯的解決。通過這些單元測試和除錯，細(xì)節(jié)設(shè)計、系統(tǒng)穩(wěn)定性都已完善?！　〈罅康膯卧獪y試的另一個重要優(yōu)點(diǎn)是，我可以完善地考慮用戶的各種使用環(huán)境，假設(shè)用戶的各種使用習(xí)慣，并且從一個用戶的角度充分體驗(yàn)系統(tǒng)的合理性、便捷性和易用性方面的問題，比如：錄入各種數(shù)據(jù)時光標(biāo)（焦點(diǎn)）在各個文本框中的循環(huán)順序；不同的文本框是否要自動開啟不同的輸入法模式；錄入大量數(shù)據(jù)的情況下，是否在保存每個記錄時都彈出成功保存的提示等等。通過這些體驗(yàn)和系統(tǒng)功能的微調(diào)，系統(tǒng)更具有人性化的設(shè)計，系統(tǒng)使用體驗(yàn)也顯著優(yōu)化?！　〖蓽y試　　集成測試也叫做組裝測試或聯(lián)合測試。通常，在單元測試的基礎(chǔ)上，需要將所有模塊按照設(shè)計要求組裝成為系統(tǒng)，然后考慮模塊功能之間的相互影響、數(shù)據(jù)在模塊之間的傳遞、全局邏輯結(jié)構(gòu)等問題?！　∠到y(tǒng)建設(shè)基本完工之后，進(jìn)行了模塊集成測試，主要針對模