數(shù)據(jù)庫課程設(shè)計(jì)----車輛管理系統(tǒng)

1、<p>　　課 程 設(shè) 計(jì) 報(bào) 告</p><p>　　(2010 ~2011年度第 2 學(xué)期)</p><p>　　專業(yè)計(jì)算機(jī)科學(xué)與技術(shù)</p><p>　　課程數(shù)據(jù)庫系統(tǒng)原理　</p><p>　　班級(jí)10級(jí)專升本一班</p><p><b>　　目錄</b></p>

2、<p>　　目 錄 …………………………………………………………………………… 1</p><p>　　摘 要 …………………………………………………………………………… 1</p><p>　　第一章 概 述 ……………………………………………………………….……………1</p><p>　　1.來源

3、 ……………………………………………………………………………. 1</p><p>　　2.本課題的目的、內(nèi)容………………………………………………………………1</p><p>　　第二章 開發(fā)工具的選擇及系統(tǒng)的要求……………………………………………………...2</p><p>　　1.開發(fā)工具的選擇……………………………………………………………………2<

4、;/p><p>　　2.系統(tǒng)配置……………………………………………………………………………5</p><p>　　3.軟件配置……………………………………………………………………………5</p><p>　　4.硬件配置……………………………………………………………………………6</p><p>　　第三章 系統(tǒng)調(diào)研及可行性分析……………………

5、………………………………………...7</p><p>　　1.系統(tǒng)調(diào)研……………………………………………………………………………7</p><p>　　2.可行性分析概述…………………………………………………………………....7</p><p>　　3.技術(shù)可行性分析……………………………………………………………………8</p><p>

6、　　第四章 系統(tǒng)分析………………………………………………………………………………9</p><p>　　1.系統(tǒng)需求分析………………………………………………………………………9</p><p>　　2.數(shù)據(jù)流圖……………………………………………………………………………9</p><p>　　第五章 系統(tǒng)總體設(shè)計(jì)……………………………………………………………………

7、….11</p><p>　　1.系統(tǒng)流程…………………………………………………………………………..11</p><p>　　2.流程功能分解圖…………………………………………………………………..12</p><p>　　第六章 數(shù)據(jù)庫設(shè)計(jì)………………………………………………………………………….13</p><p>　　1.E-R圖設(shè)

8、計(jì)………………………………………………………………………..13</p><p>　　2.數(shù)據(jù)表概述………………………………………………………………………..13</p><p>　　第七章 主界面設(shè)計(jì)與分析………………………………………………………………….20</p><p>　　第八章 結(jié)論………………………………………………………………………………….2

9、6</p><p>　　參考文獻(xiàn) ………………………………………………………………………………………27</p><p>　　附 錄 ………………………………………………………………………………………28</p><p><b>　　摘要</b></p><p>　　隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用

10、的普及，利用計(jì)算機(jī)實(shí)現(xiàn)車輛管理勢在必行。本系統(tǒng)結(jié)合公司實(shí)際的車輛管理制度，經(jīng)過實(shí)際的需求分析，采用功能強(qiáng)大的Visual Basic6.0作為開發(fā)工具而開發(fā)出來的單機(jī)版人事管理系統(tǒng)。</p><p>　　整個(gè)系統(tǒng)從符合操作簡便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成車輛管理的全過程，包括新進(jìn)司機(jī)加入時(shí)人事檔案的建立、維修、事故、等一系列信息、員工信息查詢、車輛查詢、事故處理、事故記錄、老員工修改等管理工作。經(jīng)

11、過實(shí)際使用證明，本文所設(shè)計(jì)的車輛管理系統(tǒng)可以可以有效管理企業(yè)每臺(tái)汽車的使用狀況，帶動(dòng)企業(yè)進(jìn)入車輛管理信息化、科學(xué)化、同時(shí)也可以節(jié)省人力、物力、財(cái)力、提高工作效率，使企業(yè)車輛管理更加科學(xué)、更加規(guī)范。</p><p>　　關(guān)鍵詞： 車輛管理；信息系統(tǒng)；控件；窗體</p><p><b>　　第一章 概述</b></p><p><b>

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

13、功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。利用計(jì)算機(jī)可以集中管理車輛的運(yùn)營、維修、事故、等一系列信息，可以有效管理企業(yè)每臺(tái)汽車的使用狀況，帶動(dòng)企業(yè)進(jìn)入車輛管理信息化、科學(xué)化、同時(shí)也可以節(jié)省人力、物力、財(cái)力、提高工作效率，使企業(yè)車輛管理更加科學(xué)、更加規(guī)范。</p><p>　　2、本課題的目的、內(nèi)容</p><p><b>　　(1)目的：</

