健身跑學(xué)分管理系統(tǒng)

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

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

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

4、序設(shè)計與數(shù)據(jù)庫的連接，用SQL語句在數(shù)據(jù)庫中查找，添加和更改數(shù)據(jù)。（2）總體設(shè)計：SQL語言處理數(shù)據(jù)庫ADO技術(shù)連接圖1 總體設(shè)計（3）詳細設(shè)計：開始連接數(shù)據(jù)庫查詢數(shù)據(jù)添加數(shù)據(jù)更改數(shù)據(jù)顯示學(xué)生情況學(xué)生記錄輸入學(xué)生跑步簽到圖2 詳細設(shè)計技術(shù)要點 1關(guān)于數(shù)據(jù)庫的連接 先在窗體上設(shè)置出Adodc1與DataGrid1，然后設(shè)置它們各自的屬性，設(shè)DataGride1的DateSource = Adodc1，再設(shè)Adodc1的屬性，將它們綁定，測試連接。 2 SQL語句的應(yīng)用Adodc1.Recordset.AddNew 向表中加入一條新的記錄。Adodc1.Recordset.Update 數(shù)據(jù)的改變

5、使表保存更新新紀(jì)錄。Adodc1.Recordset.MoveFirst 記錄指針移至第一條記錄。Adodc1.Recordset.MoveNext 記錄指針移至下一條記錄。 Adodc1.Recordset.EOF 記錄指針在末記錄之后 主要界面截圖圖3 跑步簽到界面圖4 按照學(xué)號查詢界面總結(jié)這次課設(shè)我的題目是“健身跑學(xué)分管理系統(tǒng)”，一開始我拿到這個任務(wù)書時，我腦袋里一頭霧水，什么也不知道。畢竟我們好久沒有學(xué)VB了，大多數(shù)內(nèi)容都忘記了。經(jīng)過我的認真分析以及咨詢老師，我漸漸的對這個任務(wù)有了大體了解，于是我就把這個任務(wù)分成了好幾個小步驟。通過翻閱書籍和同學(xué)的幫助，一個一個的小問題就迎刃而解。通過

6、這一周的課設(shè)，我對VB有了更深的認識，它可以變成一個軟件來解決很多生活上和工作上的問題。并且讓我再次復(fù)習(xí)了VB，讓我更加鞏固了它的知識。這次課設(shè)還讓我產(chǎn)生了一種強烈的想法：我以后一定要學(xué)好VB，因為以后它的用處會很多！我還體會到了同學(xué)和老師之間的團結(jié)與幫助是必不可少的，只要有團結(jié)與幫助，任何事情都能解決，它們的力量是無比強大的。雖然這次課設(shè)經(jīng)歷了重重困難，但是最后完成的心情是無比喜悅的，因為是自己親力親為的，所以再怎么辛苦也是值得的！ 完整的源程序Private Sub a_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub b_Click()Te

7、xt3.Text = Val(Text3) + 1If Text3.Text = 20 ThenText4.Text = Val(Text4) + 0.5Else: Text4.Text = Text4.TextEnd IfAdodc1.Recordset.UpdateEnd SubPrivate Sub c_Click()DataGrid1.Visible = TrueDim r As String r = InputBox("請輸入學(xué)號")Adodc1.Recordset.MoveFirstDo While r <> Text2.TextAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then MsgBox "沒有此學(xué)號" Exit Do End IfLoopEnd SubPrivate Sub d_Click()i = MsgBox("是否確定退出？", vbQuestion + vbYesNo, "提示")If i = 6 ThenEndEnd IfE