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

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

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

3、;</p><p><b>　　1.1課題背景</b></p><p>　　數據庫應用系統開發(fā)簡介在數據庫應用系統開發(fā)之前，對開發(fā)數據庫的基本概念應當了解，對數據庫的結構、開發(fā)數據庫應用程序的步驟、開發(fā)體系及方法都應當有相當清晰的了解和認識。數據庫應用系統開發(fā)的目標是建立一個滿足用戶長期需求的產品。開發(fā)的主要過程為：理解用戶的需求，然后，把它們轉變?yōu)橛行У臄祿煸O計。

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

5、地使用。它主要包括四個要素：用戶數據、元數據、索引和應用元數據。目前，大多數主流數據庫管理系統把用戶數據表示為關系?，F在把關系看作數據表。表的列包含域或屬性，表的行包含對應業(yè)務環(huán)境中的實體的記錄。并非所有的關系都同樣符合要求，有些關系比其它關系更結構化一些。開發(fā)語言</p><p>　　1.2課題來源和意義</p><p>　　隨著計算機技術的不斷發(fā)展，計算機作為知識經濟時代的產物，已被廣

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

39、;<p>　　用戶在Index.asp文件中輸入個人信息，提交到user_login.asp文件。并由這個ASP文件進行數據庫動作，根據不同的動作結果，系統將作出不同的信息反饋給用戶。 </p><p>　　這是登陸處理模塊的中心，user_login.asp文件很簡單：直接調用其中的登陸函數action進行動作，結構如圖所示。</p><p>　　是

40、 否</p><p>　　登陸程序被調用后，先檢查該用戶是否已經登陸過，按是否登陸進行分枝選擇：對已經是登陸的用戶顯示相應信息，或將新用戶加入的數據庫中，即為該用戶登陸。</p><p>　　判斷條件是通過action函數實現的，該函數利用提取的表單字段值對數據庫進行查詢。如果查詢到結果。則表明該用戶經在數據庫中，即該用戶是登陸了。如果記錄集為空則表明該用

41、戶是非法登陸。</p><p>　　編輯修改管理員是通過user_login.asp來實現的，這個方法是模塊的中心，也比較復雜，其結構如圖所示。</p><p>　　是 否</p><p><b>　　5. 系統實現</b></p><p>　　本系統是面向大眾的，界面友好，操作簡單，

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

43、該系統可運行在windows95/windows98/windowsme/windows2000等操作系統之上，需安裝有IE等瀏覽工具。</p><p>　　安裝及初始化：本應用系統的安裝可以從軟盤直接拷貝。</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、;刪除車輛信息，將會刪除與其相關的所有信息\n確實要刪除嗎?")){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>　　'新建一個類</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("車號","車號")%></b></td></p><p>　

61、　<td width=* align="center"><b><%Call OrderBy("廠牌型號","廠牌型號")%></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 '當前頁的記錄數目</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("車號")%></a></td></p><p>　　<td><% =rs("廠牌型號")%></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="車號" <%If Request("zd") = "車號&quo

76、t; Then%>selected<%End If%>>車號</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、("車號")</p><p>　　Set rs = Nothing</p><p>　　'conn.execute("delete from [技術檢查狀態(tài)記錄] where [車號]='" & ch & "'")</p><p>　　'conn.execut

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

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

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

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

88、輛使用雜費] where [車號]='" & ch & "'")</p><p>　　'conn.execute("delete from [車輛年審情況] where [車號]='" & 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>車號：</td></p><p>　　&

97、lt;td width="31%"><input type=text name=ch size=12 value="<%=FormatValue1(mode,rs("車號"))%>" <%=readonly%> dataType="CarNumber" msg="車號不正確"> <%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>廠牌型號：</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=廠牌型號&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("廠牌型號"))%>" 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>　?。ㄈf元）</td></b></p><p>　　<td align=right>車架號：</td></p><p&

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

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

116、s("發(fā)動機號"))%>" <%=readonly%>></td></p><p>　　<td align=right>總質量：</td></p><p>　　<td><input type=text name=zzl size=8 value="<%=FormatV

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

118、tablebody"></p><p>　　<td align=right>核定載質量：</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è)務科...)<%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&