車庫車位管理信息系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)

1、車庫車位管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) PAGE 35目 錄 HYPERLINK l _TOC_250032 摘要3Summary:錯(cuò)誤！未定義書簽。 HYPERLINK l _TOC_250031 緒 論4 HYPERLINK l _TOC_250030 第一章緒論5為什么要開發(fā)一個(gè)停車場(chǎng)停車場(chǎng)車輛管理系統(tǒng)5 HYPERLINK l _TOC_250029 設(shè)計(jì)系統(tǒng)所要達(dá)到的要求6 HYPERLINK l _TOC_250028 第二章開發(fā)環(huán)境簡介7 HYPERLINK l _TOC_250027 系統(tǒng)的開發(fā)7 HYPERLINK l _TOC_250026 編程環(huán)境的選擇7 HYPERLINK

2、l _TOC_250025 關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)7 HYPERLINK l _TOC_250024 二者的結(jié)合（ADO）7 HYPERLINK l _TOC_250023 Windows 下的Visual Basic 編程環(huán)境9 HYPERLINK l _TOC_250022 使用 ACCESS2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫10 HYPERLINK l _TOC_250021 數(shù)據(jù)庫的概念10 HYPERLINK l _TOC_250020 新建一個(gè)數(shù)據(jù)庫12 HYPERLINK l _TOC_250019 修改已建的數(shù)據(jù)庫12 HYPERLINK l _TOC_250018 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系1

3、2 HYPERLINK l _TOC_250017 使用 ADO 數(shù)據(jù)控件訪問數(shù)據(jù)庫13 HYPERLINK l _TOC_250016 第三章MIS 系統(tǒng)基本理論16 HYPERLINK l _TOC_250015 MIS 系統(tǒng)的概念16 HYPERLINK l _TOC_250014 MIS 系統(tǒng)的開發(fā)梗概16 HYPERLINK l _TOC_250013 MIS 系統(tǒng)的開發(fā)原則16 HYPERLINK l _TOC_250012 MIS 系統(tǒng)的開發(fā)步驟17 HYPERLINK l _TOC_250011 開發(fā)方法的選擇17 HYPERLINK l _TOC_250010 系統(tǒng)的設(shè)計(jì)思想

4、18 HYPERLINK l _TOC_250009 第四章 概要設(shè)計(jì)和具體實(shí)現(xiàn)19 HYPERLINK l _TOC_250008 軟件模塊結(jié)構(gòu)設(shè)計(jì)19 HYPERLINK l _TOC_250007 模塊組織結(jié)構(gòu)圖19 HYPERLINK l _TOC_250006 系統(tǒng)流程圖19 HYPERLINK l _TOC_250005 主要模塊分析21 HYPERLINK l _TOC_250004 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)33 HYPERLINK l _TOC_250003 創(chuàng)建數(shù)據(jù)庫33 HYPERLINK l _TOC_250002 總結(jié)35 HYPERLINK l _TOC_250001 致謝36

5、 HYPERLINK l _TOC_250000 參考文獻(xiàn)36摘要隨著我國現(xiàn)代化進(jìn)程的不斷加快，私家車的數(shù)量急劇增加，各類停車場(chǎng)的車流量不斷增多，對(duì)機(jī)動(dòng)車的保管越來越成為社會(huì)倍受關(guān)注的問題。本論文針對(duì)現(xiàn)在普遍采用的人工收費(fèi)管理方法存在的弊端，提出了一套由 Visual Basic6.0 開發(fā)設(shè)計(jì)的車庫車位管理信息系統(tǒng)，數(shù)據(jù)庫采用 Microsoft Access 建立， 使用 ODBC 訪問數(shù)據(jù)庫，使用 ADO 操作數(shù)據(jù)庫，采用流行的 C/S 結(jié)構(gòu)，也就是客戶端/ 服務(wù)器模式。該系統(tǒng)主要采用在入口發(fā)放帶有該車進(jìn)場(chǎng)時(shí)間、車牌號(hào)、車型、識(shí)別該車身份的車輛標(biāo)識(shí)號(hào)的入場(chǎng)憑證，在出口系統(tǒng)根據(jù)車輛標(biāo)識(shí)號(hào)在

6、數(shù)據(jù)庫中自動(dòng)查找該車信息，并自動(dòng)計(jì)費(fèi)，收取停車費(fèi)。當(dāng)停車場(chǎng)車位已滿時(shí)系統(tǒng)報(bào)警，禁止車輛駛?cè)?。?duì)于一些特殊人群，系統(tǒng)提供了幾種類型的卡供他們使用。停車場(chǎng)管理者可以根據(jù)需要隨時(shí)對(duì)系統(tǒng)預(yù)定義參數(shù)進(jìn)行調(diào)整。根據(jù)該系統(tǒng)的功能共分為七個(gè)模塊：登錄模塊、計(jì)費(fèi)模塊、查詢模塊、卡管理模塊、用戶管理模塊、報(bào)表模塊、參數(shù)設(shè)置模塊，文中對(duì)各模塊的功能、操作界面、工作流程做了詳細(xì)的介紹。關(guān)鍵字 ：車庫車位管理信息系統(tǒng)Visual basic 6.0access系統(tǒng)開發(fā)MISODBC、ADO、C/S 結(jié)構(gòu)、緒 論在現(xiàn)代社會(huì)中管理的作用越來越顯得重要和突出。一般來講，管理通過計(jì)劃、組織、指導(dǎo)與領(lǐng)導(dǎo)、控制等手段，為組織制定目

7、標(biāo)，應(yīng)用組織的各種要素，以實(shí)現(xiàn)組織的目標(biāo)。對(duì)企業(yè)來說，人們按照一定的營銷計(jì)劃、人力、物力資源，對(duì)人員、物質(zhì)、資金等加以計(jì)劃和協(xié)調(diào)，以達(dá)到預(yù)期的目的，即稱為企業(yè)管理。傳統(tǒng)的企業(yè)管理活動(dòng)中，把人、才、物作為企業(yè)的主要資源。但是隨著社會(huì)化大生產(chǎn)的不斷擴(kuò)大和社會(huì)對(duì)產(chǎn)品多樣化的需求，人們?cè)絹碓街匾曅畔⒃谏a(chǎn)經(jīng)營及企業(yè)管理中的作用，并把它當(dāng)做企業(yè)的一種極其重要的資源，人們稱之為“信息資源”，信息資源的處理已經(jīng)成為當(dāng)今世界上一項(xiàng)主要的社會(huì)活動(dòng)。同樣，停車場(chǎng)中也不例外，其中加強(qiáng)對(duì)車位信息的管理，一方面能更好為車主服務(wù)，另一方面能加強(qiáng)對(duì)停車場(chǎng)效益的監(jiān)控。本世紀(jì)以來，由于社會(huì)生產(chǎn)力的迅速發(fā)展和科學(xué)技術(shù)的突飛猛進(jìn)，

