畢業(yè)論文——汽車管理信息系統(tǒng)

1、<p><b>　　摘 要</b></p><p>　　隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，加強(qiáng)對(duì)信息內(nèi)部的各種資源（人、財(cái)、物等）的有效管理，建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。</p><p>　　本文介紹了在WEB和ASP環(huán)境下開發(fā)的一個(gè)管理信息系統(tǒng)的過程。通過分析傳統(tǒng)

2、的人工管理汽車的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理汽車的方案。文章詳細(xì)介紹了汽車管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、數(shù)據(jù)流程分析、處理描述等等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分列出了幾個(gè)主要的程序框圖，并附帶了一些主要的窗口和程序。</p><p>　　關(guān)鍵字：數(shù)據(jù)庫，汽車，借出，系統(tǒng)</p><p><b>　　1 緒論</b>

3、;</p><p><b>　　1.1課題背景</b></p><p>　　數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)簡介在數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)之前，對(duì)開發(fā)數(shù)據(jù)庫的基本概念應(yīng)當(dāng)了解，對(duì)數(shù)據(jù)庫的結(jié)構(gòu)、開發(fā)數(shù)據(jù)庫應(yīng)用程序的步驟、開發(fā)體系及方法都應(yīng)當(dāng)有相當(dāng)清晰的了解和認(rèn)識(shí)。數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)的目標(biāo)是建立一個(gè)滿足用戶長期需求的產(chǎn)品。開發(fā)的主要過程為：理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計(jì)。

4、把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫，并且這些數(shù)據(jù)庫帶有功能完備、高效能的應(yīng)用。數(shù)據(jù)庫技術(shù)在計(jì)算機(jī)軟件鄰域研究中一直是非常重要的主題，產(chǎn)生于60年代，30多年來數(shù)據(jù)庫技術(shù)得到了迅速發(fā)展，并已形成較為完整的理論體系和一大批實(shí)用系統(tǒng)。并且，近年來，隨著World Wide Web(WWW)的猛增及Internet技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫技術(shù)之時(shí)成為最熱門技術(shù)之一。數(shù)據(jù)庫由DBMS（數(shù)據(jù)庫管理系統(tǒng)）處理，DBMS則由開發(fā)人員和用戶通過應(yīng)用程序直接或間接

5、地使用。它主要包括四個(gè)要素：用戶數(shù)據(jù)、元數(shù)據(jù)、索引和應(yīng)用元數(shù)據(jù)。目前，大多數(shù)主流數(shù)據(jù)庫管理系統(tǒng)把用戶數(shù)據(jù)表示為關(guān)系。現(xiàn)在把關(guān)系看作數(shù)據(jù)表。表的列包含域或?qū)傩裕淼男邪瑢?duì)應(yīng)業(yè)務(wù)環(huán)境中的實(shí)體的記錄。并非所有的關(guān)系都同樣符合要求，有些關(guān)系比其它關(guān)系更結(jié)構(gòu)化一些。開發(fā)語言</p><p>　　1.2課題來源和意義</p><p>　　隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)作為知識(shí)經(jīng)濟(jì)時(shí)代的產(chǎn)物，已被廣

6、泛應(yīng)用于社會(huì)各個(gè)行業(yè)和領(lǐng)域。目前，我國的科技水平高速發(fā)展，計(jì)算機(jī)作為今天使用最廣的現(xiàn)代化工具已深入到各個(gè)領(lǐng)域，并且正在成為未來社會(huì)——信息社會(huì)的重要支柱。在這樣的大背景下，現(xiàn)代車輛的管理方式，資源建設(shè)等方面都發(fā)生了重大變化，這種變化表現(xiàn)在車輛工作，管理和服務(wù)平臺(tái)發(fā)生的變化，車輛不再是傳統(tǒng)的手工操作，人工管理，而是全面實(shí)行計(jì)算機(jī)管理。</p><p>　　車輛的正常運(yùn)營中總是面對(duì)大量的駕駛員信息，車輛信息以及兩者相

7、互作用產(chǎn)生的入庫信息，因此要對(duì)駕駛員資源，車輛資源，入庫信息進(jìn)行管理。本系統(tǒng)的開發(fā)就是在于提高車輛管理的工作效率，加強(qiáng)車輛的管理，全面實(shí)行計(jì)算機(jī)管理。</p><p>　　1.3國內(nèi)外發(fā)展概況</p><p>　　車輛單位管理系統(tǒng)的發(fā)展歷史可以追溯到20世紀(jì)60年代末期。由于當(dāng)時(shí)計(jì)算機(jī)技術(shù)已經(jīng)進(jìn)入實(shí)用階段，同時(shí)大型車輛用手工來查找車輛信息或統(tǒng)計(jì)單位信息既費(fèi)時(shí)費(fèi)力又非常容易出差錯(cuò)，為了解決這

8、個(gè)矛盾，第一代的車輛單位管理系統(tǒng)應(yīng)運(yùn)而生。當(dāng)時(shí)由于技術(shù)條件和需求的限制，用戶非常少，它的出現(xiàn)為車輛單位的管理展示了美好的前景，即用計(jì)算機(jī)的高速度和自動(dòng)化來代替手工的巨大工作量，用計(jì)算機(jī)的高準(zhǔn)確性來避免手工的錯(cuò)誤和誤差。</p><p>　　第二代的車輛單位管理系統(tǒng)出現(xiàn)于20世紀(jì)70年代末。由于計(jì)算機(jī)技術(shù)的飛速發(fā)展，無論是計(jì)算機(jī)的普及性，還是計(jì)算機(jī)系統(tǒng)工具和數(shù)據(jù)庫技術(shù)的發(fā)展，都為車輛單位管理系統(tǒng)的階段發(fā)展提供了可能

