教務(wù)管理系統(tǒng)(參考版)
2025-08-08 06:36本頁面
【正文】 不過我們的課程設(shè)計還存在很多需要進一步完善的地方，以后應(yīng)繼續(xù)努力學習相關(guān)知識。 = TrueEnd IfEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load() 學號 姓名 班級 12341101 12341102 12341103End Sub 圖 8 通過學號查詢學生信息 圖 9 通過姓名查詢學生信息 圖 10 通過班級查詢學生信息 教師錄入學生成績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(真的要刪除[ + Trim((Xno)) + ]嗎?, vbYesNo, 信息提示) = vbYes Then End IfEnd Sub 圖 11 學生成績的錄入 圖 12 刪除學生信息 設(shè)計體會 通過這次的課程設(shè)計我學到了很多東西，從數(shù)據(jù)庫的建立，完善，到學習VB界面代碼的編寫、編譯、修改，再到前臺與數(shù)據(jù)庫的連接，最后到word文檔的排版，都讓我受益匪淺，在加深對數(shù)據(jù)庫的認識的同時，提高了自己分析問題、解決問題的能力以及動手操作能力，也深刻體會到團隊合作精神的重要意義。 Trim() amp。 = TrueEnd IfEnd IfIf Then = select * from Xs where Bno=39。 Trim() amp。 = TrueElseIf Then = select * from Xs where Xname=39。 Trim() amp。 = TrueEnd IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End Sub 圖 5 學生課程信息 圖 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。 Trim() amp。 = TrueEnd IfEnd IfEnd SubPrivate Sub Command2_Click()End Sub
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號-1