小超市進銷存系統(tǒng)

1、編 號：審定成績：西南大學自考本科畢業(yè)論文專 業(yè)：論文題目：準考證號：姓 名：指導教師：工作單位或家庭地址： 聯(lián)系電話：目 錄TOC o 1-3 h z u HYPERLINK l _Toc222908779 前言 PAGEREF _Toc222908779 h 4 HYPERLINK l _Toc222908780 第一章緒論 PAGEREF _Toc222908780 h 6 HYPERLINK l _Toc222908781 第一節(jié)概論及系統(tǒng)概述 PAGEREF _Toc222908781 h 6 HYPERLINK l _Toc222908782 第二節(jié)系統(tǒng)開發(fā)的意義 PAGEREF

2、_Toc222908782 h 6 HYPERLINK l _Toc222908783 第二章系統(tǒng)需求分析及概要設計 PAGEREF _Toc222908783 h 6 HYPERLINK l _Toc222908784 第一節(jié)主要功能結(jié)構(gòu)及數(shù)據(jù)流 PAGEREF _Toc222908784 h 7 HYPERLINK l _Toc222908785 一、主要功能結(jié)構(gòu) PAGEREF _Toc222908785 h 7 HYPERLINK l _Toc222908786 二、數(shù)據(jù)流程圖 PAGEREF _Toc222908786 h 8 HYPERLINK l _Toc222908787 第二

3、節(jié)數(shù)據(jù)字典 PAGEREF _Toc222908787 h 12 HYPERLINK l _Toc222908788 一、用戶信息表（users） PAGEREF _Toc222908788 h 12 HYPERLINK l _Toc222908789 二、商品信息表（commodity） PAGEREF _Toc222908789 h 12 HYPERLINK l _Toc222908790 三、供貨商信息表（supplier） PAGEREF _Toc222908790 h 13 HYPERLINK l _Toc222908791 四、采購信息表（procurement） PAGEREF

4、_Toc222908791 h 13 HYPERLINK l _Toc222908792 五、銷售信息表（sales） PAGEREF _Toc222908792 h 14 HYPERLINK l _Toc222908793 六、庫存品信息表（stock） PAGEREF _Toc222908793 h 14 HYPERLINK l _Toc222908794 第三章系統(tǒng)功能分析與設計 PAGEREF _Toc222908794 h 14 HYPERLINK l _Toc222908795 第一節(jié)系統(tǒng)總體結(jié)構(gòu)設計及性能描述 PAGEREF _Toc222908795 h 14 HYPERLIN

5、K l _Toc222908796 第二節(jié)數(shù)據(jù)庫設計 PAGEREF _Toc222908796 h 15 HYPERLINK l _Toc222908797 第三節(jié)系統(tǒng)功能描述及代碼設計 PAGEREF _Toc222908797 h 15 HYPERLINK l _Toc222908798 一、公共代碼及數(shù)據(jù)庫連接 PAGEREF _Toc222908798 h 15 HYPERLINK l _Toc222908799 二、系統(tǒng)登錄 PAGEREF _Toc222908799 h 27 HYPERLINK l _Toc222908800 三、信息管理商品信息管理 PAGEREF _Toc2

6、22908800 h 35 HYPERLINK l _Toc222908801 四、信息管理供貨商信息管理 PAGEREF _Toc222908801 h 62 HYPERLINK l _Toc222908802 五、采購管理采購需求查詢 PAGEREF _Toc222908802 h 71 HYPERLINK l _Toc222908803 六、采購管理采購信息管理 PAGEREF _Toc222908803 h 73 HYPERLINK l _Toc222908804 七、銷售管理售貨 PAGEREF _Toc222908804 h 82 HYPERLINK l _Toc222908805

7、 八、銷售管理銷售信息管理 PAGEREF _Toc222908805 h 86 HYPERLINK l _Toc222908806 九、庫存管理最低庫存設置 PAGEREF _Toc222908806 h 94 HYPERLINK l _Toc222908807 十、庫存管理當前庫存查詢 PAGEREF _Toc222908807 h 98 HYPERLINK l _Toc222908808 十一、系統(tǒng)管理用戶管理 PAGEREF _Toc222908808 h 101 HYPERLINK l _Toc222908809 十二、系統(tǒng)管理關(guān)于系統(tǒng) PAGEREF _Toc222908809 h

