畢業(yè)論文--原材料倉(cāng)庫(kù)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

1、<p><b>　　北京廣播電視大學(xué)</b></p><p><b>　　畢業(yè)設(shè)計(jì)（論文）</b></p><p>　　題目： 原材料倉(cāng)庫(kù)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) </p><p>　　姓名學(xué)號(hào)： 劉建平 1111001404454 </p>&

2、lt;p>　　專(zhuān)業(yè)年級(jí)： 2011級(jí)開(kāi)放教育專(zhuān)科計(jì)算機(jī)信息管理專(zhuān)業(yè) </p><p>　　分 校： 順義分校 </p><p>　　指導(dǎo)教師： 侯彥華 </p><p><b>

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

4、工具方面，主要介紹了VB的特點(diǎn)和怎樣用VB操作數(shù)據(jù)庫(kù)。最后，筆者給出了所完成的倉(cāng)庫(kù)數(shù)據(jù)管理系統(tǒng)說(shuō)明書(shū)，主要內(nèi)容包括軟件的功能、設(shè)計(jì)框圖、數(shù)據(jù)庫(kù)結(jié)構(gòu)和各模塊的操作說(shuō)明。</p><p>　　關(guān)鍵詞：倉(cāng)庫(kù)管理系統(tǒng),數(shù)據(jù)庫(kù)編程,VB目錄</p><p><b>　　摘 要I</b></p><p><b>　　目錄II</b>

5、;</p><p><b>　　第1章 緒論1</b></p><p>　　第2章 VB語(yǔ)言概述2</p><p>　　2.1 VB簡(jiǎn)介2</p><p>　　2.2 VB語(yǔ)言的特點(diǎn)2</p><p>　　2.2.1 可視化設(shè)計(jì)2</p><p>　　2.2.2

6、事件驅(qū)動(dòng)編程2</p><p>　　2.2.3 提供了易學(xué)易用的應(yīng)用程序集成開(kāi)發(fā)環(huán)境2</p><p>　　2.2.4 結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言2</p><p>　　2.2.5 支持多種數(shù)據(jù)庫(kù)的訪(fǎng)問(wèn)3</p><p>　　2.2.6 支持動(dòng)態(tài)數(shù)據(jù)交換（DDE）編程技術(shù)3</p><p>　　第3章 實(shí)現(xiàn)關(guān)系型數(shù)

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

8、sual Basic 結(jié)合的優(yōu)點(diǎn)5</p><p>　　第4章 倉(cāng)庫(kù)系統(tǒng)簡(jiǎn)介6</p><p>　　4.1 倉(cāng)庫(kù)基礎(chǔ)知識(shí)6</p><p>　　4.2本倉(cāng)庫(kù)系統(tǒng)的主要模塊設(shè)計(jì)6</p><p>　　4.3系統(tǒng)整體結(jié)構(gòu)及內(nèi)容7</p><p>　　4.4數(shù)據(jù)庫(kù)設(shè)計(jì)7</p><p>　

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

10、.1 銷(xiāo)售單具體操作13</p><p>　　6.1.2 銷(xiāo)售單查詢(xún)15</p><p>　　6.1.3 銷(xiāo)售單一覽16</p><p>　　6.2 銷(xiāo)售退貨16</p><p><b>　　結(jié)束語(yǔ)18</b></p><p><b>　　致謝19</b><

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

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

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

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

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

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

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

18、t;　　2.2.1 可視化設(shè)計(jì)</p><p>　　VB為用戶(hù)提供大量的界面元素(在VB中稱(chēng)為控件對(duì)象),這些控件對(duì)象對(duì)于熟悉Windows應(yīng)用程序的用戶(hù)而言是一點(diǎn)也不陌生,如"窗體"、"菜單"、"命令按鈕"、"工具按鈕"、"檢查框"等等,用戶(hù)只需要利用鼠標(biāo)、鍵盤(pán)把這些控件對(duì)象拖動(dòng)到適當(dāng)?shù)奈恢?設(shè)置它們的大小、形狀

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

20、;<p>　　2.2.3 提供了易學(xué)易用的應(yīng)用程序集成開(kāi)發(fā)環(huán)境</p><p>　　在VB集成開(kāi)發(fā)環(huán)境中，用戶(hù)可設(shè)計(jì)界面、編寫(xiě)代碼、調(diào)試程序，直至把應(yīng)用程序編譯成可執(zhí)行文件在Windows中運(yùn)行，是用戶(hù)在友好的開(kāi)發(fā)環(huán)境中工作。</p><p>　　2.2.4 結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言</p><p>　　VB具有豐富的數(shù)據(jù)類(lèi)型和結(jié)構(gòu)化程序結(jié)構(gòu)，而且簡(jiǎn)單易學(xué)

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

