數(shù)據(jù)庫(kù)課程設(shè)計(jì)----車(chē)輛管理系統(tǒng)_第1頁(yè)
已閱讀1頁(yè),還剩48頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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

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

3、 ……………………………………………………………………………. 1</p><p>  2.本課題的目的、內(nèi)容………………………………………………………………1</p><p>  第二章 開(kāi)發(fā)工具的選擇及系統(tǒng)的要求……………………………………………………...2</p><p>  1.開(kāi)發(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ù)庫(kù)設(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)車(chē)輛管理勢(shì)在必行。本系統(tǒng)結(jié)合公司實(shí)際的車(chē)輛管理制度,經(jīng)過(guò)實(shí)際的需求分析,采用功能強(qiáng)大的Visual Basic6.0作為開(kāi)發(fā)工具而開(kāi)發(fā)出來(lái)的單機(jī)版人事管理系統(tǒng)。</p><p>  整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā),完成車(chē)輛管理的全過(guò)程,包括新進(jìn)司機(jī)加入時(shí)人事檔案的建立、維修、事故、等一系列信息、員工信息查詢、車(chē)輛查詢、事故處理、事故記錄、老員工修改等管理工作。經(jīng)

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

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

13、功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。利用計(jì)算機(jī)可以集中管理車(chē)輛的運(yùn)營(yíng)、維修、事故、等一系列信息,可以有效管理企業(yè)每臺(tái)汽車(chē)的使用狀況,帶動(dòng)企業(yè)進(jìn)入車(chē)輛管理信息化、科學(xué)化、同時(shí)也可以節(jié)省人力、物力、財(cái)力、提高工作效率,使企業(yè)車(chē)輛管理更加科學(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)來(lái)說(shuō),不需要大型的數(shù)據(jù)庫(kù)系統(tǒng)。只需要一個(gè)操作方便,功能實(shí)用,能滿足本中心對(duì)數(shù)據(jù)的管理及需求的系統(tǒng)。我們的目標(biāo)就是在于開(kāi)發(fā)一個(gè)功能實(shí)用、操作方便,簡(jiǎn)單明了的運(yùn)輸管理系統(tǒng)。</p><p><b>  (2)內(nèi)容</b></p><p>  能夠錄

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

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

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

19、<p>  Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì),可用于開(kāi)發(fā)Windows環(huán)境下的種類(lèi)應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高,且功能強(qiáng)大,可以與Windows的專(zhuān)業(yè)開(kāi)發(fā)工具SDK相媲美,而且程序開(kāi)發(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)鏈接庫(kù)(DLL)

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

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

22、些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼,程序設(shè)計(jì)人員只需要編寫(xiě)實(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ì)語(yǔ)言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中

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

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

25、釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令,并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的過(guò)程中,隨時(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通過(guò)

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

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

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

29、單的面向?qū)ο蟮膸?kù)操作指令和多用戶數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL的編程技術(shù),為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了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)起來(lái),再嵌入(embed)某個(gè)應(yīng)用程序中,從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文字等各種信息的集合式的文件。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),這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成,文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相

32、聯(lián)系,并可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。</p><p>  動(dòng)態(tài)鏈接庫(kù)(DLL)</p><p>  Visual Basic是一種高級(jí)程序設(shè)計(jì)語(yǔ)言,不具備低級(jí)語(yǔ)言的功能,對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將C/C++或匯編語(yǔ)言編寫(xiě)的程序加入到Visual Basic應(yīng)用程序中,可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。此外,通過(guò)動(dòng)態(tài)鏈接庫(kù),還可以調(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ù)庫(kù)管理系統(tǒng),它功能強(qiáng)大操作簡(jiǎn)便,日益為廣大數(shù)據(jù)庫(kù)用戶所喜愛(ài)。越來(lái)越多的開(kāi)發(fā)工具提供了與SQL Server的接口。SQL Server 是一個(gè)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng),它最初是由Microsoft、Sybase 和Ashton-Tate三家公司共同開(kāi)發(fā)的。于1988 年