8、 109 HYPERLINK l _Toc222908810 十三、系統(tǒng)管理退出系統(tǒng) PAGEREF _Toc222908810 h 109 HYPERLINK l _Toc222908811 第四章系統(tǒng)測試 PAGEREF _Toc222908811 h 111 HYPERLINK l _Toc222908812 第一節(jié)測試計劃 PAGEREF _Toc222908812 h 111 HYPERLINK l _Toc222908813 第二節(jié)測試工具 PAGEREF _Toc222908813 h 111 HYPERLINK l _Toc222908814 第三節(jié)測試環(huán)境 PAGEREF _

9、Toc222908814 h 111 HYPERLINK l _Toc222908815 第四節(jié)測試用例 PAGEREF _Toc222908815 h 112 HYPERLINK l _Toc222908816 第五節(jié)測試記錄 PAGEREF _Toc222908816 h 114 HYPERLINK l _Toc222908817 第六節(jié)測試分析報告 PAGEREF _Toc222908817 h 114 HYPERLINK l _Toc222908818 第五章系統(tǒng)實施、運行與維護 PAGEREF _Toc222908818 h 115 HYPERLINK l _Toc222908819

10、 第一節(jié)系統(tǒng)的實施、運行 PAGEREF _Toc222908819 h 115 HYPERLINK l _Toc222908820 第二節(jié)系統(tǒng)的維護 PAGEREF _Toc222908820 h 115 HYPERLINK l _Toc222908821 結(jié)束語 PAGEREF _Toc222908821 h 116 HYPERLINK l _Toc222908822 參考文獻 PAGEREF _Toc222908822 h 116 HYPERLINK l _Toc222908823 附件 PAGEREF _Toc222908823 h 116前言【摘要】信息是管理上的一項極為重要的資源，

11、管理工作的成敗取決于能否做出有效的決策，而決策的正確程度則在很大程度上取決于信息的質(zhì)量。隨著工業(yè)時代的到來，提供了大量的社會產(chǎn)品，城市集中度也進一步加強，由于人們生活節(jié)奏的不斷加快，消費者對購物便利的要求也在進一步的提高。傳統(tǒng)的消費習慣已經(jīng)開始轉(zhuǎn)變，連鎖超市、便利店已成為消費者日常購物主要場所。在我國，超市形成于20世紀90年代初期，現(xiàn)在已經(jīng)成為我國零售業(yè)的一種重要形態(tài)，為國民經(jīng)濟的發(fā)展發(fā)揮了重要的作用。而國內(nèi)市場的一些小型超市，它們在信息化過程中的步伐要落后于大中型超市，仍存在零售業(yè)企業(yè)所共有的落后的一面，如：不能有效的管理各種商品，收款結(jié)算速度慢，容易出現(xiàn)營業(yè)差錯，不宜進行商品調(diào)價，盤點效

12、率低等，而且在超市日常管理中，商品的進、銷、存等決策以經(jīng)驗為主，缺乏實時分析功能，管理人員對及時傳遞資料的要求始終得不到滿足。隨著超市形態(tài)的高速發(fā)展，其經(jīng)營管理也變得愈加復雜，日常所需要處理的數(shù)據(jù)量也逐漸增大，商業(yè)運轉(zhuǎn)的中間環(huán)節(jié)也越來越多，原始的人工管理已無法應對這復雜的市場。而對于這些企業(yè)的資源管理，信息的存儲和處理也顯得迫切需要，要適應市場競爭，就需要有高效的處理方式和管理方法，因此加快超市的信息化進程是必不可少的。在手工管理的情況下，管理人員很難對進貨量及庫存量進行良好的控制，很難正確得到商品的供求信息，各部門之間的通訊也經(jīng)常不暢通，這在激烈競爭的市場中是非常不利的。因此，為了更加科學，

13、合理的管理這些信息，誕生了小超市進銷存管理系統(tǒng)?！娟P(guān)鍵詞】超市信息管理進銷存管理?！続bstract】information management are an extremely important resource，management，the success or failure depends on the job to make effective decisions，and the correct degree of decision-making depends largely on the quality of information。With the advent of th

