《軟件工程》課程學(xué)生成績(jī)信息管理系統(tǒng)

1、軟件工程課程設(shè) 計(jì)學(xué) 生 成 績(jī) 信尸t息 管 理 系 統(tǒng) 指導(dǎo)老師：曾鵬 姓名：白飛 學(xué)號(hào)： 200108201120 班級(jí)：計(jì)科系 82011 班 目錄：第一部分選課系統(tǒng)分析1. 引言1.1. 編寫(xiě)目地1.2 背景說(shuō)明1.3. 術(shù)語(yǔ)定義及參考資料2. 任務(wù)概述2.1. 目標(biāo)2.2. 系統(tǒng)技術(shù)2.3 基本設(shè)計(jì)概念和處理流程2.4. 用戶(hù)地特點(diǎn)3. 需求規(guī)定3.1. 對(duì)功能地規(guī)定3.2. 對(duì)性能地規(guī)定4. 設(shè)計(jì)思想4.1. 數(shù)據(jù)庫(kù)地設(shè)計(jì)4.2. 系統(tǒng)功能特點(diǎn)5、軟件測(cè)試 第二部分學(xué)生成績(jī)查詢(xún)系統(tǒng)分析1. 系統(tǒng)需求分析2. 系統(tǒng)功能設(shè)計(jì)3. 概念設(shè)計(jì)3.1 概念結(jié)構(gòu)設(shè)計(jì)地 E-R 圖3.2 邏輯

2、結(jié)構(gòu)設(shè)計(jì)4. 概要設(shè)計(jì)5. 主要模塊詳細(xì)設(shè)計(jì)說(shuō)明書(shū) 第三部分附帶主要部分源碼 第四部分設(shè)計(jì)感想第一部分選課系統(tǒng)2. 引言21 世紀(jì)以高科技為核心地知識(shí)經(jīng)濟(jì)將占主導(dǎo)地位，國(guó)家地綜合國(guó)力和國(guó) 際競(jìng)爭(zhēng)力將越來(lái)越取決于科學(xué)技術(shù)創(chuàng)新水平 .教育作為知識(shí)創(chuàng)新、傳播和應(yīng)用地 基礎(chǔ)，培養(yǎng)和輸送人才地?fù)u籃，已經(jīng)成為經(jīng)濟(jì)發(fā)展和社會(huì)進(jìn)步地基礎(chǔ) .盡管人類(lèi)進(jìn)步地程度隨著不同時(shí)代，不同地區(qū)而有所變化，教育地口徑 卻在不斷擴(kuò)寬，以便使過(guò)去僅供少數(shù)人使用地教育資源能夠?yàn)楦喔鞣N年齡、不同社會(huì)階層和背景地人們所用 .在信息爆炸地時(shí)代，傳統(tǒng)教案管理面臨著諸多 挑戰(zhàn).1.1. 編寫(xiě)目地開(kāi)發(fā)基于互聯(lián)網(wǎng)地學(xué)生選課系統(tǒng)，提高管理工作地

3、效率、提高信息地開(kāi)放性、改善學(xué)生和教師對(duì)其最新信息查詢(xún)地準(zhǔn)確性 .2.2. 背景說(shuō)明隨著學(xué)校規(guī)模地不斷擴(kuò)大，專(zhuān)業(yè)、班級(jí)、學(xué)生地?cái)?shù)量急劇增加，有關(guān)學(xué) 生選課地各種信息量也成倍增長(zhǎng)，而目前許多高校地學(xué)生選課管理仍停留在復(fù) 雜地人工操作上，重復(fù)工作較多，工作量大，效率低，因此，迫切需要開(kāi)發(fā)基 于互聯(lián)網(wǎng)地體育課信息管理系統(tǒng)來(lái)提高管理工作地效率 .基于互聯(lián)網(wǎng)地學(xué)生選課 管理系統(tǒng)，在學(xué)生選課地規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢(xún)方面具有較大地實(shí)用 意義 .它提高了信息地開(kāi)放性，大大地改善了學(xué)生、教師對(duì)其最新信息查詢(xún)地準(zhǔn) 確性.1.3. 術(shù)語(yǔ)定義及參考資料1. （ 美） Grady Booch,James Rumb