14、b></p><p>　　目前市面上流行的運(yùn)輸管理系統(tǒng)不少。但是，對(duì)于企、事業(yè)單位的運(yùn)輸管理系統(tǒng)來說，不需要大型的數(shù)據(jù)庫系統(tǒng)。只需要一個(gè)操作方便，功能實(shí)用，能滿足本中心對(duì)數(shù)據(jù)的管理及需求的系統(tǒng)。我們的目標(biāo)就是在于開發(fā)一個(gè)功能實(shí)用、操作方便，簡單明了的運(yùn)輸管理系統(tǒng)。</p><p><b>　　(2)內(nèi)容</b></p><p>　　能夠錄

15、入司機(jī)的基本資料，在操作上能夠完成諸如添加、修改、刪除、按各種條件進(jìn)行查詢、新用戶的設(shè)置及密碼修改等方面的工作，基本滿足人事日常業(yè)務(wù)的需要。</p><p>　　第二章 開發(fā)工具的選擇及系統(tǒng)的要求</p><p>　　1.開發(fā)系統(tǒng)工具的選擇</p><p>　　現(xiàn)在，市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場上最為流行、使用最多、最為先進(jìn)的

16、可用作企業(yè)級(jí)開發(fā)工具的產(chǎn)品有：</p><p>　　Microsoft公司的Visual Basic</p><p>　　Microsoft公司的Visual C</p><p>　　Borland公司的Delphi </p><p><b>　　Java等等</b></p><p>　　在目前市

17、場上這些眾多的程序開發(fā)工具中，有些強(qiáng)調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用；相反，如果只強(qiáng)調(diào)程續(xù)語言的彈性，卻沒有便利的工具作配合，會(huì)使一些即使非常簡單的界面處理動(dòng)作，也會(huì)嚴(yán)重地

18、浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。</p><p>　　作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Visual Basic是一個(gè)非常理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫時(shí)，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言Visual Basic語言，該開發(fā)工具具有很多長處：</p>

19、<p>　　Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(DLL)

20、、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p>　　總的來說，Visual Basic具有以下特點(diǎn)：</p><p><b>　　可視化編程：</b></p><p>　　用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通

21、過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對(duì)象，并設(shè)置這

22、些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。</p><p><b>　　面向?qū)ο蟮某绦蛟O(shè)計(jì)</b></p><p>　　4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中

23、，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。</p><p><b>　　結(jié)構(gòu)化

24、程序設(shè)計(jì)語言</b></p><p>　　Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。</p><p>　　Visual Basic是解釋型語言，在輸入代碼的同時(shí)，解

25、釋系統(tǒng)將高級(jí)語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。</p><p><b>　　事件驅(qū)動(dòng)編程機(jī)制</b></p><p>　　Visual Basic通過

26、事件來執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊”(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。</p><p>　　在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。這些過程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)

27、完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。</p><p><b>　　訪問數(shù)據(jù)庫</b></p><p>　　Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual B

28、asic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如DBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。</p><p>　　Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡

29、單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。</p><p>　　動(dòng)態(tài)數(shù)據(jù)交換(DDE)</p><p>　　利用動(dòng)態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程

30、序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。</p><p>　　對(duì)象的鏈接與嵌入(OLE)</p><p>　　對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象(object)，將不同

31、的對(duì)象鏈接(link)起來，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看作是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來的應(yīng)用程序相

32、聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。</p><p>　　動(dòng)態(tài)鏈接庫(DLL)</p><p>　　Visual Basic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動(dòng)態(tài)鏈接庫，還可以調(diào)用W

33、indows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能</p><p>　　本系統(tǒng)的操作系統(tǒng)采用SQL 2000 Server，它是一個(gè)后臺(tái)數(shù)據(jù)庫管理系統(tǒng),它功能強(qiáng)大操作簡便,日益為廣大數(shù)據(jù)庫用戶所喜愛。越來越多的開發(fā)工具提供了與SQL Server的接口。SQL Server 是一個(gè)關(guān)系數(shù)據(jù)庫管理系統(tǒng)，它最初是由Microsoft、Sybase 和Ashton-Tate三家公司共同開發(fā)的。于1988 年

34、推出了第一個(gè)OS/2 版本，在Windows NT 推出后，Microsoft與Sybase 在SQL Server 的開發(fā)上就分道揚(yáng)鑣了，Microsoft 將SQL Server 移植到Windows NT系統(tǒng)上，專注于開發(fā)推廣SQL Server 的Windows NT 版本。</p><p>　　SQL Server 2000 是Microsoft公司推出的SQL Server 數(shù)據(jù)庫管理系統(tǒng)的最新版本，

