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

-.z**航空航天大學(xué)課程設(shè)計(jì)學(xué)號(hào)05班級(jí)94030101姓名王望指導(dǎo)教師*學(xué)平2011年3月18日-.z**航空航天大學(xué)課程設(shè)計(jì)任務(wù)書學(xué)院：航宇專業(yè)：飛行器制造班級(jí)：94030101**：05題目：健身跑學(xué)分管理系統(tǒng)一、課程設(shè)計(jì)時(shí)間2011年3月7日~11日〔第1周〕，共計(jì)1周。二、課程設(shè)計(jì)內(nèi)容用VB+Access組合，編寫“健身跑學(xué)分管理〞軟件。學(xué)生信息存儲(chǔ)到Access數(shù)據(jù)庫(kù)的一個(gè)表中，學(xué)生信息至少包括：**、**、簽到次數(shù)、學(xué)分等，后兩項(xiàng)的初始值為0。學(xué)分計(jì)算方法：在本學(xué)期內(nèi)累計(jì)次數(shù)到達(dá)10次，可得到0.5學(xué)分，否則沒(méi)有學(xué)分，新學(xué)期開(kāi)場(chǎng)累計(jì)次數(shù)從0開(kāi)場(chǎng)累計(jì)，每簽到一次，累計(jì)簽到次數(shù)加1。程序能實(shí)現(xiàn)對(duì)學(xué)生數(shù)據(jù)進(jìn)展維護(hù)、跑步簽到、按**或?qū)W分查詢等功能。用戶界面中的菜單至少應(yīng)包括“編輯學(xué)生數(shù)據(jù)〞、“跑步簽到〞、“查詢〞、“退出〞4項(xiàng)。三、課程設(shè)計(jì)要求程序質(zhì)量：貫徹事件驅(qū)動(dòng)的程序設(shè)計(jì)思想。用戶界面友好，功能明確，操作方便；可以增加其它功能或修飾。代碼應(yīng)適當(dāng)縮進(jìn)，并給出必要的注釋，以增強(qiáng)程序的可讀性。課程設(shè)計(jì)說(shuō)明書：課設(shè)完畢后，上交課程設(shè)計(jì)說(shuō)明書和源程序。課程設(shè)計(jì)說(shuō)明書的內(nèi)容參見(jiàn)提供的模板。四、指導(dǎo)教師和學(xué)生簽字指導(dǎo)教師：________學(xué)生簽名：________五、成績(jī)六、教師評(píng)語(yǔ)目錄一、需求分析4二、設(shè)計(jì)分析4三、關(guān)鍵技術(shù)6四、總結(jié)12五、完整的源程序13六、參考文獻(xiàn)15一、需求分析模擬健身跑學(xué)分管理系統(tǒng)，主要包括“編輯學(xué)生數(shù)據(jù)〞`“跑步簽到〞`“查詢〞幾項(xiàng)功能。由于簽到次數(shù)和學(xué)分有一定的聯(lián)系，所以系統(tǒng)能夠按照**或?qū)W分查詢學(xué)生的健身跑簽到情況。要求：①在Access中創(chuàng)立學(xué)生根本狀況表，主要包括跑步簽到〞和“實(shí)際學(xué)分〞2方面信息。此表的構(gòu)造應(yīng)如下定義：**，**，簽到次數(shù)，學(xué)分。②能夠隨時(shí)顯示學(xué)生簽到次數(shù)和學(xué)分情況。③能夠隨時(shí)編輯學(xué)生的信息，包括添加，刪除和修改學(xué)生信息。④能夠隨時(shí)的按**或?qū)W分查詢學(xué)生的健身跑簽到情況。二、設(shè)計(jì)分析根本原理：用VB+Access組合，編寫“健身跑學(xué)分管理〞軟件。學(xué)生信息存儲(chǔ)到Access數(shù)據(jù)庫(kù)的一個(gè)表中，建立程序設(shè)計(jì)與數(shù)據(jù)庫(kù)的連接，用SQL語(yǔ)句在數(shù)據(jù)庫(kù)中查找，添加和更改數(shù)據(jù)?？傮w設(shè)計(jì)：SQL語(yǔ)言處理SQL語(yǔ)言處理數(shù)據(jù)庫(kù)ADO技術(shù)連接圖1總體設(shè)計(jì)〔3〕詳細(xì)設(shè)計(jì)：開(kāi)場(chǎng)連接數(shù)據(jù)庫(kù)開(kāi)場(chǎng)連接數(shù)據(jù)庫(kù)查詢學(xué)生數(shù)據(jù)編輯學(xué)生數(shù)據(jù)跑步簽到顯示簽到和學(xué)分情況添加，刪除和修改學(xué)生信息數(shù)據(jù)學(xué)生跑步簽到圖1詳細(xì)設(shè)計(jì)〔4〕數(shù)據(jù)庫(kù)設(shè)計(jì)：數(shù)據(jù)庫(kù)設(shè)計(jì)是總體設(shè)計(jì)階段非常重要的環(huán)節(jié)，數(shù)據(jù)庫(kù)構(gòu)造的變化會(huì)造成編碼的改動(dòng)，所以必須認(rèn)真設(shè)計(jì)數(shù)據(jù)庫(kù)構(gòu)造后再進(jìn)展編碼，從而防止無(wú)謂的重復(fù)工作。本系統(tǒng)的數(shù)據(jù)庫(kù)包括1個(gè)表，即學(xué)生根本狀況表。1)學(xué)生根本狀況表(rsb.dbf)學(xué)生根本狀況表(rsb.dbf)用于記錄**、**、簽到次數(shù)、學(xué)分等信息，其邏輯構(gòu)造如表1所示。表1學(xué)生根本狀況表字段名稱數(shù)據(jù)類型字段大小小數(shù)位數(shù)必填字段**數(shù)字長(zhǎng)整型自動(dòng)否**文本50否簽到次數(shù)數(shù)字長(zhǎng)整型自動(dòng)否學(xué)分?jǐn)?shù)字單精度自動(dòng)否三、關(guān)鍵技術(shù)〔1〕建立與數(shù)據(jù)庫(kù)的連接代碼如下。PrivateSubForm_Load()Dimmpath$,mlink$mpath=App.Path'獲取程序所在的路徑IfRight(mpath,1)<>"\"Thenmpath=mpath+"\"'判斷是否為子目錄'以下兩行代碼可合成一句，mlink存放ConnectionString屬性的設(shè)置值mlink="Provider=Microsoft.Jet.OLEDB.4.0;"'指定提供者mlink=mlink+"DataSource="+mpath+"student.mdb"'在數(shù)據(jù)庫(kù)文件名前插入路徑Adodc1.ConnectionString=mlink'設(shè)置連接屬性Adodc1.mandType=adCmdUnknown'指定記錄集命令類型〔可在設(shè)計(jì)時(shí)指定〕Adodc1.RecordSource="Select*from根本狀況"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSub〔2〕查詢經(jīng)營(yíng)情況是SQL語(yǔ)句在數(shù)據(jù)庫(kù)中查找學(xué)生健身跑根本狀況Recordset.Find搜索條件<,<位移>,<搜索方向>,<起始位置>>Select<字段名表>From<表名>Where<條件>程序段如下：按**查詢：PrivateSubmand2_Click()DimnAsStringn=InputBo*("請(qǐng)輸入**","查找窗")Adodc1.Recordset.Find"**='"&n&"'",,,1IfAdodc1.Recordset.EOFThenMsgBo*"無(wú)此**！",,"提示"EndSub按學(xué)分查詢：PrivateSubmand5_Click()Dimn!n=InputBo*("請(qǐng)輸入學(xué)分","查找窗")Adodc1.RecordSource="select*from根本狀況where學(xué)分="&n&"Adodc1.RefreshEndSub窗體-查詢：圖2窗體-按**查詢圖3窗體-按學(xué)分查詢〔3〕跑步簽到會(huì)更改數(shù)據(jù)庫(kù)中簽到次數(shù)和學(xué)分信息。程序段如下：PrivateSubmand4_Click()IfOption1.Value=TrueThenTe*t3=Te*t3+1Adodc1.Recordset.Fields("簽到次數(shù)")=Te*t3EndIfIfTe*t3.Te*t>=10ThenAdodc1.Recordset.Fields("學(xué)分")=0.5ElseAdodc1.Recordset.Fields("學(xué)分")=0EndIfEndSub窗體-跑步簽到圖4窗體-跑步簽到〔4〕編輯學(xué)生信息是向數(shù)據(jù)庫(kù)中添加，刪除和修改學(xué)生的根本狀況信息。程序段如下：PrivateSubmand1_Click(inde*AsInteger)DimaskAsIntegerSelectCaseinde*Case0Adodc1.Recordset.AddNew'添加Case1ask=MsgBo*("刪除否.",vbYesNo)Ifask=6ThenAdodc1.Recordset.Delete'刪除Adodc1.Recordset.MoveNe*tEndIfCase2Adodc1.Recordset.Update'修改EndSelectEndSub窗體-編輯學(xué)生信息：圖5窗體-添加學(xué)生信息四、總結(jié)這次課設(shè)我的題目是健身跑學(xué)分管理系統(tǒng)，當(dāng)然理論知識(shí)是用來(lái)指導(dǎo)實(shí)踐的，親身體驗(yàn)才能領(lǐng)悟編寫程序的妙用，在課設(shè)中我被分到了健身跑學(xué)分管理系統(tǒng)，同時(shí)我們?cè)谄綍r(shí)生活中這個(gè)我們接觸比擬多，對(duì)于它的流程還是比擬清晰的，但是我還是花了很長(zhǎng)的時(shí)間去完成它，通過(guò)這次課設(shè)讓我了解了用VB+Access組合，編寫“健身跑學(xué)分管理〞軟件。將學(xué)生信息存儲(chǔ)到Access數(shù)據(jù)庫(kù)的一個(gè)表中，VB與數(shù)據(jù)庫(kù)之間的聯(lián)系，可以應(yīng)用ADO技術(shù)使VB與數(shù)據(jù)庫(kù)進(jìn)展聯(lián)系，還可以應(yīng)用SQL語(yǔ)言查詢和更改數(shù)據(jù)庫(kù)中的信息，并能向其中添加新的信息。讓我們的理論知識(shí)在實(shí)踐中得以穩(wěn)固。在課設(shè)過(guò)程中，我遇到了重重困難，例如：VB與數(shù)據(jù)庫(kù)的連接技術(shù)，通過(guò)教師的指點(diǎn)和自己查閱資料，我克制了困難，順利的完成了任務(wù)。同時(shí)我也了解了VB的出現(xiàn)是一場(chǎng)技術(shù)革命，它在生活中各個(gè)方面都能發(fā)揮巨大的作用，所以，學(xué)好VB是社會(huì)開(kāi)展的需要。五、完整的源程序OptionE*plicitPrivateSubmand1_Click(inde*AsInteger)DimaskAsIntegerSelectCaseinde*Case0Adodc1.Recordset.AddNew'添加Case1ask=MsgBo*("刪除否.",vbYesNo)Ifask=6ThenAdodc1.Recordset.Delete'刪除EndIfCase2Adodc1.Recordset.Update'修改EndSelectEndSubPrivateSubmand2_Click()DimnAsStringn=InputBo*("請(qǐng)輸入**","查找窗")Adodc1.Recordset.Find"**='"&n&"'",,,1IfAdodc1.Recordset.EOFThenMsgBo*"無(wú)此**！",,"提示"EndSubPrivateSubmand3_Click()EndEndSubPrivateSubmand4_Click()IfOption1.Value=TrueThenTe*t3=Te*t3+1Adodc1.Recordset.Fields("簽到次數(shù)")=Te*t3EndIfIfTe*t3.Te*t>=10ThenAdodc1.Recordset.Fields("學(xué)分")=0.5ElseAdodc1.Recordset.Fields("學(xué)分")=0EndIfEndSubPrivateSubmand5_Click()Dimn!n=InputBo*("請(qǐng)輸入學(xué)分","查找窗")Adodc1.RecordSource="select*from根本狀況where學(xué)分="&n&"Adodc1.RefreshEndSubPrivateSubForm_Load()Dimmpath$,mlink$mpath=App.Path'獲取程序所在的路徑IfRight(mpath,1)<>"\"Thenmpath=mpath+"\"'判斷是否為子目錄'以下兩行代碼可合成一句，mlink存放ConnectionString