9、。但未能系統(tǒng)地考慮車輛單位的需求和理念。</p><p>　　車輛單位管理系統(tǒng)的革命性變革出現(xiàn)在20世紀(jì)90年代末。隨著信息爆炸、知識(shí)經(jīng)濟(jì)時(shí)代的到來，使個(gè)人、單位、社會(huì)對(duì)車輛單位管理系統(tǒng)有了更高的需求；同時(shí)由于個(gè)人電腦的普及，數(shù)據(jù)庫技術(shù)、客戶/服務(wù)器技術(shù)，特別是Internet/Intranet技術(shù)的發(fā)展，使得第三代車輛單位管理系統(tǒng)的出現(xiàn)成為必然。第三代車輛單位管理系統(tǒng)的特點(diǎn)是從車輛單位管理的角度出發(fā)，用集中的數(shù)

10、據(jù)庫處理幾乎所有與車輛單位相關(guān)的數(shù)據(jù)。友好的用戶界面，強(qiáng)有力的報(bào)表生成工具、分析工具和信息的共享使得車輛單位管理人員得以擺脫繁重的日常工作，集中精力從戰(zhàn)略的角度來考慮車輛單位規(guī)劃和政策。</p><p>　　管理信息系統(tǒng)的開發(fā)方法有生命周期法、原型法和面向?qū)ο蟮拈_發(fā)等。生命周期法（Life Cycle Method）是20世紀(jì)60年代發(fā)展起來的一種應(yīng)用廣泛且比較成熟的管理系統(tǒng)開發(fā)方法，它的基本思想是將系統(tǒng)的開發(fā)工

11、作從開始到結(jié)束劃分為若干個(gè)階段，每個(gè)階段都有明確的任務(wù)，而系統(tǒng)開發(fā)出來后，并不意味著生命周期的結(jié)束，而意味著根據(jù)組織的需要對(duì)系統(tǒng)的修改和重建的開始；原型法(Prototyping Method)是20世紀(jì)80年代發(fā)展起來的，旨在改變生命周期法的缺點(diǎn)的一種系統(tǒng)開發(fā)方法，該法的開發(fā)思路是首先根據(jù)用戶的要求，由用戶和開發(fā)者共同確定系統(tǒng)的基本要求和主要功能，利用系統(tǒng)快速生成工具，建立一個(gè)系統(tǒng)模型，再在此基礎(chǔ)上與用戶交流，將模型不斷補(bǔ)充、修改、完

12、善，如此反復(fù)，最終直至用戶和開發(fā)者都比較滿意為止，從而形成一個(gè)相對(duì)穩(wěn)定、較為理想的管理信息系統(tǒng)；面向?qū)ο螅∣bject Oriented）的開發(fā)方法于20世紀(jì)80年代開始興起的，是一種基于問題對(duì)象的自底向上的一種系統(tǒng)開發(fā)方法，這種方法的特點(diǎn)是以對(duì)象為基礎(chǔ)，對(duì)象是分析問題和解決問題的核心?；谝陨先N方法的特點(diǎn)和各自的優(yōu)缺點(diǎn)，本車輛管理系統(tǒng)利用軟件工程</p><p><b>　　2. 開發(fā)語言介紹<

13、;/b></p><p>　　通用網(wǎng)關(guān)界面CGI(Common Gateway Interface)和網(wǎng)絡(luò)服務(wù) 器應(yīng)用程序界面ISAPI(Internet Server Application Programming Interface) 與其它相關(guān)技術(shù)： Personal Web Server 支持通用網(wǎng)關(guān)接口應(yīng)用程序、 Internet 數(shù)據(jù)庫接口 (IDC) 應(yīng)用程序和 IIS 應(yīng)用程序接口 (ISA

14、PI) 應(yīng)用程序。使我們能夠非常方便地與Web Server進(jìn)行溝通，而ASP正是進(jìn)行這種溝通的 最佳語言。</p><p>　　Windows 95（或后續(xù)版本）的 Personal Web Server 支持 運(yùn)行和開發(fā)ASP 應(yīng)用程序。它將成為一個(gè)個(gè)人發(fā)布服務(wù)器，而非 Web服務(wù)器。 您可以開發(fā)自己用的 ASP 應(yīng)用程序，或在一個(gè)運(yùn)行 Windows NT Server 的計(jì)算機(jī)上展開應(yīng)用程序。要想使開發(fā)環(huán)

15、境功能更強(qiáng)大，請考慮使用 Windows NT Workstation 或 Windows NT Server。</p><p>　　Internet 服務(wù)管理器和 Microsoft 腳本調(diào)試器是 Windows NTWorkstation 上的 Personal Web Server 或在 Internet Information Server上的開發(fā)和管理特征。它們在 Windows 95 上不可

16、用。</p><p>　　Active Server Pages (ASP) 是服務(wù)器端的腳本編寫環(huán)境，您可用它來創(chuàng)建動(dòng)態(tài) Web 頁或生成功能強(qiáng)大的 Web 應(yīng)用程序。ASP 頁是包括 HTML 標(biāo)記、文本和腳本命令的文件。ASP 頁可調(diào)用 ActiveX 組件來執(zhí)行任務(wù)，例如連接到數(shù)據(jù)庫或進(jìn)行商務(wù)計(jì)算。通過 ASP，可為您的 Web 頁添加交互內(nèi)容或用 HTML 頁構(gòu)成整個(gè) Web 應(yīng)用程序，這些應(yīng)用程序使用

