運(yùn)輸企業(yè)車輛管理信息系統(tǒng)畢業(yè)論文

1、<p>　　運(yùn)輸企業(yè)車輛管理信息系統(tǒng)</p><p>　　計(jì)算機(jī)科學(xué)與技術(shù) </p><p>　　【摘要】隨著經(jīng)濟(jì)的日益增長(zhǎng)，信息化時(shí)代已經(jīng)到來(lái)，生活中各種信息趨向數(shù)字化、清晰化。車輛管理系統(tǒng)就是在這樣的一個(gè)環(huán)境中誕生的，交通的日益發(fā)達(dá)，使得一個(gè)商業(yè)單位不再是簡(jiǎn)單的一輛商務(wù)車，而是有很多輛車組成，而且車型也不再單一，這使得單位車輛信息復(fù)雜化。因此我們將發(fā)揮計(jì)算機(jī)的龐大的存儲(chǔ)

2、空間，高性能的處理能力，高度可靠的數(shù)據(jù)安全，清晰的可視化數(shù)據(jù)等這些優(yōu)勢(shì)來(lái)輔助單位對(duì)車輛進(jìn)行管理，實(shí)現(xiàn)了計(jì)算機(jī)資源的合理利用，真正實(shí)現(xiàn)了減少勞動(dòng)力提高勞動(dòng)質(zhì)量的目的。</p><p>　　本文主要分析了系統(tǒng)的主要組成情況，包括需求情況，系統(tǒng)的設(shè)計(jì)目標(biāo)，數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)流程和系統(tǒng)的主要特點(diǎn)等，重點(diǎn)介紹了系統(tǒng)功能模塊的詳細(xì)思路和實(shí)現(xiàn)方法，以及對(duì)系統(tǒng)關(guān)鍵技術(shù)和部分源代碼的詳細(xì)說(shuō)明。</p><p>

3、　　【關(guān)鍵詞】 車輛管理；信息系統(tǒng)；控件；窗體</p><p>　　【Abstract】As the development of economics and the coming of information epoch, all sorts of information in daily life tend to be digital and explicit. Unit vehicle managemen

4、t system is born in such an environment. Development of transportation increases the number of vehicles instead of only one commercial vehicle and meanwhile multiplies the varieties of them, which makes vehicle informati

5、on more complicated. Thereby, we intend to make full use of computers' gigantic storage space, high-technol</p><p>　　In this paper, the component parts of system, including requirements, designed purpose

6、, data structure and the feature of data process and system, are analyzed. In addition, detailed thoughts and fulfilling ways of system functional model are emphasized, and systematic crucial technique and parts of origi

7、nal codes are expounded specifically.</p><p>　　【Keywords】vehicle management system； Information System; The Control; Windows</p><p><b>　　目 錄</b></p><p>　?。?前言………………………

8、……………………………………………………… Ⅳ-3</p><p>　?。?運(yùn)輸企業(yè)車輛管理系統(tǒng)的主要開發(fā)工具……………………………………… Ⅳ-4</p><p>　?。?運(yùn)輸企業(yè)車輛管理系統(tǒng)的后臺(tái)開發(fā)工具Sql Server 2000………………… Ⅳ-6</p><p>　　４ 可行性研究……………………………………………………………………… Ⅳ-9</

9、p><p>　　５ 需求分析………………………………………………………………………… Ⅳ-10</p><p>　?。?系統(tǒng)分析與系統(tǒng)設(shè)計(jì)…………………………………………………………… Ⅳ-12</p><p>　?。?系統(tǒng)配置………………………………………………………………………… Ⅳ-14</p><p>　?。?數(shù)據(jù)庫(kù)設(shè)計(jì)………………………

10、……………………………………………… Ⅳ-15</p><p>　?。?主程序界面設(shè)計(jì)詳解…………………………………………………………… Ⅳ-24</p><p>　?。保?結(jié)論…………………………………………………………………………… Ⅳ-37</p><p>　　附錄………………………………………………………………………………… Ⅳ-38</p>

11、<p>　　謝辭………………………………………………………………………………… Ⅳ-60</p><p>　　參考文獻(xiàn)…………………………………………………………………………… Ⅳ-61</p><p><b>　　1 前言</b></p><p><b>　　1.1引言</b></p>&l

12、t;p>　　隨著我國(guó)經(jīng)濟(jì)的快速發(fā)展，汽車已成為人們不可缺少的交通工具。對(duì)于擁有大量車輛的運(yùn)輸企業(yè)來(lái)說(shuō)，車輛的管理成為日常事務(wù)中的一項(xiàng)重要工作。但一直以來(lái)人們使用傳統(tǒng)人工的方式進(jìn)行車輛管理，這種管理方式存在著許多缺點(diǎn),如:效率低、實(shí)時(shí)性差等,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越

13、重要的作用。利用計(jì)算機(jī)可以集中管理車輛的運(yùn)營(yíng)、維修、事故、等一系列信息，可以有效管理企業(yè)每臺(tái)汽車的使用狀況，帶動(dòng)企業(yè)進(jìn)入車輛管理信息化、科學(xué)化、同時(shí)也可以節(jié)省人力、物力、財(cái)力、提高工作效率，使企業(yè)車輛管理更加科學(xué)、更加規(guī)范。</p><p>　　車輛管理信息系統(tǒng)針對(duì)企業(yè)業(yè)務(wù)流程并為其度身定制了集車輛檔案管理、駕駛員檔案管理、運(yùn)營(yíng)業(yè)務(wù)管理、車輛管理等為一體的系統(tǒng)，進(jìn)行了統(tǒng)一、規(guī)范的管理設(shè)計(jì)，具有可視化的界面友好，操

14、作方法簡(jiǎn)單易懂等特點(diǎn)，使用戶很快能熟練操作該系統(tǒng)。</p><p>　　該程序使用的是Visual Basic 6.0和Sql Server 2000完成實(shí)現(xiàn)。正規(guī)化的數(shù)據(jù)庫(kù)設(shè)計(jì)，使得數(shù)據(jù)的添加、修改、刪除、查詢更加合理、便捷、高效。</p><p>　　2 運(yùn)輸企業(yè)車輛管理系統(tǒng)的主要開發(fā)工具</p><p>　　2.1 Visual Basic 6.0 簡(jiǎn)介<

