學校田徑運動會管理系統(tǒng)1—計算機畢業(yè)設計(編輯修改稿)

　

【文章內(nèi)容簡介】 系統(tǒng)主要涉及到的數(shù)據(jù)表有用戶信息、運動員名單、運動員參賽情況、運動項目名單、田賽成績、全能成績、徑賽初賽成績、徑賽預賽成績、徑賽決賽成績、最終成績、崗位 表、工作人員表，這些表都是要先建的。 在學校田徑運動會管理系統(tǒng)中，我們把數(shù)據(jù)庫放置在 Microsoft Office Access數(shù)據(jù)庫，然后運用 Visual Basic編程語言設計界面。在本機上安裝 Microsoft Office 數(shù)據(jù)庫名為 db1。 以下分別介紹各表的建立。 在數(shù)據(jù)庫中建立名為用戶信息的數(shù)據(jù)表，用來保存登陸的帳號和密碼，用戶信息的數(shù)據(jù)表如表 31所示 表 31 用戶信息數(shù)據(jù)表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 用戶名 char 20 密碼 char 20 在數(shù)據(jù)庫中建立名為運動員名單的數(shù)據(jù)表，用來保存 運動員的 學號 、 姓名 、 性別 和所屬代表隊，運動員名單的數(shù)據(jù)表如表 32所示 表 32運動員名單表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 學號 char 20 姓名 char 20 性別 char 20 代表隊 char 20 在數(shù)據(jù)庫中建立名為運動 項目名單 的數(shù)據(jù)表，用來保存 項目名稱、項目類型 和 跑道類型等信息 ，運動 項目名單 的數(shù)據(jù)表如表 31所示 表 33運動 項目 名單表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 項目名稱 char 20 項目類型 char 20 跑道類型 char 20 分道 /不分道 在數(shù)據(jù)庫中建立名為 田徑成績 的數(shù)據(jù)表，用來保存 運動員的姓名、項目類型、成績等信息 ， 田徑成績 的數(shù)據(jù)表如表 34所示 表 34田徑成績表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 姓名 char 20 項目類型 char 20 成績 int 10 在數(shù)據(jù)庫中建立名為 全能成績 的數(shù)據(jù)表，用來保存 運動員的姓名、項目類型、成績等信息 ， 全能成績 的數(shù)據(jù)表如表 35所示 表 35 全能成績表 字段名 數(shù)據(jù)類型 長度 小數(shù)點 位 備注 姓名 char 20 項目類型 char 20 成績 int 10 在數(shù)據(jù)庫中建立名為 徑賽初賽成績 的數(shù)據(jù)表，用來保存 運動員的姓名、項目類型、成績、組號和道號等信息 ， 徑賽初賽成績 的數(shù)據(jù)表如表 36所示 表 36 徑賽初賽成績表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 姓名 char 20 項目類型 char 20 成績 int 10 組號 int 10 道號 int 10 在數(shù)據(jù)庫中建立名為 徑賽預賽成績 的數(shù)據(jù)表，用來保存 運動員的姓名 、項目類型、成績、組號和道號等信息 ， 徑賽預賽成績 的數(shù)據(jù)表如表 37所示 表 37 徑賽預賽成績表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 姓名 char 20 項目類型 char 20 成績 int 10 組號 int 10 道號 int 10 在數(shù)據(jù)庫中建立名為 徑賽決賽成績 的數(shù)據(jù)表，用來保存 運動員的姓名、項目類型、成績、組號和道號等信息 ， 徑賽決賽成績 的數(shù)據(jù)表如表 38所示 表 38 徑賽決賽成績表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 姓名 char 20 項目類 型 char 20 成績 int 10 組號 int 10 道號 int 10 在數(shù)據(jù)庫中建立名為 最終成績 的數(shù)據(jù)表，用來保存 運動員的姓名、項目名稱、成績、名次和分數(shù)等信息 ， 最終成績 的數(shù)據(jù)表如表 39所示 表 39 最終成績表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 姓名 char 20 項目名稱 char 20 成績 int 10 名次 int 10 分數(shù) int 10 在數(shù)據(jù)庫中建立名為 崗位表 的數(shù)據(jù)表，用來保存 崗位編號和崗位名稱等信息 ， 崗位 的 數(shù)據(jù)表如表 310所示 表 310 崗位表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 崗位編號 char 20 崗位名稱 char 20 在數(shù)據(jù)庫中建立名為 工作人員 的數(shù)據(jù)表，用來保存 工作人員的姓名和崗位等信息 ， 工作人員 的數(shù)據(jù)表如表 311所示 表 311 工作人員表 字段名 數(shù)據(jù)類型 長度 小數(shù)點位 備注 姓名 char 20 崗位 char 20 第四章 界面設計及編碼 所謂編碼就是把軟件結(jié)果翻譯成用某種程序設計語言書寫的程序。作為軟件工程過程的一個階 段，編碼是對設計的進一步具體化，因此，程序的質(zhì)量主要取決于軟件的質(zhì)量。但是，所選用的程序設計語言的特點及編碼風格也將對程序的可靠性、可讀性、可測性和可維護性產(chǎn)生深遠的影響。界面設計是接口設計的一個重要的組成部分。對于交互式系統(tǒng)來說，人機界面設計和數(shù)據(jù)設計、體系結(jié)構設計及過程設計一樣重要。 登陸界面作為本軟件的一個門戶，要有鑰匙才能打開，這把鑰匙就是帳號和密碼。界面如圖 41 所示。 圖 41 登陸界面 輸入帳號和密碼，只有帳號和密碼正確才可以進入主界面。登陸界面中涉及到的核心代 碼如下： If And Then strsql = select * from 用戶信息 where 用戶名 =39。 amp。 amp。 39。 and 密碼 =39。 amp。 amp。 39。 Set rs = (strsql) If Not Then 39。輸入的登錄信息正確，則進入系統(tǒng) 主界面 .Show Unload 登陸界面 Else MsgBox 您輸入的登錄信息有誤，請重新輸入！ , vbOKOnly + vbExclamation, 提示 = = End If Else MsgBox 您輸入的帳號或密碼有誤！ , vbOKOnly + vbExclamation, 警告 = = End If 此登陸界面中涉及到的帳號和密碼就是用戶信息表中的記錄，如果用戶信息中沒有與輸入的帳號和密碼相匹配的，就出現(xiàn)“您輸入的帳號或密碼有誤 !”的提示。 主界面是進行比賽進程的各個功能的總控制。把進行田徑運動員所要有的功能通過菜單全部編輯在一起，只要點擊相應的菜單項就可以進行各種功能操作。主界面也就是各種功能的連接點。主界面圖 42所示 圖 42 主界面 主界面左上角就是菜單，每一 個菜單中都有多個菜單項，每個菜單項就是進行比賽管理的一個模塊缺一不可。所有的菜單項組成一個學校田徑運動會管理系統(tǒng)。 前期編排 前期編排中的定義比項目、設置工作崗位、錄入工作人員、運動員報名和錄入紀錄成績都是表中不存在的就插入到表中，如果存在就修改。這幾個小模塊的代碼在同小異這里只摘入其中一個小模塊的代碼。這里就以運動員報名為例界面如圖 43所示： 圖 43 運動員報名界面 在運動員報名界面中輸入要報名人的信息及所要參加的項目，如果此人在運動員名單中不存在則把此運動員信息插入到運動員名單中，并且 把此人所要報的項目信息插入到參賽情況表中。如果此人存在于運動員名單中且該項目沒有被此人選擇則把此人參加該項目的信息插入到參賽情況表中，否則提示此人已經(jīng)參加了此項目。部分代碼如下： strsql = select * from 運動員名單 where 姓名 =39。 amp。 amp。 39。 or 學號 =39。 amp。 amp。 39。 Set rs = (strsql) If = True Then 39。該運動員不存在， 可以入庫 strsql1 = insert into 運動員名單 values(39。 + + 39。,39。 amp。 amp。 39。,39。 + + 39。,39。 + + 39。) strsql3 = insert into 運動員參賽情況 values(39。 + + 39。,39。 + + 39。) (strsql1) (strsql3) MsgBox 報名成功！ , vbOKOnly, 提示 Else strsql2 = select * from 運動員參賽情況 where 姓名 =39。 amp。 amp。 39。 and 項目名稱 =39。 amp。 amp。 39。 Set rs = (strsql2) If = True Then strsql4 = insert into 運動員參賽情況 values(39。 amp。 amp。 39。,39。 amp。 amp。 39。) (strsql4) End If End if 比賽管理 比賽管理模塊中有三個小模塊分為：徑賽成績錄入與輸出、田賽成績錄入與輸出和全能成績錄入與輸出。這三個模塊要實現(xiàn)的功能也一 樣，所以這三個模塊的界面也差不多，在這里就用其中的一個模塊來做為例子，就以田賽成績錄入與輸出這個模塊為例，界面如圖 44所示： 圖 44 田賽成績錄入與輸出界面 從項目和姓名中選擇相應的項目及姓名，輸入成績?nèi)绻巳说拇隧椖砍煽儧]有錄入單擊確定就可以把此成績插入到田賽成績表中，如果成績已存在則修改此成績。代碼如下： strsql = select * from 田賽成績 where 姓名 =39。 amp。 amp。 39。 and 項目名稱 =39。 amp。 amp。 39。 Set rs = (strsql) If = True Then 39。該項目成績沒有被記錄，可以入庫 strsql3 = insert into 田賽成績 values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) (strsql3) MsgBox 修改成功！ , vbOKOnly, 提示 = Else strsql4 = update 田賽成績 set 成績 =39。 amp。 amp。 39。 where 姓名=39。 amp。 amp。 39。 and 項目名稱 =39。 amp。 amp。 39。 (strsql4) = End If 單擊圖 (4)中的輸出就是得 出田賽項目的最終成績即得出田賽項目的名次。田賽輸出是把每個田賽項目中的前幾名的人員成績信息輸出到最終成績表中，從田賽成績中的開始查找田賽項目，則從田賽成績表中把從項目名單中查找到的項目的前幾名成績信息輸出到最終成績表中。然后再從田賽成績中查找下一個田賽項目，再把該項目的前幾名輸出到最終成績表中，以此循環(huán)直到田賽成績中的項目全部查完。輸出部分的代碼如下： strsql6 = select 每項目取的名次 from 參數(shù)表 Set rs = (strsql6) strsql = select distinct 項目名稱 from 田賽成績 Set rs1 = (strsql) i = 0 Do While Not strsql1 = select * from 田賽成績 where 項目名稱 =39。 amp。 (0) amp。 39。order by 成績 desc Set rs2 = (strsql1) For j = 0 To Val((0)) 1 strsql3 = select * from 最終成績 where 姓名 =39。 amp。 (0) amp。 39。 and 項目名稱 =39。 amp。 (1) amp。 39。 Set rs = (strsql3) If Then strsql0 = select 分數(shù) from 名次分數(shù)表 where 名次 = amp。 j + 1 amp。 Set rs5 = (strsql0) strsql2 = insert into 最終成績 (姓名 ,項目名稱 ,成績 ,名次 ,分數(shù) ) values(39。 amp。 (0) am