【正文】 秦母發(fā)出一聲驚呼，一把扶住搖搖欲墜的秦立，手忙腳亂的給秦立擦著嘴邊的鮮血，同時(shí)顫抖著問道：“兒子，你，你這是怎么了，你別嚇唬為娘！” 這人，就是自己的母親？也不知 是否是錯(cuò)覺，吐了一口血，秦立反而覺得輕松了很多，看著眼前這個(gè)滿面淚痕，目光悲戚的漂亮少婦，秦立一時(shí)間有些茫然，記憶的融合，卻不代表心靈上的接受，剛剛他的爆發(fā)，完全是源于靈魂深處那股巨大的悲憤和看不得有人如此脅迫一個(gè)女人。 “你找死！” 秦立雙眼射出兩道冰冷的寒光，死死盯著吳醫(yī)師，從床上一躍而下，掄起拳頭，呼嘯著砸在吳醫(yī)師那張猥瑣的臉上，緊接著，又飛起一腳，狠狠踹在吳醫(yī)師的胸口，噗的一聲，將吳醫(yī)師從房間里踹出門外，那扇本就老化了的木門當(dāng)下便被吳醫(yī)師的身子撞得稀巴爛。 終于，你這只高傲的白天鵝，也要求我這只癩蛤蟆了？吳醫(yī)師貪婪的眼神，死死盯在秦寒月的臉上，哆嗦著伸出手去，想要去摸秦寒月的臉。只是，秦母又怎么可能看上他這種人，若不是為了兒子，根本連看都懶得看他一眼。秦立整日練功，難免帶來(lái)一些傷害，因?yàn)檎?qǐng)不起有名的醫(yī)生，只能去請(qǐng)這個(gè)在秦家地位并不高的醫(yī)師。 不知過了多久，他終于融合了腦中全部的記憶，那種痛苦的感覺也漸漸消失，黑暗中，秦立心中茫然，想不到這么離奇詭異的事情，都能讓自己遇到，原以為必死無(wú)疑，卻不想竟然以另一種方式，再一次的活過來(lái)！ 這個(gè)時(shí)候，秦立對(duì)外界的感知，也一點(diǎn)點(diǎn)的恢復(fù)了正常，耳中傳來(lái)一個(gè)有些清冷，但卻帶著幾分哀求聲音：“吳醫(yī)師，求你救救他，只要能把他治好，我，我一定重謝！” “重謝？大小姐，現(xiàn)在的你，又能拿什么來(lái)重謝我？” 黑暗中，秦立 的眉頭皺起來(lái)，腦中充滿悲憤的記憶告訴他，他很反感這個(gè)聲音的主人。無(wú)數(shù)記憶的碎片再一次潮水般洶涌襲來(lái)，秦立就像是一只被怒浪卷進(jìn)大海的可憐蟲，沒有絲毫反抗的 余地，最難受的是想昏過去，都成為一種奢望。 這時(shí)候，秦立感覺到有一只溫暖的手覆蓋在自己的額頭，撫摸著自己的臉頰，很輕，很溫柔，透露著一股憐惜，珍愛??同時(shí)，朦朧中聽到一陣斷斷續(xù)續(xù)，似有還無(wú)的嗚咽聲，突然，似乎有一滴雨滴打在了臉上，涼涼的，沿著臉頰往下流，而后滑過嘴角??咸咸的。他身高一米七六，身體魁梧狀況僅次于團(tuán)長(zhǎng)班覺次仁，面如刀削，目光如炬，其個(gè)人格擊和應(yīng)變思維，在這個(gè)團(tuán)不作第二人想?！? 次仁對(duì)他旁邊的年輕軍官道：“小張，你和小黃一起去，去機(jī)場(chǎng)看看，怎么說(shuō)也是上級(jí)領(lǐng)導(dǎo)的朋友。次仁剛吃過午飯，一名士兵來(lái)報(bào)，上級(jí)領(lǐng)導(dǎo)打來(lái)電話，某教授會(huì)乘 A3097次專機(jī)在軍區(qū)機(jī)場(chǎng)降落，他們會(huì)從機(jī)場(chǎng)直赴蒙河，希望他能安排一 下，準(zhǔn)備輛車接應(yīng)。兩人遂登上軍用專機(jī)，從上海往西，朝著圣潔的高原 —— 西藏飛去。這樣，我們就不用進(jìn)拉薩，到時(shí)候直接從機(jī)場(chǎng)往南，看是先去你家還是先去蒙河 ?”說(shuō)著，打了個(gè)電話，那位領(lǐng)導(dǎo)在外地，答應(yīng)方新會(huì)替他們安排好的。到時(shí)候安排人來(lái)接我們就是了。 方新道：“不用著急，我打個(gè)電話，我和西藏軍區(qū)的一位領(lǐng)導(dǎo)頗有交情，上次也是坐他的飛機(jī)去西藏的，所以才知道這情況。我以為，它們都在拉薩機(jī)場(chǎng)起降呢?！? 方新道： “可是，軍用包機(jī)不在拉薩機(jī)場(chǎng)降落，在旁邊有個(gè)專用的軍用機(jī)場(chǎng)，離城還有一段距離呢。” “哦 ?”方新疑惑道，“好像這個(gè)時(shí)段，沒有直飛拉薩的航班吧 ?” 卓木強(qiáng)道：“因?yàn)槭俏覀円ダ_，所以就有了去那里的直飛航班呢。 方新收起電腦，喃喃道：“入藏后，就不能無(wú)線上網(wǎng)了，只是電腦里的很多資料很有用處。我一直想到上海來(lái)探望你，看看是不是真的?！彪娔X上在氣象局發(fā)來(lái)的橘紅色區(qū)域中又用更深的大紅色畫出一塊，從珠峰以北畫到錫金和尼泊爾境內(nèi)?！? 瑪瑞滿腹狐疑，悻悻地去了，心里喃喃念叨著：“瘋了，教授一定是瘋了。 或許聽錯(cuò)了。 “幾千年來(lái)，全世界所公認(rèn)的，體形最龐大，性格最兇猛的，叫獒。他沒有讓他的父母失望，如今已是擁有千萬(wàn)資產(chǎn)的公司老總，也是著名大學(xué)的教授，可謂名利俱盛，讓他起家的資本，不是別的，是犬。 卓姆強(qiáng)巴，藏族，四十二歲，天獅名犬馴養(yǎng)基地公司總裁，也是復(fù)旦大學(xué)生物系客座教授，主講世界名犬。今后的工作中，我將充分運(yùn)用自己所學(xué)的計(jì)算機(jī)知識(shí)，并在工作中不斷學(xué)習(xí)和完善，充分發(fā)揮一名計(jì)算機(jī)專業(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)目名稱 =39。 amp。部分代碼如下： If = Then MsgBox 請(qǐng)選擇項(xiàng)目名稱 !, vbOKOnly, 提示 Else strsql = select 項(xiàng)目類型 from 運(yùn)動(dòng)項(xiàng)目名單 where 項(xiàng)目名稱 =39。項(xiàng)目成績(jī)查詢界面如圖 55所示。) (strsql2) End If Next i = i + 1 Loop 查詢輸出 查詢輸出模塊中有七種不同的查詢：運(yùn)動(dòng)員成績(jī)查詢、代表隊(duì)成績(jī)查詢、項(xiàng)目成績(jī)查詢、總分表、項(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)目名稱 ,成績(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)目名稱 =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)目名稱 from 田賽成績(jī) Set rs1 = (strsql) i = 0 Do While Not strsql1 = select * from 田賽成績(jī) where 項(xiàng)目名稱 =39。田賽輸出是把每個(gè)田賽項(xiàng)目中的前幾名的人員成績(jī)信息輸出到最終成績(jī)表中，從田賽成績(jī)中的開始查找田賽項(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)目名稱 =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)目名稱 =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)目沒有被此人選擇則把此人參加該項(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 用戶信息 where 用戶名 =39。界面如圖 51 所示。對(duì)于交互式系統(tǒng)來(lái)說(shuō)，人機(jī)界面設(shè)計(jì)和數(shù)據(jù)設(shè)計(jì)、體系結(jié)構(gòu)設(shè)計(jì)及過程設(shè)計(jì)一樣重要。但是，所選用的程序設(shè)計(jì)語(yǔ)言的特點(diǎn)及編碼風(fēng)格也將對(duì)程序的可靠性、可讀性、可測(cè)性和可維護(hù)性產(chǎn)生深遠(yuǎn)的影響。 第五章 界面設(shè)計(jì)及編碼 所謂編碼就是把軟件結(jié)果翻譯成用某種程序設(shè)計(jì)語(yǔ)言書寫的程序。 數(shù)據(jù)庫(kù)表創(chuàng)建 根據(jù) 學(xué)校田徑運(yùn)動(dòng)會(huì)的實(shí)際過程，學(xué)校田徑運(yùn)動(dòng)會(huì)管理系統(tǒng)主要涉及到的數(shù)據(jù)表有用戶信息、運(yùn)動(dòng)員名單、運(yùn)動(dòng)員參賽情況、運(yùn)動(dòng)項(xiàng)目名單、田賽成績(jī)、全能成績(jī)、徑賽初賽成績(jī)、徑賽預(yù)賽成績(jī)、徑賽決賽成績(jī)、最終成績(jī)、崗位表、工作人員表，這些表都是要先建的。 用戶管理 用戶管理有用戶添加、用戶刪除、用戶密碼修改。 系統(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)查詢，所以是 DO_WHILE型循環(huán)結(jié)構(gòu)。 成績(jī)名次表查詢 循環(huán)條件 DO_WHILE 部分 統(tǒng)計(jì)該代表隊(duì)的總得分 T 項(xiàng)目 F 查詢參加此 項(xiàng)目的所有 人在此項(xiàng)目 中的成績(jī) 本模塊是要對(duì)項(xiàng)目循環(huán)查詢，所以是 DO_WHILE型循環(huán)結(jié)構(gòu)。 項(xiàng)目得分表 本模塊只需單項(xiàng)查詢，用 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ì)查詢 本模塊的功能內(nèi)容首先是判斷再操作，所以是 IF_THEN_ELSE型選擇結(jié)構(gòu)。 項(xiàng)目成績(jī) 本模塊只需單項(xiàng)查詢，用 IF_THEN_ELSE型選擇結(jié)構(gòu)。 查詢輸出模塊 運(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)查詢，用 IF_THEN_ELSE型選擇結(jié)構(gòu)。 圖 312成績(jī)錄入部分盒圖 圖 313 輸出部分盒圖 全能成績(jī)錄入與輸出這個(gè)模塊和上面兩