17、 HTML 頁作為您的客戶的界面。</p><p>　　如果您是位HTML 編寫人員，您將發(fā)現(xiàn) ASP 腳本提供了創(chuàng)建交互頁的簡便方法。如果您曾想從 HTML 表格中收集數(shù)據(jù)，或用顧客的姓名個(gè)人化 HTML 文件，或根據(jù)瀏覽器的不同使用不同的特性，您會(huì)發(fā)現(xiàn) ASP 提供了一個(gè)出色的解決方案。以前，要想從 HTML 表格中收集數(shù)據(jù)，就不得不學(xué)習(xí)一門編程語言來創(chuàng)建一個(gè) CGI 應(yīng)用程序?，F(xiàn)在，您只要將一些簡單的指令嵌

18、入到您的 HTML 文件中，就可以從表格中收集數(shù)據(jù)并進(jìn)行分析。您再不必學(xué)習(xí)完整的編程語言 或者單獨(dú)編譯程序來創(chuàng)建交互頁。</p><p>　　隨著不斷掌握使用 ASP和腳本語言的技巧，您可以創(chuàng)建更 復(fù)雜的腳本。對(duì)于 ASP，您可以便捷地使用 ActiveX 組件來執(zhí)行復(fù)雜的任務(wù)，比如連接數(shù)據(jù)庫以存儲(chǔ)和檢索信息。如果您已經(jīng)掌握 一門腳本語言，如VBScript、JavaScript 或 PERL，而且您已經(jīng)了解使用

19、 ASP 的方法。只要安裝了符合 ActiveX 腳本標(biāo)準(zhǔn)的相應(yīng)腳本引擎，就可以在 ASP 頁中使用任何一種腳本語言。ASP 帶有 Microsoft® Visual Basic® Scripting Edition （VBScript）和 Microsoft® JScript?的腳本引擎，這樣您可以立即開始編輯腳本。PERL、REXX 和 Python 的ActiveX 腳本引擎可以從第三方開發(fā)人員處獲得

20、。如果您已經(jīng)掌握了一門編程語言，如 Visual Basic，您將發(fā)現(xiàn) ASP 是快速創(chuàng)建 Web 應(yīng)用程序的一個(gè)非常靈活的方法。通過向 HTML 中添加腳本命令，您能夠創(chuàng)建應(yīng)用程序的 HTML 接口。通過創(chuàng)建自己的 ActiveX 組件，可以將應(yīng)用程序中的商業(yè)邏輯封裝到能夠從腳本、其他組件或從其他程序中調(diào)用的模塊</p><p>　　使用 ASP 進(jìn)行計(jì)算的 Web 可轉(zhuǎn)化為有形的利益，它使 Web 供應(yīng)商能夠

21、提供交互的商業(yè)應(yīng)用而不僅僅是發(fā)布內(nèi)容。例如，旅行社能夠比公布航空時(shí)刻表做得更多；用 ASP 腳本可以讓客戶察看現(xiàn)有的航班、比較費(fèi)用并預(yù)定座位。</p><p>　　ASP是一種未經(jīng)編譯的開放式應(yīng)用軟件，是微軟公司推出的一種用以取代CGI（公共網(wǎng)關(guān)接口即Common Gateway Interface）的技術(shù)，它實(shí)質(zhì)是一種服務(wù)器端腳本環(huán)境。通過ASP用戶可以結(jié)合HTML網(wǎng)頁，ASP指令和Active組件建立動(dòng)態(tài)交互

22、且商效的Web服務(wù)器應(yīng)用程序。ASP并不是一種純的編程語言，它所用的語言是我們經(jīng)常用的兩種腳本語言VBScript和JavaScript 。</p><p>　　SQL是英文Structured Query Language的縮寫，意思為結(jié)構(gòu)化查詢語言。SQL語言的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。按照ANSI(美國國家標(biāo)準(zhǔn)協(xié)會(huì))的規(guī)定，SQL被作為關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。SQL語句可以用來執(zhí)行

23、各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫中提取數(shù)據(jù)等。目前，絕大多數(shù)流行的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，如Oracle, Sybase, Microsoft SQL Server, SQL Server等都采用了SQL語言標(biāo)準(zhǔn)。雖然很多數(shù)據(jù)庫都對(duì)SQL語句進(jìn)行了再開發(fā)和擴(kuò)展，但是包括Select, Insert, Update, Delete, Create,以及Drop在內(nèi)的標(biāo)準(zhǔn)的SQL命令仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作。&l

24、t;/p><p>　　SQL Server</p><p>　　SQL Server 是一個(gè)關(guān)系數(shù)據(jù)庫管理系統(tǒng)。它最初是由Microsoft Sybase 和Ashton-Tate三家公司共同開發(fā)的，于1988 年推出了第一個(gè)OS/2 版本。在Windows NT 推出后，Microsoft與Sybase 在SQL Server 的開發(fā)上就分道揚(yáng)鑣了，Microsoft 將SQL Server

25、 移植到Windows NT系統(tǒng)上，專注于開發(fā)推廣SQL Server 的Windows NT 版本。Sybase 則較專注于SQL Server在UNIX 操作系統(tǒng)上的應(yīng)用。</p><p>　　SQL Server 2000 是Microsoft 公司推出的SQL Server 數(shù)據(jù)庫管理系統(tǒng)，該版本繼承了SQL Server 7.0 版本的優(yōu)點(diǎn)，同時(shí)又比它增加了許多更先進(jìn)的功能。具有使用方便可伸縮性好與相關(guān)

