1、- PAGE 70 - PAGE I -小型出入庫系統的設計與實現Design and Implementation of the Small Loading and Unloading System摘 要隨著信息技術的發展，傳統的統計方式在處理龐大的信息量時顯得極不適應，因此，人們對于運用計算機來輔助協調和管理自身工作的需求正在逐步提高。近來，國內外興起了一股辦公自動化的熱潮，希望能借助相關的計算機技術實現對企業辦公過程的自動化管理。目前，辦公自動化正朝著多功能，復合化和系統化的方向發展，如何有效的實現作業流程的自動化已經提到日程上來。這樣對信息流的有效組織和管理便日益成為衡量一個辦公自動化

2、系統優劣的重要標志。好用庫管小型出入庫系統就是一個由人、計算機硬件、軟件和數據資源組成的，目的在于及時、正確、準確地收集、加工、存儲、傳送和提供決策信息的微型管理信息系統。該系統主要是為了減輕工作量、降低工作誤差、提高工作效率而開發、編制的。希望通過使用本系統，為小型倉庫管理帶來便捷！開發后的庫存管理系統，是基于原有的管理模式上彌補人工操作繁瑣、查詢效果不理想、效率較低的問題。經過編譯和調試，本系統能基本解決上述問題。主要用到了一些出入庫時的操作信息，還有原料的一些基本信息。簡單易懂的操作方式、友好的用戶界面以及清晰簡潔的數據處理流程，使得本系統能夠很快被接受和掌握，較快地取代原有的全人工操作

3、方式。在數據輸入上，本系統主要有出入庫數據輸入和原料基本資料輸入兩方面。出入庫數據的輸入主要有出入庫原料的資料、出入庫原料的數量等；原料的基本資料主要有編號、名稱、價格等。當進行數據查詢時，采用相關字段排序法。當有原料登記出庫或者入庫時，在庫存總數據庫里的相應數據會及時更新，所以，從本系統獲得的數據資料都是最新的。這對于庫存的管理、數據的查詢來說，是非常有利的。好用庫管小型出入庫系統在對原有管理模式不進行很大改變的基礎上將大大提高工作效率，彌補了現有人工系統的缺陷，其可行性是顯而易見的。關鍵詞：出入庫系統；庫存管理；數據輸入；數據查詢；管理信息系統- PAGE V -Design and Im

4、plementation of the Small Loading and Unloading SystemAbstractAlong with the rapid development of computer vision technology, the traditional statistics methods can not meet the need of large amount of information processing day by day, so more and more people are interested in computer technology t

5、o assist and manage people work in demand. Recently, it is very popular to use office automation system software at home and aboard, and with the computers helps, people hope it can put the enterprise office automation system management into realization. At present, the office automation system has

6、been moving forward to multi-function, complicated operations and systematic directions, how to achieve effective automatically operational procedures more effective has been put into agenda. The effective information flow organization and management has gradually been an important signs to measure

7、an office automation system is good or not. Haoyong Inventory Management Systema small data input/output inventory system consists of people, computer hardware, software and data resources, it is a micro-information management system with the objective of decision information collecting、processing、s

8、toring、delivering timely, correctly and accurately. This system is developed to reduce the workload and errors, makes the work more effective, and hope it can bring convenience to your job! This inventory management system is developed without original management model problems of too complicated ma

9、nual operation, not effective inquiries results, and after compiling and debugging of the program, this system can solve above 2 problems. Some information such as inventory operation information and raw material information has been developed for this system. Simple and easily used operation interf

10、ace, friendly user interface and simple data processing programs, have made the user quickly to familiar and master with this system, and forget the existing artificial manner of operation.When doing the data input, this system is mainly including two functions such as inventory database information

11、 inputs and basic raw material information inputs. Database information input mainly includes raw material information, raw material quantities and etc; the basic information of the raw material includes serial number, description, pricing, materials and etc. When doing the data inquiries, the relat

12、ed data will be put in order by related field method. And the related information in the database of this inventory system will be updated once there are new inputs/outputs, this will make sure the data collected from this system up to date and it would be much beneficial to inventory management and

13、 data inquiries.Haoyong Inventory Management Systema small data input/output inventory system has been improved with only a few changes to original system at the workers efficiency, and the existing manual system deficiencies, it is obvious to see its feasibility of this system.Key Words：Loading and