35、該版本繼承了SQL Server 7.0 版本的優(yōu)點(diǎn)，同時(shí)又比它增加了許多更先進(jìn)的功能、具有使用方便、可伸縮性好與相關(guān)軟件集成程度高等優(yōu)點(diǎn)?？煽缭綇倪\(yùn)行Microsoft Windows 98 的膝上型電腦到運(yùn)行Microsoft Windows 2000 的大型多處理器的服務(wù)器等多種平臺(tái)使用。MSSQL Server不但可以應(yīng)用于大中型數(shù)據(jù)庫管理中，建立分布式關(guān)系數(shù)據(jù)庫，并且也可以開發(fā)桌面數(shù)據(jù)庫。事實(shí)上，SQL Server數(shù)據(jù)庫處理

36、的基本結(jié)構(gòu)，采取關(guān)系型數(shù)據(jù)庫模式，盡管如此，相信大家都可以輕易的發(fā)現(xiàn)，在SQL Server的數(shù)據(jù)庫處理方式，則是使用面向?qū)ο蟮牟僮鞣绞脚c精神，也就是說，SQL Server的所有功能，都可以基于系統(tǒng)已經(jīng)建立好的一些對(duì)象來達(dá)成，是相當(dāng)OO（面向?qū)ο螅┑囊粋€(gè)系統(tǒng)結(jié)構(gòu)。</p><p>　　SQL Server 企業(yè)管理器是 SQL Server 的主要管理工具，它提供了一個(gè)遵從 MMC 標(biāo)準(zhǔn)的用戶界面，使用戶得以：

37、 </p><p>　　·定義 SQL Server 實(shí)例組。</p><p>　　·將個(gè)別服務(wù)器注冊到組中。</p><p>　　·為每個(gè)已注冊的服務(wù)器配置所有 SQL Server 選項(xiàng)。</p><p>　　·在每個(gè)已注冊的服務(wù)器中創(chuàng)建并管理所有 SQL Server 數(shù)據(jù)庫、對(duì)象、登錄、用戶和權(quán)

38、限。</p><p>　　·在每個(gè)已注冊的服務(wù)器上定義并執(zhí)行所有 SQL Server 管理任務(wù)。</p><p>　　·通過喚醒調(diào)用 SQL 查詢分析器，交互地設(shè)計(jì)并測試 SQL 語句、批處理和腳本。</p><p>　　·喚醒調(diào)用為 SQL Server 定義的各種向?qū)А?lt;/p><p><b>　

39、　系統(tǒng)配置</b></p><p>　　根據(jù)用戶對(duì)系統(tǒng)的穩(wěn)定性要求、系統(tǒng)的容量以及用戶的維護(hù)水平，確定了運(yùn)輸企業(yè)車輛管理信息系統(tǒng)的系統(tǒng)配置。</p><p><b>　　軟件配置</b></p><p>　　數(shù)據(jù)庫軟件 ： SQL Server 2000</p><p>　　備選操作系統(tǒng)：Windows N

40、T , Windows 2000 Server , Windows XP</p><p><b>　　硬件配置</b></p><p>　　客戶端硬件選擇 ：CPU:奔騰4處理器 256MSDRAM</p><p>　　服務(wù)器端硬件選擇 ：Xeon 雙 CPU/1GB/RAID5 3x72GB</p><p>　　

41、第三章 系統(tǒng)調(diào)研及可行性分析</p><p><b>　　1、系統(tǒng)調(diào)研</b></p><p>　　正式開發(fā)管理信息系統(tǒng)之前進(jìn)行調(diào)研是非常必要的，其必要性主要表現(xiàn)在以下幾個(gè)方面。</p><p>　?。?）明確用戶的要求，以根據(jù)調(diào)查結(jié)果進(jìn)行可行性分析，確認(rèn)系統(tǒng)的開發(fā)是否可行。</p><p>　　（2）提出新系統(tǒng)的人員

42、并不都是系統(tǒng)研究人員，有些人對(duì)于其功能和處理數(shù)據(jù)的方法沒有明確的認(rèn)識(shí)。它們只是根據(jù)自己業(yè)務(wù)工作的需要提出了要求，系統(tǒng)開發(fā)人員要對(duì)此進(jìn)行詳細(xì)的調(diào)查和分析，確認(rèn)用戶的要求可以通過現(xiàn)有的計(jì)算機(jī)技術(shù)實(shí)現(xiàn)，保證開發(fā)的管理信息系統(tǒng)的功能與用戶提出的要求相吻合。</p><p>　?。?）企業(yè)的現(xiàn)行系統(tǒng)可能是手工系統(tǒng)，也可能是使用和計(jì)算機(jī)的系統(tǒng)，無論是何種情況，都要詳細(xì)地調(diào)查現(xiàn)行系統(tǒng)中信息處理的具體情況，系統(tǒng)內(nèi)部功能結(jié)構(gòu)，以便