8、人們進(jìn)行信息交流的深度和廣度不斷增加，管理所需要的信息量急劇增長，同時(shí)對(duì)信息的處理要求及時(shí)、準(zhǔn)確，這導(dǎo)致了傳統(tǒng)的信息處理方法和手段已不能適應(yīng)現(xiàn)代管理的需要；電子計(jì)算機(jī)的誕生和在信息處理中的應(yīng)用，標(biāo)志著一個(gè)嶄新時(shí)代“信息時(shí)代”的開始，它使企業(yè)管理現(xiàn)代化成為可能。一定意義上說，管理信息系統(tǒng)的產(chǎn)生和發(fā)展是建立在電子計(jì)算機(jī)基礎(chǔ)之上的。硬件方面，自 1946 年第一臺(tái)電子計(jì)算機(jī)誕生以來，計(jì)算機(jī)技術(shù)的發(fā)展可謂日新月異，從龐大的只能在實(shí)驗(yàn)室里供研究使用的計(jì)算機(jī)到如今能適應(yīng)不同環(huán)境滿足不同需求的各種各樣的計(jì)算機(jī)；運(yùn)算速度從每秒幾千次到每秒幾百億次；處理器從焊有上百萬個(gè)電子管的大的驚人的電子板到只有指甲大小的集

9、成電路；現(xiàn)在計(jì)算機(jī)在硬件方面的發(fā)展已達(dá)到了每三個(gè)月更新?lián)Q代一次的驚人速度。軟件方面，也已從機(jī)器語言、匯編語言、高級(jí)語言發(fā)展到現(xiàn)如今的第四代語言非結(jié)構(gòu)化、面向?qū)ο?、可視化的語言。第一章緒論為什么要開發(fā)一個(gè)多出入口停車場(chǎng)車場(chǎng)管理系統(tǒng)信息作為生產(chǎn)力中最活躍的因素，很早就在人類經(jīng)濟(jì)生活中發(fā)揮著不可替代的作用，但把信息納入企業(yè)經(jīng)營管理系統(tǒng)中高效處理和應(yīng)用是在計(jì)算機(jī)發(fā)明以后的 50 年代末。目前人們所提到的管理信息系統(tǒng)，通常是指以計(jì)算機(jī)為工具，對(duì)管理信息進(jìn)行收集、存貯、檢索、加工和傳遞，使其應(yīng)用于組織機(jī)構(gòu)及企業(yè)管理領(lǐng)域的“人機(jī)系統(tǒng)”，該系統(tǒng)是 70 年代初“后工業(yè)經(jīng)濟(jì)”時(shí)代的產(chǎn)物，在企業(yè)管理信息系統(tǒng)在其發(fā)

10、展的初期， 是單一的人機(jī)系統(tǒng)，系統(tǒng)功能簡單，效率低，對(duì)管理的作用有限。進(jìn)入 2 0 世紀(jì) 80 年代末，隨著計(jì)算機(jī)網(wǎng)絡(luò)和通信技術(shù)的大力發(fā)展，企業(yè)管理信息系統(tǒng)進(jìn)入網(wǎng)絡(luò)化的發(fā)展時(shí)期。世界發(fā)達(dá)國家已建立起了完善的先進(jìn)的管理信息系統(tǒng)體系，在其社會(huì)經(jīng)濟(jì)發(fā)展領(lǐng)域中發(fā)揮著巨大的作用。我國的管理信息系統(tǒng)大發(fā)展是在 80 年代末 90 年代初，國家相繼建立起了“金卡”、“金關(guān)”、金橋“工程，多數(shù)企事業(yè)單位建立了局域網(wǎng)和廣域網(wǎng)管理信息系統(tǒng)。隨著世界經(jīng)濟(jì)和我國經(jīng)濟(jì)逐步向知識(shí)經(jīng)濟(jì)邁進(jìn)，無論是基于工業(yè)經(jīng)濟(jì)的管理信息系統(tǒng)，還是面向少數(shù)專家和管理人員的專家系統(tǒng)(ES) 或決策支持系統(tǒng)(DSS) ，其處理對(duì)象和服務(wù)對(duì)象，自身

11、的系統(tǒng)結(jié)構(gòu)，處理能力，都有了進(jìn)一步的發(fā)展。停車場(chǎng)管理（Car Park Management）并不是一個(gè)新鮮詞。想想看，您是如何管理您的車輛信息的？其實(shí)您在日常生活中不自覺地運(yùn)用著各種管理方法。但科學(xué)管理的前提是建立正確的管理觀、正確管理科學(xué)管理的含義。如何科學(xué)管理？正確的管理觀念非常重要，科學(xué)管理方式選擇將成為決定車輛貧富差距的關(guān)鍵性因素。停車場(chǎng)管理的核心是投資收益的最大化和車輛信息分配合理化的集合。管理服務(wù)通過充分利用各種管理工具，幫助您達(dá)到合理分配的目的、滿足您對(duì)管理安全性、收益性等多樣化要求。開發(fā)一個(gè)停車場(chǎng)車輛管理軟件迎合了現(xiàn)代的公司發(fā)展趨勢(shì)，對(duì)居民合理管理公司和他人的聯(lián)系信息起到重要

12、意義。設(shè)計(jì)系統(tǒng)所要達(dá)到的要求目標(biāo)系統(tǒng)應(yīng)該達(dá)到以下要求：1、時(shí)間經(jīng)濟(jì)性。優(yōu)化邏輯設(shè)計(jì)與物理設(shè)計(jì)，使系統(tǒng)運(yùn)行效率高，反映速度快。2、可靠性。能連續(xù)準(zhǔn)確的處理業(yè)務(wù)，有較強(qiáng)的容錯(cuò)能力。3、可理解性。用戶容易理解和使用該系統(tǒng)。4、可維護(hù)性和適應(yīng)性。系統(tǒng)應(yīng)易于修改、易于擴(kuò)充、易于維護(hù)，能夠適應(yīng)業(yè)務(wù)不斷發(fā)展變化的需要。5、可用性。目標(biāo)系統(tǒng)功能齊全，能夠完全滿足業(yè)務(wù)需求。6、安全保密性。保證系統(tǒng)的物理安全、數(shù)據(jù)存儲(chǔ)和存取的安全與保密、數(shù)據(jù)傳輸?shù)陌踩c保密，做好使用人員的授權(quán)管理。第二章開發(fā)環(huán)境簡介系統(tǒng)的開發(fā)編程環(huán)境的選擇微軟公司的 Visual Basic 6.0 是 Windows 應(yīng)用程序開發(fā)工具，使目前

