畢業(yè)論文--原材料倉庫管理系統(tǒng)的設計與實現

1、<p><b>　　北京廣播電視大學</b></p><p><b>　　畢業(yè)設計（論文）</b></p><p>　　題目： 原材料倉庫管理系統(tǒng)的設計與實現 </p><p>　　姓名學號： 劉建平 1111001404454 </p>&

2、lt;p>　　專業(yè)年級： 2011級開放教育專科計算機信息管理專業(yè) </p><p>　　分 校： 順義分校 </p><p>　　指導教師： 侯彥華 </p><p><b>

3、　　2013 年 8月</b></p><p><b>　　摘 要 </b></p><p>　　倉庫管理系統(tǒng)是一種管理商業(yè)企業(yè)中各種數據的軟件，利用本系統(tǒng)用戶可以很方便地對企業(yè)倉庫進行有效的管理。本文首先簡要介紹了我國商業(yè)企業(yè)的現狀以及倉庫數據管理系統(tǒng)的特點、功能和使用對象，使讀者對倉庫管理系統(tǒng)有了初步的認識。接著詳細介紹了數據庫和VB的相關知識；在編程

4、工具方面，主要介紹了VB的特點和怎樣用VB操作數據庫。最后，筆者給出了所完成的倉庫數據管理系統(tǒng)說明書，主要內容包括軟件的功能、設計框圖、數據庫結構和各模塊的操作說明。</p><p>　　關鍵詞：倉庫管理系統(tǒng),數據庫編程,VB目錄</p><p><b>　　摘 要I</b></p><p><b>　　目錄II</b>

5、;</p><p><b>　　第1章 緒論1</b></p><p>　　第2章 VB語言概述2</p><p>　　2.1 VB簡介2</p><p>　　2.2 VB語言的特點2</p><p>　　2.2.1 可視化設計2</p><p>　　2.2.2

6、事件驅動編程2</p><p>　　2.2.3 提供了易學易用的應用程序集成開發(fā)環(huán)境2</p><p>　　2.2.4 結構化的程序設計語言2</p><p>　　2.2.5 支持多種數據庫的訪問3</p><p>　　2.2.6 支持動態(tài)數據交換（DDE）編程技術3</p><p>　　第3章 實現關系型數

7、據庫4</p><p>　　3.1 數據庫的概念4</p><p>　　3.2 新建一個數據庫4</p><p>　　3.3 修改已建的數據庫4</p><p>　　3.4 實現數據庫之間的聯(lián)系4</p><p>　　3.5數據庫系統(tǒng)4</p><p>　　3.6 Access和Vi

8、sual Basic 結合的優(yōu)點5</p><p>　　第4章 倉庫系統(tǒng)簡介6</p><p>　　4.1 倉庫基礎知識6</p><p>　　4.2本倉庫系統(tǒng)的主要模塊設計6</p><p>　　4.3系統(tǒng)整體結構及內容7</p><p>　　4.4數據庫設計7</p><p>　

9、　第5章 系統(tǒng)設置模塊詳細設計11</p><p>　　5.1系統(tǒng)登陸表單11</p><p>　　5.2用戶申請表單11</p><p>　　5.3修改密碼表單12</p><p>　　第6章 詳細設計13</p><p>　　6.1銷售單基本操作13</p><p>　　6.1

10、.1 銷售單具體操作13</p><p>　　6.1.2 銷售單查詢15</p><p>　　6.1.3 銷售單一覽16</p><p>　　6.2 銷售退貨16</p><p><b>　　結束語18</b></p><p><b>　　致謝19</b><

11、/p><p><b>　　參考文獻20</b></p><p><b>　　附錄21</b></p><p><b>　　第1章 緒論</b></p><p>　　當前, 我國商業(yè)正處在一個高速發(fā)展的時期, 也是我國商業(yè)由傳統(tǒng)商業(yè)向現代化商業(yè)轉變的重要時期,正在經歷由經驗決策到

12、信息決策轉變的時期，如何及時準確地獲得市場信息、商品信息，了解市場的發(fā)展趨勢，來預測、指導經營活動；如何及時準確地掌握企業(yè)內部商品的購銷動態(tài)、商品的品類結構、商品的價格結構、庫存狀況、資金狀況等信息，已成為競爭的對象。只有把全面完整的信息作為決策的基礎和依據，使整個商業(yè)活動信息化，才能運籌帷幄，掌握未來。從幾時起，“商戰(zhàn)”已成為信息戰(zhàn)，“商戰(zhàn)”已從商場之外打響。經營者已經不只僅僅關心所經營商品的銷售額、庫存量，經營者更關心的是哪一些商品

