數據庫系統(tǒng)原理與應用課程設計-資料下載頁
2025-06-27 10:18本頁面
【正文】 End Sub測試結果：圖18 修改課程信息測試結果界面六、系統(tǒng)詳細設計及實現登錄模塊的關鍵語句、關鍵代碼段及關鍵技術說明：Private Sub Command1_Click() Dim As New Dim 2 As String 2 = driver=sql server。server=.。database=S_C 2 Dim rs As New Dim sql As String sql = select * from Users where zh=39。 + + 39。 Set rs = (sql) If Then MsgBox 用戶不存在！, vbOKOnly + vbExclamtion, 錯誤提示 Else If = Trim(rs(1)) Then userpwd = userid = Else: MsgBox 密碼錯誤！, vbOKOnly + vbExclamation, 錯誤提示 End If End IfEnd Sub測試與調試圖19 登錄界面修改密碼模塊的關鍵語句、關鍵代碼段：Private Sub Command1_Click() If = userpwd Then = False = False = True = False = True = True = False = True Else: MsgBox 密碼錯誤, vbOKOnly + vbExclamation, 錯誤提示 End IfEnd SubPrivate Sub Command2_Click() If mm1 = mm2 Then Dim As New Dim 2 As String 2 = driver=sql server。server=.。database=S_C 2 Dim cmd As New Dim sql As String sql = update Users set mm = 39。 + + 39。 where zh = 39。 + userid + 39。 Set = = adCmdText = sql MsgBox 修改成功, vbOKOnly Else: MsgBox 密碼不一致, vbOKOnly + vbExclamation, 錯誤提示 = = End IfEnd Sub測試與調試：圖20 修改密碼（輸入原密碼）界面圖21 修改密碼（設置新密碼）界面七、設計總結及心得體會設計總結：該系統(tǒng)實現了用戶登錄、密碼驗證、密碼修改、數據庫的增刪查改等功能，界面簡潔美觀；以后需要進一步考慮和完善的問題是該系統(tǒng)未涉及多表查詢，實現的功能較簡單，沒有實現視圖和索引等功能。課程設計過程中收獲了很多，對數據庫知識體系的理解更加深入，也遇到了數據庫連不上、插入數據失敗、添加背景圖片大小不匹配等問題，通過對遇到問題的思考及資料的查詢，成功解決了遇到的問題，并將數據庫功能完善。
物理相關推薦
鄂ICP備17016276號-1