13、最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng) VB 是一個(gè)相對(duì)較好的選擇。關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)ACCESS 2000 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。ACCESS 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，ACCESS 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。ACCESS 也提供了數(shù)據(jù)存

14、儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。ACCESS 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，ACCESS 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。二者的結(jié)合（ADO）微軟的 JET 數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作。Visual Basic、ACCESS 以及其他微軟的軟件產(chǎn)品都是通過共用 JET 數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。ADO 控件在數(shù)據(jù)庫中的信息與將信息顯

15、示給用戶看的 Visual Basic 程序之間架起了一座橋梁。們可以設(shè)置 ADO 控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的哪個(gè)部分。缺省情況下，ADO 控件根據(jù)數(shù)據(jù)庫中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè) dynaset-type（動(dòng)態(tài)集合）類型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。ADO 控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將 ADO 控件放置在窗體中之后，們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。ADO（ActiveX Data Objects）是基于組件的數(shù)據(jù)庫編程接口，它是一個(gè)和編程語言無關(guān)的COM 組件系統(tǒng)。本

16、文主要介紹用 ADO 編程所需要注意的技巧和在VC 下進(jìn)行ADO 編程的模式，并對(duì) CExtensions 進(jìn)行了簡單的討論，希望對(duì) ADO 開發(fā)人員有一定的幫助作用。因?yàn)?ADO 是一個(gè)和編程語言無關(guān)的 COM 組件系統(tǒng)，所以這里討論的要點(diǎn)適用于所有的編程語言和編程環(huán)境，比如：VB、VBScript、VC、Java 等等。ADO 定義了一個(gè)可編程的對(duì)象集合.ADO 對(duì)象模型如圖所示:對(duì)于 ADO 其中對(duì)象來說,覺得比較重要是:Command,Connection,Recordset 對(duì)象。雖然嚴(yán)格的說這是不準(zhǔn)確的,但根據(jù)的實(shí)際經(jīng)驗(yàn)確實(shí)如此。下面就分別來談一下。、Connection 對(duì)象：C

17、onnection 對(duì)象用于建立與數(shù)據(jù)庫的連接。通過連接可從應(yīng)用程序訪問數(shù)據(jù) 源。它保存諸如指針類型,連接字符串,查詢超時(shí),連接超時(shí)和缺省數(shù)據(jù)庫這樣的連接信息。、Command 對(duì)象：在建立 Connection 后,可以發(fā)出命令操作數(shù)據(jù)源。一般情況下,Command 對(duì)象可以在數(shù)據(jù)庫中添加,刪除或更新數(shù)據(jù),或者在表中進(jìn)行數(shù)據(jù)查詢。ommand 對(duì)象在定義查詢參數(shù)或執(zhí)行一個(gè)有輸出參數(shù)的存儲(chǔ)過程時(shí)非常有用。、Recordset 對(duì)象：Recordset 對(duì)象只代表一個(gè)記錄集,這個(gè)記錄集是一個(gè)連接的數(shù)據(jù)庫中的表,或者是Command 對(duì)象的執(zhí)行結(jié)果返回的記錄集。在 ADO 對(duì)象模型中,是在行中檢查

18、和修改數(shù)據(jù)的最主要的方法,所有對(duì)數(shù)據(jù)的操作幾乎都是在 Recordset 對(duì)象中完成的。ecord 對(duì)象用于指定行,移動(dòng)行,添加,更改,刪除記錄。下面就具體地說說如何用 ADO 存取數(shù)據(jù),在實(shí)際編程過程中使用 ADO 的一個(gè)典型的存取數(shù)據(jù)的步驟為：、數(shù)據(jù)源、記錄集對(duì)象、記錄集、連接Windows 下的Visual Basic編程環(huán)境Visual Basic（簡稱 VB）是一種可視化的、事件驅(qū)動(dòng)型的 Windows 應(yīng)用程序開發(fā)工具，它在 GUI 設(shè)計(jì)、繪圖、制表、運(yùn)算、通信和多媒體開發(fā)方面都具有簡單易行、功能強(qiáng)大等優(yōu)點(diǎn)，所以越來越受到開發(fā)人員的親睞。同時(shí)，VB 在數(shù)據(jù)庫開發(fā)方面也具有Foxpr

19、o 所遠(yuǎn)不能及的強(qiáng)大功能。VB 能夠讀取和訪問 ACCESS、Excel、DbaseX、Foxpro、Btrieve 和 ODBC 等多種數(shù)據(jù)庫，并能利用 VB 自身所帶的數(shù)據(jù)庫引擎創(chuàng)建 ACCESS 數(shù)據(jù)庫。所以 VB 在管理信息系統(tǒng)（MIS）的開發(fā)和建設(shè)方面得到了是益廣泛的應(yīng)用。現(xiàn)在， 筆者就 VB 應(yīng)用數(shù)據(jù)庫的一些方法作一簡單的介紹。VB 訪問數(shù)據(jù)庫通常有三種途徑：第一，通過數(shù)據(jù)庫控制控件 Data Control 訪問； 第二，通過 VB 提供的數(shù)據(jù)庫對(duì)象變量編程訪問；第三，通過 ODBC 接口訪問 ODBC API 函數(shù)。在這三種方法中，第一種方法操作起來最方便、靈活、易于掌握，同時(shí)

20、也最能體現(xiàn) Visual Basic 面向?qū)ο蟮奶厣?，故這里以 Foxpro2.5 的數(shù)據(jù)庫為例，介紹數(shù)據(jù)庫控制控件（Data Control）訪問數(shù)據(jù)庫的方法與步驟：一、 在 Form 窗口中加入 Data Control 控件用鼠標(biāo)在工具窗口的 Data Control 控件按鈕上雙擊左鍵，該對(duì)象即出現(xiàn)在 Form 窗口的中間（控件名為 Data1），用鼠標(biāo)調(diào)整好控件的大小及位置。如工具箱中無此控件，可打開主菜單的 Tools/Custom，在列表中選中 Microsoft Data Control 復(fù)選框， 確認(rèn)后即可將此控件加入到工具箱中去。二、 設(shè)置聯(lián)接庫用鼠標(biāo)單擊 Data1，按下

21、 F4，打開屬性窗口，設(shè)置 Connect 屬性為 Foxpro2.5，設(shè)置 DatabaseName 為 c:foxprowstudent.dbf（假設(shè)磁盤上已有這個(gè)文件）。三、 加入字段顯示、編輯控件（數(shù)據(jù)庫捆綁控件）在 Form 窗口中加入 DGrid 控件，如不在此控件，可打開主菜單 Tools/Custom， 在列表中選擇 Apex Data BroundGrid 復(fù)選框，確認(rèn)后即可向工具箱中加入此控件。在Form 窗口中單擊選中此控件（DGrid1），按下 F4 打開屬性窗口，設(shè)置 Datasource 屬性為 Data1，在 Form 窗口中用鼠標(biāo)右鍵單擊控件 DGrid1，選擇

