VB怡源休閑食品管理系統(tǒng)

1、怡源休閑食品管理系統(tǒng)摘 要本系統(tǒng)是針對怡源休閑食品供貨商店而開發(fā)的，系統(tǒng)開發(fā)主要包括數(shù)據(jù)庫的建立和后臺的維護。本系統(tǒng)主要實現(xiàn)對休閑食品的入庫單、出庫單、入庫退單、出庫退單以及管理系統(tǒng)的銷售查詢和庫存查詢，通過各項功能的實現(xiàn)，可以便捷處理商店的食品數(shù)據(jù)信息，這樣提高管理的高效率和準確性。管理系統(tǒng)采用Visual Basic 6.0 軟件和Access 2003實現(xiàn)系統(tǒng)的功能。Visual Basic 6.0 的優(yōu)勢可視化編程和最直觀的編程方法，程序人員只需繪制界面，無需編程, 自動產(chǎn)生界面代碼,就可以完成許多步驟，這樣大大的提高了程序設(shè)計的效率，它的用戶界面良好，并且兼容性強。使用Access

2、2003數(shù)據(jù)庫是因為建立功能完善的數(shù)據(jù)庫管理系統(tǒng)提供了方便，也使得普通用戶不必編寫代碼，就可以完成大部分數(shù)據(jù)管理的任務(wù)。它不但能滿足小型商店供貨管理系統(tǒng)實際需求，而且可以節(jié)省該項目的開發(fā)成本。 關(guān)鍵詞：食品管理系統(tǒng)，數(shù)據(jù)庫，Visual Basic 6.0, Access 2003 Yiyuan Leisure Food Management SystemABSTRACTThis system is aimed at satisfying source snack food supply stores and development, system development mainly inc

3、ludes the database establishment and the maintenance, and use various language to realize its function. This system mainly realize to the leisure food and outbound order, single and outbound incoming back refund single and management system sales query and stock inquiry, through the realization of t

4、he function, and the food handle shop, so that to improve management data and information of high efficiency and accuracy.The use of large analysis and investigation data, management system users Visual Basic 6.0 software and system function of Access 2003 realization. Visual Basic 6.0 advantage Vis

5、ual programming and the most intuitive programming methods, procedures personnel only draw interface, automatically generated no programming interface, can be completed many steps. so greatly improve the efficiency of the program design, and its user interface is good, and good compatibility. Use th

6、e Access database established the function is perfect because the database management system provides convenient, also makes ordinary users dont have to write the code, we can finish the task of most data management. It can not only satisfy the small and medium-sized enterprise actual requirement, c

7、ommodity and saves the project development costs. KEY WORDS: Food Management System, Database, Visual Basic 6.0, Access 2003目錄前言1第1章 系統(tǒng)分析21.1 開發(fā)背景21.2 可行性分析21.2.1 經(jīng)濟可行性分析31.2.2 技術(shù)可行性分析31.2.3 運營可行性分析31.3 數(shù)據(jù)字典3第2章 系統(tǒng)設(shè)計52.1 代碼設(shè)計52.1.1 商品入庫退單票號設(shè)計52.1.2 商品批號設(shè)計52.2 數(shù)據(jù)庫設(shè)計52.2.1 概念結(jié)構(gòu)設(shè)計62.2.2 邏輯結(jié)構(gòu)設(shè)計62.2.3 物理

8、結(jié)構(gòu)設(shè)計72.3 系統(tǒng)功能模塊設(shè)計102.4 輸入輸出設(shè)計132.4.1 輸入設(shè)計132.4.2 輸出設(shè)計14第3章 系統(tǒng)實施173.1 開發(fā)工具的選擇173.2 程序清單17結(jié)論23謝 辭24參考文獻25前言管理信息系統(tǒng)（MIS）是對一個組織（單位、企業(yè)或部門）進行全面管理的人和計算機相結(jié)合的系統(tǒng)，它綜合運用計算機技術(shù)、信息技術(shù)、管理技術(shù)和決策技術(shù)，與現(xiàn)代化的管理思想、方法和手段相結(jié)合起來，輔助管理人員進行管理和決策。它不僅是一個技術(shù)系統(tǒng)，也是一個社會系統(tǒng)。從產(chǎn)品的供應(yīng)商到消費者的手中，中間流通環(huán)節(jié)起到非常重要的地位。怡源休閑食品商店作為一個代理店和送貨中心，數(shù)據(jù)的處理非常關(guān)鍵。目前，發(fā)現(xiàn)在