43、設(shè)計(jì)出一個(gè)合理的、好的新系統(tǒng)邏輯模型，為新系統(tǒng)的設(shè)計(jì)工作打好基礎(chǔ)，保證整個(gè)系統(tǒng)開發(fā)的質(zhì)量。</p><p>　　總之，必要對(duì)現(xiàn)行系統(tǒng)進(jìn)行詳細(xì)的調(diào)查，明確用戶需求，保證開發(fā)的新系統(tǒng)的功能與用戶的要求相吻合，避免耗費(fèi)大量的人力、物力、財(cái)力，新系統(tǒng)的開發(fā)卻失敗的悲劇發(fā)生。</p><p><b>　　2、可行性分析概述</b></p><p>　　可

44、行性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進(jìn)行的，對(duì)新系統(tǒng)的開發(fā)從社會(huì)、技術(shù)、經(jīng)濟(jì)、管理等方面進(jìn)行分析，并得出新系統(tǒng)的開發(fā)工作可行、不可行、需要修改、追加投資、暫緩開發(fā)、分步實(shí)施等方案和結(jié)論，最后完成可行性分析。</p><p>　　可行性分析一般可定義為：可行性分析是在建設(shè)的前期對(duì)工程項(xiàng)目的一種考察和鑒定，對(duì)擬議中的項(xiàng)目進(jìn)行全面與綜合的技術(shù)、經(jīng)濟(jì)能力的調(diào)查，判斷它是否可行。</p><p>

45、;　　(1)可行性分析階段的主要工作包括以下幾個(gè)方面：</p><p>　?、傩孪到y(tǒng)目標(biāo)可行性分析：</p><p>　　分析新系統(tǒng)的目標(biāo)是否符合企業(yè)的現(xiàn)狀和發(fā)展的需要。</p><p><b>　?、谏鐣?huì)可行性分析：</b></p><p>　　社會(huì)可行性分析主要是指管理信息系統(tǒng)的開發(fā)是否符合國家法律、下策，是否能夠與

46、社會(huì)大系統(tǒng)實(shí)現(xiàn)良好的對(duì)接。</p><p><b>　　③技術(shù)可行性分析：</b></p><p>　　技術(shù)可行性分析是根據(jù)新系統(tǒng)的目標(biāo)來衡量是否具備所需要的技術(shù)，包括系統(tǒng)開發(fā)人員數(shù)量和水平，硬件方面，軟件方面及其它應(yīng)用技術(shù)。</p><p><b>　?、芙?jīng)濟(jì)可行性分析</b></p><p>　

47、　經(jīng)濟(jì)可行性分析主要是對(duì)開發(fā)新系統(tǒng)所投入的資金與系統(tǒng)投入使用后所帶來的經(jīng)濟(jì)效益進(jìn)行比較，確認(rèn)新系統(tǒng)是否會(huì)給企業(yè)帶來一定的經(jīng)濟(jì)效益。</p><p><b>　　⑤管理可行性分析：</b></p><p>　　管理可行性分析主要是分析企業(yè)現(xiàn)行的管理體制和企業(yè)領(lǐng)導(dǎo)是否具有現(xiàn)代化的管理意識(shí)和管理水平。</p><p><b>　　3、技術(shù)可

48、行性分析</b></p><p>　　技術(shù)可行性分析主要包括四個(gè)方面：目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)；新系統(tǒng)開發(fā)人員的數(shù)量和水平，即人力資源；硬件和軟件資源。</p><p><b>　　（1）技術(shù)支持：</b></p><p>　　首先根據(jù)新系統(tǒng)的目標(biāo)，考慮目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)。這里討論的技術(shù)必須是已經(jīng)普遍使

49、用的，而不是待研究的或正在研究的。</p><p><b>　　（2）硬件資源：</b></p><p>　　開發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個(gè)方面：</p><p>　　系統(tǒng)開發(fā)人員在管理信息系統(tǒng)的開發(fā)過程中所需要的計(jì)算機(jī)設(shè)備及其有關(guān)的外部設(shè)備；管理信息系統(tǒng)開發(fā)成功投入使用后，使用單位所應(yīng)具備的計(jì)算機(jī)設(shè)備及其有關(guān)的外圍設(shè)備。對(duì)硬件資源