14、e industrial age，providing a large number of social goods，urban concentration has also been further strengthened，because of the constant rhythm of peoples lives up to consumers to facilitate the requirements are further raised。Traditional consumption habits have started to change， chain supermarkets

15、，convenience stores have become the primary venue for the Consumer daily shopping。In China, the supermarket was formed in the 20th century， early 90s， and now has become an important form of retail trade for the development of the national economy played an important role。 The domestic market for so

16、me small supermarkets， their information during the process of the pace to lag behind the large and medium-sized supermarkets，there are still a total retail enterprises backward side，such as：Can not effective management of a variety of merchandise，slow clearing receivables，prone to errors in busines

17、s，not suitable for commodity price, low inventory efficiency，but also in the daily management of the supermarket，the merchandise import and sale，deposit，such as experience-based decision-making，lack of real-time analysis capabilities，management of requests for information transmitted in a timely man

18、ner always can not be met。 With the supermarket form of rapid development，its management became more complex，day-to-day by the amount of data required treatment also increased gradually，commercial links between the operation of more and more of the original artificial management has to deal with thi

19、s complex market。 For these enterprises，resource management，information storage and also appears to deal with the urgent need to adapt to market competition，will need to have highly effective treatment methods and management methods, thus speeding up the process of information supermarkets are indis

20、pensable。In the manual management of cases，managers find it hard to purchase capacity and good inventory control，it is difficult to get the right merchandise supply and demand information，communication between various departments are often not smooth，which in a highly competitive market are very neg

21、ative。 Therefore，in order to become more scientific and rational management of these information，the birth of a small supermarket Invoicing management system。supermarket information management，Purchase、Sales and Inventory Management。第一章 緒論第一節(jié) 概論及系統(tǒng)概述概論隨著現(xiàn)代科學技術(shù)的迅猛發(fā)展，計算機技術(shù)已經(jīng)滲透到各個領(lǐng)域，成為各行業(yè)必不可少的工具，特別是Int

22、ernet技術(shù)的推廣和信息高速公路的建立，使IT產(chǎn)業(yè)在市場競爭中越發(fā)顯示出其獨特的優(yōu)勢，步入信息化時代，有巨大的數(shù)據(jù)信息等待加工處理和傳輸，這使得對數(shù)據(jù)庫的進一步開發(fā)和利用顯得尤為迫切。本系統(tǒng)將根據(jù)實際情況，采用軟件工程的開發(fā)原理，依據(jù)軟件工程規(guī)范，按照系統(tǒng)需求分析、系統(tǒng)功能分析與設計、程序編碼、軟件測試等開發(fā)流程設計并開發(fā)完成。二、系統(tǒng)概述本系統(tǒng)將根據(jù)實際情況，采用軟件工程的開發(fā)原理，依據(jù)軟件工程規(guī)范，按照系統(tǒng)需求分析、系統(tǒng)功能分析與設計、程序編碼、軟件測試等過程設計并開發(fā)完成。該系統(tǒng)主要實現(xiàn)信息管理（商品信息管理，供貨商信息管理），采購管理（采購需求查詢，采購信息管理），銷售管理（售貨，銷

23、售信息管理），庫存管理（最低庫存設置，當前庫存查詢），以及系統(tǒng)管理（系統(tǒng)登錄，用戶管理，關(guān)于系統(tǒng)，退出系統(tǒng)）等功能。采用/、SQL Server2000等開發(fā)語言及數(shù)據(jù)庫進行B/S結(jié)構(gòu)進行設計與開發(fā)，運用集成開發(fā)工具(Microsoft Visual Studio 2005) + 數(shù)據(jù)庫設計工具(PowerDesigner10) + 界面設計工具(Dreamweaver MX 2004)等進行系統(tǒng)設計與開發(fā)。第二節(jié)系統(tǒng)開發(fā)的意義小超市進銷存管理系統(tǒng)是小超市經(jīng)營管理中的核心環(huán)節(jié)，也是一個企業(yè)能否取得效益的關(guān)鍵，如果能做到合理進貨、及時銷售、庫存量最小、減少積壓，那么企業(yè)就能取得最佳的效益。該系統(tǒng)