22、Retrieve Fields ；再用鼠標(biāo)右鍵單擊控件 DGrid1，選擇 Edit，用鼠標(biāo)調(diào)整控件及有關(guān)字段大??；再用鼠標(biāo)右鍵單擊控件 DGrid1，選擇 Properties（屬性），在彈出窗口中，選擇 Colums 標(biāo)簽， 在下拉列表中選 Colum1，將 Caption 屬性改為“學(xué)號(hào)”，選擇 Colum2，Caption 屬性改為“姓名”，選擇 Colum3、4 將 Caption 屬性改為“性別”、“專業(yè)”，按下“確定” 按鈕。再向 Form 窗口中加入一個(gè)按鈕控件，將 Caption 屬性設(shè)置為“退出”，雙擊該控件（Command1），在代碼窗口中寫入“END”，存盤。此時(shí)，一個(gè)

23、具備數(shù)據(jù)庫讀寫、瀏覽功能的應(yīng)用程序就建立了，按下 F5 運(yùn)行，通過單擊 Data1 的各按鈕即可看出當(dāng)前記錄的變化情況。使用ACCESS2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等。所謂數(shù)據(jù)庫（Database）就是指按一定組織方式存儲(chǔ)再一起的，相互有關(guān)的若干個(gè)數(shù)據(jù)的結(jié)合，數(shù)據(jù)庫管理系統(tǒng)（Database Manage

24、ment System）就是一種操縱和管理數(shù)據(jù)庫的大型軟件，簡稱 DBMS,他們建立在操作系統(tǒng)的基礎(chǔ)上，對(duì)數(shù)據(jù)庫進(jìn)行統(tǒng)一的管理和控制，其功能包括數(shù)據(jù)庫定義，數(shù)據(jù)庫管理，數(shù)據(jù)庫建立和維護(hù)，于操作系統(tǒng)通信等。DBMS 通常由數(shù)據(jù)字典，數(shù)據(jù)描述語言及其編譯程序，數(shù)據(jù)操縱（查詢）語言及其編譯程序，數(shù)據(jù)庫管理例行程序等部分組成。關(guān)系數(shù)據(jù)庫是以關(guān)系模型為基礎(chǔ)的數(shù)據(jù)庫，是根據(jù)表、記錄和字段之間的關(guān)系進(jìn)行組織和訪問的一種數(shù)據(jù)庫，它通過若干個(gè)表（Table）來存取數(shù)據(jù)，并且通過關(guān)系（Relation）將這些表聯(lián)系在一起，關(guān)系數(shù)據(jù)庫提供了成為機(jī)構(gòu)化查詢語言（SQL）標(biāo)準(zhǔn)接口，該接口允許使用多種數(shù)據(jù)庫工具和產(chǎn)品，關(guān)

25、系數(shù)據(jù)庫是目前最廣泛應(yīng)用的數(shù)據(jù)庫。在 Visual Basic 中，關(guān)系型數(shù)據(jù)庫一般可以分為兩類：一類是桌面數(shù)據(jù)庫，例如ACCESS、Paradox、FoxPro、Dbase,另一類就是停車場(chǎng)車輛管理/服務(wù)器數(shù)據(jù)庫，例如ACCESS、Oracle 和 Sybase 等。一般而言，桌面數(shù)據(jù)庫主要應(yīng)用于小型的、單機(jī)的數(shù)據(jù)庫應(yīng)用程序。也是初學(xué)者常用的數(shù)據(jù)庫類型。實(shí)現(xiàn)起來比較方便，但同時(shí)也只能提供數(shù)據(jù)的存取功能。它主要用于小型的、單機(jī)的、單用戶的數(shù)據(jù)庫管理系統(tǒng)。管理信息系統(tǒng)的數(shù)據(jù)庫選用Microsoft 公司的ACCESS 產(chǎn)品作為數(shù)據(jù)庫應(yīng)用程序。目前的ACCESS 2000 是Microsoft 強(qiáng)

26、大的桌面數(shù)據(jù)庫平臺(tái)的第六代產(chǎn)品，是3 2 位ACCESS 的第三個(gè)版本。ACCESS 有以下一些基本定義：數(shù)據(jù)庫是一個(gè)包含各種 ACCESS “對(duì)象”(表、查詢、窗體、報(bào)表、宏和模塊)的文件，ACCESS 中所有工作都是建立在此基礎(chǔ)之上的。表是存放數(shù)據(jù)的容器，被設(shè)計(jì)成行和列的格式，就像電子表中的那樣。每一列叫做一個(gè)“字段”，包含特定類型的信息，如姓名或?qū)W歷。每一行稱為一個(gè)“記錄”，包含與單個(gè)實(shí)體有關(guān)的所有信息，如某個(gè)員工的姓名、性別、所在部門、學(xué)歷等。對(duì)于像ACCESS 這樣的關(guān)系數(shù)據(jù)庫管理程序，一個(gè)數(shù)據(jù)庫通常包含幾個(gè)存放相關(guān)數(shù)據(jù)的不同表。查詢是一個(gè) ACCESS 對(duì)象，它詢問數(shù)據(jù)庫中有關(guān)數(shù)據(jù)

27、的問題。根據(jù)設(shè)計(jì)方法的不同，查詢能夠在數(shù)據(jù)庫中檢索并組合來自不同表的數(shù)據(jù)。例如，可以設(shè)計(jì)一個(gè)查詢來告知在公司中工作超過 1 年的職員有多少。查詢還可以對(duì)一組數(shù)據(jù)執(zhí)行操作，如更新或刪除某組記錄。窗體是一個(gè)窗口，它提供一種很方便的途徑來查看數(shù)據(jù)庫中已有記錄或向數(shù)據(jù)庫中增添新記錄。在 ACCESS 中，可以創(chuàng)建一個(gè)窗體，用來同時(shí)查閱單個(gè)表或多個(gè)表中的數(shù)據(jù)，還可以打印和顯示窗體。報(bào)表是一個(gè) ACCESS 對(duì)象，設(shè)計(jì)來顯示數(shù)據(jù)，其作用類似于窗體，但主要是用于數(shù)據(jù)打印，不能輸入數(shù)據(jù)。頁是一種特殊類型的窗體，它使用戶能夠利用 Web 瀏覽器查看和編輯 ACCESS 的表。宏用來保存 ACCESS 中的一系列