50、進(jìn)行可行性分析時(shí)主要考慮計(jì)算機(jī)的主機(jī)內(nèi)存、類型、功能、聯(lián)網(wǎng)能力、安全保護(hù)措施以及輸入/輸出設(shè)備，外存儲(chǔ)器和聯(lián)網(wǎng)數(shù)據(jù)通信設(shè)備的配置、功能、效率等指標(biāo)是否符合系統(tǒng)方案設(shè)計(jì)要求，同時(shí)還要考慮計(jì)算機(jī)的性能/價(jià)格比。</p><p><b>　?。?）軟件資源</b></p><p>　　軟件資源的可行性分析主要考慮以下幾點(diǎn)是否滿足用戶的要求：</p><p

51、><b>　?、俨僮飨到y(tǒng)的選擇；</b></p><p><b>　?、诰幾g系統(tǒng)的選擇；</b></p><p>　?、蹟?shù)據(jù)庫管理系統(tǒng)的選擇；</p><p>　?、芨呒?jí)編程語言的選擇；</p><p>　?、轁h字處理系統(tǒng)的選擇；</p><p>　?、迲?yīng)用軟件包的選擇

52、。</p><p>　　本系統(tǒng)在開發(fā)前，與中心的領(lǐng)導(dǎo)和有關(guān)的操作人員密切溝通，認(rèn)真聽取他們的意見，并吸收他們的積極觀點(diǎn)，使本系統(tǒng)的開發(fā)在相當(dāng)大的程度上具有一定的先進(jìn)性和合理性。</p><p><b>　　第四章 系統(tǒng)分析</b></p><p><b>　　1、系統(tǒng)需求分析</b></p><p&g

53、t;　　系統(tǒng)分析是開發(fā)管理信息系統(tǒng)的關(guān)鍵性階段，是一個(gè)從不斷認(rèn)識(shí)和逐步細(xì)化的過程，是下一階段的工作基礎(chǔ)，是為下一階段進(jìn)行物理方案設(shè)計(jì)、解決“怎么做”提供依據(jù)，基關(guān)鍵性主要體現(xiàn)在“理解需求”和“表達(dá)需求”兩方面。</p><p>　　通過對(duì)現(xiàn)行系統(tǒng)的詳細(xì)調(diào)研，主要是從系統(tǒng)的角度理解用戶的需要，確定新系統(tǒng)的綜合要求，并提出這些需求的實(shí)現(xiàn)條件以及需求應(yīng)達(dá)到的標(biāo)準(zhǔn)，也就是確定新系統(tǒng)要做什么，做到什么程度。這些需求包括：&

54、lt;/p><p>　?。?）功能需求。確定新系統(tǒng)應(yīng)做什么，這是最主要的需求。</p><p>　　（2）性能需求。給出所開發(fā)的新系統(tǒng)的技術(shù)性能指標(biāo)，包括存儲(chǔ)容量限制、運(yùn)行時(shí)間限制、安全保密性等。</p><p>　?。?）環(huán)境需求。這是對(duì)系統(tǒng)運(yùn)行以及所處環(huán)境的要求。例如，在硬件方面采用什么機(jī)型、有什么硬件設(shè)備等；在軟件方面，采用什么支持系統(tǒng)運(yùn)行的系統(tǒng)軟件（指操作系統(tǒng)、

55、數(shù)據(jù)庫管理系統(tǒng)）。</p><p>　?。?）未來需求。這類要求是指目前不屬于系統(tǒng)開發(fā)的范圍，但將來隨著外界環(huán)境的變化以及系統(tǒng)的發(fā)展可能會(huì)提出的要求。了解這類要求的目的是在開發(fā)過程中，可對(duì)系統(tǒng)將來可能的擴(kuò)展與修改做準(zhǔn)備。一旦需要時(shí)，就比較容易進(jìn)行補(bǔ)充和修改了。</p><p><b>　　2、數(shù)據(jù)流圖</b></p><p>　　在了解了公司的

56、整體經(jī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ù)來源河去向。通過數(shù)據(jù)流圖來描述管理業(yè)務(wù)活動(dòng)</p><p>　　圖4.1數(shù)據(jù)流圖頂層圖</p><p><b>　　F1司機(jī)登記單<

57、/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

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

59、;</p><p><b>　　D5事故信息</b></p><p>　　第五章 系統(tǒng)總體設(shè)計(jì)</p><p><b>　　1、系統(tǒng)流程</b></p><p>　　該運(yùn)輸企業(yè)車輛管理系統(tǒng)的系統(tǒng)流程如圖5.1所示：</p><p><b>　　圖5.1系統(tǒng)流程圖&