24、利用計算機的技術(shù)，使得超市進貨、庫存和銷售能夠有機結(jié)合起來，提高超市的效率和效益，而且超市在客觀性、時效性、科學性等方面搶得了先機，為運用現(xiàn)代化手段管理超市提供了保證，使超市的人、財、物最大限度地發(fā)揮了效益，杜絕了商品購、銷、存多方面的漏洞。從而使超市的管理工作更加的系統(tǒng)化、規(guī)范化、自動化。第二章 系統(tǒng)需求分析及概要設計通過對多個小超市進行調(diào)查發(fā)現(xiàn)，當前所需要的信息主要包括：商品的采購，銷售及庫存等信息。同時，需要對一些基本的數(shù)據(jù)信息進行相應的管理，主要包括：商品及供貨商的基本信息，員工（系統(tǒng)用戶）的基本信息等。希望能通過該系統(tǒng)對這些信息進行有效的管理，從而使超市管理者及相關(guān)人員對每個環(huán)節(jié)的數(shù)

25、據(jù)信息進行時時的監(jiān)控，更好的提高管理水平及經(jīng)濟效益。第一節(jié) 主要功能結(jié)構(gòu)及數(shù)據(jù)流一、主要功能結(jié)構(gòu)根據(jù)所調(diào)查的信息仔細研究分析，該系統(tǒng)的主要功能結(jié)構(gòu)如下圖：圖一 系統(tǒng)功能結(jié)構(gòu)圖系統(tǒng)功能簡要描述如下：1、信息管理(1)商品信息管理該功能是對本超市所經(jīng)營的所有商品的基本信息進行管理。(2)供貨商信息管理該功能是對為本超市提供商品的供應商的基本信息進行管理。2、采購管理(1)采購需求查詢該功能為采購員進行采購商品之前提供依據(jù)，主要根據(jù)商品的“最低庫存”及“當前庫存”來自動生成一張采購清單。如：查詢“當前庫存”小于等于“最低庫存”的所有商品。(2)采購信息管理該功能是對已經(jīng)采購的商品的基本信息進行管理。

26、3、銷售管理(1)售貨該功能是超市營業(yè)員/收銀員對所銷售的商品及收費情況的相關(guān)信息進行登記，同時可打印銷售明細給顧客。(2)銷售信息管理該功能是對已銷售的商品信息進行管理。4、庫存管理(1)最低庫存設置該功能是根據(jù)超市實際銷售等方面的情況，對每一件商品的最低庫存進行設置。(2)當前庫存查詢該功能是根據(jù)管理者的要求，分別查看所有/部分商品當前的庫存量。5、系統(tǒng)管理(1)系統(tǒng)登錄該功能是防止非法用戶使用該系統(tǒng)，對合法用戶及權(quán)限進行判斷。(2)用戶管理該功能是對合法用戶的基本信息（包含密碼修改等）進行管理。管理者可在此新注冊用戶，同時可維護自己的用戶信息，一般用戶只能維護自己的用戶信息。(3)關(guān)于系

27、統(tǒng)該功能是對整個系統(tǒng)的使用及功能進行說明，以便于更有效地使用。(4)退出系統(tǒng)該功能是為了安全起見，能使已登錄用戶在特殊情況時（如中午吃飯等）退出系統(tǒng)（返回到登錄畫面）。6、權(quán)限分配系統(tǒng)功能管理者采購員營業(yè)員備 注信息管理商品信息管理供貨商信息管理采購管理采購需求查詢采購信息管理銷售管理售貨銷售信息管理營業(yè)員只能查看自己的銷售信息。庫存管理最低庫存設置當前庫存查詢系統(tǒng)管理系統(tǒng)登錄用戶管理采購員與營業(yè)員只能查看（維護）自己的基本信息，管理者還可以注冊新用戶。關(guān)于系統(tǒng)退出系統(tǒng)注：表示當前用戶具備操作該模塊所有功能的權(quán)限，表示當前用戶對該模塊只有查詢或修改自己基本信息的權(quán)限，空白表示當前用戶無權(quán)限操作