13、帶來了更多的利潤，哪一些商品“只吃米不下蛋”。今天哪些商品熱銷，明天哪些商品走俏，進什么樣的貨、從何處進、進多少等等問題。如何適時地了解顧客的”胃口”已成為經營的關鍵，如果準備得太多或者太少都不會達到最佳的效果。要想達到上述目的，需要各種各樣的信息作為依據：暢銷、滯銷商品的信息、供應商及其供應商品的信息、顧客的信息、市場的信息等等。而且，當今商業(yè)經營中商品品種日益豐富，周轉期越來越短，信息量日益增多，原始的管理手段已不能適應現代管理對信

14、息的需</p><p>　　商業(yè)經營者對信息的需求越來越迫切和苛刻，商場之間的競爭的白熱化使利用計算機對信息進行管理已成為經營活動中不可缺少的手段。計算機管理信息系統(tǒng)已成為進行現代商業(yè)管理的有利工具。 </p><p>　　隨著通訊技術、網絡技術、計算機技術、軟件技術的發(fā)展，利用計算機系統(tǒng)通過對經營活動中用到的信息進行收集、整理、加工參與管理并輔助決策已成為可能。通訊技術的發(fā)展縮短了世界的

15、距離、縮短了人們與信息的距離，人們可以足不出戶便可以將全世界的信息成為自己的囊中之物。網絡的發(fā)展已徹底消除了異構網絡間的鴻溝，計算機技術和軟件技術的發(fā)展已大大提高了其性價比，使其應用大放異彩。充分利用以上各種技術，可以實現對包括電子訂貨（EOS）系統(tǒng)；網上商店、電子購物系統(tǒng)等在內的整個商業(yè)活動的全方位管理。如何對商場實施計算機管理和如何讓計算機系統(tǒng)更好地輔助管理和決策已成為關鍵。</p><p>　　第2章 VB

16、語言概述</p><p><b>　　2.1 VB簡介</b></p><p>　　VB是微軟公司出品的一個快速可視化程序開發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位，VB在短短的幾年內風靡全球。VB是極有和功能強大的軟件，主要表現在：所見即所得的界面設計，基于對象的設計方法，極短的軟件開發(fā)周期，較易維護的生成代碼。</p><p>　

17、　美國微軟公司在1991年推出VB1.0至今已經經歷了6個版本，VB6.0運行在win9x或winme，win2000，winxp，windowsNT等操作系統(tǒng)下，是一個32位的應用程序開發(fā)工具。</p><p>　　2.2 VB語言的特點</p><p>　　VB程序語言具有許多優(yōu)秀的特性,用其設計應用程序時有兩個基本特點:可視化設計和事件驅動編程.</p><p&g

18、t;　　2.2.1 可視化設計</p><p>　　VB為用戶提供大量的界面元素(在VB中稱為控件對象),這些控件對象對于熟悉Windows應用程序的用戶而言是一點也不陌生,如"窗體"、"菜單"、"命令按鈕"、"工具按鈕"、"檢查框"等等,用戶只需要利用鼠標、鍵盤把這些控件對象拖動到適當的位置,設置它們的大小、形狀

19、、屬性等,就可以設計出所需的應用程序界面。</p><p>　　2.2.2 事件驅動編程</p><p>　　Windows操作系統(tǒng)出現以來,圖形化的用戶界面和多任務多進程的應用程序要求程序設計不能是單一性的,在使用VB設計應用程序時,必須首先確定應用程序如何同用戶進行交互.例如發(fā)生鼠標單擊、鍵盤輸入等事件時,由用戶編寫的代碼控制這些事件的響應,這就是所謂的事件驅動編程。</p>

20、;<p>　　2.2.3 提供了易學易用的應用程序集成開發(fā)環(huán)境</p><p>　　在VB集成開發(fā)環(huán)境中，用戶可設計界面、編寫代碼、調試程序，直至把應用程序編譯成可執(zhí)行文件在Windows中運行，是用戶在友好的開發(fā)環(huán)境中工作。</p><p>　　2.2.4 結構化的程序設計語言</p><p>　　VB具有豐富的數據類型和結構化程序結構，而且簡單易學

