1、沈 陽 航 空 航 天 大 學 課程設計 學 號：2009040302072 班 級：94030203 姓 名：王大鳳指導教師：王曉巖 2011年3 月 15日沈陽航空工業學院課程設計任務書學院：航空宇航工程 專業：飛行器制造工程 班級：94030203學號：2009040302072題目：健身跑學分管理系統一、課程設計時間2011年3月711日（第1周），共計1周，20學時。二、課程設計內容用VB+Access組合，編寫“健身跑學分管理”軟件。學生的信息要存儲到Access數據庫的student表中，此表要根據實際需要設計其結構（字段）。學分計算方法：在本學期內累計次數達到20次，可得到0.

2、5學分，否則沒有學分，新學期開始累計次數從0開始累計。該系統具有如下功能：(1) 學生記錄輸入。(2) 跑步簽到(每簽到一次，累計次數加1，可進行學分計算)。(3) 查詢(可按學號、學分等進行查詢)。三、課程設計要求程序質量：² 貫徹事件驅動的程序設計思想。² 用戶界面友好，功能明確，操作方便；可以加以其它功能或修飾。² 用戶界面中的菜單至少應包括“學生記錄輸入”、“跑步簽到”、“查詢”、“退出”4項。² 代碼應適當縮進，并給出必要的注釋，以增強程序的可讀性。課程設計說明書：² 課程結束后，上交課程設計說明書和源程序。課程設計說明書的內容參見提

3、供的模板。四、指導教師和學生簽字指導教師：_ 學生簽名：_五、成績六、教師評語目 錄需求分析4設計分析4技術要點6主要界面截圖7總結9完整的源程序10參考文獻12需求分析用VB+Access組合，編寫“健身跑學分管理”軟件。學生的信息要存儲到Access數據庫的student表中，此表要根據實際需要設計其結構（字段）。學分計算方法：在本學期內累計次數達到20次，可得到0.5學分，否則沒有學分，新學期開始累計次數從0開始累計。該系統具有如下功能：(1) 學生記錄輸入。(2) 跑步簽到(每簽到一次，累計次數加1，可進行學分計算)。(3) 查詢(可按學號、學分等進行查詢)。設計分析（1）概述：建立程

4、序設計與數據庫的連接，用SQL語句在數據庫中查找，添加和更改數據。（2）總體設計：SQL語言處理數據庫ADO技術連接圖1 總體設計（3）詳細設計：開始連接數據庫查詢數據添加數據更改數據顯示學生情況學生記錄輸入學生跑步簽到圖2 詳細設計技術要點 1關于數據庫的連接 先在窗體上設置出Adodc1與DataGrid1，然后設置它們各自的屬性，設DataGride1的DateSource = Adodc1，再設Adodc1的屬性，將它們綁定，測試連接。 2 SQL語句的應用 向表中加入一條新的記錄。 數據的改變使表保存更新新紀錄。Adodc 記錄指針移至第一條記錄。 記錄指針移至下一條記錄。 記錄指針

5、在末記錄之后 主要界面截圖圖3 跑步簽到界面圖4 按照學號查詢界面總結這次課設我的題目是“健身跑學分管理系統”，一開始我拿到這個任務書時，我腦袋里一頭霧水，什么也不知道。畢竟我們好久沒有學VB了，大多數內容都忘記了。經過我的認真分析以及咨詢老師，我漸漸的對這個任務有了大體了解，于是我就把這個任務分成了好幾個小步驟。通過翻閱書籍和同學的幫助，一個一個的小問題就迎刃而解。通過這一周的課設，我對VB有了更深的認識，它可以變成一個軟件來解決很多生活上和工作上的問題。并且讓我再次復習了VB，讓我更加鞏固了它的知識。這次課設還讓我產生了一種強烈的想法：我以后一定要學好VB，因為以后它的用處會很多！我還體會

6、到了同學和老師之間的團結與幫助是必不可少的，只要有團結與幫助，任何事情都能解決，它們的力量是無比強大的。雖然這次課設經歷了重重困難，但是最后完成的心情是無比喜悅的，因為是自己親力親為的，所以再怎么辛苦也是值得的！ 完整的源程序Private Sub a_Click()End SubPrivate Sub b_Click()Text3.Text = Val(Text3) + 1If Text3.Text = 20 ThenText4.Text = Val(Text4) + 0.5Else: Text4.Text = Text4.TextEnd IfEnd SubPrivate Sub c_Click()DataGrid1.Visible = TrueDim r As String r = InputBox("請輸入學號")Do While r <> Text2.TextIf Adodc1.Recordset.EOF Then MsgBox "沒有此學號" Exit Do End IfLoopEnd SubPrivate Sub d_Click()i = MsgBox("是否確定退出？", vbQuestion + vbYesNo, &q