28、該模塊。二、數(shù)據(jù)流程圖系統(tǒng)各功能模塊簡要數(shù)據(jù)流程圖如下：圖二 商品信息管理的數(shù)據(jù)流程圖圖三 供貨商信息管理的數(shù)據(jù)流程圖圖四 采購管理的數(shù)據(jù)流程圖圖五 銷售管理的數(shù)據(jù)流程圖圖六 庫存管理的數(shù)據(jù)流程圖圖七系統(tǒng)管理的數(shù)據(jù)流程圖第二節(jié) 數(shù)據(jù)字典根據(jù)系統(tǒng)功能分析可設計數(shù)據(jù)庫（Supermarket）的表結(jié)構(gòu)：用戶信息表（users）、商品信息表（commodity）、供貨商信息表（supplier）、采購信息表（procurement）、銷售信息表（sales）、庫存品信息表（stock）等。一、用戶信息表（users）字段名類 型長 度是否主鍵是否外鍵能否為空備 注user_idvarchar8YN用

29、戶編號user_namevarchar10N姓名sexvarchar2N性別card_idvarchar20N身份證號levelsvarchar20學歷entry_datedate8N入職時間phonevarchar15聯(lián)系電話addressvarchar256N家庭地址passwordvarchar6N登錄密碼authorityvarchar10N系統(tǒng)權(quán)限(管理者、采購員、營業(yè)員)remarksvarchar256備注用戶信息表主要用于登錄本系統(tǒng)時，驗證用戶的合法性及用戶基本信息維護（如：密碼修改）等操作。二、商品信息表（commodity）字段名類 型長 度是否主鍵是否外鍵能否為空備 注c

30、ommodity_idvarchar8YN商品編號commodity_namevarchar100N商品名稱unitvarchar10N單位weightdouble8,2凈重modelvarchar40型號remarksvarchar256備注商品信息表主要用于對本超市所經(jīng)營的所有商品的基本信息進行管理。三、供貨商信息表（supplier）字段名類 型長 度是否主鍵是否外鍵能否為空備 注supplier_idvarchar8YN供貨商編號supplier_namevarchar100N供貨商名稱personvarchar10N聯(lián)系人phonevarchar15N聯(lián)系電話faxvarchar15

31、傳真addressvarchar256公司地址postcodevarchar6郵編remarksvarchar256備注供貨商信息表主要對為本超市提供商品的供應商的基本信息進行管理。四、采購信息表（procurement）字段名類 型長度是否主鍵是否外鍵能否為空備 注procurement_idvarchar8YN采購編號commodity_idvarchar8YN采購商品編號supplier_idvarchar8YN供貨商編號user_idvarchar8YN采購員編號procurement_datedate8N采購日期procurement_amountint4N采購數(shù)量procureme

32、nt_pricedouble8,2N采購單價production_datedate8生產(chǎn)日期validvarchar10商品有效期plans_sales_pricedouble8,2N計劃銷售單價others_amountdouble8,2其他費用remarksvarchar256備注采購信息表主要是對已經(jīng)采購的商品的基本信息進行管理。五、銷售信息表（sales）字段名類 型長 度是否主鍵是否外鍵能否為空備 注sales_idvarchar8YN銷售編號commodity_idvarchar8YN銷售商品編號user_idvarchar8YN營業(yè)員編號sales_datedate8N銷售日期s

33、ales_quantityint4N銷售數(shù)量sales_pricedouble8,2N銷售單價sales_amountdouble8,2N銷售金額remarksvarchar256備注銷售信息表主要是對已經(jīng)銷售的商品信息進行管理。六、庫存品信息表（stock）字段名類 型長 度是否主鍵是否外鍵能否為空備 注stock_idvarchar8YN庫存編號commodity_idvarchar8YN商品編號current_stockint4N當前庫存量min_stockint4N最低庫存量remarksvarchar256備注庫存品信息表主要是根據(jù)超市實際采購與銷售等方面的情況，對每一件商品的最低庫

