【正文】 Genoa. From Marseilles to Genoa is a run of one night. The excursionists will have an opportunity to look over this, the magnificent city of palaces, and visit the birthplace of Columbus, twelve miles off, over a beautiful road built by Napoleon I. From this point, excursions may be made to Milan, Lakes Como and Maggiore, or to Milan, Verona (famous for its extraordinary fortifications), Padua, and Venice. Or, if passengers desire to visit Parma (famous for Correggio39。Yes — of course,39。Will you keep a secret — an important secret — for her sake?39。s awfully brave, too. It must have hurt a lot.39。 I told her. And I added: 39。 it awed me slightly. I helped her to stand up on her sound foot, and steadied her while she pointed out where her home was, and the trickle of smoke that marked it. When I looked back she was on all fours again, disappearing into the bushes.I fo39。ll crawl,39。 I told her.39。I39。I promised.She was very brave. Nothing more than the puppy noises.When I did succeed in getting the foot free, it looked queer: I mean, it was all twisted and puffy I didn39。 she said. 39。You mustn39。t,39。I hesitated, but childhood is a time thickly beset with inprehensible, though important, conventions, so I withdrew a few yards and turned my back. I heard her breathing hard. Then she was crying again. I turned round.39。Go away! You mustn39。今后的工作中，我將充分運用自己所學(xué)的計算機知識，并在工作中不斷學(xué)習和完善，充分發(fā)揮一名計算機專業(yè)人員的作用，為企業(yè)的騰飛和發(fā)展貢獻自己的力量。在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師陳木生老師身上學(xué)到了很多東西，陳老師認真負責的工作態(tài)度、嚴謹治學(xué)的精神和深厚的理論水平都使我受益匪淺；同時我還要感謝同學(xué)對我的幫助，指出我的錯誤及不妥之處，進一步完善我的畢業(yè)設(shè)計。不支持格式轉(zhuǎn)換和在線打印功能。2．軟件功能強大，系統(tǒng)運行穩(wěn)定，而且軟件處理的速度快，能夠保證實時的數(shù)據(jù)處理，滿足隨時信息查詢的需求。經(jīng)過調(diào)試證明：1．本系統(tǒng)能滿足學(xué)校田徑運動會的需求，在錄入的報名和比賽成績數(shù)據(jù)準確的情況下，就能保證結(jié)果準確。 backup/ Info = 正在備份數(shù)據(jù)庫 amp。Dim FileName As String Dim FileBack As String Dim Info As String FileName = mypath amp。圖(7)就是完成了數(shù)據(jù)庫備份成功后的界面。而數(shù)據(jù)表的瀏覽是讓人清楚數(shù)據(jù)庫中有哪些表及表的屬性，讓人更清楚明白數(shù)據(jù)庫表的結(jié)構(gòu)。 系統(tǒng)工具系統(tǒng)工具是為本系統(tǒng)服務(wù)的工具，方便本系統(tǒng)的使用。.Rows = .Rows 1 End WithEnd IfEnd if上述代碼只是實現(xiàn)選擇的項目是田賽項目的成績輸出，選擇的項目是徑賽項目和全能項目這里就不列出來了。 Set rs1 = (strsql1) With MSHFlexGrid1 39。 amp。Set rs = (strsqlIf (0) = 田賽項目 Then strsql1 = select * from 田賽成績 where 項目名稱=39。 amp。部分代碼如下：If = Then MsgBox 請選擇項目名稱!, vbOKOnly, 提示Elsestrsql = select 項目類型 from 運動項目名單 where 項目名稱=39。項目成績查詢界面如圖45所示。) (strsql2) End If Next i = i + 1Loop 查詢輸出查詢輸出模塊中有七種不同的查詢：運動員成績查詢、代表隊成績查詢、項目成績查詢、總分表、項目名次表、成績名次表和成績匯冊。 (0) amp。,39。 j + 1 amp。,39。 (2) amp。,39。 (1) amp。,39。 (0) amp。 Set rs5 = (strsql0) strsql2 = insert into 最終成績(姓名,項目名稱,成績,名次,分數(shù)) values(39。 Set rs = (strsql3) If Then strsql0 = select 分數(shù) from 名次分數(shù)表 where 名次= amp。 (1) amp。 and 項目名稱=39。 (0) amp。order by 成績 desc Set rs2 = (strsql1) For j = 0 To Val((0)) 1 strsql3 = select * from 最終成績 where 姓名=39。 (0) amp。輸出部分的代碼如下：strsql6 = select 每項目取的名次 from 參數(shù)表Set rs = (strsql6)strsql = select distinct 項目名稱 from 田賽成績Set rs1 = (strsql)i = 0Do While Not strsql1 = select * from 田賽成績 where 項目名稱=39。田賽輸出是把每個田賽項目中的前幾名的人員成績信息輸出到最終成績表中，從田賽成績中的開始查找田賽項目，則從田賽成績表中把從項目名單中查找到的項目的前幾名成績信息輸出到最終成績表中。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 Set rs = (strsql) If = True Then 39。 amp。 and 項目名稱=39。 amp。代碼如下： strsql = select * from 田賽成績 where 姓名=39。) (strsql4) End If End if 比賽管理比賽管理模塊中有三個小模塊分為：徑賽成績錄入與輸出、田賽成績錄入與輸出和全能成績錄入與輸出。 amp。,39。 amp。 Set rs = (strsql2) If90Sdgdfsg If = True Then strsql4 = insert into 運動員參賽情況 values(39。 amp。 and 項目名稱=39。 amp。) (strsql1) (strsql3) MsgBox 報名成功！, vbOKOnly, 提示 Else strsql2 = select * from 運動員參賽情況 where 姓名=39。,39。) strsql3 = insert into 運動員參賽情況 values(39。,39。,39。 amp。,39。該運動員不存在，可以入庫 strsql1 = insert into 運動員名單 values(39。 39。 amp。 39。 amp。如果此人存在于運動員名單中且該項目沒有被此人選擇則把此人參加該項目的信息插入到參賽情況表中，否則提示此人已經(jīng)參加了此項目。這幾個小模塊的代碼在同小異這里只摘入其中一個小模塊的代碼。所有的菜單項組成一個學(xué)校田徑運動會管理系統(tǒng)。主界面也就是各種功能的連接點。主界面是進行比賽進程的各個功能的總控制。 Set rs = (strsql) If Not Then 39。 amp。 and 密碼=39。 amp。登陸界面中涉及到的核心代碼如下：If And Then strsql = select * from 用戶信息 where 用戶名=39。界面如圖41所示。對于交互式系統(tǒng)來說，人機界面設(shè)計和數(shù)據(jù)設(shè)計、體系結(jié)構(gòu)設(shè)計及過程設(shè)計一樣重要。但是，所選用的程序設(shè)計語言的特點及編碼風格也將對程序的可靠性、可讀性、可測性和可維護性產(chǎn)生深遠的影響。在數(shù)據(jù)庫中建立名為用戶信息的數(shù)據(jù)表，用來保存登陸的帳號和密碼，用戶信息的數(shù)據(jù)表如表31所示表31 用戶信息數(shù)據(jù)表字段名數(shù)據(jù)類型長度小數(shù)點位備注用戶名char20密碼char20在數(shù)據(jù)庫中建立名為運動員名單的數(shù)據(jù)表，用來保存運動員的學(xué)號、姓名、性別和所屬代表隊，運動員名單的數(shù)據(jù)表如表32所示表32運動員名單表字段名數(shù)據(jù)類型長度小數(shù)點位備注學(xué)號char20姓名char20性別char20代表隊char20在數(shù)據(jù)庫中建立名為運動項目名單的數(shù)據(jù)表，用來保存項目名稱、項目類型和跑道類型等信息，運動項目名單的數(shù)據(jù)表如表31所示表33運動項目名單表字段名數(shù)據(jù)類型長度小數(shù)點位備注項目名稱char20項目類型char20跑道類型char20分道/不分道在數(shù)據(jù)庫中建立名為田徑成績的數(shù)據(jù)表，用來保存運動員的姓名、項目類型、成績等信息，田徑成績的數(shù)據(jù)表如表34所示表34田徑成績表字段名數(shù)據(jù)類型長度小數(shù)點位備注姓名char20項目類型char20成績int10在數(shù)據(jù)庫中建立名為全能成績的數(shù)據(jù)表，用來保存運動員的姓名、項目類型、成績等信息，全能成績的數(shù)據(jù)表如表35所示表35全能成績表字段名數(shù)據(jù)類型長度小數(shù)點位備注姓名char20項目類型char20成績int10在數(shù)據(jù)庫中建立名為徑賽初賽成績的數(shù)據(jù)表，用來保存運動員的姓名、項目類型、成績、組號和道號等信息，徑賽初賽成績的數(shù)據(jù)表如表36所示表36徑賽初賽成績表字段名數(shù)據(jù)類型長度小數(shù)點位備注姓名char20項目類型char20成績int10組號 int10道號int10在數(shù)據(jù)庫中建立名為徑賽預(yù)賽成績的數(shù)據(jù)表，用來保存運動員的姓名、項目類型、成績、組號和道號等信息，徑賽預(yù)賽成績的數(shù)據(jù)表如表37所示表37徑賽預(yù)賽成績表字段名數(shù)據(jù)類型長度小數(shù)點位備注姓名char20項目類型char20成績int10組號 int10道號int10在數(shù)據(jù)庫中建立名為徑賽決賽成績的數(shù)據(jù)表，用來保存運動員的姓名、項目類型、成績、組號和道號等信息，徑賽決賽成績的數(shù)據(jù)表如表38所示表38徑賽決賽成績表字段名數(shù)據(jù)類型長度小數(shù)點位備注姓名char20項目類型char20成績int10組號 int10道號int10在數(shù)據(jù)庫中建立名為最終成績的數(shù)據(jù)表，用來保存運動員的姓名、項目名稱、成績、名次和分數(shù)等信息，最終成績的數(shù)據(jù)表如表39所示表39最終成績表字段名數(shù)據(jù)類型長度小數(shù)點位備注姓名char20項目名稱char20成績int10名次 int10分數(shù)int10在數(shù)據(jù)庫中建立名為崗位表的數(shù)據(jù)表，用來保存崗位編號和崗位名稱等信息，崗位的數(shù)據(jù)表如表310所示表310崗位表字段名數(shù)據(jù)類型長度小數(shù)點位備注崗