21、。此外，作為一種程序設計語言，VB還有許多獨到之處：</p><p>　　強大的數值和字符處理功能。</p><p>　　豐富的圖形指令，可方便的繪制各種圖形。</p><p>　　提供靜態(tài)和動態(tài)數組，有利于簡化內存管理。</p><p>　　過程可遞歸調用，使程序更為簡練。</p><p>　　支持隨機文件訪問和順序

22、文件訪問。</p><p>　　提供了一個可供應用程序調用的包含多種類型的圖表庫。</p><p>　　具有完善的運行出錯處理。</p><p>　　2.2.5 支持多種數據庫的訪問</p><p>　　利用數據控件可訪問的數據庫系統(tǒng)有：Microsoft Access、Btrieve、dBASE、Microsoft FoxPro和Parad

23、ox等，也可以訪問Microsoft Excel,Lotsl2-3等多種電子表格。</p><p>　　2.2.6 支持動態(tài)數據交換（DDE）編程技術</p><p>　　動態(tài)數據交換（DDE）的編程技術，使VB開發(fā)應用程序能與其他Windows應用程序之間建立數據通信。</p><p>　　通過VB的動態(tài)鏈接庫（DLL）技術，在VB程序中可方便的調用用C語言或匯編

24、語言編寫的函數，也可調用Windows應用程序接口（API）函數，以實現SDK所能實現的功能。</p><p>　　VB的核心是其對對象的鏈接與嵌入（OLE）的支持，它是訪問所有對象的一種方法。利用OLE技術，VB將其他應用軟件視為一個對象嵌入到VB應用程序中，進行各種操作，也可將各種基于Windows的應用程序嵌入到VB應用程序，實現聲音、圖像、動畫等多媒</p><p>　　第3章 實

25、現關系型數據庫</p><p>　　3.1 數據庫的概念</p><p>　　數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信息，簡而言之，數據庫就是信息的集合。計算機的數據庫可以分為兩類：非關系數據庫（flat-file）和關系數據庫（relational）。關系數據庫中包含了多個數據表的信息，數據庫含有各個不同部分的術語，象記錄、域等。 </p>

26、<p>　　3.2 新建一個數據庫</p><p>　　創(chuàng)建任何一個數據庫的第一步是仔細的規(guī)劃數據庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數據庫結構的過程被認為是數據模型設計。</p><p><b>　　標識需要的數據；</b></p><p>　　收集被標識的字段到表中；</p><p><b>

27、　　標識主關鍵字字段；</b></p><p>　　繪制一個簡單的數據圖表；</p><p><b>　　規(guī)范數據；</b></p><p>　　標識指定字段的信息；</p><p><b>　　創(chuàng)建物理表。</b></p><p>　　3.3 修改已建的數據庫&

28、lt;/p><p>　　數據庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現的具體方法。</p><p>　　3.4 實現數據庫之間的聯(lián)系</p><p>　　數據庫之間的關系指明兩個庫之間共享一個共同的關鍵字值。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立

29、的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的記錄中由重復數據的組合字段。數據庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于描述庫表示什么以及在數據庫中如何與其它的庫建立關系。</p><p><b>　　3.5數據庫系統(tǒng)</b></p><

30、p>　　數據庫系統(tǒng)本質上是一個用計算機存儲記錄的系統(tǒng)。數據庫本身可被看作為一種電子文件柜：也就是說，它是收集計算機數據文件的倉庫或容器。系統(tǒng)用戶可以對這些文件執(zhí)行插入數據、檢索數據、更改數據、刪除數據等一系列操作。</p><p>　　總之，數據庫系統(tǒng)是一個計算機存儲記錄的系統(tǒng)，即，它是一個計算機系統(tǒng)，該系統(tǒng)的目標存儲信息并支持用戶檢索和更新所需要的信息。

31、 </p><p>　　3.6 Access和Visual Basic 結合的優(yōu)點</p><p>　　除了Access和Visual Basic各自的特點之外，將兩者結合起來使用，最主要的優(yōu)點就是兩者使用相同的數據庫引擎，即Microsoft Jet。</p><p>　　Microsoft Jet是Microsoft Access

32、數據庫系統(tǒng)的數據庫系統(tǒng)的數據庫引擎組件。在1992年Access 1.0 發(fā)布的時候，Jet首次問世。1993年Visual Basic 3.0發(fā)布的時候，Jet 1。1內置于其中。此后，只要發(fā)布新版本的Access,就會有相應版本的Jet數據庫問世。當一個新版本的Visual Basic準備發(fā)布的時候，它一定會內置進行了一些修改的最新版本Jet數據庫。</p><p>　　由于Access和Visual Bas