28、操作?？勺詣?dòng)執(zhí)行一些日常的任務(wù)，以便簡化在ACCESS 中的工作。模塊是用 Visual Basic for Applications(VBA) 編寫的過程，VBA 是 ACCESS 的基礎(chǔ)程序設(shè)計(jì)語言。利用 VBA 可以編寫程序代碼來完成 ACCESS 宏所不能完成的特定任務(wù)。新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。、標(biāo)識(shí)需要的數(shù)據(jù)；、收集被標(biāo)識(shí)的字段到表中；、標(biāo)識(shí)主關(guān)鍵字字段；、繪制一個(gè)簡單的數(shù)據(jù)圖表；、規(guī)范數(shù)據(jù)；、標(biāo)識(shí)指定字段的信息；、創(chuàng)建物理表。修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪

29、除記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。對(duì)表的行和列都有特殊的叫法

30、，每一列叫做一個(gè)“字段”。每個(gè)字段包含某一專題的信息。就像“停車場(chǎng)車輛管理”數(shù)據(jù)庫中，“姓名”、“聯(lián)系電話”這些都是表中所有行共有的屬性，所以把這些列稱為“姓名”字段和“聯(lián)系電話”字段。把表中的每一行叫做一個(gè)“記錄”，每一個(gè)記錄包含這行中的所有信息，就像在停車場(chǎng)車輛管理數(shù)據(jù)庫中某車輛全部的信息，但記錄在數(shù)據(jù)庫中并沒有專門的記錄名，常常用它所在的行數(shù)表示這是第幾個(gè)記錄。數(shù)據(jù)庫的結(jié)構(gòu)創(chuàng)建好了，接下來們需要做的就是對(duì)數(shù)據(jù)庫進(jìn)行一系列的基本操作。增加記錄：在“數(shù)據(jù)表”視圖或“窗體”視圖中打開相應(yīng)的窗體，單擊工具欄上的“新記錄“按鈕 ，鍵入所需數(shù)據(jù)，然后按TAB 鍵轉(zhuǎn)至下一個(gè)字段，在記錄末尾，按TAB

31、鍵轉(zhuǎn)至下一個(gè)記錄。編輯記錄：如果要編輯字段中的數(shù)據(jù)，單擊要編輯的字段，如果要替換整個(gè)字段的值，指向字段的最左邊，在鼠標(biāo)變?yōu)榧犹?hào)時(shí)，單擊該字段，鍵入要插入的文本。注意：如果鍵入有錯(cuò)，可按BACKSPACE 鍵；如果要取消對(duì)當(dāng)前字段的更改，按 ESC 鍵；如果要取消對(duì)整個(gè)記錄的更改，在移出該字段之前再次按ESC 鍵，當(dāng)從一個(gè)記錄移動(dòng)到其它記錄時(shí)，ACCESS 將保存對(duì)該記錄的修改。復(fù)制或移動(dòng)數(shù)據(jù)：在其它應(yīng)用程序，如 Excel、Word 中，選擇要復(fù)制或移動(dòng)的一至多行。如果是從 Word 中復(fù)制數(shù)據(jù)，應(yīng)確保記錄在選擇之前已經(jīng)在表中排列好或已經(jīng)使用制表符分隔開，如果粘貼數(shù)據(jù)到數(shù)據(jù)表中，應(yīng)確保數(shù)據(jù)表中

32、的列與要復(fù)制或移動(dòng)的數(shù)據(jù)的順序一致，如果粘貼數(shù)據(jù)到窗體上，而窗體上相應(yīng)的控件名稱與復(fù)制數(shù)據(jù)的列名相同，ACCESS 將粘貼數(shù)據(jù)到名稱相同的控件上。在 ACCESS 中，打開要向其中粘貼記錄的數(shù)據(jù)表或窗體，如果要替換現(xiàn)有記錄，選擇要替換的記錄，然后單擊工具欄上的“粘貼追加”或“粘貼”按鈕 ；如果窗體中的記錄選定器不可用，要選擇當(dāng)前記錄，可單擊“編輯”菜單中的“選擇記錄”命令。刪除記錄：單擊要?jiǎng)h除的記錄，單擊工具欄上的“刪除記錄”按鈕 。使用 ADO 數(shù)據(jù)控件訪問數(shù)據(jù)庫ADO(Active Data Objects)是一種新的數(shù)據(jù)訪問方式，具有以下特征：有一個(gè)簡化的對(duì)象模型與其他 Microsof

33、t 和非 Microsoft 技術(shù)更加緊密的集成。是一個(gè)本地和遠(yuǎn)程數(shù)據(jù)訪問、遠(yuǎn)程和斷開連接的記錄集、用戶可以訪問的數(shù)據(jù)綁定接口以及層次化的記錄集的通用接口。XX 人事勞資管理信息系統(tǒng)通過ADO 這個(gè)數(shù)據(jù)控件來訪問數(shù)據(jù)庫，首先，安裝 ADO 控件要在簡體中文 VISUAL BASIC6.0 企業(yè)版中注冊(cè)后才能使用。ADO(ActiveX Data Object)是微軟提出的數(shù)據(jù)訪問接口，它實(shí)現(xiàn)了 RDO 的絕大多數(shù)功能，另外還增加了一些用戶以前沒有接觸到的特征。Visual Basic 6.0 可以很好地支持 ADO 和 OLE DB 數(shù)據(jù)訪問模式。在 ADO2.0 中包含了數(shù)據(jù)綁定、可視化設(shè)計(jì)

34、工具以及 OLE DB 數(shù)據(jù)源書寫模板等新的內(nèi)容。在 Visual Basic6.0 中，ADO 的數(shù)據(jù)環(huán)境設(shè)計(jì)器(Data Environment Designer)取代了 Visual Basic 5.0 中的 RDO 的用戶連接設(shè)計(jì)器(User Connection Designer)。User Connection 對(duì)象只支持ODBC 數(shù)據(jù)源，而Data Environment 對(duì)象可以連接所有的OLE DB 數(shù)據(jù)源 oADO 對(duì)象模型定義了一個(gè)可編程的分層的對(duì)象集合，它支持部件對(duì)象模型(COM) 和 OLE DB 數(shù)據(jù)源。與其他的數(shù)據(jù)訪問對(duì)象相比，包含在 ADO 的對(duì)象少得多，也更加