9、手工操作的情況下，數(shù)據(jù)的及時更新和了解十分重要，比如當采購時需要了解哪類食品缺貨多少，客戶需求數(shù)量，食品種類，有時候由于訂單較多，相同名稱相同型號的商品也有可能重復，而無法確定是哪一張采購訂單到貨，哪一張沒有到貨。再例如銷售商品時，就需要了解到這個單子上的這批商品到底有庫存還是已經(jīng)缺貨，送貨時間以及地點。僅依靠手工操作，關(guān)系到食品信息以及供應(yīng)商、客戶的信息處理十分繁瑣，這一系列的問題亟待解決。目前市面上已經(jīng)出現(xiàn)了很多貨物管理軟件，但是行業(yè)不相同，對軟件要求也不相同。本系統(tǒng)針對休閑食品商品庫存管理存在的特殊性，統(tǒng)一規(guī)劃，開發(fā)出符合食品商品流通企業(yè)的庫存管理軟件。開發(fā)與設(shè)計一個符合小型私營企業(yè)的庫

10、存管理系統(tǒng)，必須有一個合理的設(shè)計指導。通過合理選擇數(shù)據(jù)結(jié)構(gòu)、操作系統(tǒng)以及開發(fā)環(huán)境，構(gòu)建一個合理、完善的食品管理系統(tǒng)，才能充分發(fā)揮計算機信息管理的優(yōu)勢。為公司建立一個集人員管理、采購、銷售、庫存查詢和庫存盤點一身的管理系統(tǒng)。系統(tǒng)目的在于幫助經(jīng)營者實現(xiàn)對商品的優(yōu)化管理。近些年來,中間流通環(huán)節(jié)的公司數(shù)量大增,市場競爭加劇。系統(tǒng)中的入庫登記、出庫登記可以查看到商品的增減情況，還有更多的查詢模塊，隨時反映商品的流通狀況。此系統(tǒng)運用Visual Basic 6.0和Access 2003數(shù)據(jù)，界面友好，功能強大，操作簡單，使管理員的日常管理工作從以前繁瑣的事務(wù)中解放出來，從而提高了工作效率，更具有競爭力。

11、 第1章 系統(tǒng)分析1.1 開發(fā)背景從產(chǎn)品的供應(yīng)商到消費者的手中，中間流通環(huán)節(jié)起到非常重要的地位。怡源休閑食品商店作為一個代理店和送貨中心，數(shù)據(jù)的處理非常關(guān)鍵。目前，發(fā)現(xiàn)在手工操作的情況下，各個部門間的溝通相當困難，比如當采購部門下完采購訂單后，倉庫是否如期到貨，必須去庫房詢問，而且即使詢問了，有時候由于訂單較多，相同名稱相同型號的商品也有可能重復，而無法確定是哪一張采購訂單到貨，哪一張沒有到貨。這一系列的問題亟待解決。目前市面上已經(jīng)出現(xiàn)了很多商品管理軟件，但是行業(yè)不相同，對軟件要求也不相同。本系統(tǒng)針對休閑食品商品庫存管理存在的特殊性，統(tǒng)一規(guī)劃，開發(fā)出符合商品流通公司的管理軟件。開發(fā)與設(shè)計一個符

12、合小型私營企業(yè)的管理系統(tǒng)，必須有一個合理的設(shè)計指導。通過合理選擇數(shù)據(jù)結(jié)構(gòu)、操作系統(tǒng)以及開發(fā)環(huán)境，構(gòu)建一個合理、完善的食品管理系統(tǒng)，才能充分發(fā)揮計算機信息管理的優(yōu)勢。為企業(yè)建立一個集人員管理、采購、銷售、庫存查詢和庫存盤點一身的食品管理系統(tǒng)。1.2 可行性分析可行性分析的任務(wù)是明確開發(fā)應(yīng)用項目的必要性和可行性。必要性已在市場調(diào)查中體現(xiàn)出來，而可行性則取決于實現(xiàn)應(yīng)用系統(tǒng)的資源和條件?？尚行苑治鍪窍到y(tǒng)分析繼需求分析的第二項活動，主要目標是：進一步明確系統(tǒng)的目標、規(guī)模和功能，根據(jù)需求提出開發(fā)系統(tǒng)的初步方案和計劃?？尚行苑治龅膬?nèi)容主要包括：管理上的可行性、技術(shù)上的可行性、經(jīng)濟上的可行性。系統(tǒng)可行性是以詳