15、;/p><p>　　VB主要功能特點(diǎn)如下：</p><p>　　具有面向?qū)ο蟮目梢暬O(shè)計(jì)工具</p><p>　　在VB中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法〔OOP〕，把程序和數(shù)據(jù)封裝起來(lái)視為一個(gè)對(duì)象，每個(gè)對(duì)象都是可視的。程序員在設(shè)計(jì)時(shí)只需用現(xiàn)有工具根據(jù)界面設(shè)計(jì)的要求，直接在屏幕上畫出窗口、菜單、按鈕、滾動(dòng)條等不同類型的對(duì)象，并為每個(gè)對(duì)象設(shè)置屬性。程序員的編程工作僅編寫針對(duì)對(duì)

16、象要完成哪些功能的程序，因而程序設(shè)計(jì)的效率可提高許多。</p><p><b>　　事件驅(qū)動(dòng)的編程機(jī)制</b></p><p>　　事件驅(qū)動(dòng)是非常適合圖形用戶界面的編程方式。傳統(tǒng)的編程方式是一種面向過(guò)程，按程序事先設(shè)計(jì)的流程進(jìn)行。但在圖形用戶界面的應(yīng)用程序中，用戶的動(dòng)作即事件掌握著程序的運(yùn)作流向，每個(gè)事件都能驅(qū)動(dòng)一段程序的運(yùn)行。程序員只要編寫響應(yīng)用戶動(dòng)作的代碼，各個(gè)動(dòng)

17、作之間不一定有聯(lián)系。這樣的應(yīng)用程序代碼較短，使得程序即易于編寫又易于維護(hù)。</p><p>　　提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境</p><p>　　在VB集成開發(fā)環(huán)境中，用戶可設(shè)計(jì)界面、編寫代碼、調(diào)試程序、直至把應(yīng)用程序編譯成可執(zhí)行文件，在WINDOWS中運(yùn)行，使用戶在友好的開發(fā)環(huán)境中工作。</p><p>　　結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言</p>&l

18、t;p>　　VB具有豐富的數(shù)據(jù)類型、眾多的內(nèi)部函數(shù)和結(jié)構(gòu)化程序結(jié)構(gòu)，而且簡(jiǎn)單易學(xué)。</p><p>　　支持多種數(shù)據(jù)庫(kù)系統(tǒng)的訪問(wèn)</p><p>　　利用數(shù)據(jù)控件或OBBC能夠訪問(wèn)的數(shù)據(jù)庫(kù)系統(tǒng)有，MICROSOFT ACCESS、BTRIEVE、DBASE、MICROSOFT FOXPRO和PARADOX等，也可訪問(wèn)MICROSOFT EXCEL、LOTUS等多種電子表格。</

19、p><p><b>　　OLE技術(shù)</b></p><p>　　VB的核心就是其對(duì)對(duì)象的連接與嵌入OLE的支持，利用OLE，VB能夠開發(fā)集聲音、圖象、動(dòng)畫、字處理、WEB等對(duì)象于一體的應(yīng)用程序。</p><p><b>　　ACTIVE技術(shù)</b></p><p>　　Active技術(shù)發(fā)展了原有的OLE

20、技術(shù)，它使開發(fā)人員擺脫了特定語(yǔ)言的束縛?？煞奖愕厥褂脴?biāo)準(zhǔn)的active部件，調(diào)用標(biāo)準(zhǔn)的接口，實(shí)現(xiàn)特定的功能。</p><p>　　完備的HELP聯(lián)機(jī)幫助功能</p><p>　　與Windows環(huán)境下的軟件一樣，在VB中，利用幫助菜單和F1功能鍵，用戶可隨時(shí)方便地得到所需的幫助信息；VB幫助窗口中顯示了有關(guān)的示例代碼，通過(guò)復(fù)制、粘貼操作可獲得大量的示例代碼，為用戶和學(xué)習(xí)和使用提供了捷徑。&

21、lt;/p><p>　　Visual Basic 6.0新功能特點(diǎn)</p><p><b>　　新增控件</b></p><p>　　新增了許多控件，如工具條控件COOLBAR、數(shù)據(jù)庫(kù)控件ADO DATA、日歷界面時(shí)間控件DATATIMEPICKER和MONTH VIEW、圖形組合控件IMAGECOMBO等。</p><p>

22、;<b>　　語(yǔ)言新功能</b></p><p>　　新增了較多的字符串函數(shù)，如篩選函數(shù)FILTER、連接函數(shù)JOIN，反向查找函數(shù)INSTRREV、分隔函數(shù)SPLIT、替換函數(shù)REPLACE等，還有日期等其他函數(shù)。</p><p>　　函數(shù)可以返回?cái)?shù)組，動(dòng)態(tài)數(shù)組可以賦值</p><p>　　增加了文件系統(tǒng)對(duì)象，能全面地實(shí)現(xiàn)驅(qū)動(dòng)器、子目錄和文件

23、的管理。</p><p><b>　　數(shù)據(jù)庫(kù)功能的增強(qiáng)</b></p><p>　　新增了功能強(qiáng)大、使用方便的ADO技術(shù)，ADO是微軟制訂的應(yīng)用程序級(jí)數(shù)據(jù)庫(kù)訪問(wèn)接口，支持所有OLD DB數(shù)據(jù)庫(kù)廠商。ADO包括了現(xiàn)有的ODBC，而且占用內(nèi)存少，訪問(wèn)速度更快。同時(shí)提供的ADO控件，不但可以用最少的代碼創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序，也可以取代DATA和RDO控件。</p>

24、<p><b>　　增強(qiáng)網(wǎng)絡(luò)功能</b></p><p>　　VB6.0最重要的新特性之一，是提供了DHTML設(shè)計(jì)工具。這種技術(shù)可以使WEB頁(yè)面設(shè)計(jì)者動(dòng)態(tài)地創(chuàng)建和編輯頁(yè)面，使用戶在VB中開發(fā)多功能的網(wǎng)絡(luò)應(yīng)用軟件。</p><p>　　新增了多個(gè)應(yīng)用程序向?qū)?lt;/p><p>　　VB新增的應(yīng)用程序向?qū)Э梢宰詣?dòng)創(chuàng)建不同類型、不同功能的

25、應(yīng)用程序。有數(shù)據(jù)向?qū)А?shù)據(jù)窗體向?qū)?、IIS應(yīng)用程序和DHTML等；同時(shí)對(duì)已有的向?qū)г鰪?qiáng)了功能。</p><p>　　3 運(yùn)輸企業(yè)車輛管理系統(tǒng)的后臺(tái)開發(fā)工具Sql Server 2000</p><p>　　3.1 Sql server 2000簡(jiǎn)介</p><p>　　本系統(tǒng)的操作系統(tǒng)采用SQL 2000 Server，它是一個(gè)后臺(tái)數(shù)據(jù)庫(kù)管理系統(tǒng),它功能強(qiáng)大操作簡(jiǎn)便