14、 Unloading System；Inventory Management; Data Input；Data Inquiry；Information Management System目 錄 TOC o 1-3 h z u HYPERLINK l _Toc177564328 摘 要 PAGEREF _Toc177564328 h I HYPERLINK l _Toc177564329 Abstract PAGEREF _Toc177564329 h II HYPERLINK l _Toc177564330 引 言 PAGEREF _Toc177564330 h 1 HYPERLINK l _

15、Toc177564331 1系統和開發工具介紹 PAGEREF _Toc177564331 h 2 HYPERLINK l _Toc177564332 1.1系統介紹 PAGEREF _Toc177564332 h 2 HYPERLINK l _Toc177564333 1.1.1系統名稱 PAGEREF _Toc177564333 h 2 HYPERLINK l _Toc177564334 1.1.2模擬說明 PAGEREF _Toc177564334 h 2 HYPERLINK l _Toc177564335 1.1.3系統功能 PAGEREF _Toc177564335 h 2 HYPE

16、RLINK l _Toc177564336 1.1.4系統運行條件 PAGEREF _Toc177564336 h 2 HYPERLINK l _Toc177564337 1.2開發工具介紹 PAGEREF _Toc177564337 h 3 HYPERLINK l _Toc177564338 1.2.1 Microsoft Visual Basic 6.0 PAGEREF _Toc177564338 h 3 HYPERLINK l _Toc177564339 1.2.2 SQL Server 2000 PAGEREF _Toc177564339 h 3 HYPERLINK l _Toc177

17、564340 2 系統分析 PAGEREF _Toc177564340 h 4 HYPERLINK l _Toc177564341 2.1現有狀況分析 PAGEREF _Toc177564341 h 4 HYPERLINK l _Toc177564342 2.1.1 現有業務流程分析 PAGEREF _Toc177564342 h 4 HYPERLINK l _Toc177564343 2.1.2存在的問題 PAGEREF _Toc177564343 h 5 HYPERLINK l _Toc177564344 2.2系統可行性分析 PAGEREF _Toc177564344 h 5 HYPER

18、LINK l _Toc177564345 3 系統設計 PAGEREF _Toc177564345 h 7 HYPERLINK l _Toc177564346 3.1總體設計 PAGEREF _Toc177564346 h 7 HYPERLINK l _Toc177564347 3.1.1系統設計目標 PAGEREF _Toc177564347 h 7 HYPERLINK l _Toc177564348 3.1.2系統基本功能 PAGEREF _Toc177564348 h 7 HYPERLINK l _Toc177564349 3.1.3數據庫規劃 PAGEREF _Toc177564349

19、 h 7 HYPERLINK l _Toc177564350 3.1.4系統數據流程圖 PAGEREF _Toc177564350 h 9 HYPERLINK l _Toc177564351 3.2程序模塊設計及說明 PAGEREF _Toc177564351 h 11 HYPERLINK l _Toc177564352 3.2.1用戶登錄模塊 PAGEREF _Toc177564352 h 11 HYPERLINK l _Toc177564353 3.2.2主窗體模塊 PAGEREF _Toc177564353 h 13 HYPERLINK l _Toc177564354 3.2.3操作員維

20、護模塊 PAGEREF _Toc177564354 h 14 HYPERLINK l _Toc177564355 3.2.4原料基本信息維護模塊 PAGEREF _Toc177564355 h 16 HYPERLINK l _Toc177564356 3.2.5入庫模塊 PAGEREF _Toc177564356 h 18 HYPERLINK l _Toc177564357 3.2.6出庫模塊 PAGEREF _Toc177564357 h 20 HYPERLINK l _Toc177564358 3.2.7查詢模塊 PAGEREF _Toc177564358 h 21 HYPERLINK l

21、 _Toc177564359 3.2.8盤點模塊 PAGEREF _Toc177564359 h 26 HYPERLINK l _Toc177564360 3.2.9備份恢復模塊 PAGEREF _Toc177564360 h 28 HYPERLINK l _Toc177564361 4 系統測試 PAGEREF _Toc177564361 h 32 HYPERLINK l _Toc177564362 4.1總體測試 PAGEREF _Toc177564362 h 32 HYPERLINK l _Toc177564363 4.1.1測試用的數據和條件 PAGEREF _Toc177564363