22、文件訪(fǎng)問(wèn)。</p><p>　　提供了一個(gè)可供應(yīng)用程序調(diào)用的包含多種類(lèi)型的圖表庫(kù)。</p><p>　　具有完善的運(yùn)行出錯(cuò)處理。</p><p>　　2.2.5 支持多種數(shù)據(jù)庫(kù)的訪(fǎng)問(wèn)</p><p>　　利用數(shù)據(jù)控件可訪(fǎng)問(wèn)的數(shù)據(jù)庫(kù)系統(tǒng)有：Microsoft Access、Btrieve、dBASE、Microsoft FoxPro和Parad

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

24、語(yǔ)言編寫(xiě)的函數(shù)，也可調(diào)用Windows應(yīng)用程序接口（API）函數(shù)，以實(shí)現(xiàn)SDK所能實(shí)現(xiàn)的功能。</p><p>　　VB的核心是其對(duì)對(duì)象的鏈接與嵌入（OLE）的支持，它是訪(fǎng)問(wèn)所有對(duì)象的一種方法。利用OLE技術(shù)，VB將其他應(yīng)用軟件視為一個(gè)對(duì)象嵌入到VB應(yīng)用程序中，進(jìn)行各種操作，也可將各種基于Windows的應(yīng)用程序嵌入到VB應(yīng)用程序，實(shí)現(xiàn)聲音、圖像、動(dòng)畫(huà)等多媒</p><p>　　第3章 實(shí)

25、現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)</p><p>　　3.1 數(shù)據(jù)庫(kù)的概念</p><p>　　數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類(lèi)：非關(guān)系數(shù)據(jù)庫(kù)（flat-file）和關(guān)系數(shù)據(jù)庫(kù)（relational）。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。 </p>

26、<p>　　3.2 新建一個(gè)數(shù)據(jù)庫(kù)</p><p>　　創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。</p><p><b>　　標(biāo)識(shí)需要的數(shù)據(jù)；</b></p><p>　　收集被標(biāo)識(shí)的字段到表中；</p><p><b>

27、　　標(biāo)識(shí)主關(guān)鍵字字段；</b></p><p>　　繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表；</p><p><b>　　規(guī)范數(shù)據(jù)；</b></p><p>　　標(biāo)識(shí)指定字段的信息；</p><p><b>　　創(chuàng)建物理表。</b></p><p>　　3.3 修改已建的數(shù)據(jù)庫(kù)&

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

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

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

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

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

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

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

35、作量將極為巨大，而且容易出現(xiàn)錯(cuò)誤，造成管理上的混亂；更何況還需要對(duì)商品的數(shù)據(jù)進(jìn)行統(tǒng)計(jì)和分析。</p><p>　　具體而言，商品銷(xiāo)售管理系統(tǒng)需要實(shí)現(xiàn)以下需求：</p><p>　　1、夠?qū)ζ髽I(yè)所擁有的各種商品的基礎(chǔ)信息進(jìn)行維護(hù)和管理。商品的基礎(chǔ)信息包括：商品的順序號(hào)、商品名稱(chēng)、商品規(guī)格、計(jì)量單位、備注信息、庫(kù)存數(shù)量等。系統(tǒng)需要能夠?qū)ι唐返男畔⑦M(jìn)行添加、修改和刪除，也可以按照一定的條件來(lái)進(jìn)行

36、查詢(xún)，而且還需要隨時(shí)掌握庫(kù)存商品的數(shù)量。</p><p>　　2、時(shí)對(duì)商品進(jìn)貨以補(bǔ)充庫(kù)存量的不足。商品的進(jìn)貨信息包括順序號(hào)、單據(jù)編號(hào)、商品名稱(chēng)、進(jìn)貨數(shù)量、進(jìn)貨價(jià)格、進(jìn)貨日期、總金額、規(guī)格、倉(cāng)庫(kù)、備注等。系統(tǒng)需要能夠?qū)M(jìn)貨信息進(jìn)行添加、修改、刪除，也可以按照一定條件來(lái)進(jìn)行查詢(xún)。</p><p>　　3、跟蹤各種商品的銷(xiāo)售信息。商品的銷(xiāo)售信息包括順序號(hào)、商品名稱(chēng)、客戶(hù)名稱(chēng)、購(gòu)買(mǎi)數(shù)量、售出價(jià)格、