26、,日益為廣大數(shù)據(jù)庫(kù)用戶所喜愛。越來(lái)越多的開發(fā)工具提供了與SQL Server的接口。SQL Server 是一個(gè)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，它最初是由Microsoft、Sybase 和Ashton-Tate三家公司共同開發(fā)的。于1988 年推出了第一個(gè)OS/2 版本，在Windows NT 推出后，Microsoft與Sybase 在SQL Server 的開發(fā)上就分道揚(yáng)鑣了，Microsoft 將SQL Server 移植到Windows

27、NT系統(tǒng)上，專注于開發(fā)推廣SQL Server 的Windows NT 版本。</p><p>　　SQL Server 2000 是Microsoft公司推出的SQL Server 數(shù)據(jù)庫(kù)管理系統(tǒng)的最新版本，該版本繼承了SQL Server 7.0 版本的優(yōu)點(diǎn)，同時(shí)又比它增加了許多更先進(jìn)的功能、具有使用方便、可伸縮性好與相關(guān)軟件集成程度高等優(yōu)點(diǎn)。可跨越從運(yùn)行Microsoft Windows 98 的膝上型電腦

28、到運(yùn)行Microsoft Windows 2000 的大型多處理器的服務(wù)器等多種平臺(tái)使用。MSSQL Server不但可以應(yīng)用于大中型數(shù)據(jù)庫(kù)管理中，建立分布式關(guān)系數(shù)據(jù)庫(kù)，并且也可以開發(fā)桌面數(shù)據(jù)庫(kù)。事實(shí)上，SQL Server數(shù)據(jù)庫(kù)處理的基本結(jié)構(gòu)，采取關(guān)系型數(shù)據(jù)庫(kù)模式，盡管如此，相信大家都可以輕易的發(fā)現(xiàn)，在SQL Server的數(shù)據(jù)庫(kù)處理方式，則是使用面向?qū)ο蟮牟僮鞣绞脚c精神，也就是說(shuō)，SQL Server的所有功能，都可以基于系統(tǒng)已經(jīng)建

29、立好的一些對(duì)象來(lái)達(dá)成，是相當(dāng)OO（面向?qū)ο螅┑囊粋€(gè)系統(tǒng)結(jié)構(gòu)。</p><p>　　SQL Server 企業(yè)管理器是 SQL Server 的主要管理工具，它提供了一個(gè)遵從 MMC 標(biāo)準(zhǔn)的用戶界面，使用戶得以： </p><p>　　· 定義 SQL Server 實(shí)例組。</p><p>　　· 將個(gè)別服務(wù)器注冊(cè)到組中。&l

30、t;/p><p>　　· 為每個(gè)已注冊(cè)的服務(wù)器配置所有 SQL Server 選項(xiàng)。</p><p>　　· 在每個(gè)已注冊(cè)的服務(wù)器中創(chuàng)建并管理所有 SQL Server 數(shù)據(jù)庫(kù)、對(duì)象、登錄、用戶和權(quán)限。</p><p>　　· 在每個(gè)已注冊(cè)的服務(wù)器上定義并執(zhí)行所有 SQL Server 管理任務(wù)。</p&

31、gt;<p>　　· 通過(guò)喚醒調(diào)用 SQL 查詢分析器，交互地設(shè)計(jì)并測(cè)試 SQL 語(yǔ)句、批處理和腳本。</p><p>　　· 喚醒調(diào)用為 SQL Server 定義的各種向?qū)А?lt;/p><p>　　3.2 SQL Server 2000的特性</p><p>　　Microsoft SQL Server 200

32、0包括以下特性：</p><p>　　Internet集成</p><p>　　SOLServer 2000數(shù)據(jù)庫(kù)引擎提供完整的XML支持。它還具有構(gòu)成最大的Web站點(diǎn)的數(shù)據(jù)存儲(chǔ)組件所需的可伸縮性、可用性和安全功能。SQL Server2000程序設(shè)計(jì)模型與Windows DNA集成，用于開發(fā)Web應(yīng)用程序，并且SQL Server 2000支持English Query和Microsof

33、t搜索服務(wù)等功能，在Web應(yīng)用程序中包含了用戶友好的查詢和強(qiáng)大的搜索功能。</p><p><b>　　可伸縮性和可用性</b></p><p>　　同一個(gè)數(shù)據(jù)庫(kù)引擎可以在不同的平臺(tái)上使用，從運(yùn)行Windows 98的便攜式電腦，到運(yùn)行Windows 2000數(shù)據(jù)中心的大型多處理器服務(wù)器。SQL Server 2000企業(yè)版支持聯(lián)合服務(wù)器、索引視圖和大型內(nèi)存支持等功能

34、，使其得以升級(jí)到最大Web站點(diǎn)所需的性能級(jí)別。</p><p><b>　　企業(yè)級(jí)數(shù)據(jù)庫(kù)功能</b></p><p>　　SQL Server 2000關(guān)系數(shù)據(jù)庫(kù)引擎支持當(dāng)今苛刻的數(shù)據(jù)處理環(huán)境所需的功能。數(shù)據(jù)庫(kù)引擎充分保護(hù)數(shù)據(jù)完整性，同時(shí)將管理上千個(gè)并發(fā)修改數(shù)據(jù)庫(kù)的用戶的殲銷減到最小。SQLServer 2000分布式查詢使用戶得以引用來(lái)自不同數(shù)據(jù)源的數(shù)據(jù)，就好像這些

35、數(shù)據(jù)是SQLServer 2000數(shù)據(jù)庫(kù)的一部分，同時(shí)分布式事務(wù)充分保護(hù)任何分布式數(shù)據(jù)更新的完整性。復(fù)制同樣使用戶得以維護(hù)多個(gè)數(shù)據(jù)副本，同時(shí)確保單獨(dú)的數(shù)據(jù)副本與數(shù)據(jù)保持同步?？蓪⒁唤M數(shù)據(jù)復(fù)制到多個(gè)移動(dòng)用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發(fā)布服務(wù)器。</p><p>　　易于安裝、部署和使用</p><p>　　SQL Server2000中包括一系列管理和開發(fā)工具，這些工