35、容易使用。ADO 對(duì)象模型中包含了 3 個(gè)一般用途的對(duì)象：Connection、Command 和 Recordset。程序開發(fā)人員可以創(chuàng)建這些對(duì)象并且使用這些對(duì)象訪問數(shù)據(jù)庫。在 ADO 對(duì)象模型中還有其他幾個(gè)對(duì)象，例如 Field、Property、Error 和 Parameter，它們是作為前面 3 個(gè)對(duì)象的子對(duì)象進(jìn)行訪問的。、ADO 數(shù)據(jù)控件的功能ADO data 控件使用 ActiveX 數(shù)據(jù)對(duì)象（ADO）來快速建立數(shù)據(jù)約束控件和數(shù)據(jù)提供者之間的連接，并快速創(chuàng)建記錄集，然后將數(shù)據(jù)通過數(shù)據(jù)約束控件提供給用戶，其中數(shù)據(jù)約束控件可以是任何具有“數(shù)據(jù)源”屬性的控件，而數(shù)據(jù)提供者可以是符合 O

36、LE DB 規(guī)范的數(shù)據(jù)源。使用 Visual Basic 的類模塊也可以很方便的創(chuàng)建子集的數(shù)據(jù)提供者。在Visual Basic6.0 中，可以使用 ADO 數(shù)據(jù)控件實(shí)現(xiàn)下面一些功能：連接一個(gè)本地?cái)?shù)據(jù)庫或遠(yuǎn)程數(shù)據(jù)庫。打開一個(gè)指定的數(shù)據(jù)庫表，或定義一個(gè)基于結(jié)構(gòu)化查詢語言(SQL)的查詢、存儲(chǔ)過程或者是該數(shù)據(jù)庫中表的視圖的記錄集合。將數(shù)據(jù)字段的數(shù)值傳遞給數(shù)據(jù)綁定的控件，可以在這些控件中顯示或更改這些數(shù)值。添加新的記錄，或者根據(jù)對(duì)顯示在綁定的控件中的數(shù)據(jù)的任何更改來更新一個(gè)數(shù)據(jù)庫。、ADO 數(shù)據(jù)控件的屬性ADO 數(shù)據(jù)控件與 Visual Basic 的內(nèi)部數(shù)據(jù)控件(Data)和遠(yuǎn)程數(shù)據(jù)控件(RDC)

37、很相似， 它允許使用 ADO 快速地創(chuàng)建與數(shù)據(jù)庫的連接。與 Data 控件類似，為了實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的訪問，ADO 數(shù)據(jù)控件提供了幾個(gè)屬性，這些屬性定義了怎樣連接數(shù)據(jù)庫以及同什么樣的數(shù)據(jù)庫相連接。Connection String 屬性：是一個(gè)字符串，可以包含進(jìn)行一個(gè)連接所需的所有設(shè)置值， 在該字符串中所傳遞的參數(shù)是與驅(qū)動(dòng)程序相關(guān)的。例如，ODBC 驅(qū)動(dòng)程序允許該字符串包含驅(qū)動(dòng)程序、提供者、默認(rèn)的數(shù)據(jù)庫、服務(wù)器、用戶名稱以及密碼等。ADO 支持 Connection String 屬性的 4 個(gè)參數(shù)，而且這 4 個(gè)參數(shù)將不經(jīng)過 ADO 的處理直接送到數(shù)據(jù)源。這四個(gè)參數(shù)的屬性如表 3.2 所示：參數(shù)

38、描述Provider File NameRemote ServerRemote Server指定數(shù)據(jù)源的名稱指定基于數(shù)據(jù)源的文件名稱指定在打開一個(gè)停車場(chǎng)車輛管理端連接時(shí)使用的數(shù)據(jù)源名稱 指定打開停車場(chǎng)車輛管理端連接時(shí)使用的服務(wù)器的路徑與名稱表 2.2 Connection String 屬性的 4 個(gè)參數(shù)表第三章MIS 系統(tǒng)基本理論MIS 系統(tǒng)的概念管理信息系統(tǒng)（Management Information System，簡稱 MIS）是一個(gè)由人、計(jì)算機(jī)等組成的能進(jìn)行信息收集、傳遞、存儲(chǔ)、加工、維護(hù)和使用的系統(tǒng)。管理信息系統(tǒng)按照其名稱進(jìn)行基本概念分解，可分為管理、信息和系統(tǒng)三個(gè)部分，事實(shí)上 M

39、IS 正是在這三個(gè)科學(xué)領(lǐng)域的基礎(chǔ)上發(fā)展起來的。信息反映著客觀事物，信息以數(shù)據(jù)、文字、符號(hào)、聲音和圖象等各種不同的形式表示出來。這些形式經(jīng)過轉(zhuǎn)換都可以輸入到計(jì)算機(jī)中，在管理信息系統(tǒng)中，信息是管理的對(duì)象。數(shù)據(jù)是一組表示數(shù)量，行為和目標(biāo)的非隨機(jī)的可兼?zhèn)涞姆?hào)，它可以是字母，數(shù)字或其他符號(hào)，如*,%，也可以是圖象，聲音或者味道，數(shù)據(jù)項(xiàng)可以按使用的目的組織數(shù)據(jù)結(jié)構(gòu)。管理的含義一般說來就是計(jì)劃、組織、領(lǐng)導(dǎo)和控制的活動(dòng)。利用已有的和可以爭取到的各種資源，在實(shí)現(xiàn)其目標(biāo)的過程中，所應(yīng)用的一切思想、理論和方法就構(gòu)成了管理的主要內(nèi)容。系統(tǒng)是為了某種目標(biāo)而將一些部件有機(jī)地結(jié)合的一個(gè)整體。一個(gè)大系統(tǒng)還可以分成若干個(gè)子系

40、統(tǒng)，各子系統(tǒng)又可以有它自己的組成部件。總之，管理信息系統(tǒng)是一個(gè)綜合性的概念，而且它還在不斷地發(fā)展著。MIS 系統(tǒng)的開發(fā)梗概MIS系統(tǒng)的開發(fā)原則管理信息系統(tǒng)是一項(xiàng)耗資大，技術(shù)復(fù)雜，管理變革明顯，并需要相當(dāng)一段時(shí)間才能完成的工程項(xiàng)目。系統(tǒng)分析是 MIS 系統(tǒng)開發(fā)中最重要的一環(huán)。 系統(tǒng)分析的主要內(nèi)容是對(duì)原工作狀態(tài)進(jìn)行充分的了解和展示，提出新系統(tǒng)的邏輯方案。常用開發(fā)方法學(xué)及比較軟件作為一種工程化產(chǎn)品的概念到現(xiàn)在已經(jīng)發(fā)展了近三十年，而對(duì)軟件開發(fā)方法的探討與研究也有了很大的發(fā)展。從傳統(tǒng)的生命周期法到原形法、面向?qū)ο蠓ā＿@種演變趨勢(shì)體現(xiàn)了軟件開發(fā)從手工生產(chǎn)向自動(dòng)化生產(chǎn)的轉(zhuǎn)變過程，也體現(xiàn)了軟件開發(fā)方法論發(fā)展的

