計(jì)算機(jī)科學(xué)與技術(shù)畢業(yè)設(shè)計(jì)

1、J I A N G S U U N I V E R S I Y 本本 科科 畢畢 業(yè)業(yè) 論論 文文 公路路政管理信息系統(tǒng) Highway G Management Information System 專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 班 級： 04 計(jì)本（4） 姓 名： 謝 立 人 指導(dǎo)教師姓名： 王新勝、巫宗賓 指導(dǎo)教師職稱： 副教授、助教 2008 年 6 月 公路路政管理信息系統(tǒng) 專業(yè)班級：04 計(jì)算機(jī)（4）班 學(xué)生姓名：謝立人 指導(dǎo)教師：王新勝、巫宗賓 職稱：副教授、助教 【摘要】文章以某公路路政管理為例，對公路路政管理系統(tǒng)的設(shè)計(jì)與應(yīng)用進(jìn)行 研究，旨在通過公路路政管理系統(tǒng)提高內(nèi)部公路和橋梁

2、的利用率及實(shí)現(xiàn)其最大 的經(jīng)濟(jì)效益。文中首先對公路路政管理的現(xiàn)狀及其重要性進(jìn)行了分析，提出設(shè) 計(jì)公路路政管理信息系統(tǒng)的必要性與可行性。其次針對該日常業(yè)務(wù)流程，分析 數(shù)據(jù)來源及數(shù)據(jù)處理流程，并根據(jù)收集到的資料設(shè)計(jì)適合該校的日常公路路政 管理系統(tǒng)。最后，文章對系統(tǒng)的設(shè)計(jì)實(shí)現(xiàn)過程進(jìn)行了闡述，同時簡述了實(shí)現(xiàn)系 統(tǒng)時的過程及注意事項(xiàng)，并提出其可維護(hù)性。 【關(guān)鍵詞】公路路政管理、系統(tǒng)分析、Visual Basic 6.0、access Highway G Management Information System 【Abstract】 Based on a highway bridge management

3、 as an example, the highway bridge management system design and application of research, aimed at improving roads and bridges management system within the utilization of highway bridges and achieve its greatest economic benefits. In the first highway bridge on the management of the status quo and it

4、s importance to the analysis, management information systems highway bridge the necessity and feasibility. Second for the day-to-day business processes, analysis of data sources and data processing, and in accordance with the design of the information collected for the schools day-to-day highway bri

5、dge management system. Finally, the article on the system design and implementation process were also discussed, briefly described the process of realization of the system and pay attention to issues and put forward its maintainability. 【Key Word】Highway G management, systems analysis ，Visual Basic

6、6.0、access 目目 錄錄 第一章、緒論第一章、緒論.4 11 系統(tǒng)開發(fā)的背景 .4 12 課題中涉及的相關(guān)技術(shù)及概念 .4 第二章、系統(tǒng)開發(fā)的目的、意義第二章、系統(tǒng)開發(fā)的目的、意義.6 第三章、系統(tǒng)開發(fā)的要求第三章、系統(tǒng)開發(fā)的要求.8 31 公路路政與配置 .8 32 所用的開發(fā)軟件、應(yīng)用軟件平臺及語言 .8 第四章、系統(tǒng)的功能特點(diǎn)第四章、系統(tǒng)的功能特點(diǎn).9 41 系統(tǒng)的功能 .9 42 系統(tǒng)的組成結(jié)構(gòu)及其流程圖 .9 第五章、結(jié)構(gòu)設(shè)計(jì)第五章、結(jié)構(gòu)設(shè)計(jì).11 51 系統(tǒng)開發(fā)的思想及原則 .11 52 系統(tǒng)軟件的結(jié)構(gòu)設(shè)計(jì) .12 第六章、詳細(xì)設(shè)計(jì)第六章、詳細(xì)設(shè)計(jì).16 61 界面設(shè)計(jì) .

7、16 62 代碼設(shè)計(jì) .18 第七章、系統(tǒng)評價(jià)第七章、系統(tǒng)評價(jià).37 71 系統(tǒng)測試 .37 72 系統(tǒng)的特點(diǎn) .37 73 系統(tǒng)總結(jié) .37 致謝致謝.38 參考文獻(xiàn)參考文獻(xiàn).39 第一章 緒 論 11 系統(tǒng)開發(fā)的背景 目前國內(nèi)公路橋梁管理不規(guī)范。大多數(shù)公路橋梁的管理辦法是建設(shè)完畢以 后，將其相關(guān)檔案存檔。但是以后信息基本就沒人維護(hù)，即公路橋梁跟蹤信息 不能及時體現(xiàn)在公路路政檔案上。 本系統(tǒng)針對此缺陷而設(shè)計(jì)，完整了國內(nèi)對公 路和橋梁的管理需要。本系統(tǒng)將會提高辦公效率和公路路政信息可靠性，提高 的現(xiàn)代化管理水平。這就是本論文寫作的背景和立題意義所在。 12 課題中涉及的相關(guān)技術(shù)及概念 121

