基于vb和sql的學(xué)生信息管理系統(tǒng)設(shè)計-wenkub
2022-09-07 15:02:26 本頁面
【正文】 在的問題和管理的實際需要，我們將理順管理體制和建立各種管理規(guī)范與開發(fā)系統(tǒng)有機結(jié)合起來，通過幾個功能模塊進行統(tǒng)一管理，要求系統(tǒng)滿足以下幾個方面的要求： 從用戶角度來看，系統(tǒng)首先應(yīng)該能夠提供便捷與強大的信息查詢功能。 具有較強的靈活性及可擴展性，能夠存儲一定數(shù)量的學(xué)生信息，并方便有效的進行相應(yīng)的數(shù)據(jù)操作和管理，這主要包括：學(xué)生信息的錄入、查詢、刪除及修改，課程信息的錄入、查詢、刪除和修改，班級信息的錄入、查詢、刪除及 修改，教師信息的錄入，查詢、刪除和修改，課程表信息的錄入、查詢、刪除和修改，專業(yè)信息的錄入、查詢刪除和修改，各種信息的單條件查詢和多條件的組合查詢。同時系統(tǒng)允許學(xué)生和教師對自己的登錄密碼進行修改，而不能更改別人的登錄密碼，而管理員可以 隨意的修改任何一個登錄用戶的登錄密碼和登錄權(quán)限。只有系統(tǒng)管理員可以進行與這個模塊有關(guān)的相應(yīng)的操作。 D．班級信息管理模塊： 班級信息管理模塊專門對各班信息進行班級信息添加、班級信息查詢、班級信息修改和班級信息刪除操作，同時能夠?qū)崿F(xiàn)按照班級名稱進行單條件的查詢，并且當(dāng)?shù)卿浻脩羯矸菔菍W(xué)生或者登錄用戶身份是任課教師時，只能進行查詢班級信息的的操作。 （ 2）課程相關(guān)信息錄入、修改、刪除和查詢功能。 （ 6）系統(tǒng)管理功能，包括登錄用戶的添加、修改、刪除和查詢， 權(quán)限的控制。） 圖 登錄認(rèn)證窗口 15 驗證用戶登錄信息代碼： Private Sub Command1_Click() = adCmdText = select * from users where usersname=39。 If = Or = Then If = And = Then MsgBox 用戶名和密碼不能為空！ End If If = Then MsgBox 請輸入密碼！ End If If = Then MsgBox 請輸入用戶名！ End If End If If = Or = Or = Then If = And = And = Then MsgBox 歡迎 + + ！ If = 管理員 Then Unload Me End If If = 學(xué)生 Then Unload Me End If If = 老師 Then Unload Me End If End If If Or = Then If And = Then 16 MsgBox 密碼錯誤，請重新輸入！ End If If Then MsgBox 登錄類型錯誤，請重新選擇！ End If End If If = And = Then If = 請選擇登錄類型 Then MsgBox 請選擇登錄類型！ End If If And 請選擇登錄類型 Then MsgBox 登錄類型錯誤，請重新輸入！ End If End If End If If RecordCount 0 Then MsgBox 沒有此用戶名，請重新輸入！ End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() End Sub 17 系統(tǒng)主界面的設(shè)計： 主窗口是所有用戶登陸成功后，所見到的第一個窗口，也是所有用戶所有操作的主界面，這里包括了用戶被允許進行的操 作，根據(jù)功能界面設(shè)計如下列圖 所示： 圖 管理員登陸界面 當(dāng)不同的登錄用戶登錄時，主界面的操作權(quán)限是不同的，當(dāng)?shù)卿浻脩羰枪芾韱T時，可以進行所有的操作，但是當(dāng)?shù)卿浻脩羰菍W(xué)生時或者甚至教師時有的操作使用權(quán)限就被限制了，當(dāng)?shù)卿浻脩羰菍W(xué)生時如下列圖 ： 18 圖 用戶使用權(quán)限受限 19 圖 用戶使用權(quán)限受限 主要功能模塊的設(shè)計 ： 系統(tǒng)管理： 該模塊包括四個功能：用戶添加、用戶查詢、用戶修改、用戶刪除；管理員用戶可以執(zhí)行以上四個操作，但是教師和學(xué)生不可以執(zhí)行上述的四個操作。 39。 39。 Trim() amp。查詢按鈕 If Len() 0 Then = adCmdText = select * from student where sno=39。 = False Else MsgBox (請指定要查找學(xué)生的學(xué)號！ ), , (提示 ) End If End Sub Private Sub fanhui_Click() 31 Unload Me End Sub Private Sub Form_Load() = = = = = = End Sub Private Sub shanchu_Click() Dim res As Integer res = MsgBox( 確實 要刪除此條記錄嗎？ , vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then = =
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1