【導(dǎo)讀】需求管理功能，采購(gòu)/入庫(kù)管理功能以及其他操作功能等。分為管理員登陸和教。登陸后的主要操作是教材的查詢模塊。材科涉及管理的入出庫(kù)教材種類(lèi)非常多，涉及人員廣，工作量大，再者是近年來(lái)，因此,需要一個(gè)自動(dòng)化的工具進(jìn)行統(tǒng)籌管理，才能及時(shí)，準(zhǔn)確的反應(yīng)教。序設(shè)計(jì)，可用于開(kāi)發(fā)Windows環(huán)境下的應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功。能強(qiáng)大，可以與Windows的專業(yè)開(kāi)發(fā)工具SDK相媲美。出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。ACCESS數(shù)據(jù)庫(kù)是個(gè)人、部門(mén)及企業(yè)管理數(shù)據(jù)的最易操作的新一代數(shù)據(jù)庫(kù)。可以非常方便地跨平臺(tái)作業(yè)和共享數(shù)據(jù)。

　　

【正文】 3 = bz3 = 0 For i3 = 1 To 3 If Trim((征訂人 )) = Trim((i3)) Then bz3 = 1 Next i3 If bz3 = 0 Then bz = 0 For i = 0 To If (征訂人 ) = (i) Then bz = 1 Next If bz = 0 Then Trim((征訂人 )) End If Loop DTPicker1 = Date 沈陽(yáng)理工大學(xué) 28 End Sub 按條件查詢 ：征訂后可以按條件選擇查詢查詢征訂的書(shū)籍，可以安出版社，作者，出版時(shí)間和征訂人查詢。如圖 圖 B 征訂查詢 ： 選擇主界面征訂查詢進(jìn)入征訂查詢界面。如圖 圖 B 教材庫(kù)存查詢 ：選擇主界面教材庫(kù)存查詢進(jìn)入該界面，顯示庫(kù)存書(shū)籍。如圖 沈陽(yáng)理工大學(xué) 29 圖 按條件查詢 ：點(diǎn)擊查詢，可以按條件查詢庫(kù)存書(shū)籍。如圖 圖 管理員界面 如果是管理員進(jìn)入，則有除一般用戶外以外其獨(dú)有功能 A 用戶管理 ： 可以對(duì)用戶進(jìn)行修改，添加，刪除 。如圖 沈陽(yáng)理工大學(xué) 30 圖 代碼設(shè)計(jì)： Option Explicit Private Sub Command1_Click() = : = : = : = = False = False = False = True = True = 確定添加 = 取消添加 End Sub Private Sub Command2_Click() Dim aa As Integer aa = MsgBox(確定刪除？ , 32 + 1) If aa = 1 Then = (user) = (qx) End If End Sub 沈陽(yáng)理工大學(xué) 31 Private Sub Command3_Click() = True = True = True = False = False = False = End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() If = 確定修改 Then If (password) Then MsgBox 舊密碼錯(cuò)誤，請(qǐng)重新輸入！ , vbOKOnly + vbInformation: = : Else If Then MsgBox 兩 次輸入的密碼不一致，請(qǐng)重新輸入！ , vbOKOnly + vbInformation: : = = Else (password) = Trim() = = False = True = True = False = False = True End If = = End If End If If = 確定添加 Then If Trim() = Then MsgBox (用戶名不能為空，請(qǐng)輸入用戶名！ ): Else 沈陽(yáng)理工大學(xué) 32 (user) = Trim() (qx) = Trim() (password) = Trim() = True = True = True = 確定修改 = 取消修改 = False = False End If End If End Sub Private Sub Command6_Click() If = 取消修改 Then = True = True = False = False = True = = = = False End If If = 取消添加 Then = True = True = True = False = False = 確定修改 = 取消修改 = = = False End If End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 沈陽(yáng)理工大學(xué) 33 On Error Resume Next = Trim((0)) = Trim((1)) End Sub Private Sub Form_Activate() = Trim((0)) = Trim((1)) End Sub Private Sub Form_Unload(Cancel As Integer) 主窗體 .Enabled = True End Sub B 教材入庫(kù) ：教材征訂后經(jīng)審核可以入庫(kù)后在主界面選擇入庫(kù)，可以對(duì)已經(jīng)征訂的書(shū)籍入庫(kù)。如圖 圖 教材入庫(kù)查詢 ：教材入庫(kù)后可以進(jìn)行入庫(kù)查詢，如圖 沈陽(yáng)理工大學(xué) 34 圖 按條件查詢 ：選擇查詢可 以按條件具體查詢。如圖 圖 C 教材出庫(kù) ：選擇主界面教材出庫(kù)可以進(jìn)入主界面。如圖 沈陽(yáng)理工大學(xué) 35 圖 按條件查詢 ：選擇查詢，可以按條件查詢。如圖 圖 第四章 系統(tǒng)實(shí)施 它實(shí)施對(duì)軟件規(guī)格說(shuō)明、設(shè)計(jì)規(guī)格說(shuō)明和編碼的最終審核。軟件測(cè)試的目的是以最少的人力、物力和時(shí)間投入，盡可能多地找出軟件中潛在的各種錯(cuò)誤和缺陷。測(cè)試的結(jié)果為軟 件可靠性分析提供了依據(jù)。 沈陽(yáng)理工大學(xué) 36 登錄界面的測(cè)試 該測(cè)試的目的是保證登 錄 窗口的正確性與在錯(cuò)誤發(fā)生時(shí)的容錯(cuò)與糾錯(cuò)性。 該系統(tǒng)的用戶名為 admin ,密碼為 admin。 如果輸入正確用戶和密碼則會(huì)進(jìn)入系統(tǒng)。當(dāng)在 登 錄界面 中輸入 錯(cuò)的 用戶名 或錯(cuò)誤的用戶密碼 時(shí)，例如輸入用戶名為將用戶 jyh 或錯(cuò)誤密碼為 1231 時(shí)，系統(tǒng)會(huì)彈出對(duì)話框提示輸入錯(cuò)誤。 其他界面測(cè)試同登錄界面測(cè)試。 系統(tǒng)維護(hù) 管理員負(fù)責(zé)對(duì)系統(tǒng)進(jìn)行日常維護(hù)，內(nèi)容包括：程序的維護(hù)，數(shù)據(jù)文件的維護(hù)，代碼的維護(hù)。 第五章 結(jié)束語(yǔ) 本次課題設(shè)計(jì)任務(wù)是開(kāi)發(fā)教材管 理系統(tǒng)，結(jié)合傳統(tǒng)教材管理的模式，初步實(shí)現(xiàn)了教材的訂購(gòu)、查詢、數(shù)據(jù)庫(kù)管理等一些基本的管理系統(tǒng)功能。 我們對(duì)開(kāi)發(fā)環(huán)境 Visual Basic 并不是很熟悉，在以前的學(xué)習(xí)中也只是涉及到簡(jiǎn)單的程序設(shè)計(jì)，一開(kāi)始做的還是有點(diǎn)力不從心，通過(guò)努力學(xué)習(xí)和探索，我們已經(jīng)使自己可以使用 Visual Basic 和 ACCESS 開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序。 但是，由于實(shí)際條件和時(shí)間限制，還有自己平時(shí)的學(xué)習(xí)不夠，系統(tǒng)在功能方面還不完善，有的僅僅是最簡(jiǎn)單最基本的功能實(shí)現(xiàn)，而且由于我們知識(shí)面的局限性，對(duì)于具體的 MIS 管理系統(tǒng)方 面的知識(shí)還有很大的欠缺，可能在設(shè)計(jì)數(shù)據(jù)庫(kù)存在著不合理的地方，以至于影響到整個(gè)系統(tǒng)的功能以及性能。 總之，通過(guò)這次設(shè)計(jì)使我們學(xué)到了很多書(shū)本上沒(méi)有的知識(shí)，了解到只有將理論和實(shí)際相結(jié)合才能將學(xué)到的知識(shí)消化為自己的，同時(shí)也認(rèn)識(shí)到了我們自身的不足。這次設(shè)計(jì)也使我們學(xué)會(huì)了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)間相互幫助精神。 參考文獻(xiàn) [1]： 黃梯云 《 管理信息系統(tǒng)》 高等教育出版社 2020 [2]： 劉志嫵 《基于 VB 和 SQL 的數(shù)據(jù)庫(kù)編程技術(shù)》 清華大學(xué)出版社 2020