基于vb和sql的學生信息管理系統(tǒng)設計(參考版)
2024-08-31 15:02本頁面
【正文】 本系統(tǒng)的應用，將會使學生和教務管理人員在第一時間內獲得理想信息。通過對程序流程圖和界面的設計以及部分功能的實現(xiàn)，使我認識到了自己在學習上的不足，明白了在以后的學習工作實踐過程中自己應該注意的一些問題。軟件設計是一個精細漫長的過程。后臺數(shù) 據(jù)庫的管理開發(fā)選用 SQL Server 2020。 = False Else MsgBox (請指定要查找學生的學號！ ), , (提示 ) 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 = = = = = = = True MsgBox 記錄已刪除！ End If End Sub Private Sub Text1_Change() = True End Sub 由于其余的各個模塊與如上所述的幾個模塊有相當大的相似之處，所以在此就不再一一詳細的進行寫出。 Trim() amp。查詢按鈕 If Len() 0 Then = adCmdText = select * from student where sno=39。 25 = True End If End Sub Private Sub DataCombo1_Change() = True End Sub Private Sub fanhui_Click() 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 = = = = True MsgBox 記錄已刪除！ End If End Sub 成績管理： 該模塊包括 三 個功能：成績信息查詢、成績信息修改、成績信 息刪除；管理員用戶可以執(zhí)行以上四個操作，但是教師和學生只可以進行成績信息的查詢的操作。 Trim() amp。 = False = True = True = False = True = True = True = False = False = False = True = True = True End Sub Private Sub Check1_Click() = 24 End Sub Private Sub Check2_Click() = End Sub Private Sub Check3_Click() = End Sub ⑷ 、 用戶刪除： 當想將某個用戶刪除時，可以通過下列的窗體將用戶刪除，窗體如下列圖 所示： 圖 用戶刪除 實現(xiàn)此功能的代碼如下 ： Private Sub chaxun_Click() If = 請選擇用戶名稱 Then MsgBox (請指定要查找用戶的名稱！ ), , (提示 ) Else = adCmdText = select * from users where usersname=39。 39。 amp。 39。 amp。 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 = 學生 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
黨政相關相關推薦
鄂ICP備17016276號-1