數據庫原理與應用課程設計-學生選課管理系統-資料下載頁

【導讀】高，在學校內部利用計算機進行管理已成為一種必然。目前計算機的迅猛發展突。破了時間、空間的局限性，給學校管理帶來了極大的方便。為了適應社會的發展，逐步淘汰落后的手工管理方式。本課程設計《學生選課管理系統》就是為一個學。選課等諸多環節的管理。

　　

【正文】 ue = True End Sub Private Sub Command11_Click() If Len() 0 Then = adCmdText = select o,ame,credit,semster from course where o=39。 amp。 Trim() amp。 39。 Else MsgBox (請輸入要查找的課程號！ ) End If End Sub Private Sub Command10_Click() = = = = End Sub 學生選課界面 點擊“學生選課管理系統”界面的“學生選課”按鈕，可以進入“學生選課管理”的界面，如圖 5 所示 。 此界面暴汗三個按鈕，點擊“選課”按鈕可以進入學生選課的界面 ，點擊“查詢”按鈕可以查詢及刪除學生的選課記錄，“退出”按鈕可以返回到“學生選課管理系統”的界面 。 圖 5 學生選課管理界面 商洛學院計算機科學系課程設計報告 21 選課操作 點擊“學生選課管理”界面的“選課”按鈕可以進入到“選課操作”的界面（如圖 6所示），此界面包含兩個按鈕，在文本框中輸入學生的學號和姓名，以及參照“所有可選課程信息”在“所選課程”文本框中輸入要選擇的課程的名稱， 通過添加一個 ADO控件連接到數據源，可以 點擊“選課”按鈕選課，選課成功會出現提示信息“選課成功！”。 此界面可以實現學生選課的操作， 通過添加“ AdodcGrid”控件，“所有可選課程信息”中 會顯示所有可選課程的信息。 點擊“退出”按鈕可以返回到“學生選課管理”界面。 ： 圖 6 選課操作界面 ： Private Sub Command1_Click() End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_load() Dim strselect As String 商洛學院計算機科學系課程設計報告 22 strselect = select * from course = adCmdText = strselect Set = Adodccourse Call initgrid = = = End Sub Private Sub initgrid() With dtgcond .Columns(0).Caption = 課程號 .Columns(1).Caption = 課程名 .Columns(2).Caption = 學分 .Columns(3).Caption = 學期 .Columns(0).Width = 1300 .Columns(1).Width = 2021 .Columns(2).Width = 1300 .Columns(3).Width = 1300 End With End Sub 查詢選課操作 點擊“學生選課管理”界面的“查詢”按鈕，可以進入到“查詢所選課程”的界面 （如圖 7 所示） 。 此界面包含三個按鈕：查詢、刪除、退出。在使用“查詢”按鈕之前，“刪除“按鈕不可用，也就是說，只有查詢了以后才可以刪除所查詢的記錄。通過添加一個 ADO控件就可以實現 ”查詢“和”刪除“的功能。點擊”退出“按鈕可以返回到”學生選課管理“界面。 ： 商洛學院計算機科學系課程設計報告 23 圖 7 查詢所選課程界面 ： Private Sub Command1_Click() If Len() 0 Then = adCmdText = select sno,sname,ame from choose where sno=39。 amp。 Trim() amp。 39。 = True Else MsgBox (請輸 入要查找的學號 ) End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() Dim res As Integer res = MsgBox(確定要刪除此行記錄嗎 ?, vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then End If End Sub 商洛學院計算機科學系課程設計報告 24 Private Sub Form_load() = False Dim strselect As String strselect = select * from choose = adCmdText = strselect = = = End Sub 商洛學院計算機科學系課程設計報告 25 結束語 本管理系統通過對信息的采集、存儲、加工、維護和使用等 ,并隨著管理科學和技術科學的發展而形成的。學生 選課 管理系統能為用戶提供充足的信息，對學生來說可以輕松使用。通過這段時間的具體應用和不斷完善，顯示出良好的效果。整個管理系統提高了工作效率，也對學生工作管理的科學化、正規化起到了重要的作用。 這是我第一次做一個系統出來，同時完成了一篇課程設計的論文。從 剛開始的一片茫然，一步一步地摸索、修改，到現在終于做出了一個成品，雖然過程很辛苦，但現在回想起來也很充實?？赡芪易龅倪€不夠好，有很多的不足，比如功能不是很強大，系統不夠完善，但我還是有一種小小的成就感。 在這份 課程設計 即將完成之際，我的心情 特別激動，無法平靜 。 雖然對 VB 掌握的不夠徹底，對相關知識了解的也不是很多，但 從開始 做系統 到論文的順利完成， 有很多老師、朋友都給了我很大的幫助和鼓勵，使我增強了信心，最終堅持了下來。在此我要感謝樊景博老師，王威老師和魚先鋒老師，感謝他們對我的指導以及幫助，也感謝所有幫助過我 、鼓勵過我的朋友們，衷心地對你們說聲謝謝！ 商洛學院計算機科學系課程設計報告 26 參考文獻 [1] 何玉潔 .數據庫原理與應用 ，北京： 機械 工業出版社， 2021 [2] 陳志泊、李冬梅 數據庫原理及應用教程 [M]. 北京：人民 郵電出版社 [3] 薩師煊、王珊．《數據庫系統概論》 [M]．北京高等教育出版社． 2021． 2 [4].童愛紅、侯太平編著《 Visual Basic 數據庫編程》 .北京：清華大學出版社 .北京交通大學出版社 . 課程設計獨創性聲明： 學生簽名： 指導教師評語： 課程設計成績： 指導教師簽名： 教研室意見： 教研室主任簽名：