22、 h 32 HYPERLINK l _Toc177564364 4.1.2非法數據測試 PAGEREF _Toc177564364 h 32 HYPERLINK l _Toc177564365 4.2白盒測試 PAGEREF _Toc177564365 h 33 HYPERLINK l _Toc177564366 4.3黑盒測試 PAGEREF _Toc177564366 h 35 HYPERLINK l _Toc177564367 5 系統的技術特點 PAGEREF _Toc177564367 h 37 HYPERLINK l _Toc177564368 5.1使用ADO控件來訪問數據庫 P

23、AGEREF _Toc177564368 h 37 HYPERLINK l _Toc177564369 5.2使用ADO對象模型來訪問數據庫 PAGEREF _Toc177564369 h 37 HYPERLINK l _Toc177564370 結 論 PAGEREF _Toc177564370 h 40 HYPERLINK l _Toc177564371 參 考 文 獻 PAGEREF _Toc177564371 h 43 HYPERLINK l _Toc177564372 附錄A原代碼清單 PAGEREF _Toc177564372 h 44 HYPERLINK l _Toc177564

24、373 附錄B英譯漢 PAGEREF _Toc177564373 h 63 HYPERLINK l _Toc177564374 攻讀碩士學位期間發表學術論文情況 PAGEREF _Toc177564374 h 70 HYPERLINK l _Toc177564375 致 謝 PAGEREF _Toc177564375 h 71 HYPERLINK l _Toc177564376 大連理工大學學位論文版權使用授權書 PAGEREF _Toc177564376 h 72- PAGE 69 -引 言今天，人類已經步入21世紀！這是一個變化難測的世紀，一個催人奮進的時代。科學技術飛速發展，知識更替日新

25、月異。回眸走過的20世紀，20世紀可以說是人類歷史上的又一個轉折點，第一臺計算機的誕生直到今天在各行各業中的應用，計算機的出現使得人們的生活、工作發生了質的變化！隨著信息技術的發展，傳統的統計方式在處理龐大的信息量時顯得極不適應，因此，人們對于運用計算機來輔助協調和管理自身工作的需求正在逐步提高。近來，國內外興起了一股辦公自動化的熱潮，希望能借助相關的計算機技術實現對企業辦公過程的自動化管理。目前，辦公自動化正朝著多功能，復合化和系統化的方向發展，如何有效的實現作業流程的自動化已經提到日程上來。這樣對信息流的有效組織和管理便日益成為衡量一個辦公自動化系統優劣的重要標志。計算機信息技術的發展，為

26、企業注入了新動力，使企業在競爭中處于優勢，為企業明天的生存和發展創造了機會。計算機信息管理即MIS，就是計算機信息技術高度發展和在企業管理中運用的產物。現今，越來越多的企業利用MIS進行企業管理、計劃和決策工作，MIS在戰略級、策略級、作業級這三級管理信息中的重要作用使得MIS成為現代企業生存和發展的必備條件1。隨著MIS的日趨成熟和完善，勢必在未來成為企業經營管理中的一大關鍵環節2-3！好用庫管小型出入庫系統就是一個由人、計算機硬件、軟件和數據資源組成的，目的在于及時、正確、準確地收集、加工、存儲、傳送和提供決策信息的微型管理信息系統。該系統主要是為了減輕工作量、降低工作誤差、提高工作效率而

27、開發、編制的。希望通過使用本系統，為小型倉庫管理帶來便捷！由于個人技術水平的有限和時間的倉促，本系統難免有不足之處，還懇請老師見諒！1系統和開發工具介紹1.1系統介紹1.1.1系統名稱 針對一個小型的原料倉庫，本文開發了一個基于原料出入庫的系統，名為好用庫管小型出入庫系統。1.1.2模擬說明有一家小型規模的原料倉庫，目前為止該倉庫的出入庫管理和庫存管理都是由人工統計完成，其員工日常工作的工作量比較繁重且出錯率較高，效率較低。本文所開發的系統可以簡單模擬這個小型規模原料倉庫的基本業務流程，輔助該倉庫的庫管人員完成日常的出入庫管理工作和庫存管理工作。1.1.3系統功能本軟件系統主要作用包括對小型原