8、相關(guān)技術(shù) 系統(tǒng)采用了先進(jìn)的 access 數(shù)據(jù)庫技術(shù)，面向?qū)ο蟮木幊谭椒▽W(xué)以及軟件工 程方法學(xué) 122Visual Basic 概念簡介 visual Basic 6.0 中文版是一種應(yīng)用程序開發(fā)工具。Visual Basic 6.0 是在原有的 Basic 語言的基礎(chǔ)上的進(jìn)一步發(fā)展，他包含了數(shù)百條語句。函數(shù)及 關(guān)鍵詞，其中很多與 Windows GUI 有直接的關(guān)系。Visual Basic 語言簡單易學(xué)， 只要稍有語言基礎(chǔ)就可以很快的掌握并進(jìn)而精通?？梢暬挠脩艚缑嬖O(shè)計(jì)功能， 把程序設(shè)計(jì)人員從繁瑣復(fù)雜的截面設(shè)計(jì)中解脫出來；可視化編程環(huán)境的“所見 即所得（WYSIWYG） ”功能，是界面設(shè)計(jì)

9、如積木游戲一般，編程變成了一種享受； 強(qiáng)大的多媒體功能可輕而易舉地開發(fā)出集聲音，動畫，影像和圖片于一體的多 媒體應(yīng)用程序；新增的網(wǎng)絡(luò)功能提供了編寫 Internet 程序的能力。Visual Basic 6.0 還支持用戶自己開發(fā) ActiveX 控件和制作 ActiveX 文檔。 VB 的基本特點(diǎn)有兩個： 1） VB 提供可視化的編程工具 2） VB 向程序員提供圖形對象（窗體，控件，菜單等）進(jìn)行應(yīng)用程 序的界面設(shè)計(jì)，應(yīng)用程序的界面相當(dāng)于用工具畫出來的，大大簡化了程 序員的編程工作。 3） 程序采取“事件驅(qū)動”方式 4） VB 改變了程序的機(jī)制，沒有傳統(tǒng)意義上的主程序，使程序執(zhí)行 的基本方法

10、是有“事件”來驅(qū)動子程序（或過程）的運(yùn)行，如用鼠標(biāo)點(diǎn) 擊命令按扭，就產(chǎn)生了一個命令按扭的“單擊事件” ，響應(yīng)的執(zhí)行一段 程序（事件過程：Command1_Click()） 。 5） 為什么要選擇 VB6.0 6）微軟 Visual Basic 6.0 是 Windows 應(yīng)用程序開發(fā)工具，使 目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic 提供 了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程 人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的 運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng) VB 是一個相對較好的選擇。 第二章 系統(tǒng)開發(fā)的目的和意義 目前

11、公路橋梁自動化管理水平不是很高，某些使用公路橋梁管理系統(tǒng)的單 位，對公路橋梁的跟蹤信息即使能體現(xiàn)在公路橋梁檔案上，但公路橋梁的缺陷 處理及公路橋梁缺陷等功能沒有實(shí)施。整個公路橋梁管理信息化仍處于較低水 平。將管理任務(wù)分成小塊，落實(shí)到個人并能隨時查詢公路橋梁當(dāng)前情況和歷史 情況，對公路橋梁的可靠性分析有直接作用，使管理人員從手工計(jì)算、統(tǒng)計(jì)工 作中解脫出來。 現(xiàn)在，科學(xué)技術(shù)的飛速發(fā)展把人類社會推向了一個嶄新的時代信息時 代。這已是無可爭議的事實(shí)；信息對社會經(jīng)濟(jì)發(fā)展的巨大推動作用，使其與物 質(zhì)能源一起并列為現(xiàn)代社會的三大支柱，這已在全社會達(dá)到共識。隨著對信息 作為一種資源來管理的需求日益加強(qiáng)，信息研

12、究領(lǐng)域出現(xiàn)了一種新的管理思想 和模式信息管理。因此，就誕生了“信息管理”這樣一個概念。由于信息 是普遍存在的，人類信息管理活動的范圍也是十分廣泛的，信息管理不僅是信 息工作的一部分，而且已被認(rèn)為是現(xiàn)代管理的重要組成部分。信息管理的概念 源于西方，也是在世界信息量迅速增長、信息技術(shù)日新月異、信息產(chǎn)業(yè)強(qiáng)勁發(fā) 展的六七十年代出現(xiàn)的。時至今日，信息管理已不僅僅是一個概念，而是信息 學(xué)和管理學(xué)中的重要內(nèi)容了。對信息管理的理解，一種認(rèn)為是，信息管理 就是 對信息的管理。在此，信息管理是指狹義的信息資源管理，實(shí)際上就是對信息 本身的管理；另一種認(rèn)為，信息管理不僅是對信息的管理，而是對涉及信息活 動的各種要素

13、，如信息、技術(shù)、人員、組織進(jìn)行合理的組織和有效的控制，從 而滿足社會的信息需求。在此，信息管理是指廣義的信息資源管理。綜合兩種 理解，信息管理是指對人類信息活動所產(chǎn)生的社會信息進(jìn)行管理，信息管理是 管理的一種，既要對信息進(jìn)行管理，也要對信息活動進(jìn)行管理。信息和信息活 動都是信息管理的客體。簡而言之，信息管理就是對信息和信息活動的管理， 這就是我們對信息管理的全面理解。 世界經(jīng)濟(jì)發(fā)展已進(jìn)入一個激烈競爭的年代，可以說，誰先獲得信息，誰就 有可能抓住發(fā)展經(jīng)濟(jì)的機(jī)遇。同樣，誰能很好地管理和利用信息，誰就有可能 占領(lǐng)市場，獲得效益。國內(nèi)外大量事實(shí)已說明：在目前這個激烈競爭的市場經(jīng) 濟(jì)中，誰的信息管理現(xiàn)代

