數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用課程設(shè)計(jì)-資料下載頁
2025-06-27 10:18本頁面
【正文】 End Sub測試結(jié)果：圖18 修改課程信息測試結(jié)果界面六、系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)現(xiàn)登錄模塊的關(guān)鍵語句、關(guān)鍵代碼段及關(guān)鍵技術(shù)說明：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, 錯(cuò)誤提示 Else If = Trim(rs(1)) Then userpwd = userid = Else: MsgBox 密碼錯(cuò)誤！, vbOKOnly + vbExclamation, 錯(cuò)誤提示 End If End IfEnd Sub測試與調(diào)試圖19 登錄界面修改密碼模塊的關(guān)鍵語句、關(guān)鍵代碼段：Private Sub Command1_Click() If = userpwd Then = False = False = True = False = True = True = False = True Else: MsgBox 密碼錯(cuò)誤, vbOKOnly + vbExclamation, 錯(cuò)誤提示 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, 錯(cuò)誤提示 = = End IfEnd Sub測試與調(diào)試：圖20 修改密碼（輸入原密碼）界面圖21 修改密碼（設(shè)置新密碼）界面七、設(shè)計(jì)總結(jié)及心得體會設(shè)計(jì)總結(jié)：該系統(tǒng)實(shí)現(xiàn)了用戶登錄、密碼驗(yàn)證、密碼修改、數(shù)據(jù)庫的增刪查改等功能，界面簡潔美觀；以后需要進(jìn)一步考慮和完善的問題是該系統(tǒng)未涉及多表查詢，實(shí)現(xiàn)的功能較簡單，沒有實(shí)現(xiàn)視圖和索引等功能。課程設(shè)計(jì)過程中收獲了很多，對數(shù)據(jù)庫知識體系的理解更加深入，也遇到了數(shù)據(jù)庫連不上、插入數(shù)據(jù)失敗、添加背景圖片大小不匹配等問題，通過對遇到問題的思考及資料的查詢，成功解決了遇到的問題，并將數(shù)據(jù)庫功能完善。
物理相關(guān)推薦
鄂ICP備17016276號-1