13、細調(diào)查為前提的。調(diào)查的方法主要有召開調(diào)查會、訪問、發(fā)調(diào)查表、參加業(yè)務(wù)實踐。本系統(tǒng)的調(diào)查主要是采用訪問和參加業(yè)務(wù)實踐的方法。主要調(diào)查對象是怡源休閑食品管理系統(tǒng)，本人在此商店通過寒假期間的業(yè)務(wù)實踐，了解公司的經(jīng)營原理和商品的流通情況。數(shù)據(jù)處理在本公司具有很重要的作用，此系統(tǒng)的開發(fā)可以大大提高公司的效率。本系統(tǒng)適用對象主要是食品的流通，系統(tǒng)簡單、易于操作，所以本系統(tǒng)的可行性分析主要是技術(shù)上和經(jīng)濟上的可行性。1.2.1 經(jīng)濟可行性分析通過這個系統(tǒng)可以取代原來用筆和紙才能完成的工作，不用擔心忘記或計算錯誤。提高信息的利用率，減少管理員的工作量，查詢方便，提高服務(wù)質(zhì)量。1.2.2 技術(shù)可行性分析現(xiàn)有的數(shù)據(jù)

14、庫應(yīng)用程序開發(fā)技術(shù)已非常成熟，利用現(xiàn)有技術(shù)完全可以實現(xiàn)預定的功能。Visual Basic 6.0語言簡單、功能強大并容易掌握,而Access 2003是一個非常優(yōu)秀的小型數(shù)據(jù)庫管理軟件，方便使用，性能穩(wěn)定。于是，采用Visual Basic 6.0和Access 2003技術(shù)完全能夠?qū)崿F(xiàn)本系統(tǒng)的開發(fā)。系統(tǒng)在使用上比較方便、簡單；界面設(shè)計上美觀大方；后期維護上比較容易。如要對功能模塊方面作修改，則無需進行整個系統(tǒng)的重新架構(gòu)。 1.2.3 運營可行性分析1.本系統(tǒng)操作簡單、易于理解、上手較快、運營環(huán)境低。2.面對系統(tǒng)設(shè)計還應(yīng)以“標準性、安全性、高效性、保密性和可維護性”為標準，在著眼于當前實用的

15、基礎(chǔ)上，為將來系統(tǒng)的擴張，留有余地，軟件的開發(fā)應(yīng)能在較長的時間內(nèi)適應(yīng)市場發(fā)展的需求。1.3 數(shù)據(jù)字典數(shù)據(jù)流程圖描述了系統(tǒng)的分解，但是只是泛泛地進行說明，數(shù)據(jù)字典是為了數(shù)據(jù)流程的每一個數(shù)據(jù)流、文件、加工、以及組成數(shù)據(jù)流或文件的數(shù)據(jù)項做出說明。（1）數(shù)據(jù)流條目1.入庫單=商品名稱+簡稱+批號+產(chǎn)地+規(guī)格+包裝+單位+數(shù)量+進價+金額+供應(yīng)商+日期+經(jīng)手人+票號+備注2.銷售單=商品名稱+簡稱+批號+產(chǎn)地+規(guī)格+包裝+單位+數(shù)量+單價+金額+客戶+日期+經(jīng)手人+票號+備注（2）文件條目文件名稱：1客戶資料簡述：保存客戶的基本信息組成：客戶編號+客戶全稱+簡稱+地址+所屬地區(qū)+郵政編碼+電話+傳真+聯(lián)

16、系人+聯(lián)系電話+開戶銀行文件名稱：2供應(yīng)商資料簡述：保存供應(yīng)商的基本信息組成：供應(yīng)商編號+供應(yīng)商全稱+簡稱+地址+所屬地區(qū)+郵政編碼+電話+傳真+聯(lián)系人+聯(lián)系電話+開戶用戶（3）數(shù)據(jù)項條目名稱：客戶編號簡述：由于客戶的數(shù)量不可以預知，編號類型為文本，大小是255字段。名稱：商品的批號簡述：對于每一種商品來說，都有本身的條碼號作為數(shù)據(jù)的批號。易于錄入以及檢索。第2章 系統(tǒng)設(shè)計2.1 代碼設(shè)計2.1.1 商品入庫退單票號設(shè)計表 2-1 入庫退單票號設(shè)計加入日期（第一位）加入代號（第二位）加入票號的序號(第三位)日期rktd以0001為初始值，步長為1自增長8位4位4位例如:rktd0001前八位表