36、具可改進(jìn)在多個(gè)站點(diǎn)上安裝、部署、管理和使用SOL Server的過(guò)程。SQL Server2000還支持基于標(biāo)準(zhǔn)的、與WindowsDNA集成的程序設(shè)計(jì)模型，使SQL Server數(shù)據(jù)庫(kù)和數(shù)據(jù)倉(cāng)庫(kù)的使用成為生成強(qiáng)大的可伸縮系統(tǒng)的無(wú)縫部分。這些功能使用戶得以快速交付SQL Server應(yīng)用程序，使客戶只需最少的安裝和管理開銷即可實(shí)現(xiàn)這些應(yīng)用程序。</p><p><b>　　數(shù)據(jù)倉(cāng)庫(kù)</b>&

37、lt;/p><p>　　SQL Server 2000中包括提取和分析匯總數(shù)據(jù)以進(jìn)行聯(lián)機(jī)分析處理(OLAP)的工具。SQL Server中還包括一些工具，可用來(lái)直觀地設(shè)計(jì)數(shù)據(jù)庫(kù)并通過(guò)English Query來(lái)分析數(shù)據(jù)。</p><p>　　SQL Server 系統(tǒng)數(shù)據(jù)庫(kù)與系統(tǒng)表</p><p>　　SQL Server 2000的6個(gè)系統(tǒng)數(shù)據(jù)庫(kù) </p>

38、<p>　?。?）Master數(shù)據(jù)庫(kù)是SQL Server系統(tǒng)最重要的數(shù)據(jù)庫(kù)，它記錄了SQL Server系統(tǒng)的所有系統(tǒng)信息。這些系統(tǒng)信息包括所有的登錄信息、系統(tǒng)設(shè)置信息、SQL Server的初始化信息和其它系統(tǒng)數(shù)據(jù)庫(kù)及用戶數(shù)據(jù)庫(kù)的相關(guān)信息。</p><p>　?。?）Model數(shù)據(jù)庫(kù)是所有用戶數(shù)據(jù)庫(kù)和Tempdb數(shù)據(jù)庫(kù)的模板數(shù)據(jù)庫(kù)，它含有Master數(shù)據(jù)庫(kù)所有系統(tǒng)表的子集，這些系統(tǒng)數(shù)據(jù)庫(kù)是每個(gè)用

39、戶定義數(shù)據(jù)庫(kù)需要的。</p><p>　　（3）Msdb數(shù)據(jù)庫(kù)是代理服務(wù)數(shù)據(jù)庫(kù)，為其警報(bào)、任務(wù)調(diào)度和記錄操作員的操作提供存儲(chǔ)空間。</p><p>　　（4）Tempdb是一個(gè)臨時(shí)數(shù)據(jù)庫(kù)，它為所有的臨時(shí)表、臨時(shí)存儲(chǔ)過(guò)程及其它臨時(shí)操作提供存儲(chǔ)空間。</p><p>　?。?）Pubs和Northwind數(shù)據(jù)庫(kù)是兩個(gè)實(shí)例數(shù)據(jù)庫(kù)，它們可以作為SQL Server的學(xué)習(xí)工具

40、。</p><p>　　3．3．2 SQL Server 系統(tǒng)表</p><p>　　系統(tǒng)目錄是由描述SQL Server 系統(tǒng)的數(shù)據(jù)庫(kù)、基表、視圖和索引等對(duì)象的結(jié)構(gòu)的系統(tǒng)表組成。SQL Server 經(jīng)常訪問(wèn)系統(tǒng)目錄，檢索系統(tǒng)正常運(yùn)行所需的必要信息。</p><p>　　幾個(gè)最重要的系統(tǒng)表 </p><p>　　1. Sysobjects

41、表</p><p>　　SQL Server 的主系統(tǒng)表sysobjects出現(xiàn)在每個(gè)數(shù)據(jù)庫(kù)中，它對(duì)每個(gè)數(shù)據(jù)庫(kù)對(duì)象含有一行記錄。</p><p>　　2. Syscolumns表</p><p>　　系統(tǒng)表syscolumns出現(xiàn)在master數(shù)據(jù)庫(kù)和每個(gè)用戶自定義的數(shù)據(jù)庫(kù)中，它對(duì)基表或者視圖的每個(gè)列和存儲(chǔ)過(guò)程中的每個(gè)參數(shù)含有一行記錄。</p><

42、;p>　　3. Sysindexes表</p><p>　　系統(tǒng)表sysindexes出現(xiàn)在master數(shù)據(jù)庫(kù)和每個(gè)用戶自定義的數(shù)據(jù)庫(kù)中，它對(duì)每個(gè)索引和沒有聚簇索引的每個(gè)表含有一行記錄，它還對(duì)包括文本/圖像數(shù)據(jù)的每個(gè)表含有一行記錄。</p><p>　　4. Sysusers表</p><p>　　系統(tǒng)表sysusers出現(xiàn)在master數(shù)據(jù)庫(kù)和每個(gè)用戶自定義

43、的數(shù)據(jù)庫(kù)中，它對(duì)整個(gè)數(shù)據(jù)庫(kù)中的每個(gè)Windows NT用戶、Windows NT用戶組、SQL Server 用戶或者SQL Server 角色含有一行記錄。</p><p>　　5. Sysdatabases表</p><p>　　系統(tǒng)表sysdatabases對(duì)SQL Server 系統(tǒng)上的每個(gè)系統(tǒng)數(shù)據(jù)庫(kù)和用戶自定義的數(shù)據(jù)庫(kù)含有一行記錄，它只出現(xiàn)在master數(shù)據(jù)庫(kù)中。</p&g

44、t;<p>　　6. Sysdepends表</p><p>　　系統(tǒng)表Sysdepends對(duì)表、視圖和存儲(chǔ)過(guò)程之間的每個(gè)依賴關(guān)系含有一行記錄，它出現(xiàn)在master數(shù)據(jù)庫(kù)和每個(gè)用戶自定義的數(shù)據(jù)庫(kù)中。</p><p>　　7. Sysconstraints表</p><p>　　系統(tǒng)表sysconstraints對(duì)使用CREATE TABLE或者ALTE

45、R TABLE語(yǔ)句為數(shù)據(jù)庫(kù)對(duì)象定義的每個(gè)完整性約束含有一行記錄，它出現(xiàn)在master數(shù)據(jù)庫(kù)和每個(gè)用戶自定義的數(shù)據(jù)庫(kù)中。</p><p><b>　　4 可行性研究</b></p><p>　　4.1可行性研究的前提</p><p><b>　　研究目標(biāo)</b></p><p>　　隨著我國(guó)經(jīng)濟(jì)的快速