4、augh,Ivar Jacobson, UML 用戶(hù)指南 , 機(jī) 械工業(yè)出版社， 2001年 8 月2. Microsoft ，MSDN3. Microsoft, SQL Server2000 聯(lián)機(jī)手冊(cè)4.Roger S. Pressman. 軟件工程實(shí)踐者地研究方法 . 機(jī)械工業(yè)出版社， 1997 5.IPL.Software Testing and Software Development Lifecycles.IPL，19966.Karl E. Wiegers 軟件需求機(jī)械工業(yè)出版社， 19997. 張海藩軟件工程導(dǎo)論清華大學(xué)出版社 .2. 任務(wù)概述2.1. 目標(biāo)系統(tǒng)開(kāi)發(fā)地總體任務(wù)是實(shí)現(xiàn)

5、學(xué)生選課信息關(guān)系地系統(tǒng)化、規(guī)范化和自動(dòng)化在這2.2.里需要指出地是：系統(tǒng)技術(shù)學(xué)生選課系統(tǒng)要求具有信息處理地開(kāi)發(fā)性，方便教師上傳學(xué)生成績(jī)、學(xué)生上網(wǎng)選課和查詢(xún)選課信息及成績(jī)等，因此本系統(tǒng)設(shè)計(jì)為基于WW地網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)，使用ASP腳本以Access為數(shù)據(jù)庫(kù)地開(kāi)發(fā)技術(shù)，運(yùn)行在支持 ASP地服務(wù)器上.2.3 基本設(shè)計(jì)概念和處理流程采用基于 SQL Server 地分布式數(shù)據(jù)庫(kù)管理系統(tǒng) .三層結(jié)構(gòu)是目前用得最多 地，這種結(jié)構(gòu)比傳統(tǒng)地 C/S 結(jié)構(gòu)增加了一個(gè)應(yīng)用程序服務(wù)器，應(yīng)用程序服務(wù)器 包括了統(tǒng)一地界面、業(yè)務(wù)規(guī)則和數(shù)據(jù)處理邏輯等等，這樣客戶(hù)端程序就可以做 得比較小，也就是常說(shuō)地瘦客戶(hù)，更由于業(yè)務(wù)規(guī)則和

6、數(shù)據(jù)處理邏輯地集中在服 務(wù)器上統(tǒng)一管理，客戶(hù)端無(wú)須進(jìn)行復(fù)雜地計(jì)算，也不會(huì)因?yàn)殄e(cuò)誤地操作而影響 到其他地用戶(hù)，所以他地可靠性、穩(wěn)定性和效率都比較好 .（其結(jié)構(gòu)如圖） 2.4. 用戶(hù)地特點(diǎn)為保證系統(tǒng)安全高效地運(yùn)行，本系統(tǒng)把用戶(hù)劃分為 3 類(lèi)：教務(wù)處、教師和 學(xué)生. 不同地用戶(hù)在系統(tǒng)中地作用和權(quán)限也有所不同，所以它所需要完成地功能 也就不同 .教務(wù)處 可以完成本系統(tǒng)所有地功能：1）學(xué)生信息管理，除學(xué)生基本信息外，還可管理學(xué)生所選課程、成績(jī)等；2）教師信息管理，包括教師個(gè)人地基本情況和任課情況；3）工程及班數(shù)地設(shè)定：根據(jù)學(xué)校教務(wù)處所排課進(jìn)行班級(jí)數(shù)及人數(shù)地統(tǒng)計(jì)， 然后根據(jù)統(tǒng)計(jì)結(jié)果進(jìn)行工程及班數(shù)地設(shè)定；4

7、）排課：根據(jù)上一步分班情況安排任課教師；5）報(bào)表生成及輸出：生成教師擔(dān)任課程分班表、按工程生成學(xué)生成績(jī)表、 按學(xué)生行政班生成成績(jī)表及所有報(bào)表地輸出 .教師 在本系統(tǒng)地功能 ：查詢(xún)學(xué)生選課情況、自己任課情況、獲取自己所擔(dān) 任課程分班表、錄入及修改成績(jī)等 .學(xué)生 在本系統(tǒng)地功能：查詢(xún)本人信息、教師任課信息、選課、選課信息查 詢(xún)、成績(jī)查詢(xún) .3. 需求規(guī)定3.1. 對(duì)功能地規(guī)定1可實(shí)現(xiàn)學(xué)生選課注冊(cè)2 方便實(shí)現(xiàn)學(xué)生選課信息查詢(xún)3 可對(duì)學(xué)生成績(jī)檔案進(jìn)行管理，成績(jī)表單生成簡(jiǎn)便4. 安全有效地用戶(hù)區(qū)分，管理5檔案數(shù)據(jù)地高安全性，保密性6.有幫助文檔 3.2.對(duì)性能地規(guī)定使用穩(wěn)定，操作性能好，操作方法易于掌握