17、示該入庫退單的日期；中間四位rktd表示入庫退單的代號；后四位表示入庫退單的序號。2.1.2 商品批號設(shè)計表 2-2商品批號設(shè)計加入前綴碼（第一位）加入廠商識別碼（第二位）加入商品項目代碼(第三位)食品類的范圍690-695國家根據(jù)企業(yè)分配廠商自己負責編制3位7位3位例如：白象公司生產(chǎn)的牛面食品批號為：75，其中693為前綴碼，是廠商識別碼，475是商品項目代碼。2.2 數(shù)據(jù)庫設(shè)計2.2.1 概念結(jié)構(gòu)設(shè)計將需求分析得到的用戶需求抽象為信息機構(gòu)，概念結(jié)構(gòu)是各種數(shù)據(jù)模型的基礎(chǔ)。有二類方法：自頂向下、自底向上，本系統(tǒng)采用自頂向下的方法。E-R圖是概念結(jié)構(gòu)設(shè)計的有力工具。利用E-R方法進行數(shù)據(jù)概念設(shè)計

18、，可分為一步進行，首先設(shè)計局布E-R模式，然后把各局E-R模式，綜合成一個全局模式，最后對全局E-R模式進行優(yōu)化，得到最終模式，即概念模式。概念機構(gòu)設(shè)計的第一步就是需求分析階段收集到的數(shù)據(jù)進行分類、組織（聚集）、形成實體、實體的屬性，標識實體的碼，確定實體之間的聯(lián)系類型（1:1，1:n，n:m），設(shè)計E-R圖如下：圖 2-1 E-R圖2.2.2 邏輯結(jié)構(gòu)設(shè)計關(guān)系模式如下所示：供應(yīng)（批號，商品名稱，簡稱，產(chǎn)地，規(guī)格，交易數(shù)量，交易進價，金額，供應(yīng)商，票號，日期，經(jīng)手人，備注）； 購買（批號，商品名稱，簡稱，產(chǎn)地，規(guī)格，交易數(shù)量，交易單價，金額，客戶，票號，日期，經(jīng)手人，備注）；客戶（客戶編號，客

19、戶全稱，簡稱，地址，電話，聯(lián)系人，傳真，聯(lián)系電話）；供應(yīng)商（供應(yīng)商編號，供應(yīng)商全稱，簡稱，地址，所屬地區(qū)，郵政編碼，電話，傳真，聯(lián)系人，聯(lián)系電話）；商品（批號，商品名稱，簡稱，產(chǎn)地，規(guī)格，包裝，單位，商品數(shù)量，商品金額）。2.2.3 物理結(jié)構(gòu)設(shè)計根據(jù)上述數(shù)據(jù)庫的需求分析和概念結(jié)構(gòu)設(shè)計，設(shè)計了如下的表格，每一個表格對應(yīng)一個表。下面介紹幾個主要的表入下:1.用戶表表 2-3 用戶表列名數(shù)據(jù)類型可否為空說明操作員文本否密碼文本否2.密碼表表 2-4 密碼表列名數(shù)據(jù)類型可否為空說明操作員文本否密碼文本否六位數(shù)字3.商品表表 2-5 商品表列名數(shù)據(jù)類型可否為空說明商品名稱文本否簡稱文本是批號文本否商品條

20、碼號產(chǎn)地文本是規(guī)格文本是包裝文本是單位數(shù)字是商品數(shù)量數(shù)字是商品金額數(shù)字是4.客戶表表 2-6 客戶表列名數(shù)據(jù)類型可否為空說明客戶編號文本否客戶全稱文本否簡稱文本是地址文本否所屬地區(qū)文本是郵政編碼文本是電話文本否傳真文本否聯(lián)系人文本否聯(lián)系人電話文本否5.入庫表表 2-7 入庫表列名數(shù)據(jù)類型可否為空說明商品名稱文本否簡稱文本是批號文本否商品的條碼規(guī)格文本是包裝文本是單位文本是交易數(shù)量數(shù)字是進價貨幣是金額貨幣是供應(yīng)商文本是日期時間是經(jīng)手人文本是票號文本是6.銷售表表2-8 銷售表列名數(shù)據(jù)類型可否為空說明商品名稱文本否簡稱文本是批號文本否商品的條碼產(chǎn)地文本是規(guī)格文本是包裝文本是單位文本是交易數(shù)量數(shù)字是