14、化水平高，誰重視信息資源的開發(fā)和利用，誰就能抓 住機(jī)遇，在競爭中取勝。 本信息管理系統(tǒng)合理的某些企業(yè)公路橋梁管理現(xiàn)狀，并通過對各行業(yè)公路 橋梁管理情況的長期研究，以靈活、通用為主要設(shè)計(jì)思想，開發(fā)適合于公路橋 梁管理的信息系統(tǒng)。使用本系統(tǒng)之后，將會提高辦公效率和公路橋梁可靠性， 減少工作人員的勞動強(qiáng)度，減少辦公耗材，提高的現(xiàn)代化管理水平。做這個課 題是為了方便公路橋梁進(jìn)行統(tǒng)計(jì)及管理工作，減少每天需要涉及到的相關(guān)工作 量，盡可能的提高工作效率，可以節(jié)省人力物力的浪費(fèi)。 第三章 系統(tǒng)開發(fā)的要求 31 硬件配置及外設(shè)公路橋梁與配置 工硬件環(huán)境：硬件平臺是指開發(fā)與運(yùn)行所需要的硬件環(huán)境，主 要包括計(jì)算機(jī)機(jī)

15、型及硬件配置。由于本系統(tǒng)是一個小型的管理系統(tǒng)， 因此對計(jì)算機(jī)硬件的要求不高，比較經(jīng)濟(jì)，只要配備如下所示的就 可以。 內(nèi)容 最低配置 建議配置 主機(jī) P/200 PII/266 以上 內(nèi)存 64MB 128MB 以上 硬盤 10GB 20GB 以上 顯示器 VGA 以上 32 所用的開發(fā)軟件、應(yīng)用軟件平臺及語言 軟件平臺是指系統(tǒng)開發(fā)與運(yùn)行的軟件環(huán)境。本系統(tǒng)在開發(fā)時選用了穩(wěn)定性 較強(qiáng)的 Windows XP 中文專業(yè)版和 Visual Basic6.0 作為開發(fā)語言，由于這些軟 件產(chǎn)品都是 Microsoft 產(chǎn)品，因此彼此之間的兼容性較好，開發(fā)出的應(yīng)用系統(tǒng) 穩(wěn)定性較高。 VB6.0 中文版，它是

16、運(yùn)行于 Windows95 和 Windows NT 平臺的 32 位數(shù)據(jù) 庫系統(tǒng)，充分發(fā)揮了 32 位微處理器強(qiáng)大的 32 位數(shù)據(jù)處理性能。它功能強(qiáng)大， 直觀易用，支持客戶/服務(wù)器結(jié)構(gòu)和面向?qū)ο缶幊?，提供多種可視化編程工具， 支持最新 Internet 技術(shù)， WWW 數(shù)據(jù)庫的設(shè)計(jì)，最新流行的 ActiveX 等。 Visual basic 6.0 與其它 access 工具可以很好的配合，例如，運(yùn)用 Visual InterDev 創(chuàng)建 Web 應(yīng)用程序的開發(fā)人員可以很容易地使用 Visual Basic 來創(chuàng)建組件。用 Visual Basic 創(chuàng)建的 ActiveX 控件可以在程序中使

17、用。 第四章 系統(tǒng)的功能特點(diǎn) 41 系統(tǒng)的功能 本系統(tǒng)主要完成新增公路路政中公路和橋梁的入庫記錄、新增公路橋梁的 維護(hù)、公路橋梁領(lǐng)用登記和維護(hù)、公路橋梁使用與維修登記和維護(hù)、信息檢索、 系統(tǒng)管理功能。 42 系統(tǒng)的組成結(jié)構(gòu)及其流程圖 本系統(tǒng)主要有以下模塊：新增公路橋梁、公路橋梁的信息維護(hù)、公路橋梁 使用與維修登記和維護(hù)、信息檢索、系統(tǒng)管理。為了美化系統(tǒng)界面，本系統(tǒng)加 上一個圖片在主界面上。系統(tǒng)的整體結(jié)構(gòu)如下： 管理系統(tǒng) 公 路 管 理 橋 梁 管 理 設(shè) 備 配 件 管 理 退 出 系 統(tǒng) 圖 41 信息錄入流程圖： 圖 4-2 下面分別論述本系統(tǒng)的各個功能模塊的作用： （1）公路橋梁建設(shè)管理

18、：本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對公路橋梁的入庫 管理工作，包括記錄添加、編輯、刪除等操作。 （2）公路橋梁維修和使用：本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對教學(xué)的還庫管 理工作，包括記錄添加、編輯、刪除等操作。 （3）信息查詢：本應(yīng)用模塊集成了本系統(tǒng)的所有數(shù)據(jù)庫文件，可以跟據(jù)公 路橋梁的編號，名稱等進(jìn)行查詢。 （4）退出系統(tǒng)：退出本系統(tǒng)，恢復(fù)系統(tǒng)的實(shí)始狀態(tài)。 信息錄入 數(shù)據(jù)合法否 保存到數(shù)據(jù)庫 Y N 非法字符處修改 第五章 結(jié)構(gòu)設(shè)計(jì) 51 系統(tǒng)開發(fā)的思想及原則 511、數(shù)據(jù)庫設(shè)計(jì)概述 Visual Basic 具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗 口，可以直接建立或處理 Microsof