46、發(fā)展，汽車已成為人們不可缺少的交通工具。對(duì)于擁有大量車輛的運(yùn)輸企業(yè)一直采用手工管理車輛信息，工作量大，查找車輛信息不方便，為規(guī)范企業(yè)內(nèi)部管理，提高企業(yè)管理質(zhì)量，更好的服務(wù)于廣大客戶，所以開發(fā)這樣一套管理軟件成為很有必要的事情。</p><p><b>　　主要內(nèi)容</b></p><p>　　該管理系統(tǒng)具備方便、實(shí)用、快捷等優(yōu)點(diǎn)。能夠有效的對(duì)車輛信息進(jìn)行綜合管理，從而

47、大大的提高辦公效率，使企業(yè)能及時(shí)有效的對(duì)車輛進(jìn)行管理。1.提高效率2.便于管理3.符合社會(huì)的發(fā)展4.便于業(yè)務(wù)的擴(kuò)展5.提供高質(zhì)量的服務(wù)</p><p>　　4.2對(duì)現(xiàn)有系統(tǒng)的分析</p><p>　　原始的車輛管理使用手工處理信息，工作量大，查找車輛信息不方便，使用軟件來(lái)管理車輛信息，既方便又迅速，而且統(tǒng)計(jì)的報(bào)表也快捷。所以很多長(zhǎng)期從事車輛管理工作的人員一直希望使用電腦來(lái)處理這些

48、繁重的工作，也正因?yàn)檫@樣，目前絕大部分運(yùn)輸企業(yè)都已經(jīng)使用了軟件來(lái)管理。本軟件系統(tǒng)主要由司機(jī)檔案管理，車輛檔案管理，車輛管理、運(yùn)營(yíng)信息管理等功能模塊構(gòu)成，，實(shí)現(xiàn)車輛管理信息化。</p><p><b>　　技術(shù)可行性分析</b></p><p>　　運(yùn)用Visual Basic 6.0作為軟件開發(fā)環(huán)境、SQL Server 2000開發(fā)數(shù)據(jù)庫(kù)進(jìn)行系統(tǒng)開發(fā)，能夠保證系統(tǒng)的

49、可行性及數(shù)據(jù)的安全性。</p><p><b>　　經(jīng)濟(jì)可行性分析</b></p><p>　　行業(yè)發(fā)展迅速，企業(yè)規(guī)模在不斷的擴(kuò)大，其開發(fā)費(fèi)用在可承受范圍內(nèi)。</p><p><b>　　營(yíng)運(yùn)可行性分析</b></p><p>　　本系統(tǒng)的界面十分人性化，所以管理人員無(wú)需進(jìn)行專門培訓(xùn)就能輕松的使用。

50、</p><p><b>　　5 需求分析</b></p><p>　　運(yùn)輸企業(yè)車輛管理信息系統(tǒng)的開發(fā)不僅僅是一個(gè)應(yīng)用程序編寫的過(guò)程，更重要的是在系統(tǒng)分析和設(shè)計(jì)階段所作的工作。需求分析是開發(fā)運(yùn)輸企業(yè)車輛管理信息系統(tǒng)中重要的一步。</p><p><b>　　5.1 理解需求</b></p><p>

51、　　下面是一份文本需求說(shuō)明，是通過(guò)對(duì)系統(tǒng)的終端用戶（模擬）進(jìn)行調(diào)研后編寫的。其中部分：</p><p>　　在進(jìn)入系統(tǒng)之后首先是登陸系統(tǒng)，根據(jù)用戶輸入的內(nèi)容判斷用戶的合法身份</p><p>　　進(jìn)入司機(jī)檔案管理管理界面可以進(jìn)行司機(jī)檔案管理：（司機(jī)信息添加、修改、查詢、打?。?lt;/p><p>　　進(jìn)入車輛檔案管理管理界面可以進(jìn)行車輛檔案管理：（車輛信息添加、修改、查

52、詢、打?。?lt;/p><p>　　進(jìn)入車輛管理界面：車輛維修信息的管理（添加、修改、查詢、打?。囕v事故信息的管理（添加、修改、查詢、打?。?lt;/p><p>　　進(jìn)入運(yùn)營(yíng)業(yè)務(wù)管理界面:企業(yè)車輛運(yùn)營(yíng)業(yè)務(wù)的管理（添加、修改、查詢、打?。?lt;/p><p><b>　　5.2功能分析</b></p><p>　　系統(tǒng)功能分析是在

53、系統(tǒng)開發(fā)總體任務(wù)的基礎(chǔ)上完成的。運(yùn)輸企業(yè)車輛管理系統(tǒng)功能主要包括：司機(jī)檔案管理、車輛檔案管理、車輛管理、運(yùn)營(yíng)業(yè)務(wù)管理等功能。</p><p>　　系統(tǒng)初始化、用戶管理、密碼管理</p><p>　　司機(jī)檔案管理（司機(jī)信息添加、修改、查詢、打?。?lt;/p><p>　　車輛檔案管理（車輛信息的錄入、車輛信息的查詢、修改、打?。?lt;/p><p>　

54、　車輛管理（車輛維修信息的管理、車輛事故信息的管理）</p><p><b>　　運(yùn)營(yíng)業(yè)務(wù)管理</b></p><p><b>　　5.3 實(shí)現(xiàn)目標(biāo)</b></p><p>　　由人工管理過(guò)渡到機(jī)械自動(dòng)化、系統(tǒng)化、規(guī)范化管理</p><p>　　維修車輛、事故車輛的信息一目了然</p>

55、<p>　　及時(shí)掌握車輛的運(yùn)營(yíng)情況，提高車輛的利用率和企業(yè)的經(jīng)濟(jì)效率</p><p>　　6 系統(tǒng)分析與系統(tǒng)設(shè)計(jì)</p><p><b>　　6.1系統(tǒng)流程</b></p><p>　　該運(yùn)輸企業(yè)車輛管理系統(tǒng)的系統(tǒng)流程如圖所示</p><p><b>　　系統(tǒng)流程圖</b></p&

56、gt;<p><b>　　6.2系統(tǒng)邏輯模型</b></p><p>　　結(jié)合運(yùn)輸企業(yè)車輛管理系統(tǒng)實(shí)際的運(yùn)作流程，具體聯(lián)系如下圖（關(guān)聯(lián)圖）</p><p><b>　　F1司機(jī)登記單</b></p><p><b>　　F2車輛登記單</b></p><p>&l

