數(shù)據(jù)庫系統(tǒng)原理與應用課程設計-閱讀頁
2025-07-12 10:18本頁面
【正文】 ing sql = update course set ame=39。,cpno=39。,ccredit=39。 where o=39。 MsgBox 修改成功, vbOKOnly + vbExclamation, 信息提示 = = sql End Sub測試結果：圖18 修改課程信息測試結果界面六、系統(tǒng)詳細設計及實現(xiàn)登錄模塊的關鍵語句、關鍵代碼段及關鍵技術說明：Private Sub Command1_Click() Dim As New Dim 2 As String 2 = driver=sql server。database=S_C 2 Dim rs As New Dim sql As String sql = select * from Users where zh=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測試與調(diào)試圖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。database=S_C 2 Dim cmd As New Dim sql As String sql = update Users set mm = 39。 where zh = 39。 Set = = adCmdText = sql MsgBox 修改成功, vbOKOnly Else: MsgBox 密碼不一致, vbOKOnly + vbExclamation, 錯誤提示 = = End IfEnd Sub測試與調(diào)試：圖20 修改密碼（輸入原密碼）界面圖21 修改密碼（設置新密碼）界面七、設計總結及心得體會設計總結：該系統(tǒng)實現(xiàn)了用戶登錄、密碼驗證、密碼修改、數(shù)據(jù)庫的增刪查改等功能，界面簡潔美觀；以后需要進一步考慮和完善的問題是該系統(tǒng)未涉及多表查詢，實現(xiàn)的功能較簡單，沒有實現(xiàn)視圖和索引等功能。
物理相關推薦
鄂ICP備17016276號-1