學(xué)生信息管理系統(tǒng)vb課程設(shè)計(jì)(參考版)
2024-09-02 11:56本頁(yè)面
【正文】 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í)自己。 此系統(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)不是那么完美。 這次設(shè)計(jì)報(bào)告的制 作過(guò)程是我的一次再學(xué)習(xí)，再提高的過(guò)程。歷經(jīng)一周的奮戰(zhàn)，緊張而又充實(shí)課程設(shè)計(jì)終于落下了帷幕。添加用戶 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ù)未成功寫入數(shù)據(jù)庫(kù)！ , vbOKOnly + vbInformation, 錯(cuò)誤 Exit Sub End Sub VB 課程設(shè)計(jì)論文 18 第 5 章 課設(shè)總結(jié) 時(shí)光短暫，短短的課程設(shè)計(jì)即將結(jié)束，報(bào)告基本完成。子段不要使用關(guān)鍵字“ PassWord” 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 VB 課程設(shè)計(jì)論文 16 圖 44 用戶注冊(cè)界面 注冊(cè)控件編碼： 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ù)庫(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。 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。班級(jí) wherestr = wherestr + Class=39。 39。 amp。 Case 2 39。 txtKey amp。學(xué)號(hào)
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1