57、t;b>　　F6打印報(bào)表</b></p><p><b>　　F3車輛維修單</b></p><p><b>　　F4運(yùn)營(yíng)登記單</b></p><p><b>　　F5事故登記單</b></p><p><b>　　6.2.1數(shù)據(jù)流圖</b&

58、gt;</p><p>　　在了解了公司的整體經(jīng)營(yíng)管理活動(dòng)以及管理對(duì)信息系統(tǒng)的要求，在此基礎(chǔ)上，對(duì)各個(gè)部門的逐一調(diào)查，從系統(tǒng)的科學(xué)性、管理得合理性、實(shí)際運(yùn)行的可行性出發(fā)將信息處理功能和彼此的關(guān)系自頂向下，逐層分解，在邏輯上精確地描述系統(tǒng)應(yīng)該有的功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù)存儲(chǔ)以及數(shù)據(jù)來(lái)源河去向。通過(guò)數(shù)據(jù)流圖來(lái)描述管理業(yè)務(wù)活動(dòng)。</p><p><b>　　F1司機(jī)登記單<

59、/b></p><p><b>　　D1司機(jī)信息</b></p><p><b>　　F2車輛登記單</b></p><p><b>　　D2車輛信息</b></p><p><b>　　F3維修登記單</b></p><p&g

60、t;<b>　　F6報(bào)表</b></p><p><b>　　D3維修信息</b></p><p><b>　　F4運(yùn)營(yíng)登記單</b></p><p><b>　　D4運(yùn)營(yíng)信息</b></p><p><b>　　F5事故登記單</b>

61、;</p><p><b>　　D5事故信息</b></p><p><b>　　數(shù)據(jù)流圖頂層圖</b></p><p><b>　　6.2.2數(shù)據(jù)詞典</b></p><p>　　在系統(tǒng)分析中編制了許多數(shù)據(jù)詞典，限于篇幅，舉一例說(shuō)明。</p><p>

62、　　6.3系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)</p><p>　　6.3.1系統(tǒng)功能分解圖</p><p><b>　　7 系統(tǒng)配置</b></p><p>　　根據(jù)用戶對(duì)系統(tǒng)的穩(wěn)定性要求、系統(tǒng)的容量以及用戶的維護(hù)水平，確定了運(yùn)輸企業(yè)車輛管理信息系統(tǒng)的系統(tǒng)配置。</p><p><b>　　7.1 軟件配置</b>&

63、lt;/p><p>　　數(shù)據(jù)庫(kù)軟件 ： SQL Server 2000備選操作系統(tǒng)： Windows NT , Windows 2000 Server , Windows XP7.2 硬件配置</p><p>　　客戶端硬件選擇 ：CPU:奔騰4處理器  256MSDRAM</p><p>　　服務(wù)器端硬件選擇 ：Xeo

64、n 雙 CPU/1GB/RAID5 3x72GB</p><p><b>　　8 數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p><b>　　8.1 實(shí)體聯(lián)系圖</b></p><p><b>　　8.2數(shù)據(jù)表概述</b></p><p>　　8.2.1表詳細(xì)設(shè)計(jì)</p>&

65、lt;p>　　1. driver (司機(jī)基本信息表)</p><p>　　2．vehicle（車輛基本信息表）</p><p>　　3．Vehicle2(車輛附加信息表) </p><p>　　4. statistic (運(yùn)營(yíng)信息表)</p><p>　　5. repair (車輛維修信息表) </p><p>

66、　　6. accident(事故信息表) </p><p>　　7．repairunit(維修單位信息表)</p><p>　　8.User(用戶表)</p><p><b>　　8.3創(chuàng)建數(shù)據(jù)庫(kù)</b></p><p>　　8.3.1 創(chuàng)建‘司機(jī)基本信息’數(shù)據(jù)表</p><p>　　CREATE