34、推出了第一個(gè)OS/2 版本,在Windows NT 推出后,Microsoft與Sybase 在SQL Server 的開(kāi)發(fā)上就分道揚(yáng)鑣了,Microsoft 將SQL Server 移植到Windows NT系統(tǒng)上,專(zhuān)注于開(kāi)發(fā)推廣SQL Server 的Windows NT 版本。</p><p>  SQL Server 2000 是Microsoft公司推出的SQL Server 數(shù)據(jù)庫(kù)管理系統(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ù)庫(kù)管理中,建立分布式關(guān)系數(shù)據(jù)庫(kù),并且也可以開(kāi)發(fā)桌面數(shù)據(jù)庫(kù)。事實(shí)上,SQL Server數(shù)據(jù)庫(kù)處理

36、的基本結(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)建立好的一些對(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)的用戶界面,使用戶得以:

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

38、限。</p><p>  ·在每個(gè)已注冊(cè)的服務(wù)器上定義并執(zhí)行所有 SQL Server 管理任務(wù)。</p><p>  ·通過(guò)喚醒調(diào)用 SQL 查詢分析器,交互地設(shè)計(jì)并測(cè)試 SQL 語(yǔ)句、批處理和腳本。</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è)車(chē)輛管理信息系統(tǒng)的系統(tǒng)配置。</p><p><b>  軟件配置</b></p><p>  數(shù)據(jù)庫(kù)軟件 : 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>  正式開(kāi)發(fā)管理信息系統(tǒng)之前進(jìn)行調(diào)研是非常必要的,其必要性主要表現(xiàn)在以下幾個(gè)方面。</p><p> ?。?)明確用戶的要求,以根據(jù)調(diào)查結(jié)果進(jìn)行可行性分析,確認(rèn)系統(tǒng)的開(kāi)發(fā)是否可行。</p><p> ?。?)提出新系統(tǒng)的人員

42、并不都是系統(tǒng)研究人員,有些人對(duì)于其功能和處理數(shù)據(jù)的方法沒(méi)有明確的認(rèn)識(shí)。它們只是根據(jù)自己業(yè)務(wù)工作的需要提出了要求,系統(tǒng)開(kāi)發(fā)人員要對(duì)此進(jìn)行詳細(xì)的調(diào)查和分析,確認(rèn)用戶的要求可以通過(guò)現(xiàn)有的計(jì)算機(jī)技術(shù)實(shí)現(xiàn),保證開(kāi)發(fā)的管理信息系統(tǒng)的功能與用戶提出的要求相吻合。</p><p> ?。?)企業(yè)的現(xiàn)行系統(tǒng)可能是手工系統(tǒng),也可能是使用和計(jì)算機(jī)的系統(tǒng),無(wú)論是何種情況,都要詳細(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)開(kāi)發(fā)的質(zhì)量。</p><p>  總之,必要對(duì)現(xiàn)行系統(tǒng)進(jìn)行詳細(xì)的調(diào)查,明確用戶需求,保證開(kāi)發(fā)的新系統(tǒng)的功能與用戶的要求相吻合,避免耗費(fèi)大量的人力、物力、財(cái)力,新系統(tǒng)的開(kāi)發(fā)卻失敗的悲劇發(fā)生。</p><p><b>  2、可行性分析概述</b></p><p>  可

44、行性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進(jìn)行的,對(duì)新系統(tǒng)的開(kāi)發(fā)從社會(huì)、技術(shù)、經(jīng)濟(jì)、管理等方面進(jìn)行分析,并得出新系統(tǒng)的開(kāi)發(fā)工作可行、不可行、需要修改、追加投資、暫緩開(kāi)發(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)的開(kāi)發(fā)是否符合國(guó)家法律、下策,是否能夠與

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

47、 經(jīng)濟(jì)可行性分析主要是對(duì)開(kāi)發(fā)新系統(tǒng)所投入的資金與系統(tǒng)投入使用后所帶來(lái)的經(jīng)濟(jì)效益進(jìn)行比較,確認(rèn)新系統(tǒng)是否會(huì)給企業(yè)帶來(lái)一定的經(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ù)能否支持所開(kāi)發(fā)的新系統(tǒng);新系統(tǒng)開(kāi)發(fā)人員的數(shù)量和水平,即人力資源;硬件和軟件資源。</p><p><b> ?。?)技術(shù)支持:</b></p><p>  首先根據(jù)新系統(tǒng)的目標(biāo),考慮目前有關(guān)的技術(shù)能否支持所開(kāi)發(fā)的新系統(tǒng)。這里討論的技術(shù)必須是已經(jīng)普遍使

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