8、，系統(tǒng)地安全性強(qiáng)4設(shè)計(jì)思想用戶(hù)地需求具體表現(xiàn)在對(duì)各種信息地提供、編輯、處理及查詢(xún)統(tǒng)計(jì)上這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿(mǎn)足各種信息地輸入、處理和輸出通過(guò)分析學(xué)生選課管,系統(tǒng)各環(huán)節(jié)地基本數(shù)據(jù)及數(shù)據(jù)處理流程，、交流與探討地基礎(chǔ)成課表得到以下學(xué)生選課系統(tǒng)地?cái)?shù)據(jù)流理系統(tǒng)地現(xiàn)實(shí)需求，學(xué)生選課管理系統(tǒng)各 在與管理人員溝程圖學(xué)生4.1.通學(xué)生選課系統(tǒng)選課學(xué)生課注選課/信息（圖查 據(jù)尋呷1）系統(tǒng)模型程H個(gè)人選課信息 可統(tǒng)流程圖 成2）系過(guò)對(duì)學(xué)生選課管理系統(tǒng)工作內(nèi)容和相關(guān)數(shù) 求地需要，就可 此得到數(shù)據(jù)庫(kù) 學(xué)生信息表:計(jì)教務(wù)處設(shè)學(xué)生選課管理系 們之間地關(guān)系排考試 體情況如下安排考試齣流程分析，系根據(jù) 地各種實(shí)體，以及它

9、羅輯結(jié)構(gòu)-具以設(shè)計(jì)出能滿(mǎn)足啞 所支持地?cái)?shù)開(kāi)學(xué)時(shí)將教務(wù)處提供地學(xué)生信息庫(kù)按系統(tǒng)地要求修改庫(kù)結(jié)構(gòu)并據(jù)庫(kù)地邏由導(dǎo)入Access數(shù)據(jù)庫(kù)中，應(yīng)包括如下信息：姓名、學(xué)號(hào)、院系、班級(jí)、性別、選 課 程、 任 課 教 師、備 注 等2. 教師信息表：包括教師姓名、教師代碼、性別、年齡、職稱(chēng)、主要教授課程、兼任課程等3. 課程信息：包括課程目錄、課程、課程代碼、教案內(nèi)容、任務(wù)與目地、考試方法、要求等4 .課程表：包括課程名稱(chēng)、課程編號(hào)、任課教師、課程學(xué)分、上課時(shí)間所選課程信息合理性 考試安排成績(jī)?nèi)谓绦畔W(xué)生成績(jī)單（圖3）面向過(guò)程數(shù)據(jù)流圖42系統(tǒng)功能特點(diǎn)1內(nèi)容全面系統(tǒng)全面覆蓋了體育課信息，可為學(xué)校、教師 和 學(xué)

10、生 提 供 全 面 準(zhǔn) 確 地 信 息2 層次分明系統(tǒng)采用模塊化程序設(shè)計(jì)結(jié)構(gòu).各模塊之間既相互獨(dú)立，又具有一 定地聯(lián)系，各模塊可獨(dú)立編制、調(diào)試、查錯(cuò)、修改和執(zhí)行 ，結(jié)構(gòu)嚴(yán)謹(jǐn)，便于擴(kuò)展和 維護(hù)5、軟件測(cè)試輸入數(shù)據(jù)有效等價(jià)類(lèi)無(wú)效等價(jià)類(lèi)證件號(hào)碼1、6位數(shù)字字符2、有效數(shù)字字符3、少于6個(gè)字符4、大于6個(gè)字符使用功能5、選課6、查詢(xún)7、輸入其他文字有效測(cè)試用例無(wú)效數(shù)據(jù)式用例期望結(jié)果測(cè)試范圍測(cè)試數(shù)據(jù)期望結(jié)果測(cè)試范圍134561輸入有效輸入無(wú)效21234561輸入無(wú)效4選2341輸入有效輸入無(wú)效312t21輸入無(wú)效2、3排卡課輸入無(wú)效7第二部分學(xué)生成績(jī)查詢(xún)系統(tǒng)1. 系統(tǒng)需求分析說(shuō)明：學(xué)校每年新生入學(xué)，畢業(yè)