34、存及當前庫存信息進行管理。第三章 系統(tǒng)功能分析與設計第一節(jié) 系統(tǒng)總體結(jié)構(gòu)設計及性能描述該系統(tǒng)主要實現(xiàn)信息管理（商品信息管理，供貨商信息管理），采購管理（采購需求查詢，采購信息管理），銷售管理（售貨，銷售信息管理），庫存管理（最低庫存設置，當前庫存查詢），以及系統(tǒng)管理（系統(tǒng)登錄，用戶管理，關(guān)于系統(tǒng)，退出系統(tǒng)）等功能。系統(tǒng)整體界面美觀，布局合理大方，操作方便合理。計算機硬件等環(huán)境正常情況下，操作該系統(tǒng)時，反應時間小于5秒。由于該系統(tǒng)沒有涉及到使用商品條形碼掃描等設備。在售貨等操作時，商品編號實行手動輸入。第二節(jié)數(shù)據(jù)庫設計圖八 數(shù)據(jù)庫關(guān)系圖第三節(jié) 系統(tǒng)功能描述及代碼設計公共代碼及數(shù)據(jù)庫連接1、數(shù)據(jù)設

35、置及轉(zhuǎn)換相關(guān)代碼(Common.vb)：OptionStrictOffOptionExplicitOnImportsVB = Microsoft.VisualBasicNamespaceSuper.COMPublicModuleCommonSet a space if text is nullFunctionSetSpace(ByValtextAsString) AsStringIf (text.Length = 0) ThenReturn ( )ElseReturn (text)EndIfEndFunctionSet a space if SelectedIndexChanged is nu

36、llFunctionSetSpace_Selected(ByValtextAsString) AsStringIf (text.Length = 0 OrTrim(text) = ) ThenReturn ( )ElseReturn (text)EndIfEndFunctionSet a zero if text is nullFunctionSetZero(ByValtextAsString) AsStringIf (text.Length = 0) ThenReturn (0)ElseReturn (text)EndIfEndFunctionSet a Num to dateFunctio

37、nNum2Date(ByValnumberAsString) AsStringIfnumber.Length = 0 ThenReturnEndIfnumber = number.Substring(0, 4) + / + number.Substring(4, 2) + / + number.Substring(6, 2)ReturnnumberEndFunctionGet Today yyyy/MM/ddPublicFunctionGet_Today() AsStringDimTodayAsStringDimsMonth, sDateAsStringsMonth = 00 & System

38、.DateTime.Today().MonthsMonth = sMonth.Substring(sMonth.Length - 2, 2)sDate = 00 & System.DateTime.Today().DaysDate = sDate.Substring(sDate.Length - 2, 2)Today = System.DateTime.Today().Year & / & sMonth & / & sDateReturnTodayEndFunctionGet Time hhmmssPublicFunctionGet_Time() AsStringDimsHour, sMinu

39、te, sSecondAsStringDimsTimesHour = System.DateTime.Now.Hour()sMinute = System.DateTime.Now.Minute()sSecond = System.DateTime.Now.Second()IfsHour.Length 2 ThensHour = 0 & sHourEndIfIfsMinute.Length 2 ThensMinute = 0 & sMinuteEndIfIfsSecond.Length 2 ThensSecond = 0 & sSecondEndIfsTime = sHour & sMinut

40、e & sSecondReturnsTimeEndFunctionset date as yyyy/mm/ddFunctionSet_YYYYMMDD_Date(ByValthisdateAsString)DimtempdateAsStringtempdate = CDate(thisdate).Year()IfCDate(thisdate).Month().ToString.Length = 1 Thentempdate = tempdate & /0 & CDate(thisdate).Month()Elsetempdate = tempdate & / & CDate(thisdate)

41、.Month()EndIfIfCDate(thisdate).Day().ToString.Length = 1 Thentempdate = tempdate & /0 & CDate(thisdate).Day()Elsetempdate = tempdate & / & CDate(thisdate).Day()EndIfReturn (tempdate)EndFunction根據(jù)查詢出來的數(shù)據(jù)選擇下拉框中相應的值.FunctionSet_DDL(ByValddl2AsDropDownList, ByValdb_drAsString)DimKAsIntegerIfTrim(db_dr)

42、= Thenddl2.SelectedIndex = 0ElseIf (ddl2.Items.Count - 1) = 1 Thenddl2.SelectedIndex = 1ElseForK = 1 Toddl2.Items.Count - 1ddl2.SelectedIndex = KIfddl2.SelectedValue = Trim(db_dr) Thenddl2.SelectedIndex = KExitFunctionEndIfNextEndIfEndIfEndFunctionEndModuleEndNamespace2、檢查數(shù)據(jù)是否合法的相關(guān)代碼(InputCheck.vb)：