33、ic使用的相同數據庫引擎，因此可以建立既包括Access組件又包括Visual Basic組件的應用程序，這樣就提高了程序的穩(wěn)定性，充分發(fā)揮了兩者各自的優(yōu)點。</p><p>　　第4章 倉庫系統(tǒng)簡介</p><p>　　4.1 倉庫基礎知識</p><p>　　日常生活中，人們最經常打交道的行業(yè)可能就是零售業(yè)，小到街頭雜貨鋪，大到超市、大賣場之類的連鎖機構。在零售

34、業(yè)中，最重要的信息主要是3類：商品信息進貨信息以及銷售信息。</p><p>　　在傳統(tǒng)的零售業(yè)工作中，往往是用人工清點的方式來掌握倉庫中現有的商品、使用手工記賬的方式來掌握商品的進貨和銷售情況。這種方式在商品數量較少、商品庫存變換少的情況下，不失為一種較好的方法。但是，在目前的大中型零售業(yè)中，往往需要處理的商品種類數以千計，而且每天所發(fā)生的進貨和銷售情況紛繁復雜。如果要借助人工來實現這一系列數據的記錄和管理，工

35、作量將極為巨大，而且容易出現錯誤，造成管理上的混亂；更何況還需要對商品的數據進行統(tǒng)計和分析。</p><p>　　具體而言，商品銷售管理系統(tǒng)需要實現以下需求：</p><p>　　1、夠對企業(yè)所擁有的各種商品的基礎信息進行維護和管理。商品的基礎信息包括：商品的順序號、商品名稱、商品規(guī)格、計量單位、備注信息、庫存數量等。系統(tǒng)需要能夠對商品的信息進行添加、修改和刪除，也可以按照一定的條件來進行

36、查詢，而且還需要隨時掌握庫存商品的數量。</p><p>　　2、時對商品進貨以補充庫存量的不足。商品的進貨信息包括順序號、單據編號、商品名稱、進貨數量、進貨價格、進貨日期、總金額、規(guī)格、倉庫、備注等。系統(tǒng)需要能夠對進貨信息進行添加、修改、刪除，也可以按照一定條件來進行查詢。</p><p>　　3、跟蹤各種商品的銷售信息。商品的銷售信息包括順序號、商品名稱、客戶名稱、購買數量、售出價格、

37、銷售日期、規(guī)格、總金額等。系統(tǒng)要求能夠對銷售信息進行添加、修改、和刪除，也可以按照一定的條件來進行查詢。</p><p>　　4、并且能夠對商品的庫存量進行報警，以防倉庫的商品數量不足影響商品的銷售?？梢愿鶕齑娴拇笮『弯N售的情況，來對庫存上限和庫存下限進行設置，然后根據庫存上限和庫存下限進行庫存的商品數量調整。庫存表包括順序號、商品名稱、商品規(guī)格、商品單價、總金額、庫存上限、庫存下限、倉庫號、報警信息。還能夠按

38、照一定的條件對庫存進行查詢、而且還能對庫存上限和庫存下限進行設置。然后能根據庫存的上限和庫存下限進行庫存的報警查詢。</p><p>　　4.2本倉庫系統(tǒng)的主要模塊設計</p><p>　　根據需求分析的結果，本系統(tǒng)的主要劃分為以5個子模塊：系統(tǒng)管理、基本資料、進貨管理、銷售管理和庫存管理。</p><p>　　商品倉庫系統(tǒng)是一個基于管理員的系統(tǒng)，它只有管理員才能對

39、他進行操作。</p><p>　　以下分別介紹系統(tǒng)中的5個子模塊：</p><p><b>　　1、系統(tǒng)管理模塊</b></p><p>　　管理員可以對系統(tǒng)進行一切操作包括：管理員添加、管理員申請和密碼修改。</p><p><b>　　2、基本資料模塊</b></p><p&

40、gt;　　基本資料模塊用來對企業(yè)所擁有的各種商品的基本信息進行維護和管理。在該系統(tǒng)中，需要對商品的基本信息進行添加、修改和刪除，包括倉庫資料、商品資料、計量單位、商品規(guī)格、生產廠商、客戶資料、供應商資料。也可以按照一定的條件查詢。</p><p><b>　　3、進貨管理模塊</b></p><p>　　進貨模塊用來對企業(yè)所需要的各種商品的添加，以保證倉庫的商品的穩(wěn)定