37、銷(xiāo)售日期、規(guī)格、總金額等。系統(tǒng)要求能夠?qū)︿N(xiāo)售信息進(jìn)行添加、修改、和刪除，也可以按照一定的條件來(lái)進(jìn)行查詢(xún)。</p><p>　　4、并且能夠?qū)ι唐返膸?kù)存量進(jìn)行報(bào)警，以防倉(cāng)庫(kù)的商品數(shù)量不足影響商品的銷(xiāo)售?？梢愿鶕?jù)庫(kù)存的大小和銷(xiāo)售的情況，來(lái)對(duì)庫(kù)存上限和庫(kù)存下限進(jìn)行設(shè)置，然后根據(jù)庫(kù)存上限和庫(kù)存下限進(jìn)行庫(kù)存的商品數(shù)量調(diào)整。庫(kù)存表包括順序號(hào)、商品名稱(chēng)、商品規(guī)格、商品單價(jià)、總金額、庫(kù)存上限、庫(kù)存下限、倉(cāng)庫(kù)號(hào)、報(bào)警信息。還能夠按

38、照一定的條件對(duì)庫(kù)存進(jìn)行查詢(xún)、而且還能對(duì)庫(kù)存上限和庫(kù)存下限進(jìn)行設(shè)置。然后能根據(jù)庫(kù)存的上限和庫(kù)存下限進(jìn)行庫(kù)存的報(bào)警查詢(xún)。</p><p>　　4.2本倉(cāng)庫(kù)系統(tǒng)的主要模塊設(shè)計(jì)</p><p>　　根據(jù)需求分析的結(jié)果，本系統(tǒng)的主要?jiǎng)澐譃橐?個(gè)子模塊：系統(tǒng)管理、基本資料、進(jìn)貨管理、銷(xiāo)售管理和庫(kù)存管理。</p><p>　　商品倉(cāng)庫(kù)系統(tǒng)是一個(gè)基于管理員的系統(tǒng)，它只有管理員才能對(duì)

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

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

41、。該模塊能夠根據(jù)基本資料來(lái)進(jìn)行商品的進(jìn)貨，然后還能根據(jù)添加的每次進(jìn)貨信息進(jìn)行修改和刪除，也可以按照一定的條件來(lái)進(jìn)行查詢(xún)。按照商品名稱(chēng)、倉(cāng)庫(kù)號(hào)和商品規(guī)格對(duì)所進(jìn)商品的庫(kù)存數(shù)量上自動(dòng)增加所進(jìn)的數(shù)量，保證倉(cāng)庫(kù)中實(shí)物和數(shù)據(jù)的一致性。</p><p><b>　　4、銷(xiāo)售管理模塊</b></p><p>　　銷(xiāo)售信息管理模塊用來(lái)跟蹤商品的每一次銷(xiāo)售的信息。該模塊需要能夠添加每次的

42、銷(xiāo)售信息，也可以對(duì)銷(xiāo)售信息進(jìn)行修改和刪除，也可以按照一定的條件查詢(xún)。當(dāng)添加銷(xiāo)售信息時(shí)，需要在所售商品的庫(kù)存量上自動(dòng)減去所銷(xiāo)售的數(shù)量。</p><p>　　4.3系統(tǒng)整體結(jié)構(gòu)及內(nèi)容</p><p>　　圖4-1 網(wǎng)站功能結(jié)構(gòu)</p><p><b>　　4.4數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　根據(jù)進(jìn)存銷(xiāo)的業(yè)務(wù)情況，本

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

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

45、t;<b>　　表4-5 客戶(hù)表</b></p><p><b>　　表4-6 商品表</b></p><p>　　表4-7 生產(chǎn)廠商表</p><p><b>　　表4-8 進(jìn)貨表</b></p><p><b>　　表4-9 庫(kù)存表</b></p

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

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

48、<p>　　其中用戶(hù)名：zhang,admin,11;對(duì)應(yīng)密碼：zhang，123，11。</p><p><b>　　登陸表單界面如下：</b></p><p><b>　　圖5-1 登陸界面</b></p><p><b>　　5.2用戶(hù)申請(qǐng)表單</b></p><

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

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