67、 TABLE [dbo].[driver] (</p><p>　　[sjid] [char] (10) NOT NULL ,</p><p>　　[sjname] [char] (10) NOT NULL ,</p><p>　　[sjsex] [char] (2) NULL ,</p><p>　　[sjbirthday] [datet

68、ime] NULL ,</p><p>　　[sjaddress] [char] (30) NULL ,</p><p>　　[sjfirstdate] [datetime] NULL ,</p><p>　　[sjtype] [char] (10) NOT NULL ,</p><p>　　[sjbegin_date] [datetime

69、] NULL ,</p><p>　　[sjend_date] [datetime] NULL </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.2 創(chuàng)建‘車輛基本信息’數(shù)據(jù)表</p><p>　　CREATE TABLE [

70、dbo].[vehicle] (</p><p>　　[clid] [char] (10) NOT NULL ,</p><p>　　[clkind] [char] (20) NOT NULL ,</p><p>　　[clpassenger] [numeric](2, 0) NULL ,</p><p>　　[clcolor] [cha

71、r] (4) NULL </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.3 創(chuàng)建‘用戶’數(shù)據(jù)表</p><p>　　CREATE TABLE [dbo].[User] (</p><p>　　[UserID] [varch

72、ar] (50) NOT NULL ,</p><p>　　[UserPassword] [varchar] (50) NOT NULL </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.4 創(chuàng)建‘車輛附加信息’數(shù)據(jù)表</p>&l

73、t;p>　　CREATE TABLE [dbo].[Vehicle2] (</p><p>　　[clowner] [varchar] (50) NOT NULL ,</p><p>　　[Clcode1] [varchar] (50) NOT NULL ,</p><p>　　[Clcode2] [varchar] (50) NULL ,</p&g

74、t;<p>　　[Clcode3] [varchar] (50) NULL ,</p><p>　　[cltotal] [varchar] (50) NULL ,</p><p>　　[Clregist-date] [datetime] NULL ,</p><p>　　[Clcertifi-date] [datetime] NULL </p

75、><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.5 創(chuàng)建‘事故信息’數(shù)據(jù)表</p><p>　　CREATE TABLE [dbo].[accident] (</p><p>　　[sgid] [char] (10) NOT NULL

76、 ,</p><p>　　[sgdriver] [char] (10) NULL ,</p><p>　　[sgdate] [datetime] NOT NULL ,</p><p>　　[sgplace] [char] (30) NOT NULL ,</p><p>　　[sgreason] [char] (30) NULL ,<

77、/p><p>　　[sgopp_id] [char] (10) NULL ,</p><p>　　[sgopp_dept] [char] (30) NULL ,</p><p>　　[sgmode] [char] (30) NULL ,</p><p>　　[sgvalue] [numeric](10, 2) NULL ,</p>

78、;<p>　　[sgmemo] [text] NULL </p><p>　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.6 創(chuàng)建‘維修信息’數(shù)據(jù)表</p><p>　　CREATE TABLE [dbo

79、].[repair] (</p><p>　　[wxid] [char] (10) NOT NULL ,</p><p>　　[wxdate] [datetime] NOT NULL ,</p><p>　　[wxdept] [char] (30) NULL ,</p><p>　　[wxcontent] [char] (40) NULL

80、 ,</p><p>　　[wxprice] [numeric](10, 2) NULL ,</p><p>　　[wxslave] [char] (30) NULL ,</p><p>　　[wxmemo] [text] COLLATE NULL </p><p>　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY

81、]</p><p><b>　　GO</b></p><p>　　8.3.7 創(chuàng)建‘維修單位’數(shù)據(jù)表</p><p>　　CREATE TABLE [dbo].[repairunit] (</p><p>　　[wxunit] [varchar] (50) NOT NULL ,</p><p>

82、　　[wxaddress] [varchar] (50) NOT NULL ,</p><p>　　[wxcall] [numeric](18, 0) NULL </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.8創(chuàng)建‘運(yùn)營(yíng)信息’數(shù)據(jù)表</p

83、><p>　　CREATE TABLE [dbo].[statistic] (</p><p>　　[yyid] [char] (10) NOT NULL ,</p><p>　　[yydriver] [char] (10) NOT NULL ,</p><p>　　[yybegin_date] [datetime] NOT NULL ,&l

84、t;/p><p>　　[yyend_date] [datetime] NOT NULL ,</p><p>　　[yydistance] [numeric](8, 2) NULL ,</p><p>　　[yywaste] [numeric](8, 2) NULL </p><p>　　) ON [PRIMARY]</p><

85、p><b>　　GO</b></p><p>　　9 主程序界面設(shè)計(jì)詳解</p><p>　　在本章中，我將詳細(xì)介紹運(yùn)輸企業(yè)信息管理系統(tǒng)的界面及相關(guān)的程序，并對(duì)其功能加以描述和解釋。由于本程序主要由五大板塊構(gòu)成，即系統(tǒng)管理，司機(jī)檔案管理、車輛檔案管理、運(yùn)營(yíng)管理、車輛管理，我將分別論述。</p><p><b>　　9.1 功能概

86、述</b></p><p><b>　　管理員登錄</b></p><p><b>　　密碼修改</b></p><p>　　司機(jī)檔案信息的添加、修改、刪除、查詢</p><p>　　車輛檔案信息的添加、修改、刪除、查詢</p><p>　　運(yùn)營(yíng)信息的添加、修改、

87、查詢</p><p><b>　　車輛管理的信息</b></p><p>　　9.2 功能詳細(xì)設(shè)計(jì)</p><p>　　9.2.1 登錄界面</p><p>　　用戶輸入用戶名和密碼登錄，系統(tǒng)根據(jù)不同的用戶名賦予不同的權(quán)限。</p><p><b>　　關(guān)鍵代碼：</b>&l

88、t;/p><p>　　private sub cmdok_click（）</p><p>　　Dim txtSQL As string</p><p>　　Dim mrc As ADODB.Recordset</p><p>　　Dim MsgText As string</p><p>　　UserName=＂＂<

89、/p><p>　　If trim（txtUserName.Text=＂＂）then</p><p>　　MsgBox＂沒有這個(gè)用戶，請(qǐng)重新輸入用戶名?。?，vbokonly＋vbexclamation,＂警告＂</p><p>　　TxtUserName.SetFocus</p><p><b>　　Else</b></

90、p><p>　　TxtSQL=＂select*form user_info where user_ID=＂＆txtUserName.Text＆＂＂</p><p>　　Set mrc=ExecuteSQL（txtSQL,MsgText）</p><p>　　If mrc.EOF=True Then</p><p>　　MsgBox＂沒有這個(gè)用戶，

91、請(qǐng)重新輸入用戶名?。ⅲ瑅bokonly＋vbexclamation,＂警告＂</p><p>　　TxtUserName.SetFocus</p><p><b>　　Else</b></p><p>　　If trim（mrc.Fields（1））=Trim（txtpassword.Text）Then</p><p>

92、<b>　　Ok=true</b></p><p><b>　　Mrc,Close</b></p><p><b>　　Me.Hide</b></p><p>　　UserName=Trim（textUserName.Text）</p><p><b>　　Else&

93、lt;/b></p><p>　　MsgBox＂輸入密碼不正確，請(qǐng)重新輸入！＂，vbokonly＋vbexclamation,＂警告＂</p><p>　　TxtPassword.SetFocus</p><p>　　TxtPassword.Text=＂＂</p><p><b>　　End if</b></

94、p><p><b>　　End if</b></p><p><b>　　End if </b></p><p>　　Micount=micount+1</p><p>　　If miCount=3 Then</p><p><b>　　Me.Hide</b>

95、;</p><p><b>　　End IF</b></p><p><b>　　Exit Sub</b></p><p><b>　　End sub</b></p><p>　　9.2.2 進(jìn)入主界面</p><p>　　下圖為成功登錄后的界面：<

96、;/p><p>　　9.2.3 司機(jī)檔案管理</p><p>　　司機(jī)檔案管理模塊主要實(shí)現(xiàn)如下功能:</p><p><b>　　添加司機(jī)信息</b></p><p><b>　　修改司機(jī)信息</b></p><p><b>　　打印司機(jī)基本信息</b>&l

97、t;/p><p><b>　　查詢司機(jī)信息</b></p><p>　　一、添加司機(jī)信息窗體的創(chuàng)建</p><p>　　關(guān)鍵代碼:（見附錄一）</p><p>　　二、修改司機(jī)信息窗體</p><p>　　關(guān)鍵代碼：（見附錄二）</p><p><b>　　三、查詢窗

98、體</b></p><p><b>　　關(guān)鍵代碼：</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　Dim txtSQL As String</p><p>　　If chkItem(0).Value = vbChecked Then</p>

99、<p>　　txtSQL = " sjname ='" & Trim(txtItem(0) & " ") & "'"</p><p><b>　　End If</b></p><p>　　If chkItem(1).Value = vbChecked Then

100、</p><p>　　If Trim(txtSQL & " ") = "" Then</p><p>　　txtSQL = " sjtype ='" & Trim(txtItem(1) & " ") & "'"</p><p

101、><b>　　Else</b></p><p>　　txtSQL = txtSQL & " and sjtype ='" & Trim(txtItem(1) & " ") & "'"</p><p><b>　　End If</b>&

102、lt;/p><p><b>　　End If</b></p><p><b>　　Me.Hide</b></p><p>　　If Trim(txtSQL) = "" Then</p><p>　　MsgBox "請(qǐng)?jiān)O(shè)置查詢方式！", vbOKOnly + vbE

103、xclamation, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　If flagdEdit Then</p><p>　　Unload frmDriver</p><p&g

104、t;<b>　　End If</b></p><p>　　frmDriver.txtSQL = "select * from driver where" & txtSQL</p><p>　　frmDriver.Show</p><p><b>　　End If</b></p>&

105、lt;p><b>　　End Sub</b></p><p>　　9.2.4 車輛檔案管理</p><p>　　車輛檔案管理模塊主要實(shí)現(xiàn)如下功能:</p><p><b>　　添加司機(jī)信息</b></p><p><b>　　修改司機(jī)信息</b></p>&

106、lt;p><b>　　打印司機(jī)基本信息</b></p><p><b>　　查詢司機(jī)信息</b></p><p>　　一、添加車輛信息窗體的創(chuàng)建</p><p>　　關(guān)鍵代碼：（見附錄三）</p><p><b>　　二、修改車輛信息</b></p><

107、;p><b>　　代碼：（見附錄四）</b></p><p>　　三、查詢車輛信息窗體</p><p><b>　　代碼：（見附錄五）</b></p><p>　　9.2.5運(yùn)營(yíng)業(yè)務(wù)管理</p><p>　　運(yùn)營(yíng)業(yè)務(wù)管理模塊主要實(shí)現(xiàn)如下功能:</p><p><b

108、>　　添加運(yùn)營(yíng)信息</b></p><p><b>　　修改運(yùn)營(yíng)信息</b></p><p><b>　　刪除運(yùn)營(yíng)基本信息</b></p><p><b>　　查詢運(yùn)營(yíng)信息</b></p><p><b>　　一、運(yùn)營(yíng)信息窗體</b>&l

109、t;/p><p>　　代碼：與添加司機(jī)基本信息的方法一樣，在此略過(guò)</p><p><b>　　二、修改運(yùn)營(yíng)信息</b></p><p>　　代碼：與修改司機(jī)的窗體類適</p><p><b>　　三、查詢運(yùn)營(yíng)信息</b></p><p>　　9.2.6車輛維修業(yè)務(wù)管理</

110、p><p>　　維修業(yè)務(wù)管理模塊主要實(shí)現(xiàn)如下功能:</p><p><b>　　添加維修信息</b></p><p><b>　　修改維修信息</b></p><p><b>　　刪除維修基本信息</b></p><p><b>　　查詢維修信息&

111、lt;/b></p><p>　　一、維修信息窗體的建立</p><p>　　關(guān)鍵代碼：（見附錄六）</p><p><b>　　二、修改維修信息</b></p><p>　　Public Sub RecordEdit()</p><p>　　Dim intCount As Integer&

112、lt;/p><p>　　If msgList.Rows > 1 Then</p><p>　　gintmode = EDIT</p><p>　　intCount = msgList.Row</p><p>　　gsSql = " where wxid='" & Trim(msgList.TextMatr

113、ix(msgList.Row, 1)) & "' and wxdate=cdate('" & Format(msgList.TextMatrix(msgList.Row, 2), "yyyy-mm-dd") & "')"</p><p>　　frmRepair1.Show 1</p><

114、p><b>　　ShowData</b></p><p>　　Call MovCursor(intCount, msgList)</p><p><b>　　Else</b></p><p>　　Call RecordAdd</p><p><b>　　End If</b>

115、;</p><p><b>　　End Sub</b></p><p>　　Public Sub FormClose()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><

116、b>　　'刪除記錄</b></p><p>　　Public Sub RecordDelete()</p><p>　　Dim sSql As String</p><p>　　Dim intCount As Integer</p><p>　　On Error GoTo myErr</p><p

117、>　　If msgList.Rows > 1 Then</p><p>　　If MsgBox("真的要?jiǎng)h除這條文件記錄么？", vbOKCancel + vbExclamation, "警告") = vbOK Then</p><p>　　intCount = msgList.Row</p><p>　　sSql

118、 = "delete from " & msTableName & " where wxid='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "' and wxdate=cdate('" & Format(msgList.TextMatrix(msgList.Row,

119、 2), "yyyy-mm-dd") & "')"</p><p>　　dbHuaxia.Execute sSql, dbSQLPassThrough</p><p><b>　　ShowData</b></p><p>　　If msgList.Rows > 1 Then</

120、p><p>　　If intCount = msgList.Rows Then</p><p>　　MovCursor msgList.Rows - 1, msgList</p><p><b>　　Else</b></p><p>　　MovCursor intCount, msgList</p><p

121、><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　Exit Sub</

122、b></p><p><b>　　myErr:</b></p><p><b>　　ShowError</b></p><p><b>　　End Sub</b></p><p>　　Public Sub RecordRefresh()</p><p&

123、gt;<b>　　'設(shè)置msSql</b></p><p>　　msSql = msSelect & msTableName & " where wxdate>='" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "&#

124、39; and wxdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy</p><p><b>　　'顯示數(shù)據(jù)</b></p><p>　　msBarText = "當(dāng)前數(shù)據(jù)時(shí)間范圍："

125、& Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")</p><p>　　sOrder0 = "+ {wxdate}"</p><p>　　sOrder1 = &

126、quot;"</p><p><b>　　ShowData</b></p><p><b>　　End Sub</b></p><p>　　Public Sub RecordAdd()</p><p>　　gintmode = Add</p><p>　　frmRe

127、pair1.Show 1</p><p><b>　　ShowData</b></p><p><b>　　End Sub</b></p><p>　　Public Sub RecordFind()</p><p>　　frmRepair2.Show 1</p><p>　　

128、If Trim(frmRepair2.sQSql & " ") <> "" Then</p><p>　　msSql = msSelect & msTableName & " where" & frmRepair2.sQSql & msOrderBy</p><p><b&