41、。該模塊能夠根據基本資料來進行商品的進貨，然后還能根據添加的每次進貨信息進行修改和刪除，也可以按照一定的條件來進行查詢。按照商品名稱、倉庫號和商品規(guī)格對所進商品的庫存數量上自動增加所進的數量，保證倉庫中實物和數據的一致性。</p><p><b>　　4、銷售管理模塊</b></p><p>　　銷售信息管理模塊用來跟蹤商品的每一次銷售的信息。該模塊需要能夠添加每次的

42、銷售信息，也可以對銷售信息進行修改和刪除，也可以按照一定的條件查詢。當添加銷售信息時，需要在所售商品的庫存量上自動減去所銷售的數量。</p><p>　　4.3系統(tǒng)整體結構及內容</p><p>　　圖4-1 網站功能結構</p><p><b>　　4.4數據庫設計</b></p><p>　　根據進存銷的業(yè)務情況，本

43、系統(tǒng)采用了小型的access數據庫，數據庫名稱為 jcx.mdb,數據庫包括以下10個表：倉庫表（cangku）、供應商表（gongyingshang）、規(guī)格表（guige）、</p><p>　　計量單位表（jiliangdanwei）、客戶表（kuhu）、商品表（shangpin）、生產廠商表（shengchanchangshang）、進貨表（jinhuo）、庫存表（kucun）、退貨表（retreat）。&

44、lt;/p><p><b>　　表4-1 倉庫表</b></p><p><b>　　表4-2 供應商表</b></p><p><b>　　表4-3 規(guī)格表</b></p><p><b>　　表4-4 單位表</b></p><p&g

45、t;<b>　　表4-5 客戶表</b></p><p><b>　　表4-6 商品表</b></p><p>　　表4-7 生產廠商表</p><p><b>　　表4-8 進貨表</b></p><p><b>　　表4-9 庫存表</b></p

46、><p><b>　　表4-10 退貨表</b></p><p>　　第5章 系統(tǒng)設置模塊詳細設計</p><p>　　倉庫管理系統(tǒng)中的系統(tǒng)設置模塊包括系統(tǒng)登錄功能、用戶申請功能、修改密碼功能和退出系統(tǒng)功能，主要由” 系統(tǒng)登錄(frmlogin)”表單、“用戶申請(userappend)” 表單“修改密碼(modifycode)”表單。</p

47、><p><b>　　5.1系統(tǒng)登陸表單</b></p><p>　　并不是每個人都可以訪問該系統(tǒng)，必須是合法的用戶才可以使用該系統(tǒng)的各項功能，在用戶登陸前各項菜單是不可用的，登陸后各菜單就變成可用。</p><p>　　“系統(tǒng)登錄”表單可以檢測用戶是否有正確的用戶與密碼，用來防止非法用戶進入系統(tǒng)，為系統(tǒng)安全提供一層防護作用。</p>

48、<p>　　其中用戶名：zhang,admin,11;對應密碼：zhang，123，11。</p><p><b>　　登陸表單界面如下：</b></p><p><b>　　圖5-1 登陸界面</b></p><p><b>　　5.2用戶申請表單</b></p><

49、p>　　“用戶申請表單”可以增加用戶，使更多的人可以訪問該系統(tǒng)。但是并不是每個用戶都可以申請的。</p><p>　　用戶可以申請數據庫表中不存在的任何的用戶名和密碼。如果你申請的用戶名未被使用，則申請成功，否則，申請失?。?lt;/p><p>　　用戶申請表單界面如下：</p><p>　　圖5-2 用戶申請界面</p><p>　　5

50、.3修改密碼表單 </p><p>　　使用此功能的用戶，必須是具有訪問該系統(tǒng)的權限，即是能登陸到該系統(tǒng)的用戶，如果不能訪問該系統(tǒng)的用戶不能使用該功能。</p><p>　　修改密碼表單，主要是進入系統(tǒng)的用戶修改自己的密碼的基本信息。不進入系統(tǒng)的用戶不能使用該功能。</p><p>　　修改密碼表單界面如下：</p><p>　　圖5-3 修

