1、設(shè)計(jì)主題：運(yùn)動(dòng)會(huì)管理系統(tǒng)一、設(shè)計(jì)實(shí)驗(yàn)條件電腦第九室二、設(shè)計(jì)任務(wù)和要求1 .設(shè)計(jì)合理可行的數(shù)據(jù)庫，建立正確的數(shù)據(jù)庫表和表之間的關(guān)系。 在此基礎(chǔ)上完成相關(guān)的算法和程序2、系統(tǒng)根據(jù)實(shí)現(xiàn)的功能，進(jìn)行合理的模塊劃分，確定合理的功能流。3 .給出系統(tǒng)的概要設(shè)計(jì)、詳細(xì)設(shè)計(jì)4 .完成數(shù)據(jù)流圖、E-R關(guān)系圖、數(shù)據(jù)庫表、程序流程圖、功能框圖設(shè)計(jì)、功能編程5 .系統(tǒng)操作界面友好美麗。導(dǎo)師的評(píng)論：指導(dǎo)教師簽名：1 .概要計(jì)算機(jī)以其強(qiáng)大的性能價(jià)格優(yōu)勢(shì)給人們的工作、學(xué)習(xí)和生活帶來了很大的便利。 電腦代替人手處理一些事務(wù)是必然的。 整個(gè)人類社會(huì)進(jìn)入了高度信息化，人們的信息和數(shù)據(jù)的利用和處理已經(jīng)進(jìn)入了自動(dòng)化、網(wǎng)絡(luò)化、社會(huì)化的

2、階段。 在資料檢索、日常事務(wù)處理、科研生產(chǎn)等方面，無需利用大量信息資源。 因此，如何有效地進(jìn)行數(shù)據(jù)信息的管理和利用成為了引人注目的課題。 信息在各個(gè)領(lǐng)域具有不同的概念，在管理科學(xué)領(lǐng)域，信息是加工處理過的數(shù)據(jù)形式，是有序的符號(hào)排列，被認(rèn)為是系統(tǒng)傳輸和處理的對(duì)象。 信息時(shí)代的今天，信息的作用越來越受到重視。 即使制定成績(jī)計(jì)劃，研究投資戰(zhàn)略，信息的活用也是不可或缺的。在今天的社會(huì)里，體育越來越普及，參加運(yùn)動(dòng)會(huì)的人越來越多，素質(zhì)越來越高。 傳統(tǒng)運(yùn)動(dòng)會(huì)一般是人工組織的，運(yùn)動(dòng)員的報(bào)名、比賽計(jì)劃、比賽場(chǎng)地的安排和成績(jī)記錄等操作都是人工操作的，參加人數(shù)越多，運(yùn)動(dòng)會(huì)的規(guī)模越大，管理起來就越費(fèi)時(shí)間，容易出錯(cuò)。 學(xué)

3、校田徑運(yùn)動(dòng)會(huì)管理系統(tǒng)為組織者提供簡(jiǎn)單方便的方法來管理運(yùn)動(dòng)會(huì)。 學(xué)校田徑比賽管理系統(tǒng)是“互動(dòng)系統(tǒng)”，用簡(jiǎn)單的鍵盤輸入和鼠標(biāo)點(diǎn)擊完成麻煩的記錄和安排，保證運(yùn)動(dòng)會(huì)的正常順利進(jìn)行。 學(xué)校田徑比賽管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫應(yīng)用系統(tǒng)，能完成田徑比賽管理中運(yùn)動(dòng)員的登記、分組、比賽成績(jī)處理和公告、成績(jī)統(tǒng)計(jì)信息查詢等事務(wù)處理功能。 根據(jù)學(xué)校田徑比賽的一般流程，本系統(tǒng)分為前期編制處理、比賽管理處理、查詢輸出處理和系統(tǒng)維護(hù)4個(gè)工具模塊來完成所希望的功能。 根據(jù)關(guān)系型數(shù)據(jù)庫理論設(shè)計(jì)數(shù)據(jù)庫的結(jié)構(gòu)。 使用這個(gè)系統(tǒng)，在可以大幅度減少員工勞動(dòng)量的同時(shí)，還可以大幅度提高生產(chǎn)效率、可靠性、正確性2 .需求分析本系統(tǒng)適用于各種學(xué)校

4、田徑比賽的全課程管理。 本系統(tǒng)的競(jìng)爭(zhēng)規(guī)程設(shè)定靈活，輸入運(yùn)動(dòng)員申請(qǐng)表方便，成績(jī)輸入簡(jiǎn)單，成績(jī)查詢功能豐富。 還考慮到了接口的友好性、操作的簡(jiǎn)單性、運(yùn)行的可靠性。選手信息輸入運(yùn)動(dòng)員的成績(jī)登記返回退出學(xué)生成績(jī)查詢各系成績(jī)查詢運(yùn)動(dòng)員管理系統(tǒng)管理員登錄成績(jī)查詢圖1運(yùn)動(dòng)會(huì)管理系統(tǒng)的流程圖3 .概念結(jié)構(gòu)設(shè)計(jì)1 )各表的E-R圖如下所示運(yùn)動(dòng)員。學(xué)號(hào)性別姓名編號(hào)結(jié)女兒圖2選手屬性表運(yùn)動(dòng)員的成績(jī)本科比賽的名次項(xiàng)目編號(hào)比賽成績(jī)比賽的得分圖3選手成績(jī)屬性表本科小組本科代碼本科代碼本科排名總分圖4學(xué)部組屬性表項(xiàng)目項(xiàng)目編號(hào)項(xiàng)目名稱項(xiàng)目類型比賽的類型錄用人數(shù)組數(shù)圖5項(xiàng)目屬性表1本科小組所屬n運(yùn)動(dòng)員。m比賽項(xiàng)目n項(xiàng)目編號(hào)項(xiàng)目