26、軟件集成程度高等優(yōu)點(diǎn)，可跨越從運(yùn)行Microsoft Windows 98 的膝上型電腦到運(yùn)行Microsoft Windows 2000 的大型多處理器的服務(wù)器等多種平臺(tái)使用。 </p><p>　　SQL Server 2005？</p><p>　　SQL Server 2005 是一個(gè)全面的數(shù)據(jù)庫平臺(tái)，使用集成的商業(yè)智能 (BI) 工具提供了企業(yè)級(jí)的數(shù)據(jù)管理。SQL Serv

27、er 2005 數(shù)據(jù)庫引擎為關(guān)系型數(shù)據(jù)和結(jié)構(gòu)化數(shù)據(jù)提供了更安全可靠的存儲(chǔ)功能，使您可以構(gòu)建和管理用于業(yè)務(wù)的高可用和高性能的數(shù)據(jù)應(yīng)用程序。</p><p>　　SQL Server 2005 數(shù)據(jù)引擎是本企業(yè)數(shù)據(jù)管理解決方案的核心。此外 SQL Server 2005 結(jié)合了分析、報(bào)表、集成和通知功能。這使您的企業(yè)可以構(gòu)建和部署經(jīng)濟(jì)有效的 BI 解決方案，幫助您的團(tuán)隊(duì)通過記分卡、Dashboard、Web serv

28、ices 和移動(dòng)設(shè)備將數(shù)據(jù)應(yīng)用推向業(yè)務(wù)的各個(gè)領(lǐng)域。</p><p>　　與 Microsoft Visual Studio、Microsoft Office System 以及新的開發(fā)工具包（包括 Business Intelligence Development Studio）的緊密集成使 SQL Server 2005 與眾不同。無論您是開發(fā)人員、數(shù)據(jù)庫管理員、信息工作者還是決策者，SQL Server 20

29、05 都可以為您提供創(chuàng)新的解決方案，幫助您從數(shù)據(jù)中更多地獲益。</p><p>　　3 . 系統(tǒng)體系結(jié)構(gòu)</p><p>　　車輛管理工作非常繁雜，包括車輛查詢，入庫，報(bào)廢等。我們力圖用計(jì)算機(jī)來代人來完成這些工作，便操作更加簡單快捷。這樣可以大大的減輕工作人員的負(fù)擔(dān)。</p><p>　　3.1 系統(tǒng)需求分析</p><p>　　該過程是個(gè)

30、不斷認(rèn)識(shí)不斷細(xì)化的過程。這里所要完成的工作是深入描述軟件的功能和性能，確定軟件的設(shè)計(jì)限制和軟件同其他系統(tǒng)元素的接口細(xì)節(jié)，從而奠定軟件的開發(fā)基礎(chǔ)。</p><p>　　性能需求：該系統(tǒng)中，管理員模塊只有管理人員才能對(duì)其進(jìn)行操作，一般的登陸用戶無權(quán)操作，系統(tǒng)管理人員要進(jìn)行身分驗(yàn)證才能進(jìn)入界面操作。登陸駕駛員也要進(jìn)行身份驗(yàn)證方可進(jìn)行操作操作。</p><p>　　功能需求：我們設(shè)計(jì)的系統(tǒng)要完成的

31、功能模塊如下：</p><p>　　一: 車輛管理(車輛維修管理,車輛報(bào)廢管理等)</p><p>　　二: 車輛管理(車輛建立,車輛查詢,車輛刪除,車輛變更查詢等.)</p><p>　　三: 車輛運(yùn)營管理(車輛運(yùn)營表,車輛運(yùn)營查詢,清空車輛運(yùn)營表)</p><p>　　四:駕駛員管理(駕駛員管理,駕駛員查詢等)</p>&l

32、t;p>　　五:耗材管理（對(duì)于油，車的耗材類管理）</p><p>　　六：計(jì)劃管理（訓(xùn)練，保養(yǎng)，維修等預(yù)定的計(jì)劃）</p><p>　　七：系統(tǒng)維護(hù)(系統(tǒng)備份,系統(tǒng)還原,系統(tǒng)檢查)</p><p>　　環(huán)境需求：客戶端應(yīng)有IE或其它瀏覽器，服務(wù)器端應(yīng)有Windows2000,WindowsNT,或Windows98 ，服務(wù)器軟件應(yīng)有pws或IIS,硬件要求3

33、86以上的計(jì)算機(jī)。</p><p>　　界面需求：本軟件是面向大眾，界面友好，操作簡單靈活，根據(jù)界面上的提示便可完成一系列動(dòng)作。</p><p><b>　　3．2 可行性分析</b></p><p>　　在軟件的開發(fā)過程中，這一步是十分必要的。如果在定義階段及早發(fā)現(xiàn)將來可能在開發(fā)過程中的問題，及早做出決斷，可以避免大量的人力，財(cái)力和時(shí)間上的浪

34、費(fèi)。</p><p>　　技術(shù)可行性：本組開發(fā)成員都具有一定的電腦知識(shí)，學(xué)習(xí)過多種程序開發(fā)語言。特別是在項(xiàng)目確定后對(duì)ASP和網(wǎng)的強(qiáng)化學(xué)習(xí)，使本系統(tǒng)成功開發(fā)成為可能。</p><p>　　經(jīng)濟(jì)可行性：本系統(tǒng)有其生存空間，成功后有其市場。并且本開發(fā)人員基于一種愛好去研究他的，我們有自己的電腦，可以說成本開支極其有限。</p><p>　　現(xiàn)階段各種各樣的車輛越來越多，車

35、輛的書也越來越多，車輛的管理工作也越來越復(fù)雜。本系統(tǒng)就是為了減輕車輛管理人員的工作而設(shè)計(jì)的。</p><p>　　法律可行性：本系統(tǒng)為獨(dú)立完成，不關(guān)他人，開發(fā)成功后其所有權(quán)歸本人所有</p><p>　　基于水平和時(shí)間有限，我們的系統(tǒng)還不是十分完善。</p><p>　　以現(xiàn)有的人力和時(shí)間來衡量，我們只有放棄。</p><p>　　經(jīng)過以上可

