【正文】 where is Nymphadora?” “ I don?t know,” said Harry. “We don?t know what happened to anyone else.” She and Ted exchanged looks. A mixture of fear and guilt gripped Harry at the sight of their expressions, if any of the others had died, it was his fault, all his fault. He had consented to the plan, given them his hair… “ The Portkey,” he said, remembering all of a sudden. “We?ve got to get back to the Burrow and find out – then we?ll be able to send you word, or – or Tonks will, once she?s – ” “ Dora?ll be ok, ?Dromeda,” said Ted. “She knows her stuff, she?s been in plenty of tight spots with the Aurors. The Portkey?s through here,” he added to Harry. “It?s supposed to leave in three minutes, if you want to take it.” “ Yeah, we do,” said Harry. He seized his rucksack, swung it onto his shoulders. “I – ” He looked at Mrs. Tonks, wanting to apologize for the state of fear in which he left her and for which he felt so terribly re sponsible, but no words occurred to him that he did not seem hollow and insincere. “ I?ll tell Tonks – Dora – to send word, when she… Thanks for patching us up, thanks for everything, I – ” He was glad to leave the room and follow Ted Tonks along a short hallway and into a bedroom. Hagrid came after them, bending low to avoid hitting his head on the door lintel. “ There you go, son. That?s the Portkey.” 。 it had been at the point when the motorbike crossed the barrier of the Order?s charms. He only hoped they would continue to wor k: He imagined Voldemort, a hundred yards above them as they spoke, looking for a way to perate what Harry visualized as a great transparent bubble. He swung his legs off the sofa。今后的工作中，我將充分運(yùn)用自己所學(xué)的計(jì)算機(jī)知識(shí)，并在工作中不斷學(xué)習(xí)和完善，充分發(fā)揮一名計(jì)算機(jī)專(zhuān)業(yè)人員的作用，為企業(yè)的騰飛和發(fā)展貢獻(xiàn)自己的力量。在本次畢業(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ì)。 3．由于水平和時(shí)間有限，本系統(tǒng)還有不足之處，比如在徑賽中如有一組運(yùn)動(dòng)員成績(jī)特別好也只能取其中幾人不能按絕對(duì)成績(jī)錄取等。不需要 反復(fù)核對(duì)，重復(fù)勞動(dòng)。 backup/ Info = 正在備份數(shù)據(jù)庫(kù) amp。 Dim FileName As String Dim FileBack As String Dim Info As String FileName = mypath amp。圖 (7)就是完成了數(shù)據(jù)庫(kù)備份成功后的界面。而數(shù)據(jù)表的瀏覽是讓人清楚數(shù)據(jù)庫(kù)中有哪些表及表的屬性，讓人更清楚明白數(shù)據(jù) 庫(kù)表的結(jié)構(gòu)。 系統(tǒng)工具 系統(tǒng)工具是為本系統(tǒng)服務(wù)的工具，方便本系統(tǒng)的使用。.Rows = .Rows 1 End With End If End if 上述代碼只是實(shí)現(xiàn)選擇的項(xiàng)目是田賽項(xiàng)目的成績(jī)輸出，選擇的 項(xiàng)目是徑賽項(xiàng)目和全能項(xiàng)目這里就不列出來(lái)了。 Set rs1 = (strsql1) With MSHFlexGrid1 39。 amp。 Set rs = (strsql If (0) = 田賽項(xiàng)目 Then strsql1 = select * from 田賽成績(jī) where 項(xiàng)目名稱(chēng) =39。 amp。部分代碼如下： If = Then MsgBox 請(qǐng)選擇項(xiàng)目名稱(chēng) !, vbOKOnly, 提示 Else strsql = select 項(xiàng)目類(lèi)型 from 運(yùn)動(dòng)項(xiàng)目名單 where 項(xiàng)目名稱(chēng) =39。項(xiàng)目成績(jī)查詢(xún)界面如圖 55所示。) (strsql2) End If Next i = i + 1 Loop 查詢(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è)。 (0) amp。,39。 j + 1 amp。,39。 (2) amp。,39。 (1) amp。,39。 (0) amp。 Set rs5 = (strsql0) strsql2 = insert into 最終成績(jī) (姓名 ,項(xiàng)目名稱(chēng) ,成績(jī) ,名次 ,分?jǐn)?shù) ) values(39。 Set rs = (strsql3) If Then strsql0 = select 分?jǐn)?shù) from 名次分?jǐn)?shù)表 where 名次 = amp。 (1) amp。 and 項(xiàng)目名稱(chēng) =39。 (0) amp。order by 成績(jī) desc Set rs2 = (strsql1) For j = 0 To Val((0)) 1 strsql3 = select * from 最終成績(jī) where 姓名 =39。 (0) amp。輸出部分的代碼如下： strsql6 = select 每項(xiàng)目取的名次 from 參數(shù)表 Set rs = (strsql6) strsql = select distinct 項(xiàng)目名稱(chēng) from 田賽成績(jī) Set rs1 = (strsql) i = 0 Do While Not strsql1 = select * from 田賽成績(jī) where 項(xiàng)目名稱(chēng) =39。田賽輸出是把每個(gè)田賽項(xiàng)目中的前幾名的人員成績(jī)信息輸出到最終成績(jī)表中，從田賽成績(jī)中的開(kāi)始查找田賽項(xiàng)目，則從田賽成績(jī)表中把從項(xiàng)目名單中查找到的項(xiàng)目的前幾名成績(jī)信息輸出到最終成績(jī)表中。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 Set rs = (strsql) If = True Then 39。 amp。 and 項(xiàng)目名稱(chēng) =39。 amp。代碼如下： strsql = select * from 田賽成績(jī) where 姓名 =39。) (strsql4) End If End if 比賽管理 比賽管理模塊中有三個(gè)小模塊分為：徑賽成績(jī)錄入與輸出、田賽成績(jī)錄入與輸出和全能成績(jī)錄入與輸出。 amp。,39。 amp。 Set rs = (strsql2) If = True Then strsql4 = insert into 運(yùn)動(dòng)員參賽情況 values(39。 amp。 and 項(xiàng)目名稱(chēng) =39。 amp。) (strsql1) (strsql3) MsgBox 報(bào)名成功！ , vbOKOnly, 提示 Else strsql2 = select * from 運(yùn)動(dòng)員參賽情況 where 姓名 =39。,39。) strsql3 = insert into 運(yùn)動(dòng)員參賽情況 values(39。,39。,39。 amp。,39。該運(yùn)動(dòng)員不存在，可以入庫(kù) strsql1 = insert into 運(yùn)動(dòng)員名單 values(39。 39。 amp。 39。 amp。如果此人存在于運(yùn)動(dòng)員名單中且該項(xiàng)目沒(méi)有被此人選擇則把此人參加該項(xiàng)目的信息插入到參賽情況表中，否則提示此人已經(jīng)參加了此項(xiàng)目。這幾個(gè)小模塊的代碼在同小異這里只摘入其中一個(gè)小模塊的代碼。所有的菜單項(xiàng)組成一個(gè)學(xué)校田徑運(yùn)動(dòng)會(huì)管理系統(tǒng)。主界面也就是各種功能的連接點(diǎn)。 主界面是進(jìn)行比賽進(jìn)程的各個(gè)功能的總控制。 Set rs = (strsql) If Not Then 39。 amp。 and 密碼 =39。 amp。登陸界面中涉及到的核心代碼如下： If And Then strsql = select * from 用戶(hù)信息 where 用戶(hù)名 =39。界面如圖 51 所示。對(duì)于交互式系統(tǒng)來(lái)說(shuō)，人機(jī)界面設(shè)計(jì)和數(shù)據(jù)設(shè)計(jì)、體系結(jié)構(gòu)設(shè)計(jì)及過(guò)程設(shè)計(jì)一樣重要。但是，所選用的程序設(shè)計(jì)語(yǔ)言的特點(diǎn)及編碼風(fēng)格也將對(duì)程序的可靠性、可讀性、可測(cè)性和可維護(hù)性產(chǎn)生深遠(yuǎn)的影響。 第五章 界面設(shè)計(jì)及編碼 所謂編碼就是把軟件結(jié)果翻譯成用某種程序設(shè)計(jì)語(yǔ)言書(shū)寫(xiě)的程序。 數(shù)據(jù)庫(kù)表創(chuàng)建 根據(jù) 學(xué)校田徑運(yùn)動(dòng)會(huì)的實(shí)際過(guò)程，學(xué)校田徑運(yùn)動(dòng)會(huì)管理系統(tǒng)主要涉及到的數(shù)據(jù)表有用戶(hù)信息、運(yùn)動(dòng)員名單、運(yùn)動(dòng)員參賽情況、運(yùn)動(dòng)項(xiàng)目名單、田賽成績(jī)、全能成績(jī)、徑賽初賽成績(jī)、徑賽預(yù)賽成績(jī)、徑賽決賽成績(jī)、最終成績(jī)、崗位表、工作人員表，這些表都是要先建的。 用戶(hù)管理 用戶(hù)管理有用戶(hù)添加、用戶(hù)刪除、用戶(hù)密碼修改。 系統(tǒng)工具 運(yùn)動(dòng)會(huì)數(shù)據(jù)備份和恢復(fù) 運(yùn)動(dòng)會(huì)數(shù)據(jù)備份是把運(yùn)動(dòng)會(huì)的數(shù)據(jù)庫(kù)備份到別的地方，運(yùn)動(dòng)會(huì)數(shù)據(jù)恢復(fù)是把備份的數(shù)據(jù)庫(kù)還原到原來(lái)的地方。 成績(jī)匯冊(cè) 本模塊也是要對(duì)項(xiàng)目循環(huán)查詢(xún)，所以是 DO_WHILE型循環(huán)結(jié)構(gòu)。 成績(jī)名次表查詢(xún) 循環(huán)條件 DO_WHILE 部分 統(tǒng)計(jì)該代表隊(duì)的總得分 T 項(xiàng)目 F 查詢(xún)參加此 項(xiàng)目的所有 人在此項(xiàng)目 中的成績(jī) 本模塊是要對(duì)項(xiàng)目循環(huán)查詢(xún)，所以是 DO_WHILE型循環(huán)結(jié)構(gòu)。 項(xiàng)目得分表 本模塊只需單項(xiàng)查詢(xún)，用 IF_THEN_ELSE型選擇結(jié)構(gòu)。 總分表 本模塊是要對(duì)項(xiàng)目中的每個(gè)項(xiàng)目進(jìn)行統(tǒng)計(jì)，所以是 DO_WHILE 型循環(huán)結(jié)構(gòu)。 代表隊(duì)查詢(xún) 本模塊的功能內(nèi)容首先是判斷再操作，所以是 IF_THEN_ELSE型選擇結(jié)構(gòu)。 項(xiàng)目成績(jī) 本模塊只需單項(xiàng)查詢(xún)，用 IF_THEN_ELSE型選擇結(jié)構(gòu)。 查詢(xún)輸出模塊 運(yùn)動(dòng)員成績(jī) F 成績(jī)存在 T 成績(jī)錄入 修改成績(jī) 循環(huán)條件 DO_WHILE 部分 (輸出 ) F 成績(jī)存在 T 成績(jī)錄入 修改成績(jī) 循環(huán)條件 DO_WHILE 部分 (輸出 ) 本模塊只需單項(xiàng)查詢(xún)，用 IF_THEN_ELSE型選擇結(jié)構(gòu)。 圖 312成績(jī)錄入部分盒圖 圖 313 輸出部分盒圖 全能成績(jī)錄入與輸出這個(gè)模塊和上面兩個(gè)模塊 一樣與分為兩部分。 全能成績(jī)錄入與輸出 這個(gè)模塊在錄入方面也只需添加和修改，所以要用順序結(jié)構(gòu)。成績(jī)錄入部分是田賽項(xiàng)目的成績(jī)錄入和修改，這樣就需添加和修改兩個(gè)功能。在輸出方面也是循環(huán)結(jié)構(gòu)。而輸出部分也分為初賽、預(yù)賽