5、名稱項(xiàng)目類型比賽時(shí)間錄用人數(shù)組數(shù)學(xué)號(hào)得分項(xiàng)目編號(hào)名次姓名學(xué)號(hào)編號(hào)結(jié)女兒性別本科代碼本科排名系名總分圖6 E-R合成圖4 .邏輯結(jié)構(gòu)設(shè)計(jì)1 )數(shù)據(jù)關(guān)系模型運(yùn)動(dòng)員信息表菲爾德類型大小是否是主鍵是否允許空值學(xué)號(hào)char7是的，是的。否姓名char10否否編號(hào)char4否否性別char2否否結(jié)女兒char4否否本科小組菲爾德類型大小是否是主鍵是否允許空值本科代碼char4是的，是的。否系名char20否否本科排名Smallint公司2否是的，是的。總分PS4否是的，是的。項(xiàng)目菲爾德類型大小是否是主鍵是否允許空值項(xiàng)目編號(hào)char4是的，是的。否項(xiàng)目名稱。char20否否項(xiàng)目類型char20否否比賽時(shí)間日

6、期時(shí)間8否否錄用人數(shù)Smallint公司2否否組數(shù)char10否否比賽成績(jī)菲爾德類型大小是否是主鍵是否是空學(xué)號(hào)char7是的，是的。否項(xiàng)目編號(hào)char4是的，是的。否比賽的名次char20否是的，是的。比賽成績(jī)Varchar1否是的，是的。2 )數(shù)據(jù)庫內(nèi)的學(xué)部小組表圖7系組表5 .軟件功能設(shè)計(jì)和系統(tǒng)測(cè)試1 )開始接口：圖8選手管理系統(tǒng)開始界面代碼是：私有子cmd ADM _ click ()卸載mefrmAdmLand.Show vbModal終結(jié)子私有子cmdcancel _ click ()卸載me終結(jié)子私有子cmdselect _ click ()卸載mefrm select.show

7、VB模型終結(jié)子私有子表單_ load ()終結(jié)子2 )進(jìn)行管理者登錄時(shí)圖9管理員登錄畫面代碼如下所示：Option ExplicitDim i As Integer私有子cmdcancel _ click ()卸載mefrmStart.Show vbModal終結(jié)子私有子cmdok _ click ()Dim strUserName As StringDim strPassword As StringstrUserName=Trim(txtUser.Text )strpassword=trim (txt代碼. text )if i3 andt strusername= aa sand strp

8、assword= 123 then卸載mefrmManageFace.Show vbModalElseIf i=3 ThenMsgBox 帳戶和密碼的輸入次數(shù)超過3次，這次無法登錄！ “”VB關(guān)鍵vbokonly“錯(cuò)誤”ElseMsgBox 賬戶和密碼輸入錯(cuò)誤。 請(qǐng)重新輸入！ “”VB關(guān)鍵vbokonly“錯(cuò)誤”txtUser.Text=txt代碼. text=i=i 1最終PS終結(jié)子私有子表單_ load ()i=0終結(jié)子私有子圖片1 _ click ()終結(jié)子3 )管理員登錄后進(jìn)入圖10管理界面代碼如下所示：私有子文件Putin _ click ()終結(jié)子私有子文件_ click ()終結(jié)

9、子私有子更新_ click ()frm Putin.show VB模型終結(jié)子私有輔助插入_ click ()frmAltInfINsert.Show vbModal終結(jié)子私有輔助分配_ click ()frmaltselect.show VB模型終結(jié)子私有輔助更新_ click ()frmaltupdate.show VB模型終結(jié)子私有子后退_ click ()卸載mefrmStart.Show vbModal終結(jié)子私有子cmdcancel _ click ()卸載me終結(jié)子私有子圖片2 _ click ()終結(jié)子私有子RES insert _ click ()frmaltresinsert.

10、show VB模型終結(jié)子私有子RES select _ click ()frmAltResSelect.Show vbModal終結(jié)子私有子RES更新_ click ()frmresupdate.show VB模型終結(jié)子4 )登記運(yùn)動(dòng)員：圖11選手信息的登記代碼如下所示：Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim cmd As New ADODB.Commandprivatesublbl _ click (indexasainteger )終結(jié)子私有標(biāo)簽1 _ click ()終

11、結(jié)子私有輔cmd后退_ click ()frmManageFace.Show vbModal終結(jié)子私有子cmdcancel _ click ()卸載me終結(jié)子私有子cmdok _ click ()Dim strSNo As String，strName As String，strNumber As String，strSex As String，strDep As StringstrSNo=Trim(txtSno.Text )If strSNo= ThenMsgBox 學(xué)號(hào)不能為空！ “”VB重要vbokonly“錯(cuò)誤”txtSno.SetFocus退出子最終PSstrName=Trim(tx

12、tName.Text )If strName= ThenMsgBox 名稱不能為空！ “”VB重要vbokonly“錯(cuò)誤”txtName.SetFocus退出子最終PSstrNumber=Trim(txtNumber.Text )If strNumber= ThenMsgBox 名稱不能為空！ “”VB關(guān)鍵vbokonly“錯(cuò)誤”txtNumber.SetFocus退出子最終PSstrDep=Trim(txtNumber.Text )If strDep= ThenMsgBox 名稱不能為空！ “”VB關(guān)鍵vbokonly“錯(cuò)誤”txtDep.SetFocus退出子最終PSstrSex=cmbSex.TextIf MsgBox (新生信息 vbCrLf 插入學(xué)號(hào)： strSNo vbCrLf 姓名： strName vbCrLf 性別： strSex vbCrLf 系： strDep，vbinformationvbokcancel )=mandtext=insertintoalthetevalues (strs no，str