43、OptionStrictOffOptionExplicitOnImportsVB = Microsoft.VisualBasicNamespaceSuper.CHECKPublicModuleInputCheckFunctionCheckNum(ByValnumAsString) AsStringDimtempAsDoubleIf (num.Length = 0) ThenReturn (ok)ElseTrytemp = numCatchexAsExceptionReturn (E100006)EndTryIf (temp 0) ThenReturn (E100015)EndIfReturn

44、(ok)EndIfEndFunctionFunctionCheckDate(ByValtempdateAsString) AsStringDimyearAsIntegerDimmonthAsIntegerDimdayAsIntegerTryIfNotIsDate(tempdate) ThenReturn (E100005)EndIfIf (tempdate.Length 10) ThenReturn (E100005)EndIfyear = tempdate.Substring(0, 4)month = tempdate.Substring(5, 2)day = tempdate.Substr

45、ing(8, 2)If (year 2030 Oryear 1900) ThenReturn (E100005)ElseIf (month 12) ThenReturn (E100005)ElseIf (day 31) ThenReturn (E100005)EndIfCatchexAsExceptionReturn (E100005)EndTryReturn (ok)EndFunctionFunctionCheckMonth(ByValtempdateAsString) AsStringDimyearAsIntegerDimmonthAsIntegerTryIf (tempdate.Leng

46、th 7) ThenReturn (E100005)EndIfyear = tempdate.Substring(0, 4)month = tempdate.Substring(5, 2)If (year 2030 Oryear 2000) ThenReturn (E100005)ElseIf (month 12) ThenReturn (E100005)EndIfCatchexAsExceptionReturn (E100005)EndTryReturn (ok)EndFunctionuse this function to check webcontrols which MUST HAVE

47、 VALUEFunctionCheckEmpty(ByValtempStringAsString) AsStringIftempString.Length = 0 ThenReturn (E100011)EndIfReturn (ok)EndFunctionuse this function to check webcontrols value is null or notFunctionCheckNull(ByValtempStringAsString) AsBooleanIftempString.Length = 0 ThenReturnTrueEndIfReturnFalseEndFun

48、ctionFunctionCheckNumMaxLength(ByValnumberAsString, ByValmaxlengthAsShort) AsStringIf (number.Contains(.) = True) Thennumber = number.Replace(., )If (number.Length maxlength) ThenReturn (E100035)EndIfElseIf (number.Length maxlength - 1) ThenReturn (E100035)EndIfEndIfReturn (ok)EndFunctionFunctionChe

49、ckNumZERO(ByValnumAsString) AsStringDimtempAsDoubleIf (num.Length = 0) ThenReturn (ok)ElseTrytemp = numCatchexAsExceptiontemp = 0EndTryIf (temp After) ThenReturn (E200048)EndIfReturn (ok)CatchexAsExceptionReturn (E200050)EndTryEndFunction判斷下拉列表框是否選擇了有效的數(shù)據(jù)FunctionCheck_DropDownList(ByValDDLAsDropDown

50、List) AsStringIfDDL.SelectedIndex = 0 ThenReturn (E200010)ElseReturn (ok)EndIfEndFunctionEndModuleEndNamespace3、數(shù)據(jù)庫連接的相關(guān)代碼(InputCheck.vb)：OptionStrictOffOptionExplicitOnImportsVB = Microsoft.VisualBasicImportsSuper.COMImportsSuper.XMLImportsSuper.CHECKNamespaceSuper.DBSQL/本結(jié)構(gòu)存取數(shù)據(jù)庫服務器名（Dbserver）、數(shù)據(jù)庫用