19、t Access 格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù) 據(jù)存儲和檢索功能。同時，Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫， 如 DBASE，F(xiàn)oxPro，Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯 和處理。 數(shù)據(jù)庫是信息管理系統(tǒng)的后臺，存儲著所有的信息，在信息管理系統(tǒng)中有 著很重要的地位。數(shù)據(jù)庫設(shè)計(jì)的好與壞，直接影響到這個系統(tǒng)的運(yùn)行效率。良 好的數(shù)據(jù)庫設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲效率，保證數(shù)據(jù)信息的完整性和一 直性。同時，一個合理的數(shù)據(jù)庫結(jié)構(gòu)有利于程序的實(shí)現(xiàn)。這里選用 Access 2000 作為后臺數(shù)據(jù)庫。 數(shù)據(jù)庫是某個企業(yè)、組織或部門所設(shè)計(jì)的數(shù)據(jù)

20、的一個綜合，它不僅要反映 數(shù)據(jù)本身的內(nèi)容，而且要反映數(shù)據(jù)之間的聯(lián)系。在數(shù)據(jù)庫中用數(shù)據(jù)模型這個工 具來抽象、表示和處理現(xiàn)實(shí)世界中的數(shù)據(jù)和信息。簡單地說，數(shù)據(jù)模型是現(xiàn)實(shí) 世界的模擬。 512 系統(tǒng)的開發(fā)的方法 在軟件的編制當(dāng)中，各個模塊的設(shè)計(jì)以 vb 語言實(shí)現(xiàn)，采用 visual basic6.0 開發(fā)環(huán)境進(jìn)行編譯，數(shù)據(jù)庫的連接采用 ADO 技術(shù)，而數(shù)據(jù)庫部分則由 Access2000 開發(fā)。輔助軟件配置：Wiondows2000、Office2000、visual basic6.0。 513、系統(tǒng)、可行性分析 可靠性分析概述 可靠性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進(jìn)行的，對新系統(tǒng)的開發(fā) 從社

21、會、技術(shù)、經(jīng)濟(jì)、管理等方面進(jìn)行分析，并得出新系統(tǒng)的開發(fā)工作可行、 不可行，最后完成可行性分析?？尚行苑治鲆话憧啥x為：可行性分析是在建 設(shè)的前期對工程項(xiàng)目的一種考察和鑒定，對擬議中的項(xiàng)目進(jìn)行全面與綜合的技 術(shù)、經(jīng)濟(jì)能力的調(diào)查，判斷它是否可行。 (1)可行性分析階段的主要工作包括以下幾個方面： 新系統(tǒng)目標(biāo)可行性分析：分析新系統(tǒng)的目標(biāo)是否符合某此小發(fā)展的需要。 社會可行性分析：社會可行性分析主要是指管理信息系統(tǒng)的開發(fā)是否符 合國家法律、政策。 技術(shù)可行性分析：技術(shù)可行性分析是根據(jù)新系統(tǒng)的目標(biāo)來衡量是否具備 所需要的技術(shù)。 管理可行性分析：管理可行性分析主要是分析現(xiàn)行的管理體制和領(lǐng)導(dǎo)是 否具有現(xiàn)代化

22、的管理意識和管理水平。 、技術(shù)可行性分析 5 技術(shù)可行性分析主要包括四個方面：目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)； 新系統(tǒng)開發(fā)人員的數(shù)量和水平，即人力資源；硬件和軟件資源。 （1）技術(shù)支持： 首先根據(jù)新系統(tǒng)的目標(biāo)，考慮目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)。 這里討論的技術(shù)必須是已經(jīng)普遍使用的，而不是待研究的或正在研究的。 （2）硬件資源： 開發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個方面： 系統(tǒng)開發(fā)人員在管理信息系統(tǒng)的開發(fā)過程中所需要的計(jì)算機(jī)公路橋梁及 其有關(guān)的外部公路橋梁；管理信息系統(tǒng)開發(fā)成功投入使用后，使用單位所應(yīng) 具備的計(jì)算機(jī)公路橋梁及其有關(guān)的外圍公路橋梁。對硬件資源進(jìn)行可行性分 析時主