41、規(guī)律。開發(fā)方法學(xué)是系統(tǒng)開發(fā)的指導(dǎo)原則，沒有開發(fā)方法學(xué)的指導(dǎo)，或者未把開發(fā)方法學(xué)放在應(yīng)有的位置，那就不可能從總體上把握開發(fā)過程，是導(dǎo)致系統(tǒng)失敗的主要原因之一。對(duì)開發(fā)和維護(hù)的困難認(rèn)識(shí)不足，過多地偏重于編碼階段的實(shí)現(xiàn)，即使在引入工具后的今天，實(shí)踐中這種狀況仍未得到徹底改觀?，F(xiàn)有的開發(fā)方法學(xué)為數(shù)不多，有影響的主要為以下三種方法：生命周期法原型法面向?qū)ο蠓∕IS 系統(tǒng)的開發(fā)步驟管理信息系統(tǒng)開發(fā)步驟如圖 3-1：建立領(lǐng)導(dǎo)小組組成系統(tǒng)組進(jìn)行系統(tǒng)規(guī)劃1、系統(tǒng)分析4、系統(tǒng)評(píng)價(jià)項(xiàng)目開發(fā)2、系統(tǒng)設(shè)計(jì)3、系統(tǒng)實(shí)現(xiàn)圖 3-1開發(fā)方法的選擇管理信息系統(tǒng)的開發(fā)方法有生命周期法、原型法和面向?qū)ο蟮拈_發(fā)方法等。生命周期法（Li

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

43、最終直至用戶和開發(fā)者都比較滿意為止，從而形成一個(gè)相對(duì)穩(wěn)定、較為理想的管理信息系統(tǒng)；面向?qū)ο螅∣bject Oriented）的開發(fā)方法于 20 世紀(jì) 80 年代開始興起的，是一種基于問題對(duì)象的自底向上的一種系統(tǒng)開發(fā)方法，這種方法的特點(diǎn)是以對(duì)象為基礎(chǔ)，對(duì)象是分析問題和解決問題的核心。基于以上三種方法的特點(diǎn)和各自的優(yōu)缺點(diǎn)，本車庫車位管理信息系統(tǒng)利用軟件工程化思想和方法，總體上是采用結(jié)構(gòu)化生命法進(jìn)行系統(tǒng)分析和設(shè)計(jì)的，而系統(tǒng)實(shí)現(xiàn)等步驟則采用了原型法和面對(duì)對(duì)象的方法。系統(tǒng)的設(shè)計(jì)思想通過數(shù)據(jù)庫技術(shù)分析數(shù)據(jù)庫中車輛和他人的聯(lián)系信息的基本信息，達(dá)到管理的目的：、建立數(shù)據(jù)庫, 停車場(chǎng)車輛管理的基本資料就存放在其

44、中。、把停車場(chǎng)車輛管理的全部資料輸入數(shù)據(jù)庫。、用 VB 開發(fā)出應(yīng)用程序連接數(shù)據(jù)庫。、在應(yīng)用程序中用查詢和統(tǒng)計(jì)等手段對(duì)數(shù)據(jù)庫的資料進(jìn)行處理，得到有效的數(shù)據(jù)，分析出車輛的和他人的聯(lián)系信息情況，得出結(jié)論和措施，然后車輛就可以通過措施達(dá)到管理的目的。第四章 概要設(shè)計(jì)和具體實(shí)現(xiàn)軟件模塊結(jié)構(gòu)設(shè)計(jì)模塊組織結(jié)構(gòu)圖用戶管理系統(tǒng)管理停車管理車庫車位管理信息系統(tǒng)組織結(jié)構(gòu)圖如下所示：車車歷報(bào)數(shù)數(shù)用用用用輛輛史表據(jù)據(jù)戶戶戶戶進(jìn)出查打備還添修刪查站站詢印分原加改除詢系統(tǒng)流程圖系統(tǒng)流程分析圖如下所示：開始登陸系統(tǒng)NN用 戶 名 密碼正確錯(cuò) 誤 超 過三次YY進(jìn)入系統(tǒng)停車管理退出系統(tǒng)主要模塊分析車庫車位管理信息系統(tǒng)主要分以下

45、六種：基本信息管理、管理員信息管理、車輛進(jìn)站操作管理、車輛出站操作管理、統(tǒng)計(jì)查詢管理、系統(tǒng)數(shù)據(jù)維護(hù)。其中各個(gè)模塊又有如下的子模塊：1、基本信息管理基本信息管理主要是用戶修改自己的基本信息。在本系統(tǒng)中，僅設(shè)置了用戶的密碼。其操作界面如下圖所示：實(shí)現(xiàn)該功能的主要代碼如下所示：If Trim(Text1.Text) And Trim(Text2.Text) And Trim(Text3.Text) Then If Trim(Text2.Text) Trim(Text3.Text) ThenText2.Text = Text3.Text = MsgBox (您輸入的兩次密碼不一至，請(qǐng)重試) Exit

46、SubEnd If mycon.OpenDim rs As New ADODB.Recordsetsql = select * from allusers where username= & nowuser & and pwd= & Trim(Text1.Text) & rs.Open sql, mycon, 3, 3 Static nTryCount As Integer If rs.EOF Thenrs.Close mycon.CloseMsgBox 對(duì)不起，您輸入的原密碼不正確！請(qǐng)重新輸入！, vbCritical, 錯(cuò)誤 Text1.SetFocusText1.Text = Text1

47、.SelStart = 0Text1.SelLength = Len(Text1) nTryCount = nTryCount + 1Elsers(pwd) = Trim(Text2.Text) rs.Updaters.CloseMsgBox (修改成功，您的新密碼是 & Trim(Text2.Text) mycon.CloseUnload MeEnd IfElseMsgBox (請(qǐng)?zhí)顚懲暾?End If2、管理員信息管理管理員信息管理主要包括總管理員對(duì)普能管理員的添加，刪除，修改，查找等功能。a.管理員添加模塊:其界面如下圖所示：實(shí)現(xiàn)管理員添加的主要代碼如下：Private Sub Comm

48、and1_Click()If Trim(Text1.Text) And Trim(Text2.Text) And Trim(Text3.Text) Then If Trim(Text2.Text) Trim(Text3.Text) ThenMsgBox (對(duì)不起，兩次密碼不一至，請(qǐng)重試) Exit SubEnd If mycon.Opensql = select * from allusers where username= & Trim(Text1.Text) & Dim rs As New ADODB.Recordset rs.Open sql, mycon, 3, 3If rs.EOF

49、Thensql= insert into allusers(username,pwd) values( & Trim(Text1.Text) & , & Trim(Text2.Text) & )mycon.Execute (sql)MsgBox (添加成功) ElseMsgBox (該用戶已經(jīng)存在！)End If rs.Close mycon.Close ElseMsgBox (請(qǐng)?zhí)顚懲暾?)End If End Subb.管理員管理，即包括修改，查找，刪除三類操作，其界面如下圖所示：該模塊功能可謂稍復(fù)雜的模塊，因?yàn)樵撃K中包含了三類小模塊。從界面中我們可以看出，在最上面的查詢處可以輸入管理員