21、交易單價貨幣是金額貨幣是客戶文本是日期時間是經(jīng)手人文本是票號文本是2.3 系統(tǒng)功能模塊設(shè)計在可行性研究階段已經(jīng)粗略地分析了該食品管理系統(tǒng)的基本需求，但是為了準確地確定目標系統(tǒng)必須做什么，明確用戶的需求，認真調(diào)研了商品公司的業(yè)務(wù)流程，聽取了相關(guān)人員對系統(tǒng)的基本需求，結(jié)合供應(yīng)中心的實際情況，得出食品管理系統(tǒng)總的業(yè)務(wù)流程，并由此最終確定該系統(tǒng)的功能需求。整個系統(tǒng)一共可以劃分為5個子模塊，分別為系統(tǒng)設(shè)置、庫存管理、信息資源管理、主要業(yè)務(wù)、查詢數(shù)據(jù)，食品管理系統(tǒng)功能模塊如圖2-2所示：圖 2-2 系統(tǒng)功能模塊圖1.系統(tǒng)管理“系統(tǒng)管理”是每個系統(tǒng)必不可少的功能，主要用來維護系統(tǒng)的一些日常運轉(zhuǎn)的主要參數(shù)、權(quán)

22、限設(shè)定等。各子功能模塊實現(xiàn)的功能分別為：“密碼設(shè)置”提供員工修改自己密碼的操作，在修改密碼的之前，系統(tǒng)默認會給不同的員工類別都分配不同的密碼；“數(shù)據(jù)備份”和“數(shù)據(jù)還原”采取數(shù)據(jù)備份和數(shù)據(jù)恢復手段與措施，就會降低數(shù)據(jù)的丟失的風險。2.庫存管理“庫存管理”功能模塊用于食品供應(yīng)中心的采購業(yè)務(wù)， 各子功能模塊實現(xiàn)的功能分別為：“庫存查詢”用于查詢經(jīng)營食品的庫存，可以查詢倉庫中某種食品產(chǎn)品的庫存信息等； “庫存盤點”用于管理系統(tǒng)的庫存盤點工作，方便查看某種食品產(chǎn)品是否還有庫存量，庫存量為多少等；“價格管理”用于查看食品的進價、庫存數(shù)量、庫存金額等信息。3.信息資源管理無論在任何一個企業(yè)中，基礎(chǔ)資料都是一

23、個企業(yè)最基本也是最重要的信息，脫離了基礎(chǔ)資料就無法讓企業(yè)順暢的運轉(zhuǎn)。例如缺少了商品資料、供貨商資料等，都無法進行工作?！靶畔①Y源管理”模塊的主要功能是維護一些基礎(chǔ)資料，主要包括企業(yè)客戶信息管理和供應(yīng)商信息管理。各子功能模塊實現(xiàn)的功能分別為：“客戶資料管理”用于維護企業(yè)客戶的基本信息，記錄企業(yè)的客戶群體。對客戶的信息進行查詢、刪除、增加、修改操作。內(nèi)容包括客戶編號、客戶全稱、簡稱、地址、所屬地址、郵編、電話、傳真、聯(lián)系人、聯(lián)系人的電話等；“供貨商資料管理”用于維護企業(yè)供貨商的基本信息，對供應(yīng)商的信息進行查詢、刪除、增加、修改操作內(nèi)容包括供貨編號、供應(yīng)商全稱、簡稱、地址、郵編、電話、傳真、聯(lián)系人、

24、聯(lián)系人電話、開戶銀行、銀行賬號等。4.主要業(yè)務(wù)“主要業(yè)務(wù)”模塊用于各種單據(jù)的錄入和處理業(yè)務(wù)。各子功能模塊實現(xiàn)的功能分別為：“入庫單”對公司購買的食品進行管理，登記單據(jù)的主要供應(yīng)商、經(jīng)手人、票據(jù)、入庫時間、入庫品種、金額、數(shù)量； “入庫退單”對公司的訂購單進行退貨，登記單據(jù)的供應(yīng)商、經(jīng)手人、票據(jù)、返廠的時間以及產(chǎn)品的信息；“銷售單”對公司銷售出去商品進行管理，使該種類商品的庫存量減少；“銷售退單”對公司銷售出去或者被客戶退回來的商品進行管理，使該種類商品的庫存量增加。5.查詢數(shù)據(jù)“查詢數(shù)據(jù)”功能模塊用于管理公司的入庫單、入庫退單、銷售單、銷售退單的查詢，統(tǒng)計相關(guān)數(shù)據(jù)可以及時地查看庫存和銷售情況。