23、要考慮計(jì)算機(jī)的主機(jī)內(nèi)存、類型、功能、聯(lián)網(wǎng)能力、安全保護(hù)措施以 及輸入/輸出公路橋梁，外存儲器和聯(lián)網(wǎng)數(shù)據(jù)通信公路橋梁的配置、功能、效 率等指標(biāo)是否符合系統(tǒng)方案設(shè)計(jì)要求，同時還要考慮計(jì)算機(jī)的性能/價(jià)格比。 （3）軟件資源 軟件資源的可行性分析主要考慮以下幾點(diǎn)是否滿足用戶的要求： 操作系統(tǒng)的選擇； 編譯系統(tǒng)的選擇； 數(shù)據(jù)庫管理系統(tǒng)的選擇； 高級編程語言的選擇； 漢字處理系統(tǒng)的選擇； 本系統(tǒng)在開發(fā)前，與相關(guān)的部門的領(lǐng)導(dǎo)和具體的操作人員密切溝通，認(rèn) 真聽取他們的意見，并吸收他們的積極觀點(diǎn)，使本系統(tǒng)的開發(fā)在相當(dāng)大的程 度上具有一定的先進(jìn)性和合理性。 52 系統(tǒng)軟件的結(jié)構(gòu)設(shè)計(jì) 通過對本系統(tǒng)的詳細(xì)分析，軟件模

24、塊結(jié)構(gòu)設(shè)計(jì)目標(biāo)如下： 系統(tǒng)主要應(yīng)完成的功能如下：公路橋梁的建設(shè)，公路橋梁的領(lǐng)用，公路 橋梁數(shù)據(jù)記錄的維護(hù)，數(shù)據(jù)資料資料的查詢，系統(tǒng)管理（包括修改密碼及增 刪用戶等） 。 521、結(jié)構(gòu)設(shè)計(jì)： 本系統(tǒng)在運(yùn)行時，可以根據(jù)不同的使用需要，選擇不同的功能模塊進(jìn)入相 當(dāng)?shù)南到y(tǒng)使用；同時，為了方便對系統(tǒng)的快速操作，本系統(tǒng)設(shè)計(jì)了幾個功能集 成模塊，可以對一些數(shù)據(jù)進(jìn)行統(tǒng)一的快速操作；并為了系統(tǒng)的安全考慮，本系 統(tǒng)設(shè)立了密碼修改等功能。總體上來說，本系統(tǒng)屬于事務(wù)型系統(tǒng)，其系統(tǒng)示意 圖如下圖所示： 圖 5-1 522系統(tǒng)數(shù)據(jù)庫結(jié)構(gòu)（E-R 表示） 為了使 E-R 圖表示得更加清晰，現(xiàn)將 E-R 圖分成實(shí)體及其屬性圖

25、和實(shí)體及其 聯(lián)系圖。分別如下幾個圖所示： 公路橋梁入庫： 接受數(shù)據(jù) 登記管理 維修管理 信息查詢退出系統(tǒng) 公路信息 公路名稱 公路編號 通車日期 所屬區(qū)域 公路級別 竣工日期 總里程 收費(fèi)站數(shù) 量 圖 5-2 橋梁信息： 圖 5-3 公路橋梁維修： 圖 5-4 橋梁信息管理 橋梁名稱 橋梁編號橋梁長度 所屬公路 備注說明 所屬區(qū)域 維修登記 維修編號 使用情況維修紀(jì)錄 路橋名稱 維修費(fèi)用 維修日期 本公路橋梁管理系統(tǒng)功能需求可以用二層的 IDEF0 圖來表示。下圖是第一 層 IDEF0 圖，它表示該系統(tǒng)所需要完成的四大功能：公路橋梁基礎(chǔ)信息管 理、公路橋梁橋梁管理、公路橋梁維修管理功能。 圖

26、5-5 公路維修 財(cái)務(wù) 路政基礎(chǔ) 信息管理 公路信息 公路信息 橋梁信息 公路信息 折舊信息 財(cái)務(wù) 公路 公路運(yùn)行時間 公路開通時間 生產(chǎn)工單 設(shè)備科 維修科 維修報(bào)告 報(bào)表 維修報(bào)告 報(bào)表打印 生產(chǎn)工單 523整個管理系統(tǒng)的流程圖 圖 5-6 否 是 管理部門 錄入運(yùn)行狀 態(tài)信息 是否需維 修 管理各項(xiàng)標(biāo)準(zhǔn) 查看故障樹， 進(jìn)行破損維修 填寫破損 維修報(bào)告 生成周期性預(yù) 防維修計(jì)劃 是否發(fā) 生破損 生成路政計(jì) 劃 是否需 進(jìn)行周期性 預(yù)防維修 供應(yīng) 填寫預(yù)防 維修報(bào)告 報(bào)告 是是 否 否 結(jié)束 第六章第六章 詳細(xì)設(shè)計(jì)詳細(xì)設(shè)計(jì) 61 界面設(shè)計(jì) 系統(tǒng)的主界面： 圖 6-1 新增公路橋梁界面： 圖

27、6-2 公路橋梁信息維護(hù) 圖 6-3 橋梁登記 圖 6-4 橋梁的查詢 圖 6-5 公路橋梁的使用與維護(hù) 圖 6-6 公路橋梁的使用與維修信息維護(hù)： 圖 6-7 公路橋梁信息的查詢 圖 6-8 62 代碼設(shè)計(jì) 本軟件采用面向?qū)ο蟮?vb 語言，同時結(jié)合非過程化語言 SQL 編寫而成。數(shù) 據(jù)庫與程序的連接采用微軟數(shù)據(jù)訪問組件 ADO 來實(shí)現(xiàn)。 公路橋梁管理信息系統(tǒng)主窗體的實(shí)現(xiàn) 一個程序的主窗體主要是由窗體、菜單欄、工具欄、狀態(tài)欄等組成。設(shè)計(jì)時 一般先設(shè)計(jì)窗體背景和窗體標(biāo)題。菜單欄主要通過 VB 中工具菜單項(xiàng)下的菜單編 輯器進(jìn)行設(shè)計(jì)。狀態(tài)欄通過設(shè)計(jì) statusbar 控件實(shí)現(xiàn)。 下面是公路橋梁管

