運動會管理系統(tǒng)

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

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

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

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

5、名稱項目類型比賽時間錄用人數(shù)組數(shù)學號得分項目編號名次姓名學號編號結女兒性別本科代碼本科排名系名總分圖6 E-R合成圖4 .邏輯結構設計1 )數(shù)據(jù)關系模型運動員信息表菲爾德類型大小是否是主鍵是否允許空值學號char7是的，是的。否姓名char10否否編號char4否否性別char2否否結女兒char4否否本科小組菲爾德類型大小是否是主鍵是否允許空值本科代碼char4是的，是的。否系名char20否否本科排名Smallint公司2否是的，是的?？偡諴S4否是的，是的。項目菲爾德類型大小是否是主鍵是否允許空值項目編號char4是的，是的。否項目名稱。char20否否項目類型char20否否比賽時間日

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

7、VB模型終結子私有子表單_ load ()終結子2 )進行管理者登錄時圖9管理員登錄畫面代碼如下所示：Option ExplicitDim i As Integer私有子cmdcancel _ click ()卸載mefrmStart.Show vbModal終結子私有子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關鍵vbokonly“錯誤”ElseMsgBox 賬戶和密碼輸入錯誤。 請重新輸入！ “”VB關鍵vbokonly“錯誤”txtUser.Text=txt代碼. text=i=i 1最終PS終結子私有子表單_ load ()i=0終結子私有子圖片1 _ click ()終結子3 )管理員登錄后進入圖10管理界面代碼如下所示：私有子文件Putin _ click ()終結子私有子文件_ click ()終結

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

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

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

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