50、進(jìn)行可行性分析時(shí)主要考慮計(jì)算機(jī)的主機(jī)內(nèi)存、類(lè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>  ①操作系統(tǒng)的選擇;</b></p><p><b> ?、诰幾g系統(tǒng)的選擇;</b></p><p>  ③數(shù)據(jù)庫(kù)管理系統(tǒng)的選擇;</p><p> ?、芨呒?jí)編程語(yǔ)言的選擇;</p><p> ?、轁h字處理系統(tǒng)的選擇;</p><p> ?、迲?yīng)用軟件包的選擇

52、。</p><p>  本系統(tǒng)在開(kāi)發(fā)前,與中心的領(lǐng)導(dǎo)和有關(guān)的操作人員密切溝通,認(rèn)真聽(tīng)取他們的意見(jiàn),并吸收他們的積極觀點(diǎn),使本系統(tǒng)的開(kāi)發(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)分析是開(kāi)發(fā)管理信息系統(tǒng)的關(guān)鍵性階段,是一個(gè)從不斷認(rèn)識(shí)和逐步細(xì)化的過(guò)程,是下一階段的工作基礎(chǔ),是為下一階段進(jìn)行物理方案設(shè)計(jì)、解決“怎么做”提供依據(jù),基關(guān)鍵性主要體現(xiàn)在“理解需求”和“表達(dá)需求”兩方面。</p><p>  通過(guò)對(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>  (1)功能需求。確定新系統(tǒng)應(yīng)做什么,這是最主要的需求。</p><p> ?。?)性能需求。給出所開(kāi)發(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ù)庫(kù)管理系統(tǒng))。</p><p>  (4)未來(lái)需求。這類(lèi)要求是指目前不屬于系統(tǒng)開(kāi)發(fā)的范圍,但將來(lái)隨著外界環(huán)境的變化以及系統(tǒng)的發(fā)展可能會(huì)提出的要求。了解這類(lèi)要求的目的是在開(kāi)發(fā)過(guò)程中,可對(duì)系統(tǒng)將來(lái)可能的擴(kuò)展與修改做準(zhǔn)備。一旦需要時(shí),就比較容易進(jìn)行補(bǔ)充和修改了。</p><p><b>  2、數(shù)據(jù)流圖</b></p><p>  在了解了公司的

56、整體經(jīng)營(yíng)管理活動(dòng)以及管理對(duì)信息系統(tǒng)的要求,在此基礎(chǔ)上,對(duì)各個(gè)部門(mén)的逐一調(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>  圖4.1數(shù)據(jù)流圖頂層圖</p><p><b>  F1司機(jī)登記單<

57、/b></p><p><b>  D1司機(jī)信息</b></p><p><b>  F2車(chē)輛登記單</b></p><p><b>  D2車(chē)輛信息</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)營(yíng)登記單</b></p><p><b>  D4運(yùn)營(yíng)信息</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è)車(chē)輛管理系統(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ù)庫(kù)設(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(車(chē)輛基本信息表)表6.3</p>

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

63、6.8</p><p>  2.2創(chuàng)建SQL基本語(yǔ)句;</p><p>  1.創(chuàng)建事故信息基本語(yǔ)句及數(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ī)信息基本語(yǔ)句及數(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)建維修信息基本語(yǔ)句及數(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)營(yíng)信息基本語(yǔ)句及數(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)營(yíng)信息基本表圖6.5</p><p>  5.創(chuàng)建車(chē)輛信息基本語(yǔ)句及數(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>  車(chē)輛信息基本表圖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、車(chē)輛信息管理</b></p><p>  添加車(chē)輛信息圖7.7</p><p>  修改車(chē)輛信息如圖7.8</p><p>  查詢車(chē)輛信息如圖7.9</p><p><b>  5、業(yè)務(wù)管理</b></p><p>

85、<b>  5.1運(yùn)營(yíng)管理</b></p><p>  添加運(yùn)營(yíng)信息如圖7.10</p><p>  查詢運(yùn)營(yíng)信息如圖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>  通過(guò)這次對(duì)運(yùn)輸公司管理系統(tǒng)的設(shè)計(jì)和開(kāi)發(fā),使我對(duì)Visua

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

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

89、德才,許蕓,王文娟.數(shù)據(jù)庫(kù)原理及其應(yīng)用教程[M].科學(xué)出版社,2010.</p><p><b>  附錄:</b></p><p>  部分頁(yè)面主要代碼如下:</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

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論