28、理信息系統(tǒng)主窗體的具體步驟： （1）新建一個標(biāo)準(zhǔn)工程，默認(rèn)名為工程 1。在該工程中會自動創(chuàng)建一個窗體， 默認(rèn)名為 form1. (2)將 form1 窗體設(shè)為作用中的窗體，然后選取 VB 菜單中工具菜單項(xiàng)下的 菜單編輯器，接著會出現(xiàn)菜單編輯器對話框。如圖： 圖 6-9 （3）在菜單編輯器中的標(biāo)題欄內(nèi)輸入菜單項(xiàng)目公路橋梁建設(shè)管理，在名 稱欄內(nèi)輸入 x1，然后依次輸入新增公路橋梁、公路橋梁信息維護(hù)、公路橋梁維 修與使用管理、信息查詢、退出管理等菜單項(xiàng)，單擊確定按鈕，菜單即可編輯 完成。 （4）單擊工程菜單下的部件選項(xiàng)，在彈出的列表中選中Microsoft windows common contro

29、l 6.0選項(xiàng)，然后單擊確定按鈕，imagelist 控件、toolbar 控 件、statusbar 控件將被添加到工具箱中。 （5）在 form1 窗體中放置 1 個 statusbar 控件、1 個 timer 控件等。 （6）添加如下程序代碼。 Private Sub Form_Resize() Label1.Left = (Form1.Width - Label1.Width) / 2 Label1.Top = Form1.Height / 2 End Sub Private Sub Timer1_Timer() ST.Panels(1).Text = Format(Date, lo

30、ng date) End Sub Private Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer) If (KeyCode 57 And KeyCode 190) Or (KeyCode 33 And KeyCode 48) Then If Text5.Text Then Text5.Text = Left(Text5.Text, Len(Text5.Text) - 1) MsgBox (公路橋梁金額輸入錯誤,你所輸入的數(shù)據(jù)可能含有非法字符,請重 新輸入!), , -提示 End If End Sub 窗體 form5，在屬性欄 cap

31、tion 里面輸入公路橋梁使用與維修登記，在 2 窗體中放置 6 個 label 控件，5 個 text 控件，2 個 command 控件 , 1 個 combol ，并分別輸入相應(yīng)的屬性值。 公路橋梁使用與維修登記如下： 控件名 屬性 屬性值 text1 name 公路橋梁編號 text2name 使用情況 text3 name 維修記錄 text4 name 維修日期 text5 name 維修費(fèi)用 text6 name 公路橋梁編號 combolrowsource良/差 Command1name保存到數(shù)據(jù)庫 Command2name退出 流程圖： N Y 開始 登記 是否繼續(xù) 退出 圖

32、 6-11 添加如下程序代碼： Dim rs As New ADODB.Recordset Dim conn As ADODB.Connection Private Sub Command1_Click() If Text1.Text = Then MsgBox 請輸入公路橋梁編號, , -提示 Text1.SetFocus Exit Sub End If If Combo1.Text = Then MsgBox 請選擇使用情況, , -提示 Combo1.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 請輸入維修記錄,若無記錄請輸入無

33、, , -提示 Text3.SetFocus Exit Sub End If If Text4.Text = Then MsgBox 請輸入維修日期,若無維修,請輸入無 Text4.SetFocus Exit Sub End If If Text5.Text = Then MsgBox 請輸入維修費(fèi)用,若無費(fèi)用,則請輸入 0, , -提示 Text5.SetFocus Exit Sub End If If Text2.Text = Then MsgBox 請輸入公路橋梁名稱, , -提示 Text2.SetFocus Exit Sub End If rs.Open select * from

34、wxinfo, conn, adOpenKeyset, adLockOptimistic rs.AddNew rs(公路橋梁編號) = Text1.Text rs(使用情況) = Combo1.Text rs(維修記錄) = Text3.Text rs(維修日期) = DTPicker1.Value rs(維修費(fèi)用) = Text5.Text rs(公路橋梁名稱) = Text2.Text rs.Update Text1.Text = Text1.SetFocus Combo1.Text = Text3.Text = Text4.Text = Text5.Text = Text2.Text =

35、 MsgBox 數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫!, , -提示 rs.Close End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() DTPicker1.Value = Date Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open Provider=Microsoft.Jet.OLEDB.4.0; Combo1.AddItem (良) Combo1.AddItem (差) End Sub Private S

36、ub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text3.SetFocus rs.Open select * from cginfo where 公路橋梁編號= + Trim(Text1.Text), conn, adOpenKeyset, adLockOptimistic If rs.EOF Then MsgBox 沒有此公路橋梁！, , -提示 Else Text2.Text = rs(公路橋梁的名稱) End If rs.Close End If End Sub Private Su