28、料倉庫的日常存貨管理，包含出庫、入庫和庫存量的盤點，對原料倉庫內所有產品的查詢功能，可以按照不同的條件如產品編號或產品名稱進行查詢；對已有的產品數據庫進行增加、刪除等操作功能。本軟件的意旨在于：通過計算機對信息的管理，能夠使原料倉庫的日常庫存管理、信息查詢變得簡單、快捷，減輕工作人員繁重的工作量、降低工作誤差、提高工作效率。1.1.4系統運行條件（1）硬件系統環境 CPU：C300或更高； 內存：64 MB或更大； 硬盤：50MB或更大。（2）軟件系統環境 Microsoft Windows 98以上； Microsoft Visual Basic 6.0以上； Microsoft SQL S

29、ever7.0以上。 1.2開發工具介紹1.2.1 Microsoft Visual Basic 6.0Visual Basic 6.0簡稱VB6.0，是微軟公司推出的可視化編程工具MSDN之一，是目前世界上使用最廣泛的程序開發工具。如果你是一個對編程一無所知，而又迫切希望掌握一種快捷實用的編程語言的初學者，那選擇VB 6.0沒錯的。即使考慮到VB程序本身編譯和運行效率較低的不足，單是它的快捷的開發速度，簡單易學的語法，體貼便利的開發環境，它仍不失一款優秀編程工具，是初學者的首選。 也許你會問，我以前沒學過任何一種語言，我能快速上手嗎？別擔心，沒問題VB的語法的和QBASIB語言是基本相同的，

30、也就是說它的語法是最容易被初學者所接受的。另外VB提供的是可視化的開發環境，程序人員可以象搭積木一樣構建出程序的界面，而且VB提供了豐富的控件組，省去了程序人員自己寫代碼實現這些效果的麻煩，這樣程序人員就能把更多的精力放在程序功能的實現上，所以VB學起來簡單，用起來方便。接著看看VB語言的前景，在目前各種編程語言共存的時代，VB會不會落伍呢？當然不會了，在本人寫這篇文章的同時，微軟已經透露了VB7.0將完全面向對象的消息，可以肯定下一代VB的功能一定會強大很多，VB程序員總算可以放心了，VB不會落后于時代，畢竟它是使用人數最多的優秀的開發工具4-7。 1.2.2 SQL Server 2000

31、 SQL Server是一個后臺數據庫管理系統，它功能強大、操作簡便，日益為廣大數據庫用戶所喜愛，越來越多的開發工具提供了與SQL Server的接口。了解和掌握SQL Server的功用對一個數據庫開發管理人員來說是非常必要的。SQL Server 2000在SQL Server 7.0的基礎上新增了很多功能，使用戶能更方便、快捷地管理數據庫、開發應用程序。SQL Server 2000全面地擴展了SQL Server 7.0的性能、可靠性和易用性，使它成為一個杰出的數據庫平臺，可用于大型聯機事務、數據倉庫以及電子商務等8,9。2 系統分析2.1現有狀況分析在設計一個系統之前，需要對現有系統

32、進行基本分析。以輔助系統設計人員更清晰的了解所需要解決的問題，從而提出一個真正切實可行的方案10-12。2.1.1 現有業務流程分析本文的研究對象為一個小型的原料倉庫，其基本的業務流程分析如下：（1）原料入庫的過程當預定的原料送到倉庫時，倉庫檢驗員根據定貨單核對原料種類和數目，確認無誤后，由倉庫管理員進行入庫登記填寫入庫單，將原料入庫。（2）原料出庫的過程當有人提貨時，倉庫檢驗員根據提貨單核對原料的種類和數目，確認無誤后，由倉庫管理員進行出庫登記填寫出庫單，將原料出庫。原料出入庫、數據記錄與處理的業務流程圖如圖2.1所示：用戶訂貨單提貨單上級部門出庫單入庫單統計報表倉庫統計員倉管員檢查員注1）

33、本文側重點在于出入庫的數據處理，不涉及出入庫數據以外的數據。圖2.1業務流程Fig. 2.1 Bussiness process 2.1.2存在的問題到目前為止，該倉庫所采用的管理方式仍舊是全人工管理，因此，在整個運營管理過程中，該倉庫存在許多問題，現總結如下：（1）倉庫的出入庫記錄全部由人工完成，工作量非常大，而且非常繁瑣；（2）倉庫經常出現數據誤差的現象；（3）雖然有專職人員負責數據核對與庫存檢點工作，但工作效率非常低。一段時間下來，隨著倉庫中原料的增多，單靠人工管理顯得力不從心。基于以上分析，綜合所學的知識，本文準備開發一個名為好用庫管 的小型出入庫系統。該系統主要針對原料庫存量和出入庫