51、改密碼表單界面</p><p><b>　　第6章 詳細設計</b></p><p>　　銷售信息管理模塊用來跟蹤商品的每一次銷售的信息。該模塊需要能夠添加每次的銷售信息，也可以對銷售信息進行修改和刪除，也可以按照一定的條件查詢。當添加銷售信息時，需要在所售商品的庫存量上自動減去所銷售的數量。</p><p>　　6.1銷售單基本操作<

52、/p><p>　　圖6-1 銷售單基本操作</p><p>　　6.1.1 銷售單具體操作</p><p>　　是指對于銷售這個業(yè)務的基本的操作，例如：添加和修改的基本操作。</p><p>　　在銷售單基本操作中有四部分組成：</p><p>　　添加銷售單：點擊添加按鈕則彈出“添加銷售單”的窗體。</p>

53、<p>　　修改銷售單：點擊修改按鈕則彈出“修改銷售單”的窗體。</p><p>　　在表格上刪除銷售單中的記錄。</p><p>　　退出銷售單的基本操作。</p><p>　　銷售單基本操作的界面如下:</p><p>　　圖6-2 銷售單基本操作界面</p><p>　　點擊添加按鈕則彈出“添加銷

54、售單“的界面如下：</p><p>　　圖6-3 添加銷售單界面</p><p>　　點擊修改按鈕則彈出“修改銷售單”的窗體的流程圖：</p><p>　　圖6-4 修改銷售單流程圖</p><p>　　圖6-5 修改銷售單界面</p><p>　　其中，修改中有一個查詢框，可以對已有的編號進行查詢，如果存在該記

55、錄則把它們賦給相應的文本框和組合框。用戶可以對這些值做任何合法的修改，修改完后點擊修改后則修改成功。如果不存在該記錄則系統(tǒng)提示，則系統(tǒng)提示不存在該記錄。其中修改的按鈕同密碼的修改代碼，其查詢按鈕代碼如下：</p><p>　　其“查詢按鈕“的代碼實現如下:</p><p>　　Private Sub Command1_Click()</p><p>　　Dim sq

56、l As String</p><p>　　sql1 = "select * from xiaoshou where danjuid='" & txtid.Text & "' "</p><p>　　rs.Open sql1, conn, adOpenDynamic, adLockOptimistic</p>

57、;<p>　　If rs.EOF = True Then</p><p>　　MsgBox ("無此編號,請重新輸入")</p><p><b>　　rs.Close</b></p><p><b>　　Exit Sub</b></p><p><b>　

58、　Else</b></p><p>　　Comboname.Text = rs.Fields("name")</p><p>　　Combouser1.Text = rs.Fields("jingbanren")</p><p>　　txtPrice.Text = rs.Fields("shoujia&q

59、uot;)</p><p>　　txtQuantity.Text = rs.Fields("shuliang")</p><p>　　Combofc.Text = rs.Fields("shengchanshang")</p><p>　　Comboguige.Text = rs.Fields("guige"

60、;)</p><p>　　DTPicker1.Value = rs.Fields("data")</p><p>　　txtmoney.Text = rs.Fields("jine")</p><p>　　txtbeizhu.Text = rs.Fields("beizhu")</p><

61、;p><b>　　rs.Close</b></p><p><b>　　ok = True</b></p><p>　　Set rs = Nothing</p><p><b>　　End If</b></p><p><b>　　End Sub</b&g

62、t;</p><p>　　6.1.2 銷售單查詢</p><p>　　其中有兩個查詢組成：</p><p><b>　　●全部的商品</b></p><p>　　●按條件查詢某些滿足條件的商品:</p><p>　　其中的下拉框中不可以輸入東西,只可以從中選擇相關的商品名稱和生產商。其中查詢結果在

63、表格中顯示。</p><p>　　銷售單查詢流程圖如下：</p><p>　　圖6-6 查詢銷售流程圖</p><p>　　銷售單查詢界面如下：</p><p>　　圖6-7 查詢銷售單界面</p><p>　　6.1.3 銷售單一覽</p><p>　　其中銷售單一覽是用數據窗體向導做成，

64、達到了效果美觀，實現了一覽方便的效果。</p><p><b>　　其效果圖如下：</b></p><p>　　圖6-8 銷售單一覽界面</p><p><b>　　6.2 銷售退貨</b></p><p>　　在銷售中，退貨是不可避免，故在銷售中必須有銷售退貨表，以方便顧客的退貨。</p&

