【導(dǎo)讀】第二章應(yīng)用系統(tǒng)設(shè)計(jì)------------------------------------------------------------7. 第三章數(shù)據(jù)庫(kù)設(shè)計(jì)--------------------------------------------------------------10. 概念設(shè)計(jì)及E-R圖-----------------------------------------------------------------------------------------11. 邏輯設(shè)計(jì)及數(shù)據(jù)庫(kù)表--------------------------------------------------------------------------------------13. VB連接ACCESS2021數(shù)據(jù)庫(kù)----------------------------------------------------------------------------22. 第五章、------------------------------------------------------------------系統(tǒng)性能測(cè)試和分析。、系統(tǒng)登陸界面---------------------------------------------------------------------------------------------30. 論文錄入界面實(shí)現(xiàn)------------------------------------------------------------------------------------------49. 管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要。不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理學(xué)生的方案。文章介紹了學(xué)生管理信息系。主要模塊的算法，本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。

　　

【正文】 amp。 userID amp。 and [用戶 密碼 ]= amp。 passwd amp。 39。打開數(shù)據(jù)庫(kù) Set userDB = (0).OpenDatabase(dbName, False, True) 39。檢索用戶 ,驗(yàn)證密碼 *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 26 26 Set userRD = (STRSQL, dbOpenSnapshot) If 0 Then 39。設(shè)置用戶身份 UserShenFen = userRD![用戶身份 ] 39。關(guān)閉數(shù)據(jù)庫(kù) Set userRD = Nothing Set userDB = Nothing 39。進(jìn)入用戶環(huán)境 Load FrmMain Unload FrmLogIn logOK = True userName = userID = vbDefault Else 39。關(guān)閉數(shù)據(jù)庫(kù) Set userRD = Nothing Set userDB = Nothing logOK = False = vbDefault MsgBox 用戶名或密碼錯(cuò)誤！請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 登陸失敗 End If Exit Sub errEnd： = vbDefault MsgBox , vbOKOnly + vbExclamation, 登陸錯(cuò)誤 logOK = False 39。關(guān)閉數(shù)據(jù)庫(kù) Set userRD = Nothing Set userDB = Nothing Exit Sub End Sub 4． 數(shù)據(jù)源的約定 *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 27 27 需用數(shù)據(jù)源的組件如： DataGrid 一律采用 Adodb 控件。有特殊需求的情況如：身份驗(yàn)證應(yīng)引用 DAO(數(shù)據(jù)訪問對(duì)象 )。 5．?dāng)?shù)據(jù)庫(kù)訪問約定 數(shù)據(jù)庫(kù)引擎采用 ，由 Adodb組件進(jìn)行數(shù)據(jù)庫(kù)的訪問，并為其他組件提供數(shù)據(jù)源。特殊情況、身份驗(yàn)證等由 DAO 訪問數(shù)據(jù)庫(kù)。無需數(shù)據(jù)顯示的情況由 DAO 提供數(shù)據(jù)庫(kù)支持，有數(shù)據(jù)顯示的情況由 ADODB 組件提供數(shù)據(jù)庫(kù)支持。 第五章 、 系統(tǒng)性能測(cè)試和分析 測(cè)試的目的就是為了能以最少的人力和是發(fā)現(xiàn)潛在的各種錯(cuò)誤和缺陷。系統(tǒng)測(cè)試是保證系統(tǒng)質(zhì)量和可靠性的關(guān)鍵步驟，是對(duì)系統(tǒng)開開過程的系統(tǒng)分析，系統(tǒng)設(shè)計(jì)和實(shí)施的最后檢查。 系統(tǒng)測(cè)試分為白 盒測(cè)試和黑盒測(cè)試 就軟件測(cè)試來講，軟件的黑盒測(cè)試意味著軟件要在軟件的接口進(jìn)行測(cè)試。即不考慮系統(tǒng)的內(nèi)部邏輯結(jié)構(gòu)和內(nèi)部特性，而只看程序是否完成了其功能。所以黑盒測(cè)試主要對(duì)程序做以下檢查： 是否遺漏了功能和沒有完善的功能， 在接口上輸入能否有正確的輸出、 性能是否滿足要求 白盒測(cè)試主要是對(duì)軟件的細(xì)節(jié)做測(cè)試，測(cè)試人員利用內(nèi)部的結(jié)構(gòu)選擇用例。在本系統(tǒng)中，在開發(fā)過程中采用單元測(cè)試已經(jīng)保證了每個(gè)單元能夠完成獨(dú)立的任務(wù)，并且沒有任何的錯(cuò)誤，所有我們?cè)诖颂幍臏y(cè)試，主要著重系統(tǒng)的整體測(cè)試。 測(cè)試實(shí)例的選擇與研究 由于本系統(tǒng)的規(guī)模比較小，因此每一個(gè)測(cè)試項(xiàng)，在上面對(duì)應(yīng)的部分完成以后，由測(cè)試人員和編碼人員共同進(jìn)行驗(yàn)證，在單元測(cè)試中，測(cè)試的方法以白盒測(cè)試為*******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 28 28 主，在界面測(cè)試的時(shí)候，以視覺觀察、個(gè)人判斷作為測(cè)試的依據(jù)。本測(cè)試計(jì)劃的主要內(nèi)容，集中測(cè)試系統(tǒng)的各個(gè)功能是否完成、是否正確、完成后的系統(tǒng)測(cè)試。測(cè)試的依據(jù)是設(shè)計(jì)階段所形成的概要設(shè)計(jì)和詳細(xì)設(shè)計(jì)，對(duì)于設(shè)計(jì)中沒有清楚表述的或者由于變更引起的功能，以需求文檔為準(zhǔn)。進(jìn)度和資源的總體安排請(qǐng)參考項(xiàng)目計(jì)劃，本部分的內(nèi)容，以項(xiàng)目計(jì)劃為基礎(chǔ)。具體的測(cè)試項(xiàng)請(qǐng)參考測(cè)試用例設(shè)計(jì)文檔，此處以測(cè)試項(xiàng)標(biāo)識(shí)。 1． 測(cè)試環(huán)境： 客戶程序硬件最低要求 ： 具有 Pentium 4 處理器 且滿足以下要求的計(jì)算機(jī) ： 最低 128MB 內(nèi)存 ,或者更高 最小 20GB 硬盤 鼠標(biāo) 鍵盤 客戶操作系統(tǒng) ： Windows 98/NT /2021/XP/Server2021/XP 2． 測(cè)試項(xiàng)： 提貨模塊，在此模塊中我們主要測(cè)試提貨信息和庫(kù)存信息在提貨成功的時(shí)候是否保持一致性，并且驗(yàn)證界面的使用是否方便。并對(duì)此模塊作出評(píng)估，如果還有存在問題我們要進(jìn)行修改，如果已經(jīng)通過測(cè)試我們將從中獲得經(jīng)驗(yàn)并在以后將本次軟件開發(fā)的經(jīng)驗(yàn)用戶以后的開 發(fā)過程。系統(tǒng)在開發(fā)過程本身也是遵循一個(gè)嚴(yán)謹(jǐn)?shù)倪^程，所以為了保證產(chǎn)品的質(zhì)量，我們必須嚴(yán)格按照需求說明書和測(cè)試說明書來測(cè)試各個(gè)功能模塊。 3． 測(cè)試條件： 在客戶最低配置的硬件設(shè)施下 ， 測(cè)試登錄除了設(shè)計(jì)驗(yàn)證數(shù)據(jù)庫(kù)用戶信息之外，還需要檢驗(yàn)與數(shù)據(jù)庫(kù)的調(diào)用關(guān)系和界面邏輯，因此，牽涉到的測(cè)試用例（組）包括以下五個(gè)。 (1) 數(shù)據(jù)連接模塊； (2) 數(shù)據(jù)驗(yàn)證模塊； (3) 數(shù)據(jù)查詢模塊； (4) 數(shù)據(jù)插入模塊； (5) 數(shù)據(jù)庫(kù)關(guān)閉模塊； 輸入 CHeck Conndbe Search Insert Closedb 輸出 正 確信息 True True True True True 成功 不正確信息 True True False False True 失敗 *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 29 29 不完善信息 False False False False 為使用 失敗 由以上我們看出在此模塊中我們必須輸入完善的正確的信息才能通過系統(tǒng)，從而可以看出系統(tǒng)的安全機(jī)制很高，對(duì)信息的驗(yàn)證效率十分高。而且系統(tǒng)中各個(gè)模塊的獨(dú)立性十分強(qiáng)，也不會(huì)因?yàn)槟硞€(gè)模塊的失敗而導(dǎo)致整個(gè)系統(tǒng)的失敗。所以此模塊的功能是完善的。 測(cè)試表格 測(cè)試表格顯示此功能模塊通過測(cè)試，也證明了本功能 模塊與其他模塊的獨(dú)立性十分強(qiáng)，從而在以后更新軟件的過程中，能夠更多的更有效的使用各個(gè)功能模塊。 1． 測(cè)試項(xiàng)： 整個(gè)系統(tǒng) 2． 測(cè)試條件： 在其 他測(cè)試項(xiàng)都通過了單元測(cè)試，組裝測(cè)試，確認(rèn)測(cè)試。下面針對(duì)整個(gè)系統(tǒng)進(jìn)行測(cè)試：系統(tǒng)測(cè)試是將已經(jīng)確認(rèn)的軟件，計(jì)算機(jī)硬件等其他因素組合在一起，進(jìn)行信息系統(tǒng)的各種組裝和確認(rèn)測(cè)試，其目的是通過和系統(tǒng)的需求相比較，發(fā)現(xiàn)所開發(fā)的系統(tǒng)與用戶需求不符或矛盾的地方。常見的系統(tǒng)測(cè)試有恢復(fù)測(cè)試，安全性測(cè)試，強(qiáng)度測(cè)試，性能測(cè)試，可靠性測(cè)試，安裝測(cè)試。在本系統(tǒng)中我們對(duì)整個(gè)源代碼進(jìn)行測(cè)試，發(fā)現(xiàn)系統(tǒng)沒有出現(xiàn) 什么問題 ,在將系統(tǒng)打包后可能會(huì)出現(xiàn)的問題就是有些機(jī)器上可能沒有沒有微軟公司的一些 ActiveXObject控件或者是某些組件。因此導(dǎo)致系統(tǒng)不能加載某寫對(duì)象，為了解決這個(gè)我們問題我們?cè)?Setup 文件夾做一個(gè) .bat 的批處理文件，我們只要雙擊加載這些文件即可。 通過整個(gè)系統(tǒng)的測(cè)試，我們發(fā)現(xiàn)真?zhèn)€系統(tǒng)的功能還是比較穩(wěn)定，雖然在某些地方還不盡如人意，但是我們開發(fā)的目的還是達(dá)到了，作為第一次開發(fā)軟件，第一次做畢業(yè)設(shè)計(jì)，我們從中還是學(xué)到了不少的知識(shí)，通過這次開發(fā)，我們?yōu)橐院筮M(jìn)入計(jì)算機(jī)行業(yè)做開發(fā)工作積累了一定的經(jīng)驗(yàn)。 *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 30 30 第六章、系統(tǒng)界面實(shí)現(xiàn) 、系統(tǒng)登陸界面 雙擊圖標(biāo)運(yùn)行程序以后，就可以看到程序的登錄界面。需要通過系統(tǒng)管理驗(yàn)證，即輸入正確的密碼進(jìn)行系統(tǒng)登陸，本系統(tǒng)默認(rèn)的密碼為 0。當(dāng)然，用戶可以在系統(tǒng)登錄時(shí)為了防止系統(tǒng)密碼的泄露而可以進(jìn)行對(duì)密碼的及時(shí)修改和更新。 登錄界面源代碼： 39。記錄確定次數(shù) Dim miCount As Integer Private Sub Command1_Click() 39。39。登錄 On Error GoTo Err Dim txtsql As String UserName = If Trim( = ) Then MsgBox 請(qǐng)重新輸入用戶名！ , vbOKOnly + vbExclamation, 警告 Else 39。39。39。 Dim sysPassword As String sysPassword = GetSetting(, Settings, syspassword, admin) If Trim() = admin And Trim() = sysPassword Then 39。39。39。管理員進(jìn)入 UserName = 39。初始化系統(tǒng) OK = True Unload Me *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 31 31 ElseIf Trim() admin Then txtsql = select * from user_Info where 姓名 = 39。 amp。 amp。 39。 If Then txtsql, CN, adOpenStatic, adLockOptimistic If = True Then MsgBox 沒有這個(gè)用戶，請(qǐng)重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then UserName = Trim() SaveSetting , Settings, user_name, UserName OK = True Unload Me Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 End If End If miCount = miCount + 1 OK = False If miCount = 3 Then End End If Exit Sub Err: MsgBox 登錄出錯(cuò) ,請(qǐng)找管理員 !, vbExclamation OK = False End End Sub Private Sub Command2_Click() 39。39。取消 End End Sub Private Sub Form_Activate() *******系 畢業(yè)論文管理系統(tǒng) 作者 : **** 32 32 End Sub Private Sub Form_Load() If Then = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False OK = False = GetSetting(, Settings, user_name, ) End Sub 、系統(tǒng)主界面 ： 在系統(tǒng)登錄成功之后