34、的記錄信息進行管理和存儲加工，利用計算機計算的精確性，降低在操作過程中產生的誤差，該系統的主控權在倉庫管理人員手中。同時，該軟件還提供了快捷、簡單的查詢系統，能夠在短時間內提供所需的相關信息，節省時間和工作環節，從一定程度上提高工作效率。2.2系統可行性分析該原料倉庫的出入庫管理一直采用全人工方式，在操作上存在效率低、誤差多的缺點，且要查詢相關庫存資料時，消耗的人力和時間比較多。本文撰寫的最終目的在于利用所學的知識，應用計算機技術，結合相關數據資料，建立庫存原料數據庫、出入庫數據庫等相關數據庫；為軟件系統提供可靠的數據源，發揮其強大的數據加工處理功能創造了條件；對輸入的數據能夠進行整理歸檔，進

35、行相適處理工作后再輸出有用的數據信息；同時，系統能夠及時統計相應的數據資料，為查詢或輸出等提供即時的數據資料。原有的人工管理模式和操作流程基本是合理的，問題在于具體實施時的繁瑣與低效率。如何找到一種比較好的方法，使得原有的管理模式在不發生很大改變的情況下，提高工作效率，變繁瑣為快捷？既要滿足原有工作的需要，又要容易被員工接受，并且在短時間內可以基本過渡到新方式？以上正是本文所要解決的問題。開發后的庫存管理系統，是基于原有的管理模式上彌補人工操作繁瑣、查詢效果不理想、效率較低的問題。經過編譯和調試，本系統能基本解決上述問題。主要用到了一些出入庫時的操作信息，還有原料的一些基本信息。簡單易懂的操作

36、方式、友好的用戶界面以及清晰簡潔的數據處理流程，使得本系統能夠很快被接受和掌握，較快地取代原有的全人工操作方式。在數據輸入上，本系統主要有出入庫數據輸入和原料基本資料輸入兩方面。出入庫數據的輸入主要有出入庫原料的資料、出入庫原料的數量等；原料的基本資料主要有編號、名稱、價格等。當進行數據查詢時，采用相關字段排序法。當有原料登記出庫或者入庫時，在庫存總數據庫里的相應數據會及時更新，所以，從本系統獲得的數據資料都是最新的。這對于庫存的管理、數據的查詢來說，是非常有利的。好用庫管小型出入庫系統對原有管理模式下的常規業務流程進行簡單的模擬，并沒有很大改變原有業務流程，同時其應用的技術（visual b

37、asic和SQL server）均為目前比較流行的應用工具，其具有很強大的系統實現能力。因此，其可行性是顯而易見的。采用好用庫管小型出入庫系統后的倉庫必然將大大提高工作效率，同時還可以彌補了現有人工系統的缺陷。系統流程如圖2.2所示：出入庫單據數據處理基本資料數據庫庫存數據庫出庫入庫數據庫數據報表查詢顯示結果顯示報表圖2.2 系統流程Fig. 2.2 System process3 系統設計3.1總體設計3.1.1系統設計目標（1）方便的數據輸入方式，良好的人機界面13,14，盡量避免漢字和長字符串的人工重復輸入；（2）靈活地查詢性能，能快速實現庫存數據的查詢；（3）考慮到倉庫原料的多樣性，對

38、新數據和無用數據也能給于處理；（4）把目前基本上是“靜態”的庫存管理數據變為“動態”的數據，能隨時提供庫存現狀信息；（5）為了以后系統的改進，整個系統可以作為一個封裝體。3.1.2系統基本功能（1）用戶登錄；（2）入庫管理；（3）出庫管理；（4）查詢；（5）盤點；（6）系統維護（增加、減少操作員，原料基本資料維護，數據備份、數據恢復）。系統的功能結構圖繪制如圖4.1所示：3.1.3數據庫規劃針對以上功能的實現，結合對功能實現的方便，數據庫結構精簡、合理性、易維護等15-17因素的考慮，總共建了5張表格，描述見表3.1-表3.5：表3.1 login：操作員數據表Tab. 3.1 login:

39、Operator data sheet字段名數據類型數據長度編號int4用戶名varchar50密碼varchar50管理員admin登錄操作員登錄入庫管理出庫管理查詢盤點系統維護離開圖3.1 系統功能機構Fig. 3.1 Function structure of the system表3.2 productin：原料入庫數據表Tab. 3.2 productin: Raw material loading data sheet字段名數據類型數據長度入庫單編號int4產品編號int4產品名稱varchar50產品單位varchar50入庫價格money8入庫數量int4入庫時間varchar

40、50表3.3 productout：原料出庫數據表Tab. 3.3 productout: Raw material unloading data sheet字段名數據類型數據長度出庫單編號int4產品編號int4產品名稱varchar50產品單位varchar50出庫價格money8出庫數量int4出庫時間int4表3.4 product：原料庫存數據表Tab. 3.4 product: Raw material inventory data sheet字段名數據類型數據長度產品編號int4產品名稱varchar50產品單位varchar50產品價格money8產品數量int4表3.5 pr

41、oductnew：原料基本信息數據表Tab. 3.5 productnew: Raw material information data sheet字段名數據類型數據長度產品編號int4產品名稱varchar50產品單位varchar50產品價格money83.1.4系統數據流程圖根據功能機構圖和以上5張表，系統的信息數據流程圖如圖3.2所示:表2表3表4表5啟動程序登錄模塊表1操作員信息輸入信息正確管理員入庫模塊表4,5入庫數量輸入表2出庫模塊出庫數量輸入表4表3查詢模塊表2,3,4,5顯示查詢結果盤點模塊表2,3,4顯示報表操作員維護模塊kuaikuai kuai塊表1原料基本信息維護模塊

42、表5數據備份和恢復模塊表1,2,3,4,5入庫完成出庫完成表4login表（操作員數據表）productin表（原料入庫數據表）productout表（原料出庫數據表）product表（原料庫存數據表）productnew表（原料基本信息數據表）注1）圖3.2 信息數據流程Fig. 3.2 Information data processNNYY3.2程序模塊設計及說明3.2.1用戶登錄模塊 界面設計：用戶登錄界面如圖3.3所示：圖3.3 登錄界面Fig 3.3 Sign in interface窗體名：frmLogin.frm（1）功能分析：該窗體是系統的入口，用來判定登錄者是否有權使用本系

43、統，只有用戶名和密碼輸入都正確才能進入系統。而且，根據用戶名的不同，能夠使用系統的權限也不同，admin(倉庫管理員)能使用所有的系統功能，其它用戶（操作員）不能使用系統維護功能（操作員維護、原料基本資料維護和數據備份恢復），但能使用除此之外的系統功能。（2）功能實現：該窗體由兩個Label控件（用來標明輸入用戶名和密碼的兩個文本框）兩個TextBox控件（用來輸入用戶名和密碼）和一個CommandButton控件(用來判斷輸入的用戶名和密碼是否正確)組成。使用ADO對象模型來訪問login表（操作員數據表）。代碼如下： Dim strsql As StringSet cn = CreateO

44、bject(adodb.connection)Set rs = CreateObject(adodb.recordset)cn.Open conn_stringstrsql = select * from login where 用戶名= & Text1(0).Text & rs.Open strsql, cn, 3, 3注：conn_string是本文在Module1模塊中聲明的全局級常量（Public Const conn_string= “DRIVER=SQLServer;SERVER=(local);UID=sa;DATABASE=product;AutoTranslate=No;pw

45、d=”）。當兩個文本框輸入數據后，按驗證按鈕實現信息核對，若正確則調用frmMain.frm窗體；若出錯則有提示信息，再次接收輸入。該模塊還實現了權限的判斷，當用戶名是“admin”時，正確登錄后，能使用所有的系統功能；其它的用戶名登錄后，不能使用系統維護功能（操作員維護、原料基本資料維護和數據備份恢復）。代碼如下：dim g_login As String g_login = Text1(0).TextIf g_login admin Then frmMain.Command1.Enabled = False frmMain.Command6.Enabled = False frmMain.

46、Command7.Enabled = False frmMain.newin.Enabled = False frmMain.backup.Enabled = False frmMain.User.Enabled = False End If當不是以用戶名“admin”登錄時，主窗體的一些菜單的Enabled屬性被設為了False, 顯示為灰色,不可用。如圖3.4所示：圖3.4非管理員用戶登錄的結果Fig. 3.4 The sign in result of non-administrator3.2.2主窗體模塊界面設計：主窗體各個模塊的設置如圖3.5所示： 圖3.5 主窗體Fig. 3.5