65、gt;<p>　　銷售退貨主要是由兩部分組成：</p><p>　　1、統(tǒng)計所退商品的基本資料，例如：商品名稱，生產廠商，數量，價格及經辦人。</p><p>　　退貨一覽：列出退回的所有商品。</p><p>　　其中銷售退貨表界面如下：</p><p>　　圖6-9 退貨界面</p><p>　　其

66、中退貨一覽表的界面如下：</p><p>　　圖6-10 退貨一覽界面</p><p><b>　　結束語</b></p><p>　　通過本次畢業(yè)設計基本達到了預期的設計結果，但有些方面還不太完善，對某些功能的實現還有一欠缺。</p><p>　　我們設計的倉庫管理系統(tǒng)，在整體上實現了進存銷功能，在設計時有時為了一個

67、小問題要花費大量的時間和耗費很大的精力，在設計一些模塊時，遇到了很大的困難，但通過各方面的努力和與其他同學在一起進行的討論，最終還是找到了錯誤并進行了改正，并使結果更加完善</p><p>　　但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方例如：功能不夠完善等多方面問題。這些都有待進一步改善。</p><p>　　但是由于合作不夠，故系統(tǒng)的整體性能沒有得到很好的發(fā)揮。<

68、/p><p>　　由于本系統(tǒng)設計的時間急迫 ，而且有些準備不足，所以再設計過程中出現了一些不必要的錯誤，為了這些錯誤我耽誤了不少時間，更浪費了很多的精力，所以，使以后的設計工作顯得時間倉促。有一些功能還很不完善，需要有進一步的時間和精力去完善他，可惜到目前為止，已沒更長的時間讓我來完善這個企業(yè)工資管理系統(tǒng)，可以說留下了一個小的遺憾</p><p>　　本系統(tǒng)的銷售模塊中的銷售退貨本應和銷售的基

69、本操作一樣，但是由于功能是一樣的，為了使系統(tǒng)的涵蓋的知識多一點，所以只用銷售單的基本操作來實現。</p><p><b>　　致謝</b></p><p>　　能夠完成本次設計，首先要感謝指導老師侯彥華對我所做的畢業(yè)設計所進行的指導和建議，沒有老師的指導和建議，我的畢業(yè)設計不可能順利的完成。還有其他老師和同學的熱心幫助。其次，這些天對畢業(yè)設計所做的工作，使我更加認識到

70、了基本知識的重要，沒有良好的基本知識，就不可能的到預期的結果，所以，我必須更加注重基本的學習和應用。踏實的基本功是做任何事的前提。</p><p>　　在本次畢業(yè)設計中，我從指導老師身上學到了很多東西。指導老師認真負責的工作態(tài)度，嚴謹的治學精神深厚的理論水平都使我受益匪淺。她無論在理論上還是實踐中，都給與我很大幫助，使得到不少的提高，這對于我以后的工作和學習都有一種巨大的幫助，感謝她耐心的輔導。另外，同學同樣給與

71、我不少幫助，這里一并表示感謝。</p><p><b>　　參考文獻</b></p><p>　　[1]趙軍鎖，龔波，李志.Visual Basic 6數據庫訪問技術，機械工業(yè)出版社，2011.6</p><p>　　[2]李勇平.Visual Basic 6.0案例教程，電子出版物數據中心《Computer DIY》雜志社，2011.6<

72、;/p><p>　　[3]張煒.Visual Basic 6.0數據庫開發(fā)應用教程，航空工業(yè)出版社，2012.6</p><p>　　[4]馮碩，賈志博.Visual Basic數據庫編程寶典，電子工業(yè)出版社，2011.5</p><p>　　[5]劉韜，駱娟，何旭洪.Visual Basic 6.0數據庫系統(tǒng)開發(fā)實例導航，人民郵電出版社，2012.4</p>

73、;<p>　　[6]溫賢發(fā).Visual Basic 6數據庫程序設計高手，科學出版社，2011.2</p><p>　　[7]京輝熱點工作室.Visual Basic 6.0中文版編程指南，人民郵電出版社，2013.9</p><p>　　[8]李振亭.Visual Basic程序設計教程，北方交通大學出版社，2011.9</p><p>　　[9]

74、劉圣才，李春葆.Visual Basic 6程序設計導學，清華大學出版社，2012.1</p><p>　　[10]龔沛曾，陸慰民，楊志強.Visual Basic程序設計教程，高等教育出版社，2012.7</p><p><b>　　附錄</b></p><p>　　1.登陸按鈕的click的代碼如下：</p><p>