25、各子功能模塊實現(xiàn)的功能分別為：“入庫查詢”用于查看入庫單的信息以及產(chǎn)品的庫存情況；“入庫退單查詢”用于查看入庫退單的信息以及產(chǎn)品的退單情況；“銷售查詢”用于整體查看產(chǎn)品的銷售情況；“銷售退單查詢”用于整體把握客戶對于產(chǎn)品退訂情況。2.4 輸入輸出設(shè)計2.4.1 輸入設(shè)計1.系統(tǒng)登錄圖2-3 系統(tǒng)登錄2.系統(tǒng)主界面圖2-4系統(tǒng)主界面3.統(tǒng)計時間選擇圖2-5 統(tǒng)計時間選擇4.入庫單錄入圖2-6 入庫單錄入5.入庫退單錄入圖 2-7入庫退單錄入6.銷售退單錄入圖2-8銷售退單錄入2.4.2 輸出設(shè)計1.入庫單查詢 圖2-9入庫單查詢2.銷售單查詢 圖2-10 銷售查詢3.入庫退單查詢圖2-11入庫退

26、單查詢4.庫存管理庫存查詢圖2-12庫存查詢5.價格記錄查詢圖2-13價格記錄查詢6.庫存管理庫存盤點圖 2-14 庫存盤點第3章 系統(tǒng)實施3.1 開發(fā)工具的選擇Visual Basic 6.0是微軟公司出品的一個快速可視化程序開發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位，Visual Basic 6.0在短短的幾年內(nèi)風靡全球。Visual Basic 6.0是極有特色和功能強大的軟件，主要表現(xiàn)在：所見即所得的界面設(shè)計，基于對象的設(shè)計方法，極短的軟件開發(fā)周期，較易維護的生成代碼。Access 2003就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access 200

27、3的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。另外，Access 2003允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access 2003也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access 2003是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 2003作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。3.2 程序清單1.用戶登錄窗口登錄次數(shù)限制程序代碼Data1.RecordSource = select * from ma whe

28、re 操作員= & Text1.Text & Data1.RefreshIf Text1.Text And Text2.Text = Text3.Text Then Load frm_main frm_main.Show Unload MeElse If TIM = 3 Then 輸入三次錯誤密碼，退出系統(tǒng) MESSAGE = MsgBox(密碼輸入錯誤,請向系統(tǒng)管理員查詢!, 0, ) If MESSAGE = vbOK Then End End If If Text1.Text = Then 操作員代號為空，提示信息 MsgBox (請輸入操作員代號!) Text1.SetFocus El

29、se If Text1.Text Data1.Recordset.Fields(操作員) Then MsgBox (查無此操作員,請重新輸入操作員代號!) Text1.SetFocus Else If Text2.Text Text3.Text Then MsgBox (密碼錯誤,請重新輸入密碼!) TIM = TIM + 1 Text2.SetFocus End If End If End IfEnd If在這個界面中，主要處理的是用戶登錄信息驗證和登錄次數(shù)的限制。防止非法用戶操作和不當?shù)夭僮鳌?.入庫單添加程序代碼Data3.RecordSource = select * from rkd