11、生離校和各種其它變動(dòng)，如學(xué)籍變動(dòng)，個(gè)人信息修改每學(xué)期學(xué)校者要開(kāi)設(shè)一定地課程提供給學(xué)生根據(jù)自己地情況來(lái)選擇，最后地選 擇結(jié)果要給出學(xué)生地課程表如何有效地管理這些學(xué)生信息，幫助學(xué)校和老師管 理和掌握這些情況，這就是學(xué)生信息管理系統(tǒng)需要完成地任務(wù)下面用軟件工程地思想和方法完成該系統(tǒng)地設(shè)計(jì)過(guò)程.功能：個(gè)人信息查詢(xún)和修改，包括流動(dòng)，注冊(cè)，更新管理 2. 系統(tǒng)功能設(shè)計(jì)學(xué)院新生 登記考厲考用舎丁田玄結(jié)學(xué)生管理系統(tǒng)地?cái)?shù)據(jù)流圖信息注冊(cè)獎(jiǎng)記錄記錄教務(wù)處懲信息獎(jiǎng)懲變學(xué) 生學(xué)生個(gè)人信息表獎(jiǎng)懲信息表學(xué)籍變更表統(tǒng)計(jì)學(xué)生個(gè)信息學(xué)生課程申請(qǐng)課程清單 教師教務(wù)處學(xué)生選*批準(zhǔn)課卜人信息新生注冊(cè)登記課程基本信息表選FD圖學(xué)課結(jié)果表

12、新 管課程表 課表打印課程設(shè)置審批生課 程 表+3.數(shù)據(jù)庫(kù)概念設(shè)計(jì)根據(jù)以上數(shù)據(jù)流圖導(dǎo)出數(shù)據(jù)庫(kù)所需數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)詢(xún)學(xué)學(xué)學(xué)生：學(xué)號(hào)，姓名，性別，生日，所在院系, 課程：課程號(hào)，課程名，講師，上課時(shí) 選課結(jié)果：記錄號(hào)，選課學(xué)生，所選課程 學(xué)籍變更記錄：記錄號(hào)，變更情況，記錄3.1數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)地E-R圖說(shuō)明：E-R圖中矩形代表實(shí)體，菱形代表實(shí)體 代表實(shí)體地屬性所在班級(jí)：間，地點(diǎn)，課程簡(jiǎn)介時(shí)間，詳細(xì)描述間地聯(lián)系，圓角矩形教師工號(hào) 教師名講授1： N選課課程學(xué)生記錄-對(duì)象1: 1課程號(hào)學(xué)號(hào) 課程名姓名 講師性別學(xué)籍變更記錄選課結(jié)果 記錄號(hào)課程號(hào) 變更情況選課學(xué)生變更時(shí)間記錄號(hào)詳細(xì)描述3.2數(shù)據(jù)庫(kù)邏

13、輯結(jié)構(gòu)設(shè)計(jì)根據(jù)以上E-R圖，需要五個(gè)基本表：學(xué)生信息表、課程信息表、選課結(jié)果表、 獎(jiǎng)懲信息表、其中教師信息是處部表，不列出，由于使用打開(kāi)系統(tǒng)地不光是教 務(wù)人員，每個(gè)學(xué)生都要登錄到選課系統(tǒng)進(jìn)行課程地選擇，因此，需要對(duì)不同地 登錄人員進(jìn)行密碼地認(rèn)證和權(quán)限地限制，防止越權(quán)行為，用戶(hù)名，密碼，權(quán) 限，保存在一個(gè)表中.1. USER-PASS用戶(hù)密碼信息表字典字段名數(shù)據(jù)類(lèi)型是否可空說(shuō)明IDCHARNOT NULL用戶(hù)名（主鍵）PASSWORDCHARNOT NULL密碼AUTHORITYCHARNOT NULL權(quán)限2. COURSE課程信息表數(shù)據(jù)字典字段名數(shù)據(jù)類(lèi)型是否可空說(shuō)明IDCHARNOT NULL

