學(xué)校田徑運動會管理系統(tǒng)1—計算機畢業(yè)設(shè)計論文-資料下載頁
2025-08-06 08:33本頁面
【正文】 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) 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 查詢輸出查詢輸出模塊中有七種不同的查詢：運動員成績查詢、代表隊成績查詢、項目成績查詢、總分表、項目名次表、成績名次表和成績匯冊。這些查詢都是使用SQL語句進行查詢，不同的就是SQL語句中的條件不同面已，因此在代碼方面都差不多，如項目成績查詢。項目成績查詢界面如圖45所示。圖45 查詢界面從圖(5)中的項目名稱中選擇一個項目，然后單擊查詢就會輸出該項目的所有運動員的比賽成績。部分代碼如下：If = Then MsgBox 請選擇項目名稱!, vbOKOnly, 提示Elsestrsql = select 項目類型 from 運動項目名單 where 項目名稱=39。 amp。 amp。 39。Set rs = (strsqlIf (0) = 田賽項目 Then strsql1 = select * from 田賽成績 where 項目名稱=39。 amp。 amp。 39。 Set rs1 = (strsql1) With MSHFlexGrid1 39。詳細查詢的信息顯示 .Rows = 2 .CellAlignment = 4 .TextMatrix(0, 0) = 姓名 .TextMatrix(0, 1) = 項目名稱 .TextMatrix(0, 2) = 成績 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上述代碼只是實現(xiàn)選擇的項目是田賽項目的成績輸出，選擇的項目是徑賽項目和全能項目這里就不列出來了。實現(xiàn)項目成績查詢首先選擇項目名稱再查詢，先判斷選擇的項目是哪一種類型的項目，如果是全能項目或田賽項目則第一行是姓名、項目名稱和成績，如果是徑賽項目第一行就是姓名、項目名稱、初賽成績、預(yù)賽成績和決賽成績，從第二行開始就是該項目所有運動員的成績信息。 系統(tǒng)工具系統(tǒng)工具是為本系統(tǒng)服務(wù)的工具，方便本系統(tǒng)的使用。如數(shù)據(jù)庫備份與恢復(fù)就是為了防止系統(tǒng)的數(shù)據(jù)庫出現(xiàn)錯誤，可以通過還原數(shù)據(jù)庫來修正這個錯誤。而數(shù)據(jù)表的瀏覽是讓人清楚數(shù)據(jù)庫中有哪些表及表的屬性，讓人更清楚明白數(shù)據(jù)庫表的結(jié)構(gòu)。這里就以數(shù)據(jù)庫備份與還原為例，界面如圖46和47所示 圖46備份與還原界面 圖47 備份完成界面只要單擊下圖(6)中備份或恢復(fù)即可完成備份或恢復(fù)操作。圖(7)就是完成了數(shù)據(jù)庫備份成功后的界面。備份數(shù)據(jù)庫就是把系統(tǒng)中的數(shù)據(jù)庫壓縮拷貝到另外的路徑文件下面。Dim FileName As String Dim FileBack As String Dim Info As String FileName = mypath amp。 FileBack = mypath amp。 backup/ Info = 正在備份數(shù)據(jù)庫 amp。 FileName BackupDatabase FileName, FileBack, InfoMsgBox 備份數(shù)據(jù)庫成功！, vbInformation, 提示結(jié)束語本系統(tǒng)是在Windows XP的環(huán)境下設(shè)計和調(diào)試的，并安裝有Visual Basic開發(fā)工具和Microsoft Office Access數(shù)據(jù)庫。經(jīng)過調(diào)試證明：1．本系統(tǒng)能滿足學(xué)校田徑運動會的需求，在錄入的報名和比賽成績數(shù)據(jù)準確的情況下，就能保證結(jié)果準確。不需要反復(fù)核對，減少了大量重復(fù)操作。2．軟件功能強大，系統(tǒng)運行穩(wěn)定，而且軟件處理的速度快，能夠保證實時的數(shù)據(jù)處理，滿足隨時信息查詢的需求。3．由于水平和時間有限，本系統(tǒng)還有些不足之處，比如在比賽中的運動員成績采用了四舍五入的方法。不支持格式轉(zhuǎn)換和在線打印功能。參考文獻[1] 鄭海春，謝維成. Visual [2] 王新民. Visual [3]—Visual [4] 薩師煊. [5] 張平. [6] 趙國玲，[7] 叢明禮. [8] 李老民. 致 謝經(jīng)過一個多月的調(diào)研、設(shè)計和開發(fā)，這套學(xué)校田徑運動會管理系統(tǒng)已基本結(jié)束。在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師陳木生老師身上學(xué)到了很多東西，陳老師認真負責(zé)的工作態(tài)度、嚴謹治學(xué)的精神和深厚的理論水平都使我受益匪淺；同時我還要感謝同學(xué)對我的幫助，指出我的錯誤及不妥之處，進一步完善我的畢業(yè)設(shè)計。無論在理論上還是在實踐中，他們都給予我很大的幫助，使我的應(yīng)用水平得到了很大的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助。今后的工作中，我將充分運用自己所學(xué)的計算機知識，并在工作中不斷學(xué)習(xí)和完善，充分發(fā)揮一名計算機專業(yè)人員的作用，為企業(yè)的騰飛和發(fā)展貢獻自己的力量。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1