36、行性論證，本系統(tǒng)可以按任務(wù)書要求開發(fā)。</p><p><b>　　3．3 系統(tǒng)結(jié)構(gòu)</b></p><p>　　該系統(tǒng)的整個(gè)結(jié)構(gòu)圖如下所示：</p><p>　　各功能模塊是相互獨(dú)立的，一個(gè)模塊的內(nèi)部與另一個(gè)模塊的內(nèi)部是不相關(guān)的，每個(gè)模塊留出一個(gè)接口供其他模塊調(diào)用?；蛘呤褂肞OST方式進(jìn)行表單提交，用？后面帶函數(shù)和參數(shù)的方式，進(jìn)行模塊與模塊

37、間的信息傳遞。有部分模塊是通用的，比如連接數(shù)據(jù)庫模塊，它需要經(jīng)常用到，所以獨(dú)立出來是最好的選擇。</p><p><b>　　4. 系統(tǒng)設(shè)計(jì)</b></p><p>　　這里的設(shè)計(jì)依賴于前面的系統(tǒng)分析。這里重點(diǎn)介紹登陸模塊。結(jié)構(gòu)不清楚，代碼便無從談起，只要結(jié)構(gòu)清楚，代碼編寫便可一一實(shí)現(xiàn)。所以設(shè)計(jì)中要先設(shè)計(jì)框架結(jié)構(gòu)，再進(jìn)行程序編碼。</p><p&g

38、t;<b>　　4．1 登陸模塊 </b></p><p>　　本模塊所要實(shí)現(xiàn)在功能是重要的，對(duì)于用戶來說，登陸前后的區(qū)別在于：登陸之前不是本的成員，無權(quán)操作，無權(quán)瀏覽；之后有權(quán)查詢也有權(quán)操作。</p><p>　　用戶提交信息用HTML表單完成，需文件Index.asp。系統(tǒng)自動(dòng)登陸用ASP操作數(shù)據(jù)庫完成，需要連接文件User_Login.asp。</p>

39、;<p>　　用戶在Index.asp文件中輸入個(gè)人信息，提交到user_login.asp文件。并由這個(gè)ASP文件進(jìn)行數(shù)據(jù)庫動(dòng)作，根據(jù)不同的動(dòng)作結(jié)果，系統(tǒng)將作出不同的信息反饋給用戶。 </p><p>　　這是登陸處理模塊的中心，user_login.asp文件很簡單：直接調(diào)用其中的登陸函數(shù)action進(jìn)行動(dòng)作，結(jié)構(gòu)如圖所示。</p><p>　　是

40、 否</p><p>　　登陸程序被調(diào)用后，先檢查該用戶是否已經(jīng)登陸過，按是否登陸進(jìn)行分枝選擇：對(duì)已經(jīng)是登陸的用戶顯示相應(yīng)信息，或?qū)⑿掠脩艏尤氲臄?shù)據(jù)庫中，即為該用戶登陸。</p><p>　　判斷條件是通過action函數(shù)實(shí)現(xiàn)的，該函數(shù)利用提取的表單字段值對(duì)數(shù)據(jù)庫進(jìn)行查詢。如果查詢到結(jié)果。則表明該用戶經(jīng)在數(shù)據(jù)庫中，即該用戶是登陸了。如果記錄集為空則表明該用

41、戶是非法登陸。</p><p>　　編輯修改管理員是通過user_login.asp來實(shí)現(xiàn)的，這個(gè)方法是模塊的中心，也比較復(fù)雜，其結(jié)構(gòu)如圖所示。</p><p>　　是 否</p><p><b>　　5. 系統(tǒng)實(shí)現(xiàn)</b></p><p>　　本系統(tǒng)是面向大眾的，界面友好，操作簡單，

42、具有上網(wǎng)經(jīng)歷的人都可根據(jù)界面的提示順利完成登陸，查詢，單位，歸還等一系列動(dòng)作功能。</p><p>　　該應(yīng)用程序經(jīng)過多次調(diào)試，性能隱定，效率高。輸入，輸出及處理的精確度達(dá)到了工作要求標(biāo)準(zhǔn)。響應(yīng)時(shí)間，處理時(shí)間均比較短暫。</p><p>　　該系統(tǒng)對(duì)運(yùn)行硬件的要求：386以上處理器，640k以上內(nèi)存，1兆以上的可用硬盤空間，具有3。5英寸軟區(qū)。</p><p>　　

43、該系統(tǒng)可運(yùn)行在windows95/windows98/windowsme/windows2000等操作系統(tǒng)之上，需安裝有IE等瀏覽工具。</p><p>　　安裝及初始化：本應(yīng)用系統(tǒng)的安裝可以從軟盤直接拷貝。</p><p><b>　　2車輛查詢登記:</b></p><p><b>　　代碼分析:</b></p&

44、gt;<p><b>　　<% </b></p><p>　　If request("action") = "save" Then</p><p>　　Call save()</p><p>　　ElseIf request("action") = "e

45、dit" Then</p><p>　　Call edit()</p><p>　　ElseIf request("action") = "del" Then</p><p>　　Call del()</p><p>　　ElseIf request("action") =

46、 "outlist" Then</p><p>　　Call outlist()</p><p>　　ElseIf request("action") = "saveoutlist" Then</p><p>　　Call saveoutlist()</p><p><b>

