畢業(yè)設(shè)計(jì)（論文）-VB物流管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn).doc

物流管理系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)摘 要：本設(shè)計(jì)論文的內(nèi)容，圍繞物流管理系統(tǒng)展開。物流管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng).數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。經(jīng)過(guò)分析如此情況,我們使用美國(guó)Microsoft公司的Visual Basic前臺(tái)開發(fā)工具,使用ACCESS2000作為后臺(tái)數(shù)據(jù)庫(kù),利用它們?cè)陂_發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序方面的眾多優(yōu)越性,尤其是VB在應(yīng)用程序的客戶端應(yīng)用開發(fā)方面提供了大量的用于數(shù)據(jù)庫(kù)應(yīng)用開發(fā)的各種組件，大大提高開發(fā)的效率。首先在系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成在用戶要求的時(shí)間內(nèi)建立系滿意的可行系統(tǒng)。關(guān)鍵詞：物流管理系統(tǒng)；VB；數(shù)據(jù)庫(kù)；數(shù)據(jù)訪問(wèn)對(duì)象(ADO)；結(jié)構(gòu)化查詢語(yǔ)句(SQL)ABSTRACTIn this paper,Logistics Management Of Mall System has been discussed. Logistics Management Of Mall System is a typical application of managing information system (MIS),which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used.By analysis of this situation, we use Microsoft Visual Basic as front-end and Microsoft ACCESS2000 as database of back-end. There are many advantages in developing database applications, especially in the client application used VB. It provides lots of VCL to database application development. It enhances development efficiently. Firstly system application prototype is built.The demand is repeated in the original system. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied.Keywords：Logistics Management Of Mall System; VB; database; ADO; SQL一、緒論：物流概念的提出是人的能力增強(qiáng)所導(dǎo)致的必然結(jié)果。過(guò)去在工業(yè)化過(guò)程中，由于能力所限，人們的注意力放在廠區(qū)范圍內(nèi)，至于原料和產(chǎn)品在廠外怎樣流動(dòng)，考慮的相對(duì)少一些，只要成本低就好。隨著人的能力的增強(qiáng)和社會(huì)化、專業(yè)化大生產(chǎn)體系的建立，人們開始將一個(gè)區(qū)域，甚至整個(gè)世界、整個(gè)地球看做一個(gè)大工廠、一個(gè)整體來(lái)研究產(chǎn)品生產(chǎn)流程的合理性和優(yōu)化問(wèn)題，從過(guò)去把重點(diǎn)放在生產(chǎn)工廠的合理建設(shè)轉(zhuǎn)移到把重點(diǎn)放在物資流通全過(guò)程的合理設(shè)計(jì)上，僅把工廠看做物資流動(dòng)過(guò)程中的一個(gè)駐留點(diǎn)。狹義地講，如果認(rèn)為運(yùn)輸組織意味著運(yùn)輸過(guò)程優(yōu)化，側(cè)重于合理使用運(yùn)輸工具，那么物流組織則意味著流動(dòng)過(guò)程的優(yōu)化，側(cè)重于物資流動(dòng)方式的合理性。由運(yùn)輸向物流的轉(zhuǎn)變相當(dāng)于把運(yùn)輸工具與運(yùn)輸對(duì)象的位置做了對(duì)調(diào)。再進(jìn)一步講，這種轉(zhuǎn)變把生產(chǎn)與流通運(yùn)輸這一對(duì)對(duì)立統(tǒng)一的事物的位置也做了調(diào)整，過(guò)去以研究生產(chǎn)為主，運(yùn)輸流動(dòng)為輔，現(xiàn)在以流通運(yùn)輸為主，生產(chǎn)為輔。這就是物流概念的新意所在。位置的調(diào)換會(huì)使人產(chǎn)生不同的感覺(jué)，這樣做有時(shí)有利于啟發(fā)新思路，有利于解決問(wèn)題和提高管理水平。這也說(shuō)明并非只有新的事物、新的技術(shù)能給人們帶來(lái)效益，一個(gè)理念、觀念或思路的改變也會(huì)給人們帶來(lái)新意和效益。它遵循的基本規(guī)律是：理念改變概念改變業(yè)務(wù)改變效果改變。抓住物流概念的實(shí)質(zhì)才能綱舉目張、有的放矢，做到轉(zhuǎn)變服務(wù)意識(shí)，從坐等客戶上門到主動(dòng)上門為客戶服務(wù)，并提供多樣化的、使客戶滿意的服務(wù)。也正因?yàn)榉?wù)質(zhì)量的改善，擴(kuò)大了服務(wù)范圍，使許多物流經(jīng)營(yíng)者獲得顯著效益，與過(guò)去的運(yùn)輸過(guò)剩和不景氣相比，運(yùn)輸市場(chǎng)出現(xiàn)了蓬勃發(fā)展的勢(shì)頭。二、課題背景：國(guó)家對(duì)企業(yè)信息化的重視、電子政務(wù)的推廣、海關(guān)的改革、物流業(yè)務(wù)自身的迅速發(fā)展，都充當(dāng)了物流信息化進(jìn)程中強(qiáng)有力的助推器，而IT業(yè)對(duì)于物流的關(guān)注則成為了直接的動(dòng)力。整個(gè)物流產(chǎn)業(yè)對(duì)于信息技術(shù)的需求分為三類，應(yīng)該提倡效益為本、需求為先、循序漸進(jìn)的信息化實(shí)施之路。 基礎(chǔ)信息化需求仍是主流 第一類是基礎(chǔ)信息化。由于信息技術(shù)的發(fā)展和普及，特別是近幾年，互聯(lián)網(wǎng)技術(shù)已經(jīng)在解決信息共享、信息傳輸、信息標(biāo)準(zhǔn)和信息成本等問(wèn)題上，有了長(zhǎng)足的進(jìn)步，使得信息可以廣泛地成為調(diào)控和決策的基礎(chǔ)。因此，信息化最大的作用就是使企業(yè)順利實(shí)現(xiàn)信息的采集、傳輸、加工和共享，最后在決策過(guò)程中有效地利用各種信息，從而提高經(jīng)濟(jì)效益。 這之中有很多的難點(diǎn)，比如說(shuō)信息的采集，如果企業(yè)的信息系統(tǒng)和業(yè)務(wù)系統(tǒng)是兩套，就不容易實(shí)現(xiàn)實(shí)時(shí)的信息采集，所以，必須要使業(yè)務(wù)系統(tǒng)和信息系統(tǒng)合一，或者說(shuō)必須用信息系統(tǒng)來(lái)做業(yè)務(wù)。只有這樣，才能夠真正解決好信息的采集問(wèn)題。而信息的共享，會(huì)涉及到很多機(jī)制問(wèn)題，目前，大量的企業(yè)還不能夠做到信息共享。因此，信息用于決策的部分還不多。所以，在這樣一個(gè)情況下，完善基礎(chǔ)信息化建設(shè)是首先要做的事。 優(yōu)化帶來(lái)管理效益的提高 在基礎(chǔ)信息化實(shí)現(xiàn)以后，就會(huì)有第二層的需求。一些條件比較好的企業(yè)經(jīng)過(guò)一段時(shí)間運(yùn)行以后，將會(huì)開始尋求改進(jìn)，利用積累下來(lái)的數(shù)據(jù)，進(jìn)行優(yōu)化。 優(yōu)化主要是在兩個(gè)層面上，一個(gè)是流程的優(yōu)化，會(huì)涉及到整個(gè)的流程再造，這就需要用數(shù)據(jù)來(lái)分析，所以一定要有第一階段的基礎(chǔ)。第二個(gè)方面的優(yōu)化是日常操作的優(yōu)化，比如說(shuō)每天都有的庫(kù)存的改變、運(yùn)輸?shù)恼{(diào)度，同樣也需要信息系統(tǒng)的支持。 做好優(yōu)化的工作，將能夠大大提高物流管理的效率。流程的改造、日常操作的優(yōu)化都會(huì)帶來(lái)看得見的效益。所以，這就比僅僅依賴于獲得信息，還是人工決策，要上一個(gè)層次，等于是機(jī)器用數(shù)據(jù)來(lái)進(jìn)行優(yōu)化的決策。 當(dāng)然，這個(gè)要求相對(duì)要高一些，因?yàn)檫@要求在相應(yīng)的信息系統(tǒng)中必須有一個(gè)優(yōu)化的模塊。換句話說(shuō)，要有一個(gè)實(shí)現(xiàn)優(yōu)化的模型和算法，而在實(shí)際操作中，這樣的模型是很難概括的，如果不對(duì)業(yè)務(wù)進(jìn)行深入地了解，絕對(duì)不能形成這樣的優(yōu)化模型，同時(shí)還要保證實(shí)時(shí)、高效，才有可能滿足業(yè)務(wù)的需要。 目前，這一層次的信息系統(tǒng)建設(shè)進(jìn)行得還很不完備，據(jù)估計(jì)，在收集到的案例中，明顯含有這塊功能的信息系統(tǒng)僅占15%左右。 供應(yīng)鏈管理打造共贏模式 第三層次，也是最高層次的需求，就是供應(yīng)鏈管理的工具。供應(yīng)鏈這個(gè)概念包含的內(nèi)容很多，不僅僅是物流，還包括其他方面的內(nèi)容。供應(yīng)鏈?zhǔn)怯脕?lái)調(diào)節(jié)企業(yè)和企業(yè)之間的協(xié)作關(guān)系、在市場(chǎng)經(jīng)濟(jì)成熟到一定程度之后出現(xiàn)的一種概念。在市場(chǎng)經(jīng)濟(jì)發(fā)展初期，企業(yè)和企業(yè)之間是完全競(jìng)爭(zhēng)的，只有到了成熟的產(chǎn)品鏈、價(jià)值鏈、服務(wù)鏈形成以后，企業(yè)和企業(yè)之間才有一種依存和戰(zhàn)略合作的關(guān)系，它們?cè)跇I(yè)務(wù)上才會(huì)產(chǎn)生協(xié)同的要求。一旦建立這種要求，企業(yè)之間就需要用一套信息系統(tǒng)把這一要求固定下來(lái)，來(lái)執(zhí)行業(yè)務(wù)上的協(xié)同操作。例如，在上下游的企業(yè)之間，庫(kù)存信息對(duì)彼此是公開的，采購(gòu)不再是由一次次的招標(biāo)來(lái)完成，而是變成自動(dòng)補(bǔ)貨。這種情況是建立在企業(yè)經(jīng)營(yíng)鏈基礎(chǔ)之上的一種新的業(yè)務(wù)模式，而供應(yīng)鏈管理的軟件，正是用來(lái)解決這些問(wèn)題的有效工具。 立足實(shí)際力爭(zhēng)三步并作一步走 我國(guó)物流信息化目前的需求仍是以底層的基礎(chǔ)信息化為主?，F(xiàn)有的物流管理軟件大多僅僅是反映信息，只有少數(shù)很成熟的軟件對(duì)流程和操作的優(yōu)化具備很強(qiáng)的功能。 將物流信息化的需求分為三層，有助于了解發(fā)展的趨勢(shì)，了解自己的目標(biāo)。盡管供應(yīng)鏈管理在我國(guó)現(xiàn)在還沒(méi)有太多成功案例，但是并不代表沒(méi)有這方面的發(fā)展條件。只要企業(yè)之間不斷加強(qiáng)合作，建立戰(zhàn)略合作伙伴關(guān)系，進(jìn)行業(yè)務(wù)上的協(xié)同，必將促進(jìn)供應(yīng)鏈、價(jià)值鏈的形成。所以，只要充分利用資源，我國(guó)的物流信息化實(shí)現(xiàn)三步并作一步走，是完全有可能的。但是，實(shí)現(xiàn)這一目標(biāo)，就要求企業(yè)必須給自己定好位，絕對(duì)不能從觀念出發(fā)，不能脫離實(shí)際，每一層的需求都需要一定的基礎(chǔ)、一定的管理水準(zhǔn)、一定的物質(zhì)和技術(shù)條件。從這個(gè)意義上講，只有最合適企業(yè)的系統(tǒng)才可能取得成功。 三、課題的任務(wù)利用可視化編程語(yǔ)言(Microsoft Visual Basic)和數(shù)據(jù)庫(kù)編程語(yǔ)言(SQL)完成整個(gè)物流管理系統(tǒng)的設(shè)計(jì)，掌握科技文獻(xiàn)檢索的方法，完成論文的撰寫。在此次要物流管理系統(tǒng)中，我的工作包括：1、 制訂可行性分析報(bào)告，進(jìn)行項(xiàng)目需求分析，完成E-R模型設(shè)計(jì)；2、 功能及模塊的初步設(shè)計(jì)；3、 數(shù)據(jù)庫(kù)設(shè)計(jì)與實(shí)現(xiàn)；四、項(xiàng)目可行性分析 具體要求：本次開發(fā)任務(wù)所要完成的是物流管理系統(tǒng)，以實(shí)現(xiàn)物流智能化管理，按照具體環(huán)境設(shè)定對(duì)其提出如下具體要求：1、 分級(jí)的數(shù)據(jù)庫(kù)和用戶管理。要求具有可靠的數(shù)據(jù)庫(kù)連接，用戶必須通過(guò)密碼才能登陸功能使用環(huán)境。并且根據(jù)不同用戶提供不同的權(quán)限。2、 實(shí)現(xiàn)貨品資料的管理，添加、刪除、修改等操作。3、 實(shí)現(xiàn)倉(cāng)庫(kù)資料的管理，添加、刪除、修改等操作。4、 實(shí)現(xiàn)物流的管理，進(jìn)貨、出貨、貨品流動(dòng)等操作。5、 實(shí)現(xiàn)報(bào)表瀏覽打印等功能。6、 幫助功能。7、 可移植可擴(kuò)充性。 開發(fā)周期可行性：1、 可行性研究及需求分析：一周時(shí)間2、 程序概要設(shè)計(jì)：一周時(shí)間3、 程序詳細(xì)設(shè)計(jì)：一周時(shí)間4、 系統(tǒng)測(cè)試及試運(yùn)行、修改：一周時(shí)間 項(xiàng)目開發(fā)環(huán)境及開發(fā)平臺(tái)：1. 系統(tǒng)設(shè)計(jì)平臺(tái)：Microsoft Windows 2000 SP22. 數(shù)據(jù)庫(kù)設(shè)計(jì)工具：Microsoft Access 20003. 程序設(shè)計(jì)工具：Microsoft Visual Basic 6.0何為Visual Basic?Basic到Visual Basic的發(fā)展 BASIC是Beginners All-purpose Symbolic Instruction Code（初學(xué)者通用符號(hào)指令代碼）的縮寫，是國(guó)際上廣泛使用的一種計(jì)算機(jī)高級(jí)語(yǔ)言。BASIC簡(jiǎn)單、易學(xué)，目前仍是計(jì)算機(jī)入門的主要學(xué)習(xí)語(yǔ)言之一。BASIC語(yǔ)言的問(wèn)世及發(fā)展 BASIC語(yǔ)言自其問(wèn)世經(jīng)歷了以下四個(gè)階段：第一階段：（1964年70年代初） 1964年BASIC語(yǔ)言問(wèn)世。 第二階段：（1975年80年代中） 微機(jī)上固化的BASIC第三階段：（80年代中90年代初） 結(jié)構(gòu)化BASIC語(yǔ)言。第四階段：（1991年以來(lái)） Visual BASIC 1991年，微軟推出了Visual Basic1.0版。這在當(dāng)時(shí)引起了很大的轟動(dòng)。許多專家把VB的出現(xiàn)當(dāng)作是軟件開發(fā)史上的一個(gè)具有劃時(shí)代意義的事件。其實(shí)，以我們現(xiàn)在的目光來(lái)看，VB10的功能實(shí)在是太弱了。但在當(dāng)時(shí)，它是第一個(gè)“可視”的編程軟件。這使得程序員欣喜之極，都嘗試在VB的平臺(tái)上進(jìn)行軟件創(chuàng)作。微軟也不失時(shí)機(jī)地在四年內(nèi)接連推出VB20，VB30，VB40三個(gè)版本。并且從VB3開始，微軟將ACCESS的數(shù)據(jù)庫(kù)驅(qū)動(dòng)集成到了VB中，這使得VB的數(shù)據(jù)庫(kù)編程能力大大提高。從VB4開始，VB也引入了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。VB功能強(qiáng)大，學(xué)習(xí)簡(jiǎn)單。而且，VB還引入了“控件：的概念，使得大量已經(jīng)編好的VB程序可以被我們直接拿來(lái)使用，如今，VB已經(jīng)有了6.0版。通過(guò)幾年的發(fā)展，它已成為一種真真專業(yè)化的開發(fā)語(yǔ)言和環(huán)境。用戶認(rèn)為可用Visual Basic快速創(chuàng)建Windows程序，在現(xiàn)在還可以編寫企業(yè)水平的客戶服務(wù)器程序及強(qiáng)大的數(shù)據(jù)庫(kù)應(yīng)用程序，Visual Basic新版中還有更多可用功能。Visual Basic的編程基礎(chǔ) 什么是程序 ？首先需要知道下面這個(gè)問(wèn)題的答案：“程序到底是什么？”計(jì)算機(jī)程序是指令集，它告訴計(jì)算機(jī)如何執(zhí)行特殊的任務(wù)。讀者也許對(duì)許多種指令熟悉，如按菜譜烹調(diào)特殊的食物或按指定的方向到達(dá)不熟悉的目的地。沒(méi)有這些特殊的指令，就不能執(zhí)行預(yù)期的任務(wù)。 計(jì)算機(jī)也是一樣，只是它們需要為執(zhí)行的每一個(gè)任務(wù)提供指令。甚至對(duì)最簡(jiǎn)單的任務(wù)也需要指令，例如如何取得擊鍵，怎樣在屏幕上放一個(gè)字母，怎樣在磁盤中保存訊息。幸運(yùn)的是，許多這樣的指令包含在處理器芯片中或內(nèi)置于操作系統(tǒng)中，因此用戶不必?fù)?dān)心它們。相反，應(yīng)集中于為任務(wù)提供指令，如計(jì)算雇員工資，創(chuàng)建鄰居郵件列表，或設(shè)置格式化文本以顯示最近的年度報(bào)表信息。雖然我們用自然語(yǔ)言讀這些指令，但計(jì)算機(jī)指令必須是二進(jìn)制代碼，即一系列在計(jì)算機(jī)內(nèi)存和處理器中的開或關(guān)的狀態(tài)。有些語(yǔ)言，如匯編程序，可以允許直接寫這種類型的代碼。但是，以這種方法編程十分困難，因此Visual Basic和其他編程語(yǔ)言使程序員可以用與自然語(yǔ)言有點(diǎn)相近的方式編寫指令。然而，即使是這些指令仍有限，并要遵循高度定義的結(jié)構(gòu)。事件驅(qū)動(dòng)編程： Visual Basic允許創(chuàng)建反映用戶動(dòng)作和系統(tǒng)事件的程序。這種編程叫事件驅(qū)動(dòng)編程。要了解事件驅(qū)動(dòng)程序是怎樣工作的，先要了解過(guò)去的程序怎樣運(yùn)行及在Windows環(huán)境中有何不同。 在Windows之前，程序以順序方式運(yùn)行。也就是說(shuō)，一旦程序啟動(dòng)，它就一條指令一條指令的向前執(zhí)行，直到程序結(jié)束或出現(xiàn)致命錯(cuò)誤。面向?qū)ο缶幊?使創(chuàng)建Windows程序較為容易的關(guān)鍵技術(shù)是面向?qū)ο缶幊?，或OOP。這種技術(shù)可以創(chuàng)建可重用組建，它是程序的組成模塊。幾個(gè)定義： 在討論Visual Basic時(shí)，經(jīng)?？梢月牭竭@些術(shù)語(yǔ)，因此對(duì)這些術(shù)語(yǔ)的基本理解十分有幫助。控件提供程序可見界面的可重用對(duì)象。控件的示例有文本框、標(biāo)簽和命令按鈕。 事件 由用戶或操作系統(tǒng)引發(fā)的動(dòng)作。事件的示例有擊鍵、單擊鼠標(biāo)、一段時(shí)間的限制，或從端口接收數(shù)據(jù)。方法 嵌入在對(duì)象定義中的程序代碼，它定義對(duì)象怎樣處理信息并響應(yīng)某事件。例如，數(shù)據(jù)庫(kù)對(duì)象有打開紀(jì)錄集并從一個(gè)記錄移動(dòng)到另一個(gè)記錄的方法。 對(duì)象 程序的基本元素，它含有定義其特征的屬性，定義其任務(wù)和識(shí)別它可以響應(yīng)的事件的方法?？丶痛绑w是Visual Basic中所有對(duì)象的示例。 過(guò)程 為完成任務(wù)而編寫的代碼段。過(guò)程通常用于響應(yīng)特定的事件。 屬性 對(duì)象的特征，如尺寸、位置、顏色或文本。屬性決定對(duì)象的外觀，有時(shí)也決定對(duì)象的行為。屬性也用于為對(duì)象提供數(shù)據(jù)和從對(duì)象取回信息。 實(shí)施計(jì)劃：1. 2006-03-01開始進(jìn)行任務(wù)書設(shè)計(jì)2. 2006-03-10開始可行性研究和需求分析3. 2006-03-20 開始編碼4. 2006-04-02完成編碼，編譯5. 2006-04-12完成測(cè)試，發(fā)布五、項(xiàng)目總體設(shè)計(jì) 程序模型主界面幫助貨品管理倉(cāng)庫(kù)管理物流管理添加刪除修改添加刪除修改添加刪除修改登陸 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)類型：Microsoft Access6.0數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)連接：ADO(ActiveX Data Object)數(shù)據(jù)庫(kù)連接控件 數(shù)據(jù)庫(kù)名稱：lms.mdbbale表： 用于保存貨品信息字段名字段類型關(guān)鍵字說(shuō)明BaleIDCHARYes貨品IDBaleNameCHAR貨品名稱BaleFromCHAR貨品產(chǎn)地BaleSpecCHAR貨品規(guī)格BalePriceCURRENCY貨品價(jià)格BaleMemoMEMO貨品備注config表：系統(tǒng)設(shè)置表字段名字段類型關(guān)鍵字說(shuō)明SetupTimeDATETIME程序啟用時(shí)間AdminPswCHAR管理員密碼GuestEnabledBOOLEAN是否支持匿名訪問(wèn)depot表：倉(cāng)庫(kù)資料表字段名字段類型關(guān)鍵字說(shuō)明DepotIDCHARYes倉(cāng)庫(kù)IDDepotNameCHAR倉(cāng)庫(kù)名稱DepotLocalCHAR倉(cāng)庫(kù)地址DepotMemoMEMO倉(cāng)庫(kù)注釋operator表：管理員信息表字段名字段類型關(guān)鍵字說(shuō)明OpIDCHARYes管理員IDOpLoginCHAR管理員用戶名OpPswCHAR管理員密碼OpEnabledCHAR管理員是否可用OpMemoMEMO管理員備注storage表：存儲(chǔ)信息表字段名字段類型關(guān)鍵字說(shuō)明OpIDCHARYes管理員IDOpLoginCHAR管理員用戶名OpPswCHAR管理員密碼OpEnabledCHAR管理員是否可用OpMemoMEMO管理員備注Storage：貨物庫(kù)存表字段名字段類型關(guān)鍵字說(shuō)明SIDCHARYes存儲(chǔ)記錄SbBaleIDCHAR存儲(chǔ)貨品編號(hào)SDepotIDCHAR存儲(chǔ)倉(cāng)庫(kù)編號(hào)STotalCHAR存儲(chǔ)數(shù)量 ADO程序接口設(shè)計(jì)A) 數(shù)據(jù)庫(kù)的訪問(wèn)控制方法：目前在VB中可以通過(guò)三種方式訪問(wèn)數(shù)據(jù)庫(kù)：1、IDC（Internet Database Connector）方式；IDC是一個(gè)傳統(tǒng)的數(shù)據(jù)庫(kù)查詢工具，用來(lái)定義和執(zhí)行數(shù)據(jù)庫(kù)查詢的SQL命令，并向?yàn)g覽器返回一個(gè)指定數(shù)據(jù)格式的頁(yè)面。使用IDC訪問(wèn)數(shù)據(jù)庫(kù)最大的特點(diǎn)是簡(jiǎn)單，幾乎不需要編程就能實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)。2、ADO（ActiveX Data Objects）方式；ADO訪問(wèn)數(shù)據(jù)庫(kù)，更像編寫數(shù)據(jù)庫(kù)應(yīng)用程序。它把絕大部分的數(shù)據(jù)庫(kù)操作封裝在七個(gè)對(duì)象中，在編程調(diào)用這些對(duì)象執(zhí)行相應(yīng)的數(shù)據(jù)庫(kù)操作。ADO是ASP技術(shù)的核心之一，它集中體現(xiàn)了ASP技術(shù)豐富而靈活的數(shù)據(jù)庫(kù)訪問(wèn)功能。ADO建立了基于Web方式訪問(wèn)數(shù)據(jù)庫(kù)的腳本編寫模型，不僅支持任何大型數(shù)據(jù)庫(kù)的核心功能，而且支持許多數(shù)據(jù)庫(kù)所專有的特性。一般使用ADO訪問(wèn)數(shù)據(jù)庫(kù)的程序應(yīng)該使用Connection對(duì)象建立并管理與遠(yuǎn)程數(shù)據(jù)庫(kù)的連接，用Command對(duì)象提供靈活的查詢，用Recordset對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)查詢所返回的結(jié)果。這三者是ADO的最核心的對(duì)象。這種方式將是我的設(shè)計(jì)中用到的主要數(shù)據(jù)庫(kù)訪問(wèn)方式。3、RDS（Remote Data Service）方式。RDS提供訪問(wèn)遠(yuǎn)程數(shù)據(jù)庫(kù)的功能。ADO雖然能夠提供非常強(qiáng)大的數(shù)據(jù)庫(kù)訪問(wèn)功能，但是它不支持?jǐn)?shù)據(jù)遠(yuǎn)程操作（Data Remoting）。而RDS支持?jǐn)?shù)據(jù)遠(yuǎn)程操作。它不僅能執(zhí)行查詢并返回?cái)?shù)據(jù)庫(kù)查詢結(jié)果，而且可以把服務(wù)器端的數(shù)據(jù)“搬到“用戶端修改，并調(diào)用一個(gè)數(shù)據(jù)庫(kù)更新命令，將用戶端修改的數(shù)據(jù)寫回?cái)?shù)據(jù)庫(kù)，象使用本地?cái)?shù)據(jù)庫(kù)一樣。B) ADO 定義編程模型，即訪問(wèn)和更新數(shù)據(jù)源所必需的活動(dòng)順序。編程模型概括了 ADO 的全部功能。編程模型意味著對(duì)象模型，即響應(yīng)并執(zhí)行編程模型的“對(duì)象”組。對(duì)象擁有“方法”，方法執(zhí)行對(duì)數(shù)據(jù)進(jìn)行的操作；對(duì)象擁有“屬性”，屬性指示數(shù)據(jù)的某些特性或控制某些對(duì)象方法的行為。與對(duì)象關(guān)聯(lián)的是“事件”，事件是某些操作已經(jīng)發(fā)生或?qū)⒁l(fā)生的通知。C) ADO 提供執(zhí)行以下操作的方式： 1. 連接到數(shù)據(jù)源。同時(shí)，可確定對(duì)數(shù)據(jù)源的所有更改是否已成功或沒(méi)有發(fā)生。2. 指定訪問(wèn)數(shù)據(jù)源的命令，同時(shí)可帶變量參數(shù)，或優(yōu)化執(zhí)行。3. 執(zhí)行命令。4. 如果這個(gè)命令使數(shù)據(jù)按表中的行的形式返回，則將這些行存儲(chǔ)在易于檢查、操作或更改的緩存中。5. 適當(dāng)情況下，可使用緩存行的更改內(nèi)容來(lái)更新數(shù)據(jù)源。6. 提供常規(guī)方法檢測(cè)錯(cuò)誤（通常由建立連接或執(zhí)行命令造成）。 在典型情況下，需要在編程模型中采用所有這些步驟。但是，由于 ADO 有很強(qiáng)的靈活性，所以最后只需執(zhí)行部分模塊就能做一些有用的工作。例如：將數(shù)據(jù)從文件直接存儲(chǔ)到緩存行，然后僅用 ADO 資源對(duì)數(shù)據(jù)進(jìn)行檢查。D) ADO編程模型：連接通過(guò)“連接”可從應(yīng)用程序訪問(wèn)數(shù)據(jù)源，連接是交換數(shù)據(jù)所必需的環(huán)境。通過(guò)如 Microsoft Internet Information Server 作為媒介，應(yīng)用程序可直接（有時(shí)稱為雙層系統(tǒng)）或間接（有時(shí)稱為三層系統(tǒng)）訪問(wèn)數(shù)據(jù)源。對(duì)象模型使用 Connection 對(duì)象使連接概念得以具體化?！笆聞?wù)”用于界定在連接過(guò)程中發(fā)生的一系列數(shù)據(jù)訪問(wèn)操作的開始和結(jié)束。ADO 可明確事務(wù)中的操作造成的對(duì)數(shù)據(jù)源的更改或者成功發(fā)生，或者根本沒(méi)有發(fā)生。如果取消事務(wù)或它的一個(gè)操作失敗，則最終的結(jié)果將仿佛是事務(wù)中的操作均未發(fā)生，數(shù)據(jù)源將會(huì)保持事務(wù)開始以前的狀態(tài)。對(duì)象模型無(wú)法清楚地體現(xiàn)出事務(wù)的概念，而是用一組 Connection 對(duì)象方法來(lái)表示。命令通過(guò)已建立的連接發(fā)出的“命令”可以某種方式來(lái)操作數(shù)據(jù)源。一般情況下，命令可以在數(shù)據(jù)源中添加、刪除或更新數(shù)據(jù)，或者在表中以行的格式檢索數(shù)據(jù)。對(duì)象模型用 Command 對(duì)象來(lái)體現(xiàn)命令概念。Command 對(duì)象使 ADO 能夠優(yōu)化對(duì)命令的執(zhí)行。參數(shù)通常，命令需要的變量部分即“參數(shù)”可以在命令發(fā)布之前進(jìn)行更改。例如，可重復(fù)發(fā)出相同的數(shù)據(jù)檢索命令，但每一次均可更改指定的檢索信息。參數(shù)對(duì)執(zhí)行其行為類似函數(shù)的命令非常有用，這樣就可知道命令是做什么的，但不必知道它如何工作。例如，可發(fā)出一項(xiàng)銀行過(guò)戶命令，從一方借出貸給另一方?？蓪⒁^(guò)戶的款額設(shè)置為參數(shù)。對(duì)象模型用 Parameter 對(duì)象來(lái)體現(xiàn)參數(shù)概念。記錄集如果命令是在表中按信息行返回?cái)?shù)據(jù)的查詢（行返回查詢），則這些行將會(huì)存儲(chǔ)在本地。對(duì)象模型將該存儲(chǔ)體現(xiàn)為 Recordset 對(duì)象。但是，不存在僅代表單獨(dú)一個(gè) Recordset 行的對(duì)象。記錄集是在行中檢查和修改數(shù)據(jù)最主要的方法。Recordset 對(duì)象用于： 1. 指定可以檢查的行。2. 移動(dòng)行。3. 指定移動(dòng)行的順序。4. 添加、更改或刪除行。5. 通過(guò)更改行更新數(shù)據(jù)源。6. 管理 Recordset 的總體狀態(tài)。 字段一個(gè)記錄集行包含一個(gè)或多個(gè)“字段”。如果將記錄集看作二維網(wǎng)格，字段將排列構(gòu)成“列”。每一字段（列）都分別包含有名稱、數(shù)據(jù)類型和值的屬性，正是在該值中包含了來(lái)自數(shù)據(jù)源的真實(shí)數(shù)據(jù)。對(duì)象模型以 Field 對(duì)象體現(xiàn)字段。 要修改數(shù)據(jù)源中的數(shù)據(jù)，可在記錄集行中修改 Field 對(duì)象的值，對(duì)記錄集的更改最終被傳送給數(shù)據(jù)源。作為選項(xiàng)，Connection 對(duì)象的事務(wù)管理方法能夠可靠地保證更改要么全部成功，要么全部失敗。錯(cuò)誤 錯(cuò)誤隨時(shí)可在應(yīng)用程序中發(fā)生，通常是由于無(wú)法建立連接、執(zhí)行命令或?qū)δ承顟B(tài)（例如，試圖使用沒(méi)有初始化的記錄集）的對(duì)象進(jìn)行操作。對(duì)象模型以 Error 對(duì)象體現(xiàn)錯(cuò)誤。任意給定的錯(cuò)誤都會(huì)產(chǎn)生一個(gè)或多個(gè) Error 對(duì)象，隨后產(chǎn)生的錯(cuò)誤將會(huì)放棄先前的 Error 對(duì)象組。屬性每個(gè) ADO 對(duì)象都有一組唯一的“屬性”來(lái)描述或控制對(duì)象的行為。屬性有兩種類型：內(nèi)置和動(dòng)態(tài)。內(nèi)置屬性是 ADO 對(duì)象的一部分并且隨時(shí)可用。動(dòng)態(tài)屬性則由特別的數(shù)據(jù)提供者添加到 ADO 對(duì)象的屬性集合中，僅在提供者被使用時(shí)才能存在。對(duì)象模型以 Property 對(duì)象體現(xiàn)屬性。集合ADO 提供“集合”，這是一種可方便地包含其他特殊類型對(duì)象的對(duì)象類型。使用集合方法可按名稱（文本字符串）或序號(hào)（整型數(shù)）對(duì)集合中的對(duì)象進(jìn)行檢索。ADO 提供四種類型的集合： Connection 對(duì)象具有 Errors 集合，包含為響應(yīng)與數(shù)據(jù)源有關(guān)的單一錯(cuò)誤而創(chuàng)建的所有 Error 對(duì)象。Command 對(duì)象具有 Parameters 集合，包含應(yīng)用于 Command 對(duì)象的所有 Parameter 對(duì)象。Recordset 對(duì)象具有 Fields 集合，包含所有定義 Recordset 對(duì)象列的 Field 對(duì)象。另外，Connection、Command、Recordset 和 Field 對(duì)象都具有 Properties 集合。它包含所有屬于各個(gè)包含對(duì)象的 Property 對(duì)象。 ADO 對(duì)象擁有可在其上使用的諸如“整型”、“字符型”或“布爾型”這樣的普通數(shù)據(jù)類型來(lái)設(shè)置或檢索值的屬性。然而，有必要將某些屬性看成是數(shù)據(jù)類型“COLLECTION OBJECT”的返回值。相應(yīng)的，集合對(duì)象具有存儲(chǔ)和檢索適合該集合的其他對(duì)象的方法。事件“事件”是對(duì)將要發(fā)生或已經(jīng)發(fā)生的某些操作的通知。一般情況下，可用事件高效地編寫包含幾個(gè)異步任務(wù)的應(yīng)用程序。對(duì)象模型無(wú)法顯式體現(xiàn)事件，只能在調(diào)用事件處理程序例程時(shí)表現(xiàn)出來(lái)。在操作開始之前調(diào)用的事件處理程序便于對(duì)操作參數(shù)進(jìn)行檢查或修改，然后取消或允許操作完成。操作完成后調(diào)用的事件處理程序在異步操作完成后進(jìn)行通知。多個(gè)操作經(jīng)過(guò)增強(qiáng)可以有選擇地異步執(zhí)行。例如，用于啟動(dòng)異步 Recordset.Open 操作的應(yīng)用程序?qū)⒃诓僮鹘Y(jié)束時(shí)得到執(zhí)行完成事件的通知。E) ADO常用對(duì)象和方法：1、 Connection對(duì)象：ADO數(shù)據(jù)庫(kù)連接對(duì)象，用于實(shí)現(xiàn)ADO與數(shù)據(jù)庫(kù)之間的連接。2、 Command對(duì)象：ADO命令對(duì)象，用于保存SQL執(zhí)行命令，負(fù)責(zé)具體對(duì)數(shù)據(jù)庫(kù)的操作。3、 Recordset對(duì)象：ADO記錄集對(duì)象，用于保存SQL執(zhí)行命令結(jié)果。4、 Addnew方法：添加新的記錄到數(shù)據(jù)庫(kù)中。5、 Delete方法：刪除數(shù)據(jù)庫(kù)中的記錄。6、 Update方法：更新數(shù)據(jù)庫(kù)記錄。 VB程序設(shè)計(jì)名稱類型說(shuō)明MDIFrmMainMDI Form主MDI窗體FrmBaleAddForm(MDI Child)貨品添加窗體FrmBaleDelForm(MDI Child)貨品刪除窗體FrmBaleUpdateForm(MDI Child)貨品資料更改窗體FrmDepotAddForm(MDI Child)倉(cāng)庫(kù)添加窗體FrmDepotDelForm(MDI Child)倉(cāng)庫(kù)刪除窗體FrmDepotUpdateForm(MDI Child)倉(cāng)庫(kù)資料更改窗體FrmBaleInForm(MDI Child)進(jìn)貨管理窗體FrmBaleOutForm(MDI Child)出活管理窗體FrmBaleUpdateForm(MDI Child)貨品流動(dòng)管理窗體FrmSysManageForm(MDI Child)系統(tǒng)管理窗體FrmLoginForm(MDI Child)登陸窗體FrmAboutForm關(guān)于窗體DataEnvDataEnvironment報(bào)表數(shù)據(jù)環(huán)境DataRepBaleDataReport貨品報(bào)表DataRepDepotDataReport倉(cāng)庫(kù)報(bào)表ModBootModule啟動(dòng)模塊七、模塊詳細(xì)設(shè)計(jì)A. 貨品添加窗體：FrmBaleAdd.frm 窗體控件：控件名稱說(shuō)明FrmBaleAdd貨品添加窗體FraMain主框架TxtBaleID貨品ID信息文本框TxtBaleName貨品名稱信息文本框TxtBlaeFrom貨品產(chǎn)地信息文本框TxtBaleSpec貨品規(guī)格信息文本框TxtBalePrice貨品價(jià)格信息文本框TxtBaleMemeo貨品備注信息文本框CmdAddNew添加按鈕CmdConfirm確定操作按鈕CmdCancel撤消操作按鈕CmdRefresh刷新按鈕CmdExit退出按鈕AdoMain主ADO控件AdoTest測(cè)試ADO控件 該窗體在用戶登陸時(shí)列出所有貨品清單，但用戶選擇添加貨品記錄后，會(huì)激活資料輸入功能，若用戶輸入完成后點(diǎn)擊確認(rèn)后，會(huì)自動(dòng)檢測(cè)是否在數(shù)據(jù)庫(kù)中有沒(méi)有重復(fù)編號(hào)的數(shù)據(jù)。若有，拒絕添加，代碼如下：Private Sub CmdAddNew_Click()/點(diǎn)擊添加 CmdAddNew.Enabled = False CmdRefresh.Enabled = False CmdConfirm.Enabled = True CmdCancel.Enabled = True ActiveTextBox AdoMain.Recordset.AddNewEnd SubPrivate Sub CmdConfirm_Click()/確認(rèn)添加 If TxtBaleID.Text = Or TxtBaleName.Text = Then aa = MsgBox(請(qǐng)?zhí)顚懾浧肪幪?hào)和名稱, vbOKOnly, ) Else 檢查是否有重復(fù)的貨品ID AdoTest.RecordSource = SELECT * FROM Bale WHERE BaleID= & TxtBaleID.Text & AdoTest.Refresh If Not AdoTest.Recordset.EOF Then aa = MsgBox(相同貨品編號(hào)已經(jīng)存在，請(qǐng)重新輸入！, vbOKOnly, ) Else AdoMain.Recordset.Update CmdAddNew.Enabled = True CmdRefresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False AdoMain.RecordSource = SELECT * FROM Bale AdoMain.Recordset.Requery AdoMain.Refresh End If End IfEnd SubPrivate Sub CmdCancel_Click()/撤消添加 AdoMain.Recordset.Cancel AdoMain.Refresh CmdAddNew.Enabled = True CmdRefresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False UnActiveTextBoxEnd SubB. 貨品刪除窗體：FrmBaleDel.frm控件名稱說(shuō)明FrmBaleDel貨品刪除窗體FraMain主框架TxtBaleID貨品ID信息文本框TxtBaleName貨品名稱信息文本框TxtBlaeFrom貨品產(chǎn)地信息文本框TxtBaleSpec貨品規(guī)格信息文本框TxtBalePrice貨品價(jià)格信息文本框TxtBaleMemeo貨品備注信息文本框CmdDel刪除按鈕CmdConfirm確定操作按鈕CmdCancel撤消操作按鈕CmdRefresh刷新按鈕CmdExit退出按鈕AdoMain主ADO控件AdoTest測(cè)試ADO控件 在該窗體中當(dāng)用戶點(diǎn)擊了刪除按鈕會(huì)提示是否真正要?jiǎng)h除，如果用戶確認(rèn)，則刪除當(dāng)前記錄，否則撤消操作。具體代碼如下：Private Sub Cmddel_Click() CmdDel.Enabled = False CmdRefresh.Enabled = False CmdConfirm.Enabled = True CmdCancel.Enabled = True DaGrBale.Enabled = FalseEnd SubPrivate Sub CmdCancel_Click() AdoMain.Recordset.Cancel AdoMain.Refresh CmdDel.Enabled = True CmdRefresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False DaGrBale.Enabled = TrueEnd SubPrivate Sub CmdConfirm_Click() AdoMain.Recordset.Delete AdoMain.RecordSource = SELECT * FROM Bale AdoMain.Recordset.Requery AdoMain.Refresh CmdDel.Enabled = True CmdRefresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False DaGrBale.Enabled = TrueEnd SubC. 貨品盤點(diǎn)窗體：FrmBaleUpdate.frm控件名稱說(shuō)明FrmBaleUpdate貨品信息更新窗體FraMain主框架TxtBaleID貨品ID信息文本框TxtBaleName貨品名稱信息文本框TxtBlaeFrom貨品產(chǎn)地信息文本框TxtBaleSpec貨品規(guī)格信息文本框TxtBalePrice貨品價(jià)格信息文本框TxtBaleMemeo貨品備注信息文本框CmdUpdate修改資料按鈕CmdConfirm確定操作按鈕CmdCancel撤消操作按鈕CmdRefresh刷新按鈕CmdExit退出按鈕AdoMain主ADO控件AdoTest測(cè)試ADO控件 在該窗體中當(dāng)用戶點(diǎn)擊了更新按鈕會(huì)會(huì)激活資料修改功能，若用戶輸入完成后點(diǎn)擊確認(rèn)后，會(huì)自動(dòng)檢測(cè)是否在數(shù)據(jù)庫(kù)中有沒(méi)有重復(fù)編號(hào)的數(shù)據(jù)。若有，拒絕添加，具體代碼如下：Private Sub CmdCancel_Click()/撤消更新 AdoMain.Recordset.Cancel AdoMain.Refresh CmdUpdate.Enabled = True CmdRefresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False UnActiveTextBoxEnd SubPrivate Sub CmdConfirm_Click()/確認(rèn)更新 If TxtBaleID.Text = Or TxtBaleName.Text = Then aa = MsgBox(請(qǐng)?zhí)顚懾浧肪幪?hào)和名稱, vbOKOnly, ) Else 檢查是否有重復(fù)的貨品ID AdoTest.RecordSource = SELECT * FROM Bale WHERE BaleID= & TxtBaleID.Text & AdoTest.Refresh If Not AdoTest.Recordset.EOF And p_BaleID TxtBaleID.Text Then aa = MsgBox(相同貨品編號(hào)已經(jīng)存在，請(qǐng)重新輸入！, vbOKOnly, ) Else AdoMain.Recordset.Update CmdUpdate.Enabled = True CmdRefresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False AdoMain.RecordSource = SELECT * FROM Bale AdoMain.Recordset.Requery AdoMain.Refresh UnActiveTextBox End If End IfEnd SubPrivate Sub CmdUpdate_Click()/點(diǎn)擊更新 CmdUpdate.Enabled = False CmdRefresh.Enabled = False CmdConfirm.Enabled = True CmdCancel.Enabled = True p_BaleID = TxtBaleID.Text ActiveTextBoxEnd SubD. 主MDI窗體：MDIFrmMain.frm 窗體控件：控件名稱說(shuō)明MDIFrmMainMDI主窗體 該窗體在系統(tǒng)啟動(dòng)時(shí)作為主要的外邊界，基于MDI設(shè)計(jì)，設(shè)置各種菜單于其之上，不同的用戶登陸會(huì)顯示不同的菜單形式。 窗體代碼：Private Sub M_About_Click()/關(guān)于菜單單擊事件 FrmAbout.ShowEnd SubPrivate Sub M_BaleAdd_Click()/貨品資料添加菜單單擊事件 FrmLogin.Hide FrmBaleAdd.ShowEnd SubPrivate Sub M_BalecMove_Click() /貨品流動(dòng)菜單單擊事件 FrmLogin.Hide FrmBaleMove.ShowEnd SubPrivate Sub M_BaleUpdate_Click()/貨品資料修改菜單單擊事件 FrmLogin.Hide FrmBaleUpdate.ShowEnd SubPrivate Sub M_BaleDel_Click()/貨品刪除菜單單擊事件 FrmLogin.Hide FrmBaleDel.ShowEnd SubPrivate Sub M_DepotAdd_Click()/倉(cāng)庫(kù)添加菜單單擊事件 FrmLogin.Hide FrmDepotAdd.ShowEnd SubPrivate Sub M_DepotDel_Click()/倉(cāng)庫(kù)刪除菜單單擊事件 FrmLogin.Hide FrmDepotDel.ShowEnd SubPrivate Sub M_DepotUpdate_Click()/倉(cāng)庫(kù)資料修改菜單單擊事件 FrmLogin.Hide FrmDepotUpdate.ShowEnd SubPrivate Sub M_Exit_Click()/退出菜單單擊事件 If PubLogin Then aa = MsgBox(用戶 & PubLogin & 正在登錄中，確實(shí)要退出嗎？, vbYesNo, ) If aa = vbYes Then End End If Else End End IfEnd SubPrivate Sub M_Login_Click()/登陸菜單單擊事件 If PubLogin Then aa = MsgBox(用戶 & PubLogin & 已經(jīng)在登錄狀態(tài)！, vbO