60、lt;/b></p><p>　　2、系統(tǒng)功能分解圖如圖5.2所示</p><p>　　圖5.2系統(tǒng)功能分解圖</p><p>　　第六章 數(shù)據(jù)庫設(shè)計(jì)</p><p>　　1、E—R圖設(shè)計(jì)如圖6.1所示</p><p>　　圖6.1E—R圖設(shè)計(jì)</p><p><b>　　2、

61、數(shù)據(jù)表概述</b></p><p><b>　　表6.1數(shù)據(jù)表概述</b></p><p><b>　　2.1表詳細(xì)設(shè)計(jì)</b></p><p>　　1. driver (司機(jī)基本信息表) 表6.2</p><p>　　2．vehicle（車輛基本信息表）表6.3</p>

62、<p>　　3．Vehicle2(車輛附加信息表) 表6.4</p><p>　　4. statistic (運(yùn)營信息表)表6.5</p><p>　　5. repair (車輛維修信息表) 表6.6</p><p>　　6. accident(事故信息表) 表6.7</p><p>　　7．repairunit(維修單位信息表)表

63、6.8</p><p>　　2.2創(chuàng)建SQL基本語句；</p><p>　　1.創(chuàng)建事故信息基本語句及數(shù)據(jù)表如圖6.2；</p><p>　　CREATE TABLE [dbo].[accident] (</p><p>　　[sgid] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,<

64、/p><p>　　[sgdriver] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[sgdate] [datetime] NOT NULL ,</p><p>　　[sgplace] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p>

65、<p>　　[sgreason] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[sgopp_id] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[sgopp_dept] [char] (30) COLLATE Chinese_PRC_CI_AS NU

66、LL ,</p><p>　　[sgmode] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[sgvalue] [numeric](10, 2) NULL ,</p><p>　　[sgmemo] [text] COLLATE Chinese_PRC_CI_AS NULL </p>&l

67、t;p>　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]</p><p><b>　　GO</b></p><p><b>　　事故數(shù)據(jù)表圖6.2</b></p><p>　　2.創(chuàng)建司機(jī)信息基本語句及數(shù)據(jù)表如圖6.3；</p><p>　　CREATE TABL

68、E [dbo].[driver] (</p><p>　　[sjid] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[sjname] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[sjsex] [char] (2) CO

69、LLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[sjbirthday] [datetime] NULL ,</p><p>　　[sjaddress] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[sjfirstdate] [datetime] NULL ,<

70、/p><p>　　[sjtype] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[sjbegin_date] [datetime] NULL ,</p><p>　　[sjend_date] [datetime] NULL </p><p>　　) ON [PRIMARY]

