學(xué)校田徑運(yùn)動(dòng)會(huì)管理系統(tǒng)—畢業(yè)設(shè)計(jì)-資料下載頁(yè)
2025-08-06 09:07本頁(yè)面
【正文】 最終成績(jī)表中，以此循環(huán)直到田賽成績(jī)中的項(xiàng)目全部查完。輸出部分的代碼如下：strsql6 = select 每項(xiàng)目取的名次 from 參數(shù)表Set rs = (strsql6)strsql = select distinct 項(xiàng)目名稱(chēng) from 田賽成績(jī)Set rs1 = (strsql)i = 0Do While Not strsql1 = select * from 田賽成績(jī) where 項(xiàng)目名稱(chēng)=39。 amp。 (0) amp。 39。order by 成績(jī) desc Set rs2 = (strsql1) For j = 0 To Val((0)) 1 strsql3 = select * from 最終成績(jī) where 姓名=39。 amp。 (0) amp。 39。 and 項(xiàng)目名稱(chēng)=39。 amp。 (1) amp。 39。 Set rs = (strsql3) If Then strsql0 = select 分?jǐn)?shù) from 名次分?jǐn)?shù)表 where 名次= amp。 j + 1 amp。 Set rs5 = (strsql0) strsql2 = insert into 最終成績(jī)(姓名,項(xiàng)目名稱(chēng),成績(jī),名次,分?jǐn)?shù)) values(39。 amp。 (0) amp。 39。,39。 amp。 (1) amp。 39。,39。 amp。 (2) amp。 39。,39。 amp。 j + 1 amp。 39。,39。 amp。 (0) amp。 39。) (strsql2) End If Next i = i + 1Loop 查詢(xún)輸出查詢(xún)輸出模塊中有七種不同的查詢(xún)：運(yùn)動(dòng)員成績(jī)查詢(xún)、代表隊(duì)成績(jī)查詢(xún)、項(xiàng)目成績(jī)查詢(xún)、總分表、項(xiàng)目名次表、成績(jī)名次表和成績(jī)匯冊(cè)。這些查詢(xún)都是使用SQL語(yǔ)句進(jìn)行查詢(xún)，不同的就是SQL語(yǔ)句中的條件不同面已，因此在代碼方面都差不多，如項(xiàng)目成績(jī)查詢(xún)。項(xiàng)目成績(jī)查詢(xún)界面如圖55所示。圖55 查詢(xún)界面從圖(5)中的項(xiàng)目名稱(chēng)中選擇一個(gè)項(xiàng)目，然后單擊查詢(xún)就會(huì)輸出該項(xiàng)目的所有運(yùn)動(dòng)員的比賽成績(jī)。部分代碼如下：If = Then MsgBox 請(qǐng)選擇項(xiàng)目名稱(chēng)!, vbOKOnly, 提示Elsestrsql = select 項(xiàng)目類(lèi)型 from 運(yùn)動(dòng)項(xiàng)目名單 where 項(xiàng)目名稱(chēng)=39。 amp。 amp。 39。Set rs = (strsqlIf (0) = 田賽項(xiàng)目 Then strsql1 = select * from 田賽成績(jī) where 項(xiàng)目名稱(chēng)=39。 amp。 amp。 39。 Set rs1 = (strsql1) With MSHFlexGrid1 39。詳細(xì)查詢(xún)的信息顯示 .Rows = 2 .CellAlignment = 4 .TextMatrix(0, 0) = 姓名 .TextMatrix(0, 1) = 項(xiàng)目名稱(chēng) .TextMatrix(0, 2) = 成績(jī) Do While Not .Rows = .Rows + 1 .CellAlignment = 4 .TextMatrix(.Rows 2, 0) = (0) .TextMatrix(.Rows 2, 1) = Trim((1)) .TextMatrix(.Rows 2, 2) = (2) Loop 39。.Rows = .Rows 1 End WithEnd IfEnd if上述代碼只是實(shí)現(xiàn)選擇的項(xiàng)目是田賽項(xiàng)目的成績(jī)輸出，選擇的項(xiàng)目是徑賽項(xiàng)目和全能項(xiàng)目這里就不列出來(lái)了。實(shí)現(xiàn)項(xiàng)目成績(jī)查詢(xún)首先選擇項(xiàng)目名稱(chēng)再查詢(xún)，先判斷選擇的項(xiàng)目是哪一種類(lèi)型的項(xiàng)目，如果是全能項(xiàng)目或田賽項(xiàng)目則第一行是姓名、項(xiàng)目名稱(chēng)和成績(jī)，如果是徑賽項(xiàng)目第一行就是姓名、項(xiàng)目名稱(chēng)、初賽成績(jī)、預(yù)賽成績(jī)和決賽成績(jī)，從第二行開(kāi)始就是該項(xiàng)目所有運(yùn)動(dòng)員的成績(jī)信息。 系統(tǒng)工具系統(tǒng)工具是為本系統(tǒng)服務(wù)的工具，方便本系統(tǒng)的使用。如數(shù)據(jù)庫(kù)備份與恢復(fù)就是為了防止系統(tǒng)的數(shù)據(jù)庫(kù)出現(xiàn)錯(cuò)誤，可以通過(guò)還原數(shù)據(jù)庫(kù)來(lái)修正這個(gè)錯(cuò)誤。而數(shù)據(jù)表的瀏覽是讓人清楚數(shù)據(jù)庫(kù)中有哪些表及表的屬性，讓人更清楚明白數(shù)據(jù)庫(kù)表的結(jié)構(gòu)。這里就以數(shù)據(jù)庫(kù)備份與還原為例，界面如圖56所示 圖56備份與還原界面 圖57 備份完成界面只要單擊下圖(6)中備份或恢復(fù)即可完成備份或恢復(fù)操作。圖(7)就是完成了數(shù)據(jù)庫(kù)備份成功后的界面。備份數(shù)據(jù)庫(kù)就是把系統(tǒng)中的數(shù)據(jù)庫(kù)壓縮拷貝到另外的路徑文件下面。Dim FileName As String Dim FileBack As String Dim Info As String FileName = mypath amp。 FileBack = mypath amp。 backup/ Info = 正在備份數(shù)據(jù)庫(kù) amp。 FileName BackupDatabase FileName, FileBack, InfoMsgBox 備份數(shù)據(jù)庫(kù)成功！, vbInformation, 提示結(jié)束語(yǔ)本系統(tǒng)在Windows XP環(huán)境下設(shè)計(jì)調(diào)試成功，經(jīng)過(guò)調(diào)試證明：1． 只要錄入的報(bào)名和比賽成績(jī)數(shù)據(jù)準(zhǔn)確，本軟件就能保證處理結(jié)果準(zhǔn)確。不需要反復(fù)核對(duì)，重復(fù)勞動(dòng)。2． 軟件處理的速度快，保證實(shí)時(shí)的數(shù)據(jù)處理，滿(mǎn)足隨時(shí)的信息查詢(xún)要求。3．由于水平和時(shí)間有限，本系統(tǒng)還有不足之處，比如在徑賽中如有一組運(yùn)動(dòng)員成績(jī)特別好也只能取其中幾人不能按絕對(duì)成績(jī)錄取等。參考文獻(xiàn)[1] 鄭海春，謝維成. Visual [2] 王新民. Visual [3]—Visual [4] 薩師煊. [5] 張平. [6] 趙國(guó)玲，[7] 叢明禮. [8] 李老民. 致 謝經(jīng)過(guò)一個(gè)多月的調(diào)研、設(shè)計(jì)和開(kāi)發(fā)，這套學(xué)校田徑運(yùn)動(dòng)會(huì)管理系統(tǒng)已基本結(jié)束。在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師陳木生老師身上學(xué)到了很多東西，陳老師認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)治學(xué)的精神和深厚的理論水平都使我受益匪淺；同時(shí)我還要感謝同學(xué)對(duì)我的幫助，指出我的錯(cuò)誤及不妥之處，進(jìn)一步完善我的畢業(yè)設(shè)計(jì)。無(wú)論在理論上還是在實(shí)踐中，他們都給予我很大的幫助，使我的應(yīng)用水平得到了很大的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助。今后的工作中，我將充分運(yùn)用自己所學(xué)的計(jì)算機(jī)知識(shí)，并在工作中不斷學(xué)習(xí)和完善，充分發(fā)揮一名計(jì)算機(jī)專(zhuān)業(yè)人員的作用，為企業(yè)的騰飛和發(fā)展貢獻(xiàn)自己的力量。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1