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

1、健身跑學(xué)分管理系統(tǒng)健身跑學(xué)分管理系統(tǒng)健身跑學(xué)分管理系統(tǒng)健身跑學(xué)分管理系統(tǒng)編制僅供參考審核批準(zhǔn)生效日期地址： 電話：傳真: 郵編:沈 陽(yáng) 航 空 航 天 大 學(xué) 課程設(shè)計(jì) 學(xué) 號(hào)：02072 班 級(jí)： 姓 名：王大鳳指導(dǎo)教師：王曉巖 2011年3 沈陽(yáng)航空工業(yè)學(xué)院課程設(shè)計(jì)任務(wù)書學(xué)院：航空宇航工程 專業(yè)：飛行器制造工程 班級(jí)：學(xué)號(hào)：02072題目：健身跑學(xué)分管理系統(tǒng)一、課程設(shè)計(jì)時(shí)間2011年3月711日（第1周），共計(jì)1周，20學(xué)時(shí)。二、課程設(shè)計(jì)內(nèi)容用VB+Access組合，編寫“健身跑學(xué)分管理”軟件。學(xué)生的信息要存儲(chǔ)到Access數(shù)據(jù)庫(kù)的student表中，此表要根據(jù)實(shí)際需要設(shè)計(jì)其結(jié)構(gòu)（字段）。

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

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

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

5、至下一條記錄。 記錄指針在末記錄之后 主要界面截圖圖3 跑步簽到界面圖4 按照學(xué)號(hào)查詢界面總結(jié)這次課設(shè)我的題目是“健身跑學(xué)分管理系統(tǒng)”，一開始我拿到這個(gè)任務(wù)書時(shí)，我腦袋里一頭霧水，什么也不知道。畢竟我們好久沒有學(xué)VB了，大多數(shù)內(nèi)容都忘記了。經(jīng)過我的認(rèn)真分析以及咨詢老師，我漸漸的對(duì)這個(gè)任務(wù)有了大體了解，于是我就把這個(gè)任務(wù)分成了好幾個(gè)小步驟。通過翻閱書籍和同學(xué)的幫助，一個(gè)一個(gè)的小問題就迎刃而解。通過這一周的課設(shè)，我對(duì)VB有了更深的認(rèn)識(shí)，它可以變成一個(gè)軟件來解決很多生活上和工作上的問題。并且讓我再次復(fù)習(xí)了VB，讓我更加鞏固了它的知識(shí)。這次課設(shè)還讓我產(chǎn)生了一種強(qiáng)烈的想法：我以后一定要學(xué)好VB，因?yàn)橐院?/p>

6、它的用處會(huì)很多！我還體會(huì)到了同學(xué)和老師之間的團(tuán)結(jié)與幫助是必不可少的，只要有團(tuán)結(jié)與幫助，任何事情都能解決，它們的力量是無比強(qiáng)大的。雖然這次課設(shè)經(jīng)歷了重重困難，但是最后完成的心情是無比喜悅的，因?yàn)槭亲约河H力親為的，所以再怎么辛苦也是值得的！ 完整的源程序Private Sub a_Click() SubPrivate Sub b_Click() = Val(Text3) + 1If = 20 Then = Val(Text4) + Else: = End If SubPrivate Sub c_Click() = TrueDim r As String r = InputBox(請(qǐng)輸入學(xué)號(hào)) While r Then MsgBox 沒有此學(xué)號(hào) Exit Do End IfLoopEnd SubPrivate Sub d_Click()i = MsgBox(是否確定退出, vbQuesti