71、</p><p><b>　　GO</b></p><p>　　司機(jī)信息數(shù)據(jù)表圖6.3</p><p>　　3.創(chuàng)建維修信息基本語句及數(shù)據(jù)表如圖6.4；</p><p>　　CREATE TABLE [dbo].[repair] (</p><p>　　[wxid] [char] (10) COL

72、LATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[wxdate] [datetime] NOT NULL ,</p><p>　　[wxdept] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[wxcontent] [char] (40) COLLATE Chi

73、nese_PRC_CI_AS NULL ,</p><p>　　[wxprice] [numeric](10, 2) NULL ,</p><p>　　[wxslave] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[wxmemo] [text] COLLATE Chinese_PRC_CI_AS N

74、ULL </p><p>　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　維修信息數(shù)據(jù)表圖6.4</p><p>　　4.創(chuàng)建運(yùn)營信息基本語句及數(shù)據(jù)表如圖6.5；</p><p>　　CREATE TAB

75、LE [dbo].[statistic] (</p><p>　　[yyid] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[yydriver] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[yybegin_date]

76、[datetime] NOT NULL ,</p><p>　　[yyend_date] [datetime] NOT NULL ,</p><p>　　[yydistance] [numeric](8, 2) NULL ,</p><p>　　[yywaste] [numeric](8, 2) NULL </p><p>　　) ON [P

77、RIMARY]</p><p><b>　　GO</b></p><p>　　運(yùn)營信息基本表圖6.5</p><p>　　5.創(chuàng)建車輛信息基本語句及數(shù)據(jù)表如圖6.6；</p><p>　　CREATE TABLE [dbo].[vehicle] (</p><p>　　[clid] [char]

78、(10) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[clkind] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[clowner] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p&

79、gt;　　[clcode1] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[clcode2] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[clcode3] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ,<

80、;/p><p>　　[cltotal] [numeric](8, 2) NULL ,</p><p>　　[clpassenger] [numeric](2, 0) NULL ,</p><p>　　[clregist_date] [datetime] NULL ,</p><p>　　[clcertifi_date] [datetime] NU

81、LL ,</p><p>　　[clcolor] [char] (4) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[cldriver] [char] (10) COLLATE Chinese_PRC_CI_AS NULL </p><p>　　) ON [PRIMARY]</p><p><b

82、>　　GO</b></p><p>　　車輛信息基本表圖6.6</p><p>　　第七章 主界面設(shè)計(jì)與分析</p><p>　　1、登錄界面如圖7.1</p><p><b>　　登陸界面圖7.1</b></p><p>　　2、主界面如圖7.2 </p>&l

83、t;p><b>　　主界面圖7.2</b></p><p><b>　　3、司機(jī)信息管理</b></p><p>　　添加司機(jī)信息圖7.3</p><p>　　修改司機(jī)信息如圖7.4</p><p>　　刪除司機(jī)信息如圖7.5</p><p>　　查詢司機(jī)信息圖7.6；

84、</p><p><b>　　4、車輛信息管理</b></p><p>　　添加車輛信息圖7.7</p><p>　　修改車輛信息如圖7.8</p><p>　　查詢車輛信息如圖7.9</p><p><b>　　5、業(yè)務(wù)管理</b></p><p>

85、<b>　　5.1運(yùn)營管理</b></p><p>　　添加運(yùn)營信息如圖7.10</p><p>　　查詢運(yùn)營信息如圖7.11</p><p><b>　　5.2維修管理</b></p><p>　　添加維修管理如圖7.13</p><p>　　查詢維修信息如圖7.14<

86、;/p><p><b>　　5.3事故信息管理</b></p><p>　　添加事故信息如圖7.15</p><p>　　查詢事故信息如圖7.16</p><p><b>　　第八章 結(jié)論</b></p><p>　　通過這次對(duì)運(yùn)輸公司管理系統(tǒng)的設(shè)計(jì)和開發(fā)，使我對(duì)Visua

87、l Basic 6.0有了更進(jìn)一步的認(rèn)識(shí)，尤其是對(duì)運(yùn)輸車輛數(shù)據(jù)庫系統(tǒng)后臺(tái)的設(shè)計(jì)和開發(fā)，使我對(duì)數(shù)據(jù)庫的掌握和使用有了很大的突破。</p><p>　　在這次設(shè)計(jì)過程中，讓我認(rèn)識(shí)到，在課堂里面和書本里面學(xué)的都是基礎(chǔ)，對(duì)與實(shí)際的開發(fā)時(shí)遠(yuǎn)遠(yuǎn)不夠的，這讓我明白，我還有更多的東西需要去學(xué)，通過這次的設(shè)計(jì)可開發(fā)，讓我體會(huì)到了開發(fā)一次系統(tǒng)是多么的不容易。</p><p><b>　　參考文獻(xiàn)&l

88、t;/b></p><p>　　[1]王珊，薩師煊.數(shù)據(jù)庫系統(tǒng)概論[M].高等教育出版社，2009.</p><p>　　[2]陳明銳.Visual Baisic程序設(shè)計(jì)及應(yīng)用教程[M].高等教育出版社，2008.</p><p>　　[3]錢樂秋，趙文耘，牛軍鈺.軟件工程[M].清華大學(xué)出版社，2010.</p><p>　　[4]黃

89、德才，許蕓，王文娟.數(shù)據(jù)庫原理及其應(yīng)用教程[M].科學(xué)出版社，2010.</p><p><b>　　附錄：</b></p><p>　　部分頁面主要代碼如下：</p><p><b>　　登錄界面部分代碼：</b></p><p>　　Private Declare Function GetUse

90、rName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long</p><p>　　Public OK As Boolean</p><p>　　Private Sub Form_Load()</p><

91、p>　　Dim sBuffer As String</p><p>　　Dim lSize As Long</p><p>　　sBuffer = Space$(255)</p><p>　　lSize = Len(sBuffer)</p><p>　　Call GetUserName(sBuffer, lSize)</p>

92、<p>　　If lSize > 0 Then</p><p>　　txtUserName.Text = Left$(sBuffer, lSize)</p><p><b>　　Else</b></p><p>　　txtUserName.Text = vbNullString</p><p><

93、;b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdCancel_Click()</p><p>　　OK = False</p><p><b>　　Me.Hide</b></p>&

94、lt;p><b>　　End Sub</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　If txtPassword.Text = "" Then</p><p><b>　　OK = True</b></p><p>&l

95、t;b>　　Me.Hide</b></p><p><b>　　Else</b></p><p>　　MsgBox "Invalid Password, try again!", , "Login"</p><p>　　txtPassword.SetFocus</p>&l

96、t;p>　　txtPassword.SelStart = 0</p><p>　　txtPassword.SelLength = Len(txtPassword.Text)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　

97、　事故列表部分代碼如下：Option Explicit</p><p>　　Public txtSQL As String</p><p>　　Dim mrc As ADODB.Recordset</p><p>　　Dim MsgText As String</p><p>　　Private Sub Form_Load()</p&g

98、t;<p><b>　　ShowTitle</b></p><p><b>　　ShowData</b></p><p>　　flagaEdit = True</p><p><b>　　End Sub</b></p><p>　　Private Sub Form

99、_Resize()</p><p>　　If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then</p><p>　　If Me.ScaleHeight < 10 * lblTitle.Height Then</p><p><b&

100、gt;　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 Then</p><p><b>　　Exit Sub</b></p>&l

101、t;p><b>　　End If</b></p><p>　　lblTitle.Top = lblTitle.Height</p><p>　　lblTitle.Left = (Me.Width - lblTitle.Width) / 2</p><p>　　msgList.Top = lblTitle.Top + lblTitle.He

102、ight + lblTitle.Height / 2</p><p>　　msgList.Width = Me.ScaleWidth - 200</p><p>　　msgList.Left = Me.ScaleLeft + 100</p><p>　　msgList.Height = Me.ScaleHeight - msgList.Top - 200</p

103、><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Public Sub RecordEdit()</p><p>　　Dim intCount As Integer</p><p>　　If msgList.Row

104、s > 1 Then</p><p>　　gintmode = EDIT</p><p>　　intCount = msgList.Row</p><p>　　gsSql = " where sgid='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "'

105、; and sgdate=cdate('" & Format(msgList.TextMatrix(msgList.Row, 2), "yyyy-mm-dd") & "') and sgplace='" & Trim(msgList.TextMatrix(msgList.Row, 3)) & "'"<

106、;/p><p>　　frmAcc1.Show 1</p><p><b>　　ShowData</b></p><p>　　Call MovCursor(intCount, msgList)</p><p><b>　　Else</b></p><p>　　Call Record

107、Add</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Public Sub FormClose()</p><p><b>　　Unload Me</b></p><p><

108、;b>　　End Sub</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&

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

110、= "delete from " & msTableName & " where sgid='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "' and sgdate='" & Format(msgList.TextMatrix(msgList.Row, 2), &q

111、uot;yyyy-mm-dd") & "' and sgplace='" & Trim(msgList.TextMatrix(msgList.Row, 3)) & "'"</p><p>　　dbHuaxia.Execute sSql, dbSQLPassThrough</p><p>&l

112、t;b>　　ShowData</b></p><p>　　If msgList.Rows > 1 Then</p><p>　　If intCount = msgList.Rows Then</p><p>　　MovCursor msgList.Rows - 1, msgList</p><p><b>　

113、　Else</b></p><p>　　MovCursor intCount, msgList</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p>

114、<p><b>　　End If</b></p><p><b>　　Exit Sub</b></p><p><b>　　myErr:</b></p><p><b>　　ShowError</b></p><p><b>　　En

115、d Sub</b></p><p>　　Public Sub RecordRefresh()</p><p>　　msSql = msSelect & msTableName & " where sgdate>='" & Format(DateAdd("m", -1, Now), "yyyy

116、-mm-dd") & "' and sgdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy</p><p>　　msBarText = "當(dāng)前數(shù)據(jù)時(shí)間范圍：" & Format(DateAdd(&q

117、uot;m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")</p><p><b>　　ShowData</b></p><p>　　sOrder0 = "+ {sgdate}"</p&

118、gt;<p>　　sOrder1 = ""</p><p><b>　　End Sub</b></p><p>　　Public Sub RecordAdd()</p><p>　　gintmode = Add</p><p>　　frmAcc1.Show 1</p>&l

119、t;p><b>　　ShowData</b></p><p><b>　　End Sub</b></p><p>　　Public Sub RecordFind()</p><p>　　frmAcc2.Show 1</p><p>　　If Trim(frmAcc2.sQSql & &

120、quot; ") <> "" Then</p><p>　　msSql = msSelect & msTableName & " where" & frmAcc2.sQSql</p><p>　　msSql = msSql & msOrderBy</p><p><b

121、>　　ShowData</b></p><p><b>　　End If</b></p><p>　　Unload frmAcc2</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Unload(Cancel As Integ

122、er)</p><p>　　flagaEdit = False</p><p>　　gintaMode = 0</p><p><b>　　End Sub</b></p><p>　　Public Sub RecordView()</p><p>　　If msgList.Rows > 1

123、= False Then</p><p>　　gintmode = View</p><p>　　gsSql = " where sgid='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "' and sgdate=cdate('" & Format(ms