教務(wù)管理系統(tǒng)-資料下載頁(yè)
2025-08-05 06:36本頁(yè)面
【正文】 bPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End Sub 圖 5 學(xué)生課程信息 圖 6 教師登錄界面教師用戶Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click()End Sub 圖 7 教師用戶界面教師查詢Private Sub Command2_Click()End SubPrivate Sub Command1_Click()If Then = select * from Xs where Xno=39。 amp。 Trim() amp。 39。 = TrueElseIf Then = select * from Xs where Xname=39。 amp。 Trim() amp。 39。 = TrueEnd IfEnd IfIf Then = select * from Xs where Bno=39。 amp。 Trim() amp。 39。 = TrueEnd IfEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load() 學(xué)號(hào) 姓名 班級(jí) 12341101 12341102 12341103End Sub 圖 8 通過(guò)學(xué)號(hào)查詢學(xué)生信息 圖 9 通過(guò)姓名查詢學(xué)生信息 圖 10 通過(guò)班級(jí)查詢學(xué)生信息 教師錄入學(xué)生成績(jī)Private Sub Command3_Click()End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command1_Click()If Then(Cid) = Trim()(Xno) = Trim()(Bno) = Trim()(Kno) = Trim()(Cscore) = Trim()End IfEnd SubPrivate Sub Command2_Click() If MsgBox(真的要?jiǎng)h除[ + Trim((Xno)) + ]嗎?, vbYesNo, 信息提示) = vbYes Then End IfEnd Sub 圖 11 學(xué)生成績(jī)的錄入 圖 12 刪除學(xué)生信息 設(shè)計(jì)體會(huì) 通過(guò)這次的課程設(shè)計(jì)我學(xué)到了很多東西，從數(shù)據(jù)庫(kù)的建立，完善，到學(xué)習(xí)VB界面代碼的編寫(xiě)、編譯、修改，再到前臺(tái)與數(shù)據(jù)庫(kù)的連接，最后到word文檔的排版，都讓我受益匪淺，在加深對(duì)數(shù)據(jù)庫(kù)的認(rèn)識(shí)的同時(shí)，提高了自己分析問(wèn)題、解決問(wèn)題的能力以及動(dòng)手操作能力，也深刻體會(huì)到團(tuán)隊(duì)合作精神的重要意義。 雖然在設(shè)計(jì)過(guò)程中遇到了很多的困難，但是通過(guò)自己的努力和請(qǐng)教別人，完成了負(fù)責(zé)的模塊的功能及實(shí)現(xiàn)，實(shí)現(xiàn)了簡(jiǎn)單界面的操作，并學(xué)會(huì)了利用ODBC與數(shù)據(jù)庫(kù)連接，實(shí)現(xiàn)前臺(tái)的修改和后臺(tái)的維護(hù)。不過(guò)我們的課程設(shè)計(jì)還存在很多需要進(jìn)一步完善的地方，以后應(yīng)繼續(xù)努力學(xué)習(xí)相關(guān)知識(shí)。
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1