37、b Text1_KeyUp(KeyCode As Integer, Shift As Integer) If (KeyCode 57) Or (KeyCode 33 And KeyCode 48) Then If Text1.Text Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) MsgBox 公路橋梁編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!, , -提示 End If End Sub Private Sub Text2_GotFocus() rs.Open select * from cginfo where 公路橋梁編

38、號= + Trim(Text1.Text), conn, adOpenKeyset, adLockOptimistic If rs.EOF Then MsgBox 沒有此公路橋梁！, , -提示 Else Text2.Text = rs(公路橋梁的名稱) End If rs.Close End Sub Private Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer) If (KeyCode 57 And KeyCode 190) Or (KeyCode 33 And KeyCode 48) Then If Text5.Text Then

39、 Text5.Text = Left(Text5.Text, Len(Text5.Text) - 1) MsgBox 維修費(fèi)用輸入錯誤,你所輸入的數(shù)據(jù)可能含有非法字符,請重新輸 入!, , -提示 End If End Sub 窗體 form6，在屬性欄 caption 里面輸入公路橋梁信息查詢維護(hù)，在窗 體中放置 1 個 datagrid 控件，1 個 text 控件，4 個 command 控件 , 1 個 adodc ，并分別輸入相應(yīng)的屬性值。 倉庫公路橋梁信息維護(hù)如下： 控件名 屬性 屬性值 datagridendabled.f. adodcname command1name檢索 co

40、mmand2name退出 command3name刪除當(dāng)前修改 command4name保存當(dāng)前修改 流程圖： 圖 6-12 新增代碼如下： Private Sub Command1_Click() If Text1.Text = Then MsgBox 請輸入公路橋梁編號 Text1.SetFocus N Y 開始 查找/修改/刪除記錄 是否繼續(xù) 退出 Exit Sub End If Adodc1.RecordSource = select * from cginfo where 公路橋梁編號= + Text1.Text Adodc1.Refresh End Sub Private Sub

41、Command2_Click() Unload Me End Sub Private Sub Command3_Click() Dim myval As String myval = MsgBox(是否確定刪除該記錄, vbYesNo) If myval = vbYes Then Adodc1.Recordset.Delete End If End Sub Private Sub Command4_Click() Dim myval As String myval = MsgBox(是否保存已經(jīng)修改的記錄, vbYesNo) If myval = vbYes Then Adodc1.Recor

42、dset.Update End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If (KeyCode 57) Or (KeyCode 33 And KeyCode 48) Then If Text1.Text Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) MsgBox (公路橋梁編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!) End If End Sub 窗體 form8 在屬性欄 caption 里面輸入公路橋梁使用維修信息維

43、護(hù)，在 窗體中放置 1 個 datagrid 控件，1 個 text 控件，4 個 command 控件 , 1 個 adodc ，并分別輸入相應(yīng)的屬性值 公路橋梁使用維修信息維護(hù)： 控件名 屬性 屬性值 datagriddatagridendabledendabled.f.f. adodcadodcnamename command1name檢索 command2name退出 command3name刪除當(dāng)前修改 command4name保存當(dāng)前修改 流程圖： 圖 6-13 新增代碼如下： Private Sub Command1_Click() If Text1.Text = Then Ms

44、gBox 請輸入公路橋梁編號, , -提示 Text1.SetFocus Exit Sub End If Adodc1.RecordSource = select * from wxinfo where 公路橋梁編號= + Text1.Text N Y 開始 使用維修信息維護(hù) 是否繼續(xù) 退出 Adodc1.Refresh End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() Dim myval As String myval = MsgBox(是否確定刪除該記錄, vbYesNo,

45、 -提示) If myval = vbYes Then Adodc1.Recordset.Delete End If End Sub Private Sub Command4_Click() Dim myval As String myval = MsgBox(是否保存已經(jīng)修改的記錄, vbYesNo, -提示) If myval = vbYes Then Adodc1.Recordset.Update End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If (KeyCode 57) Or

46、(KeyCode 33 And KeyCode 48) Then If Text1.Text Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) MsgBox 公路橋梁編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!, , -提示 End If End Sub 窗體 form9 在屬性欄 caption 里面輸入公路橋梁信息查詢，在窗體中放 置 3 個 datagrid 控件，1 個 text 控件，2 個 command 控件 , 3 個 adodc ，1 個 combo1 并分別輸入相應(yīng)的屬性值 公路橋梁信息查詢?nèi)缦拢?控件名 屬性

47、 屬性值 datagrid1datagrid1 endabledendabled .f.f. datagrid2datagrid2endabledendabled.f.f. datagrid3datagrid3endabledendabled.f.f. combo1combo1rowsourcerowsource公路橋梁編號，公路橋梁名稱，公路橋梁編號，公路橋梁名稱， 建設(shè)人，出產(chǎn)廠家，領(lǐng)取人，領(lǐng)取單位，使用情況，維修記錄建設(shè)人，出產(chǎn)廠家，領(lǐng)取人，領(lǐng)取單位，使用情況，維修記錄 adodc1adodc1 adodc2adodc2 adodc3adodc3 command1name檢索 comma

48、nd2name退出 流程圖： 圖 6-14 新增代碼如下 Private Sub Command1_Click() If (Combo1.Text = 公路橋梁編號) Or (Combo1.Text = 公路橋梁名稱) Or (Combo1.Text = 建設(shè)人) Or (Combo1.Text = 出產(chǎn)廠家) Then Adodc1.RecordSource = select * from cginfo where (cginfo. & Combo1.Text & Like+ %+ + Text1.Text + +%) Adodc1.Refresh Adodc3.RecordSource =