47、;　　Else</b></p><p>　　Call list()</p><p><b>　　End If </b></p><p><b>　　End Sub</b></p><p>　　Sub list()%></p><p>　　<scrip

48、t language="javascript"></p><p>　　function browse(id){location.href='<%=filename%>?action=edit&mode=browse&id='+id;}</p><p>　　function del(id){if(confirm("

49、;刪除車輛信息，將會(huì)刪除與其相關(guān)的所有信息\n確實(shí)要?jiǎng)h除嗎?")){location.href='<%=filename%>?action=del&id='+id;}}</p><p>　　function edit(id){location.href='<%=filename%>?action=edit&mode=update&i

50、d='+id;}</p><p><b>　　</script></b></p><p><b>　　<%</b></p><p>　　sql="select * from [車輛基本特征] where Id >0"</p><p>　　If Re

51、quest("zd")<>"" then</p><p>　　sql = sql & " and " & Request("zd") & " = '" & Request("keyword") & "'"&l

52、t;/p><p><b>　　End if</b></p><p>　　If Request("order") = "" Then</p><p>　　sql = sql & " order by id desc"</p><p><b>　　El

53、se</b></p><p>　　If split(Request("order"),"|")(1) = "1" Then</p><p>　　sql = sql & " order by "&split(Request("order"),"|"

54、;)(0)&" asc"</p><p><b>　　Else</b></p><p>　　sql = sql & " order by "&split(Request("order"),"|")(0)&" desc"</p>

55、<p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　'================================</p><p><b>　　'新建一個(gè)類</b></p><p>　

56、　'================================</p><p>　　Set jumbotpage=new ShowMorePage </p><p>　　jumbotpage.getconn=conn</p><p>　　jumbotpage.getsql = sql</p><p>　　jumbotpage.p

57、agesize=pagesize</p><p>　　set rs=jumbotpage.getrs()</p><p><b>　　%></b></p><p>　　<table width=100% cellspacing="1" cellpadding="5" align=center

58、class="bg_tablemain"></p><p><b>　　<tr></b></p><p>　　<td><%jumbotpage.showpage()%></td></p><p><b>　　</tr></b></p

59、><p><b>　　</table></b></p><p>　　<table width=100% cellspacing="1" cellpadding="5" align=center class="bg_tablemain"></p><p>　　<

60、tr class="bg_tabletop" align=center></p><p>　　<td width=* align="center"><b><%Call OrderBy("車號(hào)","車號(hào)")%></b></td></p><p>　

61、　<td width=* align="center"><b><%Call OrderBy("廠牌型號(hào)","廠牌型號(hào)")%></b></td></p><p>　　<td width=* align="center"><b><%Call Orde

62、rBy("車輛類型","車輛類型")%></b></td></p><p>　　<td width=* align="center"><b><%Call OrderBy("車輛顏色","車輛顏色")%></b></td><

63、;/p><p>　　<td width=* align="center"><b><%Call OrderBy("所屬單位","所屬單位")%></b></td></p><p>　　<td width=* align="center"><

64、b>操作</b></td></p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p>　　If rs.recordcount > 0 Then</p><p>　　for i=1 to jumbot

65、page.GetCurPageNum '當(dāng)前頁的記錄數(shù)目</p><p><b>　　%></b></p><p>　　<tr class="bg_tablebody" align=center></p><p>　　<td><a href=Menu_Vehicle_Circums

66、tance_Introduction.asp?action=edit&mode=browse&id=<%=rs("Id")%>><% =rs("車號(hào)")%></a></td></p><p>　　<td><% =rs("廠牌型號(hào)")%></td>&l

67、t;/p><p>　　<td><% =rs("車輛類型")%></td></p><p>　　<td align="center"><% =rs("車輛顏色")%></td></p><p>　　<td><% =rs(&q

68、uot;所屬單位")%></td></p><p>　　<!--#include file="Inc/Menu_Operate.asp"--></p><p><b>　　</tr></b></p><p><b>　　<%</b></p&

69、gt;<p>　　rs.movenext</p><p><b>　　Next</b></p><p><b>　　End If</b></p><p><b>　　%></b></p><p><b>　　</table></b

70、></p><p>　　<table width=100% cellspacing="1" cellpadding="5" align=center class="bg_tablemain"></p><p><b>　　<tr></b></p><p>

71、　　<td><%jumbotpage.showpage()%></td></p><p><b>　　</tr></b></p><p><b>　　</table></b></p><p>　　<form action="<%=filena

72、me%>?action=list" method=get name="thisform" onSubmit="return Validator.Validate(this,2)"></p><p>　　<table width=100% cellspacing="1" cellpadding="5" ali

73、gn=center class="bg_tablemain" id='searchpage'></p><p>　　<tr class="bg_tabletop" align=center></p><p>　　<td colspan="2"><b>查詢記錄</b&g

74、t;</td></p><p><b>　　</tr></b></p><p>　　<tr class="bg_tablebody"></p><p>　　<td width="150" align=right>字段：<select size=&quo

75、t;1" name="zd"></p><p>　　<option value="" selected>==全部==</option></p><p>　　<option value="車號(hào)" <%If Request("zd") = "車號(hào)&quo

76、t; Then%>selected<%End If%>>車號(hào)</option></p><p>　　<option value="車輛類型" <%If Request("zd") = "車輛類型" Then%>selected<%End If%>>車輛類型</option>

77、;</p><p>　　<option value="所屬單位" <%If Request("zd") = "所屬單位" Then%>selected<%End If%>>所屬單位</option></p><p>　　</select></td></p

78、><p>　　<td>= <input type=text name="keyword" size=25 value='<% =Request("keyword")%>'></td></p><p><b>　　</tr></b></p>&l

79、t;p><b>　　</table></b></p><p>　　<table width=100% cellspacing="1" cellpadding="5" align=center class="bg_tablemain"></p><p>　　<tr class

80、="bg_tablebottom"></p><p>　　<td align=center><input title='搜索' type="image" src="Images/btn/Search1.gif" class='picbutton'></td></p>

81、<p><b>　　</tr></b></p><p><b>　　</table></b></p><p><b>　　</form></b></p><p>　　<%End Sub%></p><p><b&g

82、t;　　<%</b></p><p><b>　　Sub del()</b></p><p>　　Set rs = conn.execute("select * from [車輛基本特征] where id=" & Request("id"))</p><p>　　ch = rs

83、("車號(hào)")</p><p>　　Set rs = Nothing</p><p>　　'conn.execute("delete from [技術(shù)檢查狀態(tài)記錄] where [車號(hào)]='" & ch & "'")</p><p>　　'conn.execut

84、e("delete from [車輛保險(xiǎn)] where [車號(hào)]='" & ch & "'")</p><p>　　'conn.execute("delete from [事故記錄] where [車號(hào)]='" & ch & "'")</p><

85、;p>　　'conn.execute("delete from [車輛變更登記] where [車號(hào)]='" & ch & "'")</p><p>　　'conn.execute("delete from [油料登記] where [車號(hào)]='" & ch & "&

86、#39;")</p><p>　　'conn.execute("delete from [車輛保險(xiǎn)] where [車號(hào)]='" & ch & "'")</p><p>　　'conn.execute("delete from [派車登記] where [車號(hào)]='"

87、; & ch & "'")</p><p>　　'conn.execute("delete from [車輛使用成本] where [車號(hào)]='" & ch & "'")</p><p>　　'conn.execute("delete from [車

88、輛使用雜費(fèi)] where [車號(hào)]='" & ch & "'")</p><p>　　'conn.execute("delete from [車輛年審情況] where [車號(hào)]='" & ch & "'")</p><p>　　conn.execu

89、te("delete from [車輛基本特征] where id=" & Request("id"))</p><p>　　Response.write "<script>history.go(-1);</script>"</p><p><b>　　End Sub</b>&

90、lt;/p><p><b>　　%></b></p><p>　　<%Sub edit()</p><p>　　Dim readonly,mode,id</p><p>　　mode=Request("mode")</p><p>　　id=Request("

91、id")</p><p>　　Set rs = server.CreateObject ("Adodb.recordset")</p><p>　　sql="select * from [車輛基本特征]"</p><p>　　If mode="update" Then</p><

92、;p>　　sql = sql & " where id=" & id</p><p>　　readonly=""</p><p>　　ElseIf mode="insert" Then</p><p>　　readonly=""</p><p&g

93、t;<b>　　Else</b></p><p>　　sql = sql & " where id=" & id</p><p>　　readonly="readonly"</p><p><b>　　End If </b></p><p>　

94、　rs.open sql,conn,3,3</p><p><b>　　%></b></p><p>　　<form action='<%=filename%>?action=save&mode=<%=mode%>&id=<%=id%>' method=post name='thi

95、sform' onSubmit='return Validator.Validate(this,2)'></p><p>　　<div id='printpage'></p><p>　　<table width='100%' cellspacing='1' cellpadding='5

96、' align=center class='bg_tablemain'></p><p>　　<tr class="bg_tablebody"></p><p>　　<td width="19%" align=right>車號(hào)：</td></p><p>　　&

97、lt;td width="31%"><input type=text name=ch size=12 value="<%=FormatValue1(mode,rs("車號(hào)"))%>" <%=readonly%> dataType="CarNumber" msg="車號(hào)不正確"> <%If m

98、ode <>"browse" Then%><font color="#FF0000">*</font>(格式：軍A-00000)<%End If%></td></p><p>　　<td width="19%" align=right>編配日期：</td></

99、p><p>　　<td width="31%"><input type=text name="bprq" size=12 value="<%=FormatValue1(mode,rs("編配日期"))%>" <%=readonly%> dataType="Date" msg=&

100、quot;日期格式為“<%=Date()%>”"></p><p>　　<%If mode<>"browse" Then%></p><p>　　<input type="button" onClick="SelectDate('bprq')" value=

101、"選擇"></p><p>　　<input type="button" onClick="CancelDate('bprq')" value="取消"></p><p>　　<%End If%></p><p><b>　　<

102、;/td></b></p><p><b>　　</tr></b></p><p>　　<tr class="bg_tablebody"></p><p>　　<td align=right>廠牌型號(hào)：</td></p><p>　　&

103、lt;td><div style="position:absolute;width:0px;height:0px;overflow:visible;"></p><p>　　<div style="position:absolute;top:21px;left:0px;visibility:hidden;text-align:left;overflow:vis

104、ible;" id=cpxhdiv></p><p>　　<iframe marginWidth=0 marginHeight=0 src="Select_Option.asp?tablename=車輛基本特征&itemname=廠牌型號(hào)&idname=cpxh" frameBorder=0 width=180 scrolling=yes height=6

105、0></iframe></p><p><b>　　</div></b></p><p><b>　　</div></b></p><p>　　<div style="visibility:visible;"><input name="

106、;cpxh" type="text" id="cpxh" value="<%=FormatValue1(mode,rs("廠牌型號(hào)"))%>" size=25 <%=readonly%> onClick="ShowOrHidden('cpxhdiv')"></div>&l

107、t;/p><p><b>　　</td></b></p><p>　　<td align=right>車輛類型：</td></p><p>　　<td><div style="position:absolute;width:0px;height:0px;overflow:visible

108、;"></p><p>　　<div style="position:absolute;top:21px;left:0px;visibility:hidden;text-align:left;overflow:visible;" id=cllxdiv></p><p>　　<iframe marginWidth=0 marginHeig

109、ht=0 src="Select_Option.asp?tablename=車輛基本特征&itemname=車輛類型&idname=cllx" frameBorder=0 width=120 scrolling=yes height=60></iframe></p><p><b>　　</div></b></p>

110、<p><b>　　</div></b></p><p>　　<div style="visibility:visible;"><input name="cllx" type="text" id="cllx" value="<%=FormatValue1

111、(mode,rs("車輛類型"))%>" size=12 <%=readonly%> onClick="ShowOrHidden('cllxdiv')"></div></p><p><b>　　</td></b></p><p><b>　　&

112、lt;/tr></b></p><p>　　<tr class="bg_tablebody"></p><p>　　<td align=right>總金額：</td></p><p>　　<td><input type=text name=zje size=10 value=

113、"<%=FormatValue1(mode,rs("總金額"))%>" <%=readonly%>></p><p><b>　　（萬元）</td></b></p><p>　　<td align=right>車架號(hào)：</td></p><p&

114、gt;　　<td><input type=text name=cjh size=25 value="<%=FormatValue1(mode,rs("車架號(hào)"))%>" <%=readonly%>></td></p><p><b>　　</tr></b></p>&

115、lt;p>　　<tr class="bg_tablebody"></p><p>　　<td align=right>發(fā)動(dòng)機(jī)號(hào)：</td></p><p>　　<td><input type=text name=fdjh size=25 value="<%=FormatValue1(mode,r

116、s("發(fā)動(dòng)機(jī)號(hào)"))%>" <%=readonly%>></td></p><p>　　<td align=right>總質(zhì)量：</td></p><p>　　<td><input type=text name=zzl size=8 value="<%=FormatV

117、alue1(mode,rs("總質(zhì)量"))%>" <%=readonly%>></p><p><b>　?。▏崳?lt;/td></b></p><p><b>　　</tr></b></p><p>　　<tr class="bg_

118、tablebody"></p><p>　　<td align=right>核定載質(zhì)量：</td></p><p>　　<td><input type=text name=hdzzl size=6 value="<%=FormatValue1(mode,rs("核定噸位"))%>"

119、 <%=readonly%>></p><p><b>　?。▏崳?lt;/td></b></p><p>　　<td align=right>核定座位：</td></p><p>　　<td><input type=text name=hdzw size=6 value=&qu

120、ot;<%=FormatValue1(mode,rs("核定座位"))%>" <%=readonly%>></p><p><b>　?。ㄈ耍?lt;/td></b></p><p><b>　　</tr></b></p><p>　　<t

121、r class="bg_tablebody"></p><p>　　<td align=right>車輛顏色：</td></p><p>　　<td colspan="3"><div style="position:absolute;width:0px;height:0px;overflow:

122、visible;"></p><p>　　<div style="position:absolute;top:21px;left:0px;visibility:hidden;text-align:left;overflow:visible;" id=csysdiv></p><p>　　<iframe marginWidth=0 mar

123、ginHeight=0 src="Select_Option.asp?tablename=車輛基本特征&itemname=車輛顏色&idname=csys" frameBorder=0 width=60 scrolling=yes height=60></iframe></p><p><b>　　</div></b><

124、/p><p><b>　　</div></b></p><p>　　<div style="visibility:visible;"><input name="csys" type="text" id="csys" value="<%=Format

125、Value1(mode,rs("車輛顏色"))%>" size=8 <%=readonly%> onClick="ShowOrHidden('csysdiv')"></div></p><p><b>　　</td></b></p><p><b&g

126、t;　　</tr></b></p><p>　　<tr class="bg_tablebody"></p><p>　　<td align=right>所屬單位：</td></p><p>　　<td colspan="3"><div style=&

127、quot;position:absolute;width:0px;height:0px;overflow:visible;"></p><p>　　<div style="position:absolute;top:21px;left:0px;visibility:hidden;text-align:left;overflow:visible;" id=ssdwdiv&g

128、t;</p><p>　　<iframe marginWidth=0 marginHeight=0 src="Select_Option.asp?tablename=車輛基本特征&itemname=所屬單位&idname=ssdw" frameBorder=0 width=100 scrolling=yes height=60></iframe><

129、/p><p><b>　　</div></b></p><p><b>　　</div></b></p><p>　　<div style="visibility:visible;"><input name="ssdw" type="t

130、ext" id="ssdw" value="<%=FormatValue1(mode,rs("所屬單位"))%>" size=12 <%=readonly%> onClick="ShowOrHidden('ssdwdiv')"> <%If mode <>"browse&quo

131、t; Then%><font color="#FF0000">*</font>(如：業(yè)務(wù)科...)<%End If%></div></p><p><b>　　</td></b></p><p><b>　　</tr></b></p>

132、<p>　　<tr class="bg_tablebody"></p><p>　　<td align=right>備注：</td></p><p>　　<td colspan="3"><input type=text name=bz size=40 value="<%=

133、FormatValue1(mode,rs("備注"))%>" <%=readonly%>></td></p><p><b>　　</tr></b></p><p>　　<%If mode <>"insert" Then%></p>

134、<p>　　<tr class="bg_tablebody"></p><p>　　<td align=right>車輛照片：</td></p><p>　　<td colspan=5><%If mode<>"insert" Then%><img id='

135、crzp' src="<%=rs("車輛照片")%>" border="1" width="320" height="240"><%Else%><img src="picture/blank.gif" border="1" width="300&