47、Main window窗體名：frmMain.frm（1）功能分析：該窗體是系統的主界面，所有的系統應用都靠選取功能菜單及其下拉菜單中的操作項或按窗體上的快捷按鈕進入相應的操作。（2）功能實現：首先用菜單編輯器編輯菜單：一級菜單“文件”（包括三個二級菜單“入庫”、“出庫”和“退出”）；一級菜單“查詢統計”（包括兩個二級菜單“查詢”和“盤點統計”）；一級菜單“系統維護”（包括三個二級菜單“操作員維護”、“新產品”和“備份恢復”）；一級菜單“幫助”。再在窗體上建8個快捷按鈕（“入庫”、“出庫”、“查詢”、“盤點”、“用戶”、“新產品”、“備份恢復”和“離開”）。通過調用窗體frmInput.frm

48、實現原料入庫功能。通過調用窗體frmSell.frm實現原料出庫功能。通過調用窗體frmSearch.frm實現對原料出入庫信息和原料庫存信息地查詢功能。通過調用窗體frmTable.frm實現對原料出入庫報表和原料庫存報表地顯示功能。通過調用窗體frmUser.frm實現操作員信息地維護功能。通過調用窗體frmNew.frm實現對原料基本信息地維護功能。通過調用窗體frmBackup.frm實現對系統所有信息數據地備份和恢復功能。通過一級菜單“文件”下的二級菜單“退出”或快捷按鈕“離開”實現退出系統的功能。3.2.3操作員維護模塊界面設計：操作員維護界面如圖3.6所示：窗體名：frmUser

49、.frm（1）功能分析：該窗體用于實現添加或刪除操作員的功能。（2）功能實現：使用ADO控件來訪問login表（操作員數據表），將DataGrid控件和ADODC控件綁定。當按刪除鈕時執行以下代碼：Private Sub Command2_Click() Dim varBmk As Variant Dim Massage As Integer If DataGrid1.SelBookmarks.Count = 0 Then MsgBox 請先選定要刪除的行 Exit Sub End If DataGrid1.AllowDelete = True Massage = MsgBox(確定要刪除嗎？

50、, vbYesNo) If Massage = vbNo Then Exit Sub End If For Each varBmk In DataGrid1.SelBookmarks With Adodc1.Recordset .Bookmark = varBmk .Delete End With Next Adodc1.RefreshEnd Sub 實現刪除功能。圖3.6 操作員維護界面Fig. 3.6 Operator maintenance interface當按下添加鈕時，調用窗體frmUserin.frm，如圖3.7所示：圖3.7點擊圖3.6中“添加”按鈕后出現的界面Fig. 3.7

51、 The interface after press “add”botton in Fig. 3.6該窗體使用ADO對象模型來訪問login表（操作員數據表）。當兩個文本框輸入數據后，按添加按鈕實現信息核對，若用戶名已存在則出錯，并提示該用戶已存在，請另選用戶名，再次接收輸入。若沒問題則添加新操作員成功，并提示添加成功。若按關閉按鈕則關閉該窗體，回到frmUser.frm窗體。3.2.4原料基本信息維護模塊界面設計：原料基本信息界面如圖3.8所示：窗體名：frmNew.frm（1）功能分析：該窗體用于實現添加或刪除原料種類的功能。（2）功能實現：使用ADO控件來訪問productnew表（原料

52、基本信息數據表），將Data控件和ADODC控件綁定。當按刪除鈕時執行以下代碼： Private Sub Command2_Click() Dim varBmk As Variant Dim Massage As Integer If DataGrid1.SelBookmarks.Count = 0 Then MsgBox 請先選定要刪除的行 Exit Sub End If DataGrid1.AllowDelete = True Massage = MsgBox(確定要刪除嗎？, vbYesNo) If Massage = vbNo Then Exit Sub End If For Each

53、 varBmk In DataGrid1.SelBookmarks With Adodc1.Recordset . Bookmark = varBmk .Delete End With Next Adodc1.RefreshEnd Sub實現刪除功能，同時更新productnew表（原料基本信息數據表）。圖3.8 原料基本信息界面Fig. 3.8 Raw material information interface當按下添加鈕時，調用窗體frmNewin.frm，如圖3.9所示：圖3.9點擊圖3.8中“添加”按鈕后出現的界面Fig. 3.9 The interface after press