30、 order by 票號Data3.Refresh創(chuàng)建入庫票號If Data3.Recordset.RecordCount 0 Then If Not Data3.Recordset.EOF Then Data3.Recordset.MoveLast If Data3.Recordset.Fields(票號) Then lsph = Right(Trim(Data3.Recordset.Fields(票號), 4) + 1 PH.Text = Date & rkd & Format(lsph, 0000) End If Else PH.Text = Date & rkd & 0001End I

31、f設(shè)置控件有效或無效gys.Enabled = True: jsr.Enabled = True: js.Enabled = True: hjsl.Enabled = True: hj.Enabled = TrueText1.Enabled = True: mf1.Enabled = True: Combc.Enabled = True: Comqx.Enabled = True: Comdj.Enabled = False清空數(shù)據(jù)For i = 1 To 100For j = 1 To 11 mf1.TextMatrix(i, j) = Next jNext igys.SetFocusmf1

32、.Row = 1: mf1.Col = 1 添加數(shù)據(jù)代碼Set mydb = Workspaces(0).OpenDatabase(App.Path & cpjxc.mdb) 自動識別數(shù)據(jù)庫路徑 Set rs1 = mydb.OpenRecordset(rkd, dbOpenTable) Set rs2 = mydb.OpenRecordset(kc, dbOpenTable) 查詢庫存商品信息 Data1.RecordSource = SELECT * FROM KC Data1.Refresh For i = 1 To 100 If mf1.TextMatrix(i, 1) And mf1

33、.TextMatrix(i, 8) Then 添加入庫商品信息到rkd表中 rs1.AddNew If mf1.TextMatrix(i, 1) Then rs1.Fields(商品名稱) = mf1.TextMatrix(i, 1) If mf1.TextMatrix(i, 2) Then rs1.Fields(簡稱) = mf1.TextMatrix(i, 2) If mf1.TextMatrix(i, 3) Then rs1.Fields(批號) = mf1.TextMatrix(i, 3) If mf1.TextMatrix(i, 4) Then rs1.Fields(產(chǎn)地) = mf

34、1.TextMatrix(i, 4) If mf1.TextMatrix(i, 5) Then rs1.Fields(規(guī)格) = mf1.TextMatrix(i, 5) If mf1.TextMatrix(i, 6) Then rs1.Fields(包裝) = mf1.TextMatrix(i, 6) If mf1.TextMatrix(i, 7) Then rs1.Fields(單位) = mf1.TextMatrix(i, 7) If mf1.TextMatrix(i, 8) Then rs1.Fields(數(shù)量) = mf1.TextMatrix(i, 8) If mf1.TextMa

35、trix(i, 9) Then rs1.Fields(進價) = mf1.TextMatrix(i, 9) If mf1.TextMatrix(i, 10) Then rs1.Fields(金額) = mf1.TextMatrix(i, 10) If mf1.TextMatrix(i, 11) Then rs1.Fields(備注) = mf1.TextMatrix(i, 11) If gys.Text Then rs1.Fields(供應(yīng)商) = gys.Text If jsr.Text Then rs1.Fields(經(jīng)手人) = jsr.Text If rkrq.Text Then rs

36、1.Fields(日期) = rkrq.Text If PH.Text Then rs1.Fields(票號) = PH.Text rs1.Update 更新表 查找?guī)齑嫔唐沸畔?Data1.Recordset.FindFirst 商品名稱 like + Chr(34) + mf1.TextMatrix(i, 1) + Chr(34) + and 批號 like + Chr(34) + mf1.TextMatrix(i, 3) + Chr(34) + and 產(chǎn)地 like + Chr(34) + mf1.TextMatrix(i, 4) + Chr(34) + and 規(guī)格 like + C

37、hr(34) + mf1.TextMatrix(i, 5) + Chr(34) + If Data1.Recordset.NoMatch Then 添加入庫商品到kc表中 rs2.AddNew If mf1.TextMatrix(i, 1) Then rs2.Fields(商品名稱) = mf1.TextMatrix(i, 1) If mf1.TextMatrix(i, 2) Then rs2.Fields(簡稱) = mf1.TextMatrix(i, 2) If mf1.TextMatrix(i, 3) Then rs2.Fields(批號) = mf1.TextMatrix(i, 3)

38、If mf1.TextMatrix(i, 4) Then rs2.Fields(產(chǎn)地) = mf1.TextMatrix(i, 4) If mf1.TextMatrix(i, 5) Then rs2.Fields(規(guī)格) = mf1.TextMatrix(i, 5) If mf1.TextMatrix(i, 6) Then rs2.Fields(包裝) = mf1.TextMatrix(i, 6) If mf1.TextMatrix(i, 7) Then rs2.Fields(單位) = mf1.TextMatrix(i, 7) If mf1.TextMatrix(i, 8) Then rs2

