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