【正文】 VB 課程設(shè)計論文 19 參考文獻(xiàn) [1] 龔沛曾，陸慰民，楊志強(qiáng) . Visual Basic 實驗指導(dǎo)與測試（第三版） .北京：高等教育出版社， 2020 [2] 羅朝盛 . Visual 程序設(shè)計教程（第二版） . 北京：人民郵電出版社， 2020 [3] 羅朝盛 . Visual 程序設(shè)計基礎(chǔ)教程 . 北京：人民郵電出 版社， 2020 [4] 羅朝盛，胡同森 .Visual Basic 學(xué)習(xí)與實踐指導(dǎo) .杭州：浙江科學(xué)技術(shù)出版社，2020 [5] 王棟 . Visual Basic 程序設(shè)計實用教程（第二版） . 北京：清華大學(xué)出版社，2020 。 總之，通過這次課程設(shè)計 ,我深刻體會到要做好一個完整的事情，需要有系統(tǒng)的思維方式和方法，對待要解決的 問題，要耐心、要善于運(yùn)用已有的資源來充實自己。 此系統(tǒng)是我做的一個簡單的學(xué)生管理系統(tǒng)，由于缺少經(jīng)驗，在建立數(shù)據(jù)庫的時候，考慮的不完善，建立數(shù)據(jù)庫內(nèi)容 接觸 較少，導(dǎo)致系統(tǒng)功能實現(xiàn)不是那么完美。 這次設(shè)計報告的制 作過程是我的一次再學(xué)習(xí)，再提高的過程。歷經(jīng)一周的奮戰(zhàn)，緊張而又充實課程設(shè)計終于落下了帷幕。添加用戶 txtUserName, txtPassword, txtRealname, txtUnit, Now, udAge, Usertype, State MsgBox 注冊成功！ , vbOKOnly + vbInformation, 注意 Unload Me Else MsgBox 用戶已經(jīng)存在！請重新注冊一個新的用戶名 , vbOKOnly + vbInformation, 注意 = = = End If Exit Sub exit1: MsgBox 數(shù)據(jù)未成功寫入數(shù)據(jù)庫！ , vbOKOnly + vbInformation, 錯誤 Exit Sub End Sub VB 課程設(shè)計論文 18 第 5 章 課設(shè)總結(jié) 時光短暫，短短的課程設(shè)計即將結(jié)束，報告基本完成。子段不要使用關(guān)鍵字“ PassWord” 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 VB 課程設(shè)計論文 16 圖 44 用戶注冊界面 注冊控件編碼： Private Sub cmdReg_Click() 39。 (cmdScore).CommandText = sqlstr 39。刷新 Grid,這兩句不可省 = !StudentID = !StudentName = !Class = !Gender = !AcceptanceTime = !Dormitory = !Hometown sqlstr = select * from ScoreTable where StudentID=39。 + strColumn + 39。刷新 Grid,這兩句不可省 = (cmdFindStudent).Name = 3000 If 0 Then (0).Button = True Else MsgBox 在數(shù)據(jù)庫中沒找到要查詢的對象 , vbOKOnly + vbInformation, 查詢失敗 End If End Sub Private Sub dgrdResult_ButtonClick(ByVal ColIndex As Integer) Dim col As Column Dim sqlstr As String Dim strColumn As String VB 課程設(shè)計論文 15 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 End If End If 39。 女 amp。 ElseIf Then wherestr = wherestr + Gender like 39。 男 amp。性別關(guān)鍵字 If And = 1 Then If wherestr Then If Then wherestr = wherestr + and Else wherestr = wherestr + or End If End If If Then wherestr = wherestr + Gender like 39。 %39。% amp。 End If 39。 txtNameKey amp。姓名關(guān)鍵字 If And = 1 And Then If wherestr Then If Then wherestr = wherestr + and Else wherestr = wherestr + or End If End If wherestr = wherestr + StudentName like 39。 %39。% amp。 ) End Select End If 39。 txtKey amp。 or class like 39。 txtKey amp。 or studentname like 39。 txtKey amp。關(guān)鍵字 wherestr = wherestr + (studentid like 39。 39。 amp。 Case 4 39。 txtKey amp。班級 wherestr = wherestr + Class=39。 39。 amp。 Case 2 39。 txtKey amp。學(xué)號