51、戶ID（UserId）、/數(shù)據(jù)庫用戶密碼（UserPWD）、數(shù)據(jù)庫名（Dbase），為聯(lián)接數(shù)據(jù)庫提供參數(shù)。/為了滿足某些簡單查詢的需要，提供了擴展的變量常用表名（DBTable）、PublicStructurePublicApplicationValPublicDbserverAsStringPublicUserIdAsStringPublicUserPWDAsStringPublicDbaseAsStringPublicDBTableAsStringPublicQueryFieldValeAsStringPublicQueryFieldNameAsStringEndStructure/*/B

52、egin defined Class PublicModuleDBaseBindCommPublicstrconnAsStringPublicFunctionORA_CHECK_SQL() AsSystem.Data.SqlClient.SqlConnectionDimconnAsNewSystem.Data.SqlClient.SqlConnection()DimappAsNewPublicApplicationValapp.Dbserver = localhostapp.UserId = saapp.UserPWD = app.Dbase = Supermarketstrconn = se

53、rver= & app.Dbserver & ;user id= & app.UserId & ;password= & app.UserPWD & ;database= & app.Dbase & ;Tryconn = NewSystem.Data.SqlClient.SqlConnection(strconn)conn.Open()StateVal = TrueORA_CHECK_SQL = connCatchexAsExceptionStateVal = FalseORA_CHECK_SQL = NothingExitFunctionEndTryEndFunction*/*定義連接SQL

54、 Server Database的通用函數(shù)*/ /本函數(shù)創(chuàng)建一個到指定數(shù)據(jù)庫的連接對象SqlConnection /本函數(shù)有個參數(shù)，IPublicApplication 為公共數(shù)據(jù)結(jié)構(gòu)PublicApplicationVal，/Begin define Function LinkedSqlServer PublicOverloadsFunctionLinkedSqlServer() AsSystem.Data.SqlClient.SqlConnectionDimstrconnAsStringDimconnAsNewSystem.Data.SqlClient.SqlConnection()Dim

55、appAsNewPublicApplicationValapp.Dbserver = localhostapp.UserId = saapp.UserPWD = app.Dbase = Supermarketstrconn = server= & app.Dbserver & ;user id= & app.UserId & ;password= & app.UserPWD & ;database= & app.Dbase & ;Tryconn = NewSystem.Data.SqlClient.SqlConnection(strconn)conn.Open()StateVal = True

56、LinkedSqlServer = connCatchexAsExceptionStateVal = FalseLinkedSqlServer = NothingExitFunctionEndTryEndFunctionEnd defined LinkedSqlServer * /*定義連接SQL Server Database的通用函數(shù)*/ /本函數(shù)創(chuàng)建一個到指定數(shù)據(jù)庫的連接對象SqlConnection /本函數(shù)有個參數(shù)，IPublicApplication 為公共數(shù)據(jù)結(jié)構(gòu)PublicApplicationVal，/Begin define Function LinkedSqlServer

57、 PublicOverloadsFunctionLinkedSqlServer(ByValIPublicApplicationAsPublicApplicationVal) AsSystem.Data.SqlClient.SqlConnectionDimstrconnAsStringDimconnAsNewSystem.Data.SqlClient.SqlConnection()strconn = server= & IPublicApplication.Dbserver & ;user id= & IPublicApplication.UserId & ;password= & IPubli

58、cApplication.UserPWD & ;database= & IPublicApplication.Dbase & ;Tryconn = NewSystem.Data.SqlClient.SqlConnection(strconn)conn.Open()StateVal = TrueLinkedSqlServer = connCatchexAsExceptionStateVal = FalseLinkedSqlServer = NothingExitFunctionEndTryEndFunctionEnd defined LinkedSqlServer *定義類DBaseBindCo

59、mm的ReadOnly屬性State（創(chuàng)建連接的狀態(tài)）True(創(chuàng)建成功），F(xiàn)alse（創(chuàng)建失?。㏄rivateStateValAsBooleanPublicReadOnlyPropertyState() AsBooleanGetReturnStateValEndGetEndPropertyEndModuleEndNamespace4、讀取XML文件的相關(guān)代碼(XmlReader.vb)：主要用于系統(tǒng)頁面提示信息。ImportsSystem.XmlNamespaceSuper.XMLPublicClassXmlReaderSubNew(ByValtempXmlFilePathAsString)

60、Me.xmlFilePathType = enumXmlPathType.VirtualPathMe.xmlFilePath = tempXmlFilePathGetXmlDocument()EndSubSubNew(ByValtempXmlFilePathAsString, ByValtempXmlFilePathTypeAsenumXmlPathType)Me.xmlFilePathType = tempXmlFilePathTypeMe.xmlFilePath = tempXmlFilePathGetXmlDocument()EndSubPublicEnumenumXmlPathType