75、;　　If Trim(txtusername.Text = "") Then</p><p>　　MsgBox "沒有這個用戶，請重新輸入用戶名！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtusername.SetFocus</p><p><b>

76、;　　Else</b></p><p>　　txtSQL = "select * from user1 where username = '" & txtusername.Text & "'"</p><p>　　adors.Open txtSQL, conn, adOpenKeyset, adLockPe

77、ssimistic</p><p>　　If adors.EOF = True Then</p><p>　　MsgBox "沒有這個用戶，請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告"</p><p>　　txtusername.SetFocus</p><p>

78、<b>　　Else</b></p><p>　　If Trim(adors("Password")) = Trim(txtpassword.Text) Then</p><p>　　'判斷密碼輸入正確性</p><p>　　MsgBox "正確登錄", vbOKOnly + vbExclamat

79、ion, ""</p><p>　　main.jiben.Enabled = True</p><p>　　main.jinhuo.Enabled = True</p><p>　　main.xiaoshou.Enabled = True</p><p>　　main.kucun.Enabled = True</p&

80、gt;<p>　　adors.Close</p><p><b>　　Me.Hide</b></p><p><b>　　Load main</b></p><p><b>　　main.Show</b></p><p><b>　　Else</b

81、></p><p>　　MsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtpassword.SetFocus</p><p>　　txtpassword.Text = ""</p><p>

82、<b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　miCount = miCount + 1</p><p>　　If miCount = 3 Then</p>

83、<p>　　'記錄密碼輸入的次數，累計到3此則自動結束程序</p><p><b>　　Me.Hide</b></p><p><b>　　End If </b></p><p>　　2. 其中申請的代碼實現：</p><p>　　Private Sub apply_Click(

84、)</p><p>　　Dim sql As String</p><p>　　Set conn = New ADODB.Connection</p><p>　　conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=jcx.mdb;Persist Security Info=False;"

85、;</p><p>　　Set addrs = New ADODB.Recordset</p><p>　　sql = "select * from user1 where username = '" & txtusername & "'"</p><p>　　addrs.Open sql, c

86、onn, adOpenKeyset, adLockPessimistic</p><p>　　If Trim(txtusername.Text) = "" Then</p><p>　　MsgBox "用戶名不能為空,請輸入您要申請的用戶名", vbOKOnly + vbExclamation, "用戶申請"</p>

87、<p>　　txtusername.Text = ""</p><p>　　txtpwd.Text = ""</p><p>　　txtusername.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End

88、 If</b></p><p>　　If Not addrs.EOF = True Then</p><p>　　MsgBox "此用戶名已存在,請另外輸入!", vbOKOnly + vbExclamation, "用戶申請"</p><p>　　txtusername.Text = ""&l

89、t;/p><p>　　txtpwd.Text = ""</p><p>　　txtusername.SetFocus</p><p><b>　　Else</b></p><p>　　addrs.AddNew</p><p>　　addrs.Fields("usernam

90、e") = Trim(txtusername.Text)</p><p>　　addrs.Fields("password") = Trim(txtpwd.Text)</p><p>　　addrs.Update</p><p>　　addrs.Close</p><p>　　MsgBox "恭喜你，申

91、請成功！", vbOKOnly + vbExclamation, "申請成功"</p><p>　　txtusername.Text = ""</p><p>　　txtpwd.Text = ""</p><p><b>　　Unload Me</b></p>

92、<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　3. 其中修改的代碼實現：</p><p>　　Dim sql As String</p><p>　　If txtnewpwd.Text <> txtnewpwd

93、again.Text Then</p><p>　　MsgBox "兩次輸入的密碼不同！請重新輸入", vbOKOnly + vbInformation, ""</p><p>　　txtnewpwd.SetFocus</p><p><b>　　Exit Sub</b></p><p

94、><b>　　End If</b></p><p>　　sql = "select * from user1 where username = '" & txtusername.Text & "' and " & " password= '" & txtpwd.Text

95、& "'"</p><p>　　rs.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　If rs.EOF = True Then</p><p>　　MsgBox "用戶名或密碼錯誤", vbOKOnly + vbExclamation, &q

96、uot;"</p><p>　　txtusername.Text = ""</p><p>　　txtusername.SetFocus</p><p>　　txtpwd.Text = ""</p><p><b>　　rs.Close</b></p>&l

97、t;p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　rs.Fields("password") = Trim(txtnewpwd.Text)</p><p><b>　　rs.Update</b></p>