54、“add”botton in Fig. 3.8該窗體使用ADO對象模型來訪問productnew表（原料基本信息數據表）。當三個文本框輸入數據后，按添加按鈕實現信息核對，若產品名稱已存在則出錯，并提示該產品已存在，再次接收輸入。若沒問題則添加新產品成功，并提示添加成功，同時更新productnew表（原料基本信息數據表）。若按關閉按鈕則關閉該窗體，回到frmNew.frm窗體。3.2.5入庫模塊界面設計：入庫界面如圖3.10所示：窗體名：frmInput.frm（1）功能分析：該窗體用于實現原料入庫的功能。（2）功能實現：該窗體是原料入庫的界面，使用ADO對象模型來訪問productnew表（

55、原料基本信息數據表）、product表（原料庫存數據表）和productin表（原料入庫數據表）。圖3.10 入庫界面Fig. 3.10 Loading interface為了得到方便的數據輸入方式和良好的人機界面，應盡量避免漢字和長字符串的人工重復輸入，在窗體中用了一個ComboBox控件和三個TextBox控件來描述入庫原料的基本資料，再用一個TextBox控件來輸入入庫原料的數量。首先，在加載該窗體時，把productnew表（原料基本信息數據表）中“產品名稱”字段的數據加入到下拉框里，代碼如下： Private Sub Form_Load() Dim strsql As String

56、Set cn = CreateObject(adodb.connection) Set rs = CreateObject(adodb.recordset) cn.Open conn_string strsql = select * from productnew rs.Open strsql, cn, 1, 1 Do Until rs.EOF Combo1.AddItem rs(產品名稱) 產品名稱 rs.MoveNext Loop If Combo1.ListCount 0 Then Combo1.ListIndex = 0 End If End Sub其次，加載該窗體后，在下拉框里選取所

57、要入庫的原料名稱，再按確定鈕，把productnew表（原料基本信息數據表）中 “產品編號”字段、“產品單位” 字段和“產品價格”字段的相應數據顯示在三個文本框中。最后，在第四個“產品數量”文本框中輸入要入庫原料的數量，按入庫鈕完成原料入庫，同時更新product表（原料庫存數據表）和productin表（原料入庫數據表）。3.2.6出庫模塊界面設計：出庫界面如圖3.11所示：圖3.11 出庫界面Fig. 3.11 Unloading interface窗體名：frmSell.frm（1）功能分析：該窗體用于實現原料出庫的功能。（2）功能實現：該窗體是原料出庫的界面，使用ADO對象模型來訪問p

58、roduct表（原料庫存數據表）和productout表（原料出庫數據表）。為了得到方便的數據輸入方式和良好的人機界面，應盡量避免漢字和長字符串的人工重復輸入，在窗體中用了一個ComboBox控件和四個TextBox控件來描述出庫原料的基本資料，再用一個TextBox控件來輸入入庫原料的數量。首先，在加載該窗體時，把product表（原料庫存數據表）中“產品名稱”字段的數據加入到下拉框里，代碼如下： Private Sub Form_Load()Dim strsql As String Set cn = CreateObject(adodb.connection) Set rs = Creat

59、eObject(adodb.recordset) cn.Open conn_string strsql = select * from product rs.Open strsql, cn, 1, 1 Do Until rs.EOF Combo1.AddItem rs(產品名稱) rs.MoveNext Loop If Combo1.ListCount 0 Then Combo1.ListIndex = 0 End If End Sub其次，加載該窗體后，在下拉框里選取所要入庫的原料名稱，再按確定鈕，把product表（原料庫存數據表）中 “產品編號”字段、“產品單位” 字段、“產品價格”字段

60、和“產品數量”字段的相應數據顯示在四個文本框中。最后，在第五個“產品數量”文本框中輸入要出庫原料的數量，按出庫鈕，若出庫原料的數量大于庫存原料的數量則出錯并提示庫存不夠；若出庫原料的數量小于庫存原料的數量則完成原料出庫，同時更新product表（原料庫存數據表）和productout表（原料出庫數據表）。3.2.7查詢模塊界面設計：查詢功能所用到的界面如圖3.12至圖3.15所示。窗體名：frmSeach.frm（1）功能分析：該窗體能靈活地進行查詢，能快速實現原料庫存數據的查詢和原料出入庫單據的查詢。（2）功能實現：該窗體使用ADO對象模型來訪問productin表（原料入庫數據表）、pro