14、課程號(hào)（主鍵）NAMEVARCHARNULL課程名TEACHERVARCHARNILL講師CLASTIMEVARCHARNULL上課時(shí)間CLASSROMCHARNULL上課地點(diǎn)INTROVARCHARNULL簡(jiǎn)介3. COURSE-SELECT選課結(jié)果表數(shù)據(jù)字典字段名數(shù)據(jù)類(lèi)型是否可空說(shuō)明IDSMALL INTNOT NILL記錄號(hào)（主鍵）COURSECHARNULL課程名STUDENTCHARNULL選課學(xué)生（外部 關(guān)鍵4. STUDENT學(xué)生個(gè)人信息表數(shù)據(jù)字典字段名數(shù)據(jù)類(lèi)型是否可空說(shuō)明IDSMALL INTNOT NULL學(xué)號(hào)（主鍵）NAMEVARCHARNOT NULL姓名SEXCHARN

15、OTNULL性別CLASSCHARNULL班級(jí)DEPARTMENTCHARNULL院系BIRTHDAYVARCHARNULL生日5.獎(jiǎng)懲記錄信息表字段名數(shù)據(jù)類(lèi)型是否可空說(shuō)明IDSMLL INTNOT NULL記錄號(hào)（主鍵）STUDENTCHARNOT NULL學(xué)號(hào)（外部鍵）LEVELCHARNULL獎(jiǎng)懲代碼TIMEDATANULL時(shí)間DESCRIPTIONVARCHARNULL描述4.概要設(shè)計(jì)由以上DFD圖導(dǎo)出地學(xué)院學(xué)生管理系統(tǒng)SC圖密碼+用戶(hù)名用戶(hù)權(quán)限管理修改獎(jiǎng)勵(lì)記錄修改懲罰記錄加入課程刪除課增刪信息增刪信息已選課程表課程信息學(xué)院學(xué)生管理系統(tǒng)課程編號(hào)課程編 新生信息更親新生信息登記學(xué)生個(gè)人信

16、息修改接受輸入顯示課程詳細(xì)信息接受新課程獎(jiǎng)勵(lì)命令懲罰命令增刪命令增刪命令課程表打印學(xué)生課表5.主要模塊詳細(xì)設(shè)計(jì)說(shuō)明書(shū)1.用戶(hù)身份認(rèn)證模塊功能：按用戶(hù)輸入地用戶(hù)名和密碼是否合法 合法則進(jìn)入應(yīng)用程序 非法則顯示出錯(cuò)信息界面：由總控模塊調(diào)用模塊說(shuō)明細(xì)化為詳細(xì)邏輯IPO圖用戶(hù)身份認(rèn)證模塊輸入處理輸出連接數(shù)據(jù)庫(kù)表連接數(shù)據(jù)庫(kù)錯(cuò)誤中斷程序捕捉錯(cuò)誤用戶(hù)名獲取用戶(hù)名用戶(hù)密碼獲取用戶(hù)密碼讀 USER-PAS判斷密碼是否存在提 捕捉異常判斷用戶(hù)權(quán)限是合法隱藏登錄窗口顯示主窗體文件信息判斷用戶(hù)名是否存在USER-PASS 表2.選課模塊功能：接受學(xué)生選課信息 刷新學(xué)生課程表 界面：調(diào)用添加、刪除模塊，打印課表模塊 將

17、模塊說(shuō)明細(xì)化為詳細(xì)邏輯選課處理IPO圖輸入處理輸出課程編號(hào)為課程號(hào)過(guò)濾輸入課程編號(hào)異常提示 接受課程號(hào) 打開(kāi)課程信息表判斷是添加或是刪除添加檢索課程表讀該記錄若該記錄存在顯示所選課程詳細(xì)信息執(zhí)行 將選課結(jié)果刷新刪除執(zhí)行刪除語(yǔ)句調(diào)用刪除模塊將穩(wěn)定課結(jié)果刷新提交課表：課程編號(hào)，課程 調(diào)用打印課表模塊文件 課程信息表選課結(jié)果表3. 課程申請(qǐng)模塊添加語(yǔ)句調(diào)用添加模塊信息表功能：接受輸入地新添課程 將新課程信息存入課程信息 刪除舊課程 界面：調(diào)用已開(kāi)課程信息表 調(diào)用申請(qǐng)修改程序 將模塊細(xì)化為詳細(xì)邏輯IPO圖 課程管理模塊輸入處理輸出課程編號(hào)添加新課程獲取當(dāng)前教師所選課程打開(kāi)已開(kāi)課程表查詢(xún)是否存在該記錄|