50、的用戶名來進(jìn)行模糊查詢，將查詢的結(jié)果列入左下邊的用戶列表中，再單擊用戶列表來查看某管理員的詳細(xì)信息，即顯示在右邊的“用戶詳細(xì)信息”中。如果再需要修改，或刪除操作，可以下面的“操作”選項(xiàng)中進(jìn)行。實(shí)現(xiàn)該模塊的主要代碼如下所示：Public bianhaozongPrivate Sub Command1_Click()sql = select * from allusers where 1=1If Trim(Text1.Text) Thensql = sql + and username like % & Trim(Text1.Text) & % End IfCall GetData(sql) En

51、d SubPrivate Sub Command2_Click() Form7.ShowEnd SubPrivate Sub Command3_Click() mycon.OpenDim rs As New ADODB.Recordsetsql = select * from allusers where id= & bianhaozong & mycon.Openrs.Open sql, mycon, 3, 3 If rs.EOF Then mycon.CloseMsgBox 對(duì)不起你沒有選擇要修改的記錄，請(qǐng)?jiān)谧筮吜斜砜蛑羞x擇!如不知記錄可以通過上面查詢記錄, vbDefaultButton

52、1, 對(duì)不起！Else修改數(shù)據(jù)rs(username) = Trim(Text2.Text) rs(pwd) = Trim(Text3.Text) rs.Updaters.Close mycon.CloseCall GetData(select * from allusers) MsgBox (修改成功)End If End SubPrivate Sub Command4_Click() Dim sqlIf Text2.Text = ThenMsgBox 請(qǐng)?jiān)谧筮吜斜碇羞x擇要?jiǎng)h除的記錄 ElseIf MsgBox(真的刪除該記錄? & vbCrLf & , _vbQuestion + vbOK

53、Cancel + vbDefaultButton2, 真的刪除？) = vbOK Then sql = delete from allusers where id= & bianhaozong & mycon.Open mycon.Execute (sql) mycon.Close數(shù)據(jù)庫清空Text2.Text = Text3.Text = Text4.Text = Call GetData(select * from allusers order by id desc)MsgBox (刪除成功) ElseMsgBox 刪除已取消！ End IfEnd If End SubPrivate Su

54、b Command5_Click() Unload MeEnd SubPrivate Sub Form_Load()Call GetData(select * from allusers order by id desc) End SubFunction GetData(sql) MSFlexGrid1.Clear mycon.OpenDim rs As New ADODB.Recordset rs.Open sql, mycon, 1, 1If rs.EOF Then ElseDim i As Integer With MSFlexGrid1 i = 1.Rows = 1Do While N

55、ot rs.EOF i = i + 1.Rows = i.TextMatrix(i - 1, 1) = rs(ID).TextArray(0) = .TextMatrix(i - 1, 2) = rs(username).TextArray(1) = 編號(hào).TextArray(2) = 用戶名.ColWidth(0) = 300.ColWidth(1) = 600.ColWidth(2) = 1200 rs.MoveNextLoop End With rs.Close End Ifmycon.Close End FunctionFunction ShowData(str) If str = T

56、henExit Function End IfDim sqlsql = select * from allusers where id = & str & Dim rs As New ADODB.Recordset mycon.Openrs.Open sql, mycon, 1, 1 If rs.EOF ThenMsgBox (對(duì)不起，數(shù)據(jù)庫已沒有任何用戶記錄,請(qǐng)?zhí)砑樱?Else顯 示 數(shù) 據(jù) Text2.Text = rs(username) Text3.Text = rs(pwd) Text4.Text = rs(addtime)End If mycon.Close End Functio

57、nPrivate Sub MSFlexGrid1_Click()Dim bianhaobianhao = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 1) bianhaozong = bianhaoCall ShowData(bianhao) End Sub3、車輛進(jìn)站操作管理車輛進(jìn)站操作是該本管理系統(tǒng)的主要功能。操作流程是：當(dāng)有汽車進(jìn)站時(shí)，由我們的管理員（保安人員）記錄其車牌號(hào)，車型， 車主，以及車主的聯(lián)系方式以便緊急時(shí)候方便聯(lián)系，另外還有此時(shí)操作的時(shí)間（該項(xiàng)由系統(tǒng)自動(dòng)記錄，不必由管理員手工操作，以達(dá)更快更方便的目的）。當(dāng)記錄完畢后，系統(tǒng)開時(shí)自動(dòng)計(jì)費(fèi)

58、。本模塊的界面如下圖所示：實(shí)現(xiàn)該模塊的代碼如下所示：Private Sub Command1_Click()If Trim(Text1.Text) And Trim(Text3.Text) And Trim(Text4.Text) Then If Combo1.Text = 請(qǐng)選擇 ThenMsgBox (請(qǐng)選擇車型) Exit SubEnd If mycon.OpenDim rs As New ADODB.Recordsetsql = insert intoalltc(cp,cx,cz,sj,addby) values( & Trim(Text1.Text) & , & Trim(Combo

59、1.Text) & , & Trim(Text3.Text) & , & Trim(Text4.Text) & , & nowuser & )mycon.Execute sqlMsgBox (添加成功，現(xiàn)在開始計(jì)費(fèi)!) mycon.CloseElseMsgBox (請(qǐng)?zhí)顚懲暾? Exit SubEnd IfEnd Sub4、車輛出站操作管理車輛出站操作與進(jìn)站操作類似，但不是再由管理員輸入車牌號(hào)了，而是由系統(tǒng)直接從數(shù)據(jù)庫中讀取車牌，列在下拉框中，然后由管理員選擇即可，這樣避免了多次輸入有誤導(dǎo)致降低工作效率。操作界面如下圖所示：實(shí)現(xiàn)該功能模塊的主要代碼如下所示：Private Sub Combo2

60、_Click() mycon.OpenDim sqlDim rs As New ADODB.Recordsetsql = select * from alltc where cp= & Trim(Combo2.Text) & rs.Open sql, mycon, 1, 1 If rs.EOF ThenElseLabel7.Caption = rs(cx) Label8.Caption = rs(cz) Label9.Caption = rs(sj) Label11.Caption = rs(addtime) Label5.Caption = Now()Label13.Caption = Da