51、改密碼表單界面</p><p><b>　　第6章 詳細(xì)設(shè)計(jì)</b></p><p>　　銷(xiāo)售信息管理模塊用來(lái)跟蹤商品的每一次銷(xiāo)售的信息。該模塊需要能夠添加每次的銷(xiāo)售信息，也可以對(duì)銷(xiāo)售信息進(jìn)行修改和刪除，也可以按照一定的條件查詢(xún)。當(dāng)添加銷(xiāo)售信息時(shí)，需要在所售商品的庫(kù)存量上自動(dòng)減去所銷(xiāo)售的數(shù)量。</p><p>　　6.1銷(xiāo)售單基本操作<

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

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

54、售單“的界面如下：</p><p>　　圖6-3 添加銷(xiāo)售單界面</p><p>　　點(diǎn)擊修改按鈕則彈出“修改銷(xiāo)售單”的窗體的流程圖：</p><p>　　圖6-4 修改銷(xiāo)售單流程圖</p><p>　　圖6-5 修改銷(xiāo)售單界面</p><p>　　其中，修改中有一個(gè)查詢(xún)框，可以對(duì)已有的編號(hào)進(jìn)行查詢(xún)，如果存在該記

55、錄則把它們賦給相應(yīng)的文本框和組合框。用戶(hù)可以對(duì)這些值做任何合法的修改，修改完后點(diǎn)擊修改后則修改成功。如果不存在該記錄則系統(tǒng)提示，則系統(tǒng)提示不存在該記錄。其中修改的按鈕同密碼的修改代碼，其查詢(xún)按鈕代碼如下：</p><p>　　其“查詢(xún)按鈕“的代碼實(shí)現(xiàn)如下:</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 ("無(wú)此編號(hào),請(qǐng)重新輸入")</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 銷(xiāo)售單查詢(xún)</p><p>　　其中有兩個(gè)查詢(xún)組成：</p><p><b>　　●全部的商品</b></p><p>　　●按條件查詢(xún)某些滿(mǎn)足條件的商品:</p><p>　　其中的下拉框中不可以輸入東西,只可以從中選擇相關(guān)的商品名稱(chēng)和生產(chǎn)商。其中查詢(xún)結(jié)果在

63、表格中顯示。</p><p>　　銷(xiāo)售單查詢(xún)流程圖如下：</p><p>　　圖6-6 查詢(xún)銷(xiāo)售流程圖</p><p>　　銷(xiāo)售單查詢(xún)界面如下：</p><p>　　圖6-7 查詢(xún)銷(xiāo)售單界面</p><p>　　6.1.3 銷(xiāo)售單一覽</p><p>　　其中銷(xiāo)售單一覽是用數(shù)據(jù)窗體向?qū)ё龀桑?/p>

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

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

66、中退貨一覽表的界面如下：</p><p>　　圖6-10 退貨一覽界面</p><p><b>　　結(jié)束語(yǔ)</b></p><p>　　通過(guò)本次畢業(yè)設(shè)計(jì)基本達(dá)到了預(yù)期的設(shè)計(jì)結(jié)果，但有些方面還不太完善，對(duì)某些功能的實(shí)現(xiàn)還有一欠缺。</p><p>　　我們?cè)O(shè)計(jì)的倉(cāng)庫(kù)管理系統(tǒng)，在整體上實(shí)現(xiàn)了進(jìn)存銷(xiāo)功能，在設(shè)計(jì)時(shí)有時(shí)為了一個(gè)

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

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

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

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

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

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

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

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

75、;　　If Trim(txtusername.Text = "") Then</p><p>　　MsgBox "沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入用戶(hù)名！", 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 "沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入用戶(hù)名!", 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 "輸入密碼不正確，請(qǐng)重新輸入！", 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>　　'記錄密碼輸入的次數(shù)，累計(jì)到3此則自動(dòng)結(jié)束程序</p><p><b>　　Me.Hide</b></p><p><b>　　End If </b></p><p>　　2. 其中申請(qǐng)的代碼實(shí)現(xiàn)：</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 "用戶(hù)名不能為空,請(qǐng)輸入您要申請(qǐng)的用戶(hù)名", vbOKOnly + vbExclamation, "用戶(hù)申請(qǐng)"</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 "此用戶(hù)名已存在,請(qǐng)另外輸入!", vbOKOnly + vbExclamation, "用戶(hù)申請(qǐng)"</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、請(qǐng)成功！", vbOKOnly + vbExclamation, "申請(qǐng)成功"</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. 其中修改的代碼實(shí)現(xiàn)：</p><p>　　Dim sql As String</p><p>　　If txtnewpwd.Text <> txtnewpwd

93、again.Text Then</p><p>　　MsgBox "兩次輸入的密碼不同！請(qǐng)重新輸入", 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 "用戶(hù)名或密碼錯(cuò)誤", 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>