49、 select cginfo.公路橋梁編號 as 公路橋梁編號, wxinfo.公路橋梁名稱 as 公路橋梁名稱 ,wxinfo.使用情況 as 使用情況,wxinfo. N Y 開始 設(shè)置查詢信息顯示查詢結(jié)果 是否繼續(xù) 退出 維修記錄 as 維修記錄,wxinfo.維修日期 as 維修日期,wxinfo.維修費(fèi)用 as 維修 費(fèi)用 from cginfo,wxinfo where (wxinfo.公路橋梁編號=cginfo.公路橋梁編號) and (cginfo. & Combo1.Text & Like+ %+ + Text1.Text + +%) Adodc3.Refresh Exit

50、Sub End If If Combo1.Text = 領(lǐng)取人 Or Combo1.Text = 領(lǐng)取單位 Then Adodc1.RecordSource = select cginfo.公路橋梁編號 as 公路橋梁編號,cginfo.公 路橋梁名稱 as 公路橋梁名稱,cginfo.建設(shè)人 as 建設(shè)人,cginfo.出產(chǎn)廠家 as 出產(chǎn) 廠家,cginfo.出廠日期 as 出廠日期,cginfo.金額 as 金額,cginfo.建設(shè)日期 as 建 設(shè)日期,cginfo.建設(shè)數(shù)量 as 建設(shè)數(shù)量 from cginfo,tzinfo where (cginfo.公路橋梁 編號=tzinfo

51、.公路橋梁編號) and (tzinfo. & Combo1.Text & Like+ %+ + Text1.Text + +%) Adodc1.Refresh Adodc3.RecordSource = select wxinfo.公路橋梁編號 as 公路橋梁編號, wxinfo.公路橋梁名稱 as 公路橋梁名稱 ,wxinfo.使用情況 as 使用情況,wxinfo. 維修記錄 as 維修記錄,wxinfo.維修日期 as 維修日期,wxinfo.維修費(fèi)用 as 維修 費(fèi)用 from tzinfo,wxinfo where (tzinfo.公路橋梁編號=wxinfo.公路橋梁編號) and

52、 (tzinfo. & Combo1.Text & Like+ %+ + Text1.Text + +%) Adodc3.Refresh Exit Sub End If If Combo1.Text = 使用情況 Or Combo1.Text = 維修記錄 Then Adodc1.RecordSource = select cginfo.公路橋梁編號 as 公路橋梁編號,cginfo.公 路橋梁名稱 as 公路橋梁名稱,cginfo.建設(shè)人 as 建設(shè)人,cginfo.出產(chǎn)廠家 as 出產(chǎn) 廠家,cginfo.出廠日期 as 出廠日期,cginfo.金額 as 金額,cginfo.建設(shè)日期 a

53、s 建 設(shè)日期,cginfo.建設(shè)數(shù)量 as 建設(shè)數(shù)量 from cginfo,wxinfo where (cginfo.公路橋梁 編號=wxinfo.公路橋梁編號) and (wxinfo. & Combo1.Text & Like+ %+ + Text1.Text + +%) Adodc1.Refresh Adodc3.RecordSource = select * from wxinfo where (wxinfo. & Combo1.Text & Like+ %+ + Text1.Text + +%) Adodc3.Refresh Exit Sub End If End Sub Pri

54、vate Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Combo1.AddItem (公路橋梁編號) Combo1.AddItem (公路橋梁的名稱) Combo1.AddItem (建設(shè)人) Combo1.AddItem (出產(chǎn)廠家) Combo1.AddItem (使用情況) Combo1.AddItem (維修記錄) End Sub 另 form4 為公路橋梁橋梁登錄的窗體，實(shí)現(xiàn)方法同 form3（公路橋梁信息 登記） ，form7 的主要作用是橋梁信息維護(hù)，實(shí)現(xiàn)方法同 form6（公路橋梁信息 維護(hù)） 。 第七章 系統(tǒng)評價(jià) 71 系統(tǒng)測試 系統(tǒng)的測試是通過一些真實(shí)數(shù)據(jù)來測試軟件設(shè)計(jì)和編碼的錯誤。由于軟件 比較小，所以沒必要像大型系統(tǒng)一樣來測試。比如大型系統(tǒng)需要分模塊測試， 子系統(tǒng)測試，系統(tǒng)測試等。在這一軟件的測試中，我們直接采用系統(tǒng)測試來完 成。 72 系統(tǒng)的特點(diǎn) 本系統(tǒng)軟件的編制按照軟件工程的方法和要求，具有以下特點(diǎn)： （1）系統(tǒng)維護(hù)簡單，系統(tǒng)所需要的任何數(shù)據(jù)或者任何公路橋梁信息資料，都 是被保存在各自獨(dú)立的數(shù)據(jù)庫當(dāng)中的，大部分的工作都由我們的系統(tǒng)來完成， 系統(tǒng)管理員和用戶只要做一些簡單的工作就可以了。 （2）系統(tǒng)的使用方便，系統(tǒng)任何截面都全中文