39、.Fields(庫存) = mf1.TextMatrix(i, 8) If mf1.TextMatrix(i, 9) Then rs2.Fields(進價) = mf1.TextMatrix(i, 9) If mf1.TextMatrix(i, 10) Then rs2.Fields(庫存金額) = mf1.TextMatrix(i, 10) rs2.Update 更新表 Else 更新kc表中的庫存及庫存金額 Data1.Recordset.Edit Data1.Recordset.Fields(庫存) = Val(mf1.TextMatrix(i, 8) + Val(Data1.Recor

40、dset.Fields(庫存) Data1.Recordset.Fields(庫存金額) = Val(Data1.Recordset.Fields(庫存) * Val(Data1.Recordset.Fields(進價) Data1.UpdateRecord End If End If Next i rs1.Close: mydb.Close 清空數(shù)據(jù) For i = 1 To 100 For j = 1 To 11 mf1.TextMatrix(i, j) = Next j Next i gys.Text = : jsr.Text = : js.Text = : hjsl.Text = :

41、hj.Text = Text1.Visible = False: DBList1.Visible = False 設(shè)置控件不可見 mf1.Enabled = False: Combc.Enabled = False: Comdj.Enabled = True: Comqx.Enabled = FalseEnd Sub結(jié)論系統(tǒng)是針對怡源商店進行食品供貨管理而設(shè)計的，在這個系統(tǒng)中，怡源休閑食品管理系統(tǒng)研究的內(nèi)容涉及商店食品進銷存管理的全過程，包括入庫信息、入庫退單信息、銷售信息、庫存查詢、價格管理。并提供數(shù)據(jù)備份和初始化處理。但是，有些功能實現(xiàn)不足，本系統(tǒng)還有不盡如意的地方，比如有些功能未能編寫實

42、現(xiàn)、出錯處理不夠等多方面問題。這些都有待于進一步的完善。希望各位老師給予指導指正，本人將繼續(xù)完善修改，使此系統(tǒng)能更好地發(fā)揮性能。在系統(tǒng)的開發(fā)初期，必須要熟悉食品管理系統(tǒng)的整個流程，初步了解了怡源食品管理系統(tǒng)的相關(guān)知識，這樣才能進入到設(shè)計的過程中去。從開始熟悉這些知識到對整體設(shè)計有了解，再從概要設(shè)計、詳細設(shè)計到開始編碼，以及最后的測試。通過本系統(tǒng)的開發(fā)，我對軟件開發(fā)過程有了更清晰的了解，首先是問題定義、需求分析，然后是功能設(shè)計、詳細設(shè)計等，并對軟件測試的方法、手段有了較深的理解，同時對怡源食品管理系統(tǒng)的流程有了一個系統(tǒng)的認識。在開發(fā)過程還認真學習了與系統(tǒng)相關(guān)的知識，極大地拓寬了我的知識面。謝 辭

43、在這次開發(fā)過程中，遇到了很多的困難。系統(tǒng)的最終完成離不開指導老師郭衛(wèi)東老師的細心幫助,包括數(shù)據(jù)庫設(shè)計方面，技術(shù)實現(xiàn)方面以及系統(tǒng)測試方面。同時，我也受到了很大的啟發(fā)，希望通過今后的學習，能夠?qū)Ρ鞠到y(tǒng)在安全性方面進行進一步的完善。同時，大學三年也過完了。雖然時間短暫，在這里的三年過得很充實。大學期間學會了不但是知識方面的，還有能力和經(jīng)驗。自己的進步與老師們的教育和指導是分不開的，非常感謝大學三年我的老師們。尤其是這次畢業(yè)論文設(shè)計，指導老師郭衛(wèi)東老師多次電話咨詢論文的設(shè)計情況和面對面的指導、溝通。他給我們組的成員細心地指導和提出合理化的建議，能夠使畢業(yè)順利完成。參考文獻1 孟小峰, 王珊. 數(shù)據(jù)庫系

44、統(tǒng)導論M. 北京: 機械工業(yè)出版社, 2000.2 宋偉. Visual Basic高級編程M. 北京: 清華大學出版社, 2000.3 戴紅, 陳哲. Visual Basic 6.0入門與提高M. 北京: 清華大學出版社, 1999.4 陳明, 楊勁松. Visual Basic高級編程技術(shù)M. 北京: 北京希望電子出版社, 2002.5 陳弘原. Visual Basic實用教程M. 北京: 中國水利水電出版社, 2002.6 薩師煊, 王珊. 數(shù)據(jù)庫系統(tǒng)概論M. 北京: 高等教育出版社, 2000.7 潘錦平, 施小姚. 系統(tǒng)系統(tǒng)開發(fā)技術(shù)M. 陜西: 西安電子科技大學出版, 1997.8 黃梯云, 李一軍.管理信息系統(tǒng)M. 北京: 高等教育出版社, 2006