【正文】 Persist Security Info=False OK = False = GetSetting(, Settings, user_name, ) End Sub 、系統(tǒng)主界面 ： 在系統(tǒng)登錄成功之后，就。 amp。取消 End End Sub Private Sub Form_Activate() *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 32 32 End Sub Private Sub Form_Load() If Then = Provider=。 If Then txtsql, CN, adOpenStatic, adLockOptimistic If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then UserName = Trim() SaveSetting , Settings, user_name, UserName OK = True Unload Me Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 End If End If miCount = miCount + 1 OK = False If miCount = 3 Then End End If Exit Sub Err: MsgBox 登錄出錯 ,請找管理員 !, vbExclamation OK = False End End Sub Private Sub Command2_Click() 39。 amp。初始化系統(tǒng) OK = True Unload Me *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 31 31 ElseIf Trim() admin Then txtsql = select * from user_Info where 姓名 = 39。39。 Dim sysPassword As String sysPassword = GetSetting(, Settings, syspassword, admin) If Trim() = admin And Trim() = sysPassword Then 39。39。39。 登錄界面源代碼： 39。需要通過系統(tǒng)管理驗證，即輸入正確的密碼進(jìn)行系統(tǒng)登陸，本系統(tǒng)默認(rèn)的密碼為 0。 通過整個系統(tǒng)的測試，我們發(fā)現(xiàn)真?zhèn)€系統(tǒng)的功能還是比較穩(wěn)定，雖然在某些地方還不盡如人意，但是我們開發(fā)的目的還是達(dá)到了，作為第一次開發(fā)軟件，第一次做畢業(yè)設(shè)計，我們從中還是學(xué)到了不少的知識，通過這次開發(fā)，我們?yōu)橐院筮M(jìn)入計算機(jī)行業(yè)做開發(fā)工作積累了一定的經(jīng)驗。在本系統(tǒng)中我們對整個源代碼進(jìn)行測試，發(fā)現(xiàn)系統(tǒng)沒有出現(xiàn) 什么問題 ,在將系統(tǒng)打包后可能會出現(xiàn)的問題就是有些機(jī)器上可能沒有沒有微軟公司的一些 ActiveXObject控件或者是某些組件。下面針對整個系統(tǒng)進(jìn)行測試：系統(tǒng)測試是將已經(jīng)確認(rèn)的軟件，計算機(jī)硬件等其他因素組合在一起，進(jìn)行信息系統(tǒng)的各種組裝和確認(rèn)測試，其目的是通過和系統(tǒng)的需求相比較，發(fā)現(xiàn)所開發(fā)的系統(tǒng)與用戶需求不符或矛盾的地方。 測試表格 測試表格顯示此功能模塊通過測試，也證明了本功能 模塊與其他模塊的獨立性十分強(qiáng)，從而在以后更新軟件的過程中，能夠更多的更有效的使用各個功能模塊。而且系統(tǒng)中各個模塊的獨立性十分強(qiáng)，也不會因為某個模塊的失敗而導(dǎo)致整個系統(tǒng)的失敗。 3． 測試條件： 在客戶最低配置的硬件設(shè)施下 ， 測試登錄除了設(shè)計驗證數(shù)據(jù)庫用戶信息之外，還需要檢驗與數(shù)據(jù)庫的調(diào)用關(guān)系和界面邏輯，因此，牽涉到的測試用例（組）包括以下五個。并對此模塊作出評估，如果還有存在問題我們要進(jìn)行修改，如果已經(jīng)通過測試我們將從中獲得經(jīng)驗并在以后將本次軟件開發(fā)的經(jīng)驗用戶以后的開 發(fā)過程。具體的測試項請參考測試用例設(shè)計文檔，此處以測試項標(biāo)識。測試的依據(jù)是設(shè)計階段所形成的概要設(shè)計和詳細(xì)設(shè)計，對于設(shè)計中沒有清楚表述的或者由于變更引起的功能，以需求文檔為準(zhǔn)。 測試實例的選擇與研究 由于本系統(tǒng)的規(guī)模比較小，因此每一個測試項，在上面對應(yīng)的部分完成以后，由測試人員和編碼人員共同進(jìn)行驗證，在單元測試中，測試的方法以白盒測試為*******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 28 28 主，在界面測試的時候，以視覺觀察、個人判斷作為測試的依據(jù)。所以黑盒測試主要對程序做以下檢查： 是否遺漏了功能和沒有完善的功能， 在接口上輸入能否有正確的輸出、 性能是否滿足要求 白盒測試主要是對軟件的細(xì)節(jié)做測試，測試人員利用內(nèi)部的結(jié)構(gòu)選擇用例。 系統(tǒng)測試分為白 盒測試和黑盒測試 就軟件測試來講，軟件的黑盒測試意味著軟件要在軟件的接口進(jìn)行測試。 第五章 、 系統(tǒng)性能測試和分析 測試的目的就是為了能以最少的人力和是發(fā)現(xiàn)潛在的各種錯誤和缺陷。特殊情況、身份驗證等由 DAO 訪問數(shù)據(jù)庫。有特殊需求的情況如：身份驗證應(yīng)引用 DAO(數(shù)據(jù)訪問對象 )。關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing logOK = False = vbDefault MsgBox 用戶名或密碼錯誤！請重新輸入！ , vbOKOnly + vbExclamation, 登陸失敗 End If Exit Sub errEnd： = vbDefault MsgBox , vbOKOnly + vbExclamation, 登陸錯誤 logOK = False 39。關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing 39。檢索用戶 ,驗證密碼 *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 26 26 Set userRD = (STRSQL, dbOpenSnapshot) If 0 Then 39。 39。 and [用戶 密碼 ]= amp。 編碼風(fēng)格參照下例進(jìn)行： Public Sub CheckUser(userID As String, passwd As String) Dim userDB As Database Dim userRD As Recordset Dim dbName As String Dim STRSQL As String = 11 On Error GoTo errEnd dbName = If Right(dbName, 1) 、 Then dbName = dbName + 、 dbName = dbName + DataBase、 STRSQL = select [用戶身份 ] from [Admin] where [用戶 ID]= amp。 1．對象命名約定 下面為在編碼過程中會用到的對象統(tǒng)一的命名，如下表 對象統(tǒng)一的命名所示 : *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 24 24 表 對象統(tǒng)一的命名 對 象名 對象類型 命名約定（前綴碼） Form 窗體 Frm Command 按鈕 Cmd Label 標(biāo)簽 Lab TextBox 文本框 Txt ComboBox 組合框 ComB ListBox 列表框 LstB Adodb 數(shù)據(jù)庫訪問對象 Adodb DataGrid 數(shù)據(jù)表格顯示組件 DataGrid Frame 框架 Fam Option 單選框 Opt CheckBox 復(fù)選框 Chk PictureBox 圖象顯示組件 PtB CommonDialog 通用對話框組件 ComDlg Timer 時間組件 Tim ToolBar 工具欄 TlBar Menu 菜單 Mnu SSTab 頁框 SSTab ImageList 界面資源組件 ImgLst *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 25 25 ２． 常量和變量的命名約定 下面為在編碼過程中會用到的常量和變量統(tǒng)一的命名，如表 所示 : 表 常量和變量命名約定 變量名 數(shù)據(jù)類型 變量類型 含義 UserShenFen String 全局變量 用戶身份標(biāo)志 LogOK Boolean 全 局變量 登陸狀態(tài) UserName String 全局變量 用戶名 GongYingShangID String 全局變量 文檔標(biāo)題 GongYingShang String 全局變量 文檔類型 TuShuBianHao String 全局變量 入庫日期 DingJia Single 全局變量 下發(fā)日期 ShuMing String 全局變量 入庫人 HuiYuanKaHao String 全局變量 文檔資料 HYXingMing String 全局變量 主要內(nèi)容 HYDengJi String 全局變量 備注 編碼應(yīng)清晰、可讀性好，運用縮進(jìn)、空行，結(jié)合大小寫區(qū)別等方法保持程序結(jié)構(gòu)良好。 界面約定，除主界面外，所有子界面均采用模式窗體，即該窗體不消失，不可以在本程序內(nèi)將焦點移出子窗體。 首先考慮標(biāo)準(zhǔn)化，在標(biāo)準(zhǔn)化的基礎(chǔ)上進(jìn)行界面的美工設(shè)計。 3．軟件質(zhì)量需求 易用、健壯、兼容性好、運行穩(wěn)定、有一定安全保障。 2．軟硬件環(huán)境需求 軟件環(huán)境：兼容當(dāng)前主流操作系統(tǒng) Windows 95/98/NT/Me/2021/XP 等。如果聲明在下面， 那就成了局部變量，那么作用范圍就會不同了，作用就更不同，而且在其它窗體中使用到了這個變量，程序會出錯。其中有兩個變量要定義為公用的變量，因為這段代碼是放在一個模塊中的，為了*******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 23 23 在每一個窗體中能夠 使用這個變量，所以必須要聲明為公用變量。設(shè)置數(shù)據(jù)庫對像 End Sub 上面的一段代碼就是連接數(shù)據(jù)庫的。 39。 39。建立數(shù)據(jù)庫連接對像 DBpath = amp。 Sub ConnStr() 39。Persist Security Info=False 指定數(shù)據(jù)連接的路徑，模式，安全機(jī)制 = 30 指定數(shù)據(jù)超時 的時間 打開數(shù)據(jù)庫 If = 1 Then ConnectDB = True 如果數(shù)據(jù)已經(jīng)打開就返回 TRUE Else ConnectDB = False End If End Function Public Function CloseDB() A