18、若無(wú)該記錄則是新課程調(diào)用添加模塊提取課程編號(hào)提取課程名稱(chēng)提取課程簡(jiǎn)介提交一若有該記錄則不是新課程出錯(cuò)處理提示信息刪除舊課程二文件課程信息表 （折半查找算法測(cè)試）2測(cè)試名稱(chēng)：模塊輸入課程編號(hào)過(guò)濾地測(cè)試方案a）規(guī)定課程編號(hào)為輸入4個(gè)字符，頭兩個(gè)字符為字母，后 2個(gè)字符為數(shù)字例如TP38b）測(cè)試方法采用黑盒測(cè)試法中地等價(jià)類(lèi)劃分法 劃分等價(jià)類(lèi)輸入數(shù)據(jù)有效等價(jià)類(lèi)無(wú)效等價(jià)類(lèi)課程號(hào)1兩字母+兩數(shù)字2有非數(shù)字或字母字母3 A-Z4字母少于兩個(gè)或多于 兩個(gè)數(shù)字500-996數(shù)字少于兩個(gè)或多于 兩個(gè)為有效等價(jià)類(lèi)和每個(gè)無(wú)效等價(jià)類(lèi)設(shè)計(jì)測(cè)試用例測(cè)試數(shù)據(jù)期望結(jié)果測(cè)試范圍HY76輸入有效1、3、5D78輸入無(wú)效2S86輸入

19、無(wú)效4MA2輸入無(wú)效6HY345輸入無(wú)效6DEH94輸入無(wú)效4測(cè)試名稱(chēng)：課程查找模塊設(shè)計(jì)測(cè)試方案a）本模塊采用地是折半查找算法主要是測(cè)試各程序在各種典型情況下是不能有效地進(jìn)行查找b）測(cè)試方案采用選擇白盒測(cè)試法中地路徑覆蓋法說(shuō)明：由于輸入地課程編號(hào)已經(jīng)被過(guò)濾，所以編號(hào)接受地范圍為00-滿(mǎn)足覆蓋要求地測(cè)試方案測(cè)試數(shù)據(jù)覆蓋地結(jié)點(diǎn)覆蓋地邊Class no=13,27,34,45 ,60A b c d e f g h i j k l m n1 2 3 4 5 6 7 8 9 10 11 1212V v vvV v v vv27V v v v v v v v v v vV v v v v v v v v2

20、8V v v v v v v v v v vV v v v v v v v v v v34V v v v v v vvV v v v v v v vv40V v v v v v vv vV v v v v v vv v45V v v v v v v vv vV v v v v v vv v61V v vvV v v vv第三部分附錄主要部分源碼unit main。in terfaceusesWin dows. Messages, SysUtils, Varia nts. Classes, Graphics, Con trols, Forms,Dialogs, ShellAPI,Menus, A

21、ctnList, StdCtrls, Buttons, XPMenu, jpeg, ExtCtrls。 typeTFmMa in = class(TForm)ActionList1: TActionList。Actxsgl: TAction。Actcjgl: TAction。ActZHGL: TAction。Actibbgl: TAction。SpeedButto n1: TSpeedButtonSpeedButt on2: TSpeedButtonSpeedButto n3: TSpeedButtonSpeedButto n4: TSpeedButtonBitBtn1: TBitBtn。Bi

22、tBtn2: TBitBtn。BitBtn3: TBitBtn。PopupMe nu1: TPopupMe nuf1: TMe nuItem。gfg1: TMe nuItem。fgfg1: TMe nuItem。gfgf1: TMe nuItem。N1: TMe nuItem。N2: TMe nuItem。N3: TMe nuItem。N4: TMe nuItem。N5: TMe nuItem。Image1: Tlmagaprocedure ActxsglExecute(Sender: TObject。) procedure ActcjglExecute(Sender: TObject。) p

23、rocedure ActZHGLExecute(Sender: TObject)。 procedure ActibbglExecute(Sender: TObject。) procedure BitBtn1Click(Sender: TObject)。 procedure BitBtn2Click(Sender: TObject)。 procedure BitBtn3Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 procedure N4Click(Sender: TObject)。procedure N1Click(Se

24、nder: TObject)。procedure Image1Click(Sender: TObject。) private Private declarations public Public declarations end。varFmMain: TFmMain 。 implementation uses Uxsgl, Ucjgl, Uzhgl, Ubbgl, ABOUT, Uhelp 。$R *.dfmprocedure TFmMain.ActxsglExecute(Sender: TObject。) cedure TFmMain.Actc

25、jglExecute(Sender: TObject)。 beginfmcjgl.Show 。cedure TFmMain.ActZHGLExecute(Sender: TObject)。 beginFMZHGL.Show 。cedure TFmMain.ActibbglExecute(Sender: TObject)。 beginfmbbgl.Scedure TFmMain.BitBtn1Click(Sender: TObject)。 beginApplication.CreateForm(Tfrm_about, frm_about)。 fr

26、m_about.ShowMcedure TFmMain.BitBtn2Click(Sender: TObject)。 beginApplication.CreateForm(Tform3, form3) 。 form3.ShowModal 。cedure TFmMain.BitBtn3Click(Sender: TObject)。 beginif application.MessageBox(真地退出?,提示,mb_okcancel)=idok then application.Tcedure TFmMain.N3Click

27、(Sender: TObject)。beginBitBtn1Click(Sender)。cedure TFmMain.N4Click(Sender: TObject)。beginBitBtn2Click(Sender)。cedure TFmMain.N1Click(Sender: TObject)。beginBitBtn3Click(Sender)。cedure TFmMain.Image1Click(Sender: TObject)。varfilename:string。beginfilename:=。Shellexecute(Application

28、.Handle,nil,pchar(filename),nil,nil,sw_shownormal)。 end。end.object FmMain: TFmMainLeft = 186Top = 159BorderStyle = bsNoneCaption = #23398#29983#20449#24687#31649#29702#31995#32479ClientHeight = 488ClientWidth = 732Color = clBackgroundFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height

29、 = -11Font.Name = MS Sans SerifFont.Style = Icon.Data = . / 圖片代碼OldCreateOrder = FalsePopupMenu = PopupMenu1WindowState = wsMaximizedPixelsPerInch = 96TextHeight = 13object SpeedButton1: TSpeedButtonLeft = 48Top = 328Width = 130Height = 100Cursor = crCrossAction = Actxsgl end object SpeedButton2: TS

30、peedButtonLeft = 400Top = 328Width = 130Height = 100Cursor = crCrossAction = ActZHGLendobject SpeedButton3: TSpeedButtonLeft = 224Top = 328Width = 130Height = 100Cursor = crCrossAction = Actcjglendobject SpeedButton4: TSpeedButtonLeft = 571Top = 328Width = 130Height = 100Cursor = crCrossAction = Act

31、ibbgl end object Image1: TImageLeft = 48Top = 64Width = 401Height = 105Cursor = crHandPointHint = #27426#36814#20809#20020 ParentShowHint = False Picture.Data = . / 圖片代碼 ShowHint = TrueOnClick = Image1Click end object BitBtn1: TBitBtnLeft = 400Top = 456Width = 75Height = 25Cursor = crHandPointCaptio

32、n = &AboutTabOrder = 0OnClick = BitBtn1ClickGlyph.Data = . / 圖片代碼end object BitBtn2: TBitBtnLeft = 520Top = 456Width = 75Height = 25Cursor = crHandPoint Caption = &Help TabOrder = 1OnClick = BitBtn2ClickGlyph.Data = . / 圖片代碼end object BitBtn3: TBitBtnLeft = 632Top = 456Width = 75Height = 25Cursor =

33、crHandPointCaption = &CloseTabOrder = 2OnClick = BitBtn3ClickGlyph.Data = ./ 圖片代碼NumGlyphs = 2endobject ActionList1: TActionListLeft = 400Top = 80 object Actxsgl: TActionCaption = #23398#29983#20449#24687#31649#29702 Hint = #23398#29983#20449#24687#31649#29702 OnExecute = ActxsglExecuteend object Ac

34、tcjgl: TActionCaption = #25104#32489#31649#29702Hint = #25104#32489#31649#29702OnExecute = ActcjglExecuteend object ActZHGL: TActionCaption = #36873#35838#31995#32479Hint = #36873#35838#31995#32479OnExecute = ActZHGLExecute end object Actibbgl: TActionCaption = #25253#34920#29983#25104Hint = #25253#34920#29983#