超市信息管理系統(tǒng)畢業(yè)論文

1、<p><b>　　超市信息管理系統(tǒng)</b></p><p><b>　　摘 要</b></p><p>　　超市信息管理系統(tǒng)是典型的信息管理系統(tǒng)。，該系統(tǒng)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于后臺(tái)數(shù)據(jù)庫(kù)建立和維護(hù)，建成了數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于前端應(yīng)用程序的開發(fā)則提供了強(qiáng)大的數(shù)據(jù)操作

2、功能，界面友好、使用簡(jiǎn)單方便等特點(diǎn)，我們使用了SQL Server 2000數(shù)據(jù)庫(kù)為開發(fā)工具，VB編程語(yǔ)言作為開發(fā)平臺(tái)，并利用ADO數(shù)據(jù)接口技術(shù)，實(shí)現(xiàn)超市的管理、收銀等功能。</p><p>　　關(guān)鍵詞： 超市信息管理系統(tǒng)； SQL Server； ADO</p><p><b>　　目 錄</b></p><p><b>

3、　　摘 要I</b></p><p>　　第1章 系統(tǒng)分析1</p><p>　　1.1 系統(tǒng)開發(fā)目的1</p><p>　　1.2 系統(tǒng)開發(fā)背景1</p><p>　　1.2.1應(yīng)用范圍1</p><p>　　1.2.2 開發(fā)工具1</p><p>　　1.3 項(xiàng)目確

4、立2</p><p>　　第2章 需求分析2</p><p>　　2.1 功能需求2</p><p>　　2.1.1 基本功能劃分2</p><p>　　2.1.3基本功能實(shí)現(xiàn)3</p><p>　　2.1.4.報(bào)表需求4</p><p>　　2.1.5用戶界面需求4</p&

5、gt;<p>　　2.2 性能需求4</p><p>　　2.2.1 系統(tǒng)安全性4</p><p>　　2.2.2 系統(tǒng)的完整性4</p><p>　　第3章 系統(tǒng)概要設(shè)計(jì)5</p><p>　　3.1 基本設(shè)計(jì)概念5</p><p><b>　　3.2 結(jié)構(gòu)6</b>&

6、lt;/p><p>　　3.3 數(shù)據(jù)庫(kù)設(shè)計(jì)7</p><p>　　第4章 系統(tǒng)詳細(xì)設(shè)計(jì)7</p><p>　　4.1 數(shù)據(jù)表詳細(xì)設(shè)計(jì)7</p><p>　　4.2 系統(tǒng)功能詳細(xì)設(shè)計(jì)11</p><p>　　4.2.1 管理員端11</p><p>　　第5章 結(jié) 論19</p>

7、;<p><b>　　致 謝20</b></p><p>　　附錄A: 附加圖22</p><p>　　附錄B: 主要源程序23</p><p><b>　　第1章 系統(tǒng)分析</b></p><p>　　在系統(tǒng)開發(fā)之前，我們要對(duì)整個(gè)系統(tǒng)進(jìn)行簡(jiǎn)單的分析。</p>&l

8、t;p>　　1.1 系統(tǒng)開發(fā)目的</p><p>　?。?）大大提高超市的運(yùn)作效率；</p><p>　?。?）通過(guò)全面的信息采集和處理，輔助提高超市的決策水平；</p><p>　?。?）使用本系統(tǒng)，可以迅速提升超市的管理水平，為降低經(jīng)營(yíng)成本， 提高效益，增強(qiáng)超市擴(kuò)張力， 提供有效的技術(shù)保障。</p><p>　?。?）可在應(yīng)用范圍較

9、廣的WINDOWS系列操作系統(tǒng)上使用。除此以外，系統(tǒng)還應(yīng)可通過(guò)訪問(wèn)權(quán)限控制以及數(shù)據(jù)備份功能，確保數(shù)據(jù)的安全性。</p><p>　　1.2 系統(tǒng)開發(fā)背景</p><p>　　21世紀(jì)，超市的競(jìng)爭(zhēng)也進(jìn)入到了一個(gè)全新的領(lǐng)域，競(jìng)爭(zhēng)已不再是規(guī)模的競(jìng)爭(zhēng)，而是技術(shù)的競(jìng)爭(zhēng)、管理的競(jìng)爭(zhēng)、人才的競(jìng)爭(zhēng)。技術(shù)的提升和管理的升級(jí)是超市業(yè)的競(jìng)爭(zhēng)核心。零售領(lǐng)域目前呈多元發(fā)展趨勢(shì)，多種業(yè)態(tài)：超市、倉(cāng)儲(chǔ)店、便利店、特許加

10、盟店、專賣店、貨倉(cāng)等相互并存。如何在激烈的競(jìng)爭(zhēng)中擴(kuò)大銷售額、降低經(jīng)營(yíng)成本、擴(kuò)大經(jīng)營(yíng)規(guī)模，成為超市營(yíng)業(yè)者努力追求的目標(biāo)。</p><p><b>　　1.2.1應(yīng)用范圍</b></p><p>　　本系統(tǒng)適用于各種小型超市，可以方便的進(jìn)行管理。</p><p>　　1.2.2 開發(fā)工具</p><p>　　本系統(tǒng)是以Win

11、dows系統(tǒng)為操作平臺(tái)，用VB編程語(yǔ)言和SQLServer，數(shù)據(jù)庫(kù)來(lái)實(shí)現(xiàn)超市信息管理系統(tǒng)所需功能的。</p><p>　　ADO接口技術(shù)用來(lái)連接數(shù)據(jù)庫(kù)和前段應(yīng)用程序。</p><p><b>　　1.3 項(xiàng)目確立</b></p><p>　　針對(duì)超市的特點(diǎn)，為了幫助超市解決現(xiàn)在面臨的問(wèn)題，提高小型超市的競(jìng)爭(zhēng)力，我們將開發(fā)以下系統(tǒng)：前臺(tái)銷售系統(tǒng)、

12、后臺(tái)管理系統(tǒng)，其中這兩個(gè)子系統(tǒng)又包含其它一些子功能。</p><p><b>　　第2章 需求分析</b></p><p>　　目前，我們城市的許多大型超市或者是小型超市，由于貨品日益增多，顧客群體越來(lái)越大，他們的管理產(chǎn)生了許多的不便。面對(duì)這樣的情況我們?cè)O(shè)計(jì)了這樣一個(gè)系統(tǒng)。</p><p><b>　　2.1 功能需求</b&g

13、t;</p><p>　　本課題主要實(shí)現(xiàn)的是超市信息管理系統(tǒng)設(shè)計(jì)系統(tǒng)時(shí)應(yīng)進(jìn)可能的方便員工操作，貼近客戶。系統(tǒng)在實(shí)現(xiàn)上應(yīng)具有以下功能。</p><p>　　2.1.1 基本功能劃分</p><p>　　主要分為兩個(gè)功能端，收銀端和管理員端。</p><p>　　2.1.2 功能描述</p><p>　　首先是管理員端，管

14、理員是后臺(tái)的運(yùn)行者和使用者。因此管理員端有很多功能，登陸只允許管理員自己才能進(jìn)入，商品管理主要對(duì)已有商品進(jìn)行查詢、修改，商品入貨查詢對(duì)入貨商品進(jìn)行一些必要的查詢，庫(kù)存量分析 和售貨管理主要是針對(duì)報(bào)表，人事管理是對(duì)售貨員和管理員一些本身的信息進(jìn)行管理，商品配置是對(duì)商品具體的添加、刪除等管理。</p><p>　　接下來(lái)是售貨員端，售貨員不需要管理太多信息，只需要銷售、結(jié)帳、保存信息就行了。先登陸，然后有收費(fèi)界面為了

15、調(diào)出商品信息，結(jié)帳后把信息進(jìn)行保存，同時(shí)售貨員自己也可以對(duì)自己的密碼進(jìn)行修改，這樣是為了是系統(tǒng)的安全性提高。</p><p>　　2.1.3基本功能實(shí)現(xiàn)</p><p><b>　　1、管理員端</b></p><p><b>　　主要實(shí)現(xiàn)功能：</b></p><p>　　登錄（按管理員號(hào)登錄）&

16、lt;/p><p>　　商品管理（商品的入庫(kù)信息，商品修改（商品入庫(kù)修改和商品單價(jià)修改））</p><p>　　商品入貨查詢（可以按具體商品和商品類別進(jìn)行出入貨查詢）</p><p>　　庫(kù)存量分析（顯示當(dāng)前所有商品的庫(kù)存量）</p><p>　　售貨員管理（錄入，修改，刪除） </p><p&g

17、t;　　人事管理（管理員以及售貨員的添加，刪除，修改）</p><p>　　系統(tǒng)配置（商品類別配置：配置商品的大類）</p><p>　?。ň唧w商品配置：配置新的商品）</p><p>　　售貨查詢（售貨商品信息的查詢及報(bào)表的打印預(yù)覽）</p><p><b>　　退出系統(tǒng)</b></p><p>

18、;<b>　　2、收銀臺(tái)端</b></p><p><b>　　主要實(shí)現(xiàn)功能：</b></p><p>　　登錄（按售貨員號(hào)登錄系統(tǒng)）</p><p>　　收費(fèi)（輸入貨號(hào)，輸入數(shù)量，顯示金額）</p><p>　　結(jié)賬 （輸入錢數(shù)，顯示找零）</p><p>　　修改密碼（售

19、貨員修改密碼） </p><p><b>　　退出系統(tǒng)</b></p><p>　　2.1.4.報(bào)表需求</p><p>　　超市信息管理系統(tǒng)的某些信息應(yīng)當(dāng)能夠以報(bào)表形式打印出來(lái)。能夠?qū)崿F(xiàn)庫(kù)存量的報(bào)表和日售貨的報(bào)表。對(duì)于隨時(shí)進(jìn)行調(diào)閱、打印非常方便的功能實(shí)現(xiàn)。</p><p>　　2.1.5用戶界面需求</p&g

20、t;<p>　　超市信息管理系統(tǒng)應(yīng)提供簡(jiǎn)單、層次關(guān)系明了、清晰的操作界面，使用戶一目了然。盡可能的為用戶的登陸、查詢等功能操作提供方便。</p><p><b>　　2.2 性能需求</b></p><p>　　超市信息管理系統(tǒng)是一個(gè)綜合性的管理系統(tǒng)，它對(duì)此系統(tǒng)的要求也很高的，要具有很好的銷售管理，庫(kù)存管理，職工信息管理，廠商信息管理</p>

21、<p>　　2.2.1 系統(tǒng)安全性</p><p>　　超市信息管理系統(tǒng)是一個(gè)需要較強(qiáng)安全性的系統(tǒng)，因?yàn)橄到y(tǒng)里有很多關(guān)于貨物數(shù)量，銷售額和營(yíng)業(yè)額的管理，因?yàn)榕c金錢有著密切的關(guān)系，所以系統(tǒng)的安全使每個(gè)開發(fā)商和應(yīng)用上的都關(guān)注的事，因此對(duì)于系統(tǒng)的安全性要進(jìn)行重要管理。</p><p>　　2.2.2 系統(tǒng)的完整性</p><p>　　本系統(tǒng)在使用方面要快速、

22、界面簡(jiǎn)潔，各個(gè)功能的實(shí)現(xiàn)要完整，不能有遺漏的功能。</p><p>　　第3章 系統(tǒng)概要設(shè)計(jì)</p><p>　　本系統(tǒng)除具有進(jìn)、銷、存等基本功能外，還解決了一物多名，多產(chǎn)地、按批號(hào)管理、自定義打印報(bào)表等用戶關(guān)心的問(wèn)題。</p><p>　　1、保密的進(jìn)貨價(jià)格、方便的拆包、打包功能、靈活的價(jià)格管理、便捷的結(jié)款管理等功能極大的方便且改善了用戶的管理。</p>

23、;<p>　　2.完善的權(quán)限管理機(jī)制保證了各部門權(quán)限的獨(dú)立性和一致性，確保系統(tǒng)的安全性和可靠性。</p><p>　　3、清晰的報(bào)表、圖形分析使您更方使的統(tǒng)計(jì)和分析進(jìn)銷情況、利潤(rùn)等問(wèn)題。</p><p>　　3.1 基本設(shè)計(jì)概念</p><p><b>　　1. 登錄</b></p><p>　　與其他系統(tǒng)

24、登錄一樣需要輸入用戶名和密碼，但不同的是，我們根據(jù)超市的特殊性，可以設(shè)置成兩種權(quán)限，即管理員和售貨員，如果為管理員則到管理員界面登錄，反之就到售貨員界面登錄，售貨員只管前臺(tái)銷售，對(duì)商品的管理不得插手，而管理員不僅能夠管理商品二屆能夠到前臺(tái)進(jìn)行銷售，能夠?qū)κ圬泦T進(jìn)行管理！</p><p><b>　　2.售貨員主界面</b></p><p><b>　　3.管

25、理員主界面</b></p><p><b>　　3.2 結(jié)構(gòu)</b></p><p>　　其中商品管理要能夠管理商品入庫(kù)信息，能夠?qū)ι唐沸薷?。商品入貨查詢能?duì)具體商品和商品類別查詢，人事管理分為管理員管理和售貨員管理，系統(tǒng)配置對(duì)商品類別配置和具體商品配置。</p><p><b>　　3.3 數(shù)據(jù)庫(kù)設(shè)計(jì)</b>

26、</p><p>　　數(shù)據(jù)庫(kù)使用SQL Server2000</p><p>　　要建立貨物表、貨物日志表（定期備份）（統(tǒng)計(jì)）、 售貨表（定期備份）臨時(shí)表、入貨日志表、售貨員日志表、售貨員表、管理員表、 貨物類別配置表、貨物配置表。只有建立好完整的這些表，才能實(shí)現(xiàn)系統(tǒng)的正確運(yùn)行，因?yàn)楸硎且粋€(gè)系統(tǒng)的關(guān)鍵之中的關(guān)鍵，所以要保證表與表之間不能出現(xiàn)互斥的現(xiàn)象。</p><p&g

27、t;　　其次建立關(guān)系，貨物表，入貨日志表，貨物類別配置表。</p><p>　　還要建立視圖，分別是售貨員視圖，管理員視圖，和庫(kù)存量視圖。建立好這么多的表、視圖等，就可以對(duì)系統(tǒng)進(jìn)行詳細(xì)的設(shè)計(jì)了。</p><p>　　第4章 系統(tǒng)詳細(xì)設(shè)計(jì)</p><p>　　對(duì)于整個(gè)系統(tǒng)，詳細(xì)設(shè)計(jì)幾乎是要設(shè)計(jì)出系統(tǒng)所實(shí)現(xiàn)的所有功能，每個(gè)方面都要想到，不能有沒(méi)有想到的功能，包括屆面的完

28、整性和系統(tǒng)操作的簡(jiǎn)用簡(jiǎn)單性，還要包括功能的實(shí)現(xiàn)，其中要實(shí)現(xiàn)整個(gè)業(yè)務(wù)的計(jì)算機(jī)管理，管理中的各種情況要用計(jì)算機(jī)進(jìn)行實(shí)施，售貨中的程序和流程要在計(jì)算機(jī)使用的情況下，不能出現(xiàn)任何錯(cuò)誤，而且保證其系統(tǒng)運(yùn)行安全性，其次各報(bào)表的編制和打印也由計(jì)算機(jī)完成。</p><p>　　4.1 數(shù)據(jù)表詳細(xì)設(shè)計(jì)</p><p><b>　　表4.1貨物表</b></p><p

29、>　　表4.2貨物類別配置表</p><p><b>　　表4.3貨物配置表</b></p><p><b>　　表4.4售貨員表</b></p><p><b>　　表4.5管理員表</b></p><p><b>　　表4.6入貨日志表</b>&

30、lt;/p><p>　　表4.7售貨員日志表</p><p>　　表4.8貨物部分信息表</p><p><b>　　表4.9臨時(shí)表</b></p><p><b>　　表4.10售貨表</b></p><p>　　貨物類別配置表，貨物表，貨物部分信息表都是對(duì)貨物進(jìn)行管理時(shí)用的表

31、，售貨表、臨時(shí)表、入貨日志表都是和庫(kù)存量有關(guān)系的表，管理員表和售貨員表都是和人事管理有重要聯(lián)系的表。</p><p>　　4.2 系統(tǒng)功能詳細(xì)設(shè)計(jì)</p><p>　　對(duì)于整個(gè)系統(tǒng)，我們只須對(duì)前臺(tái)售貨員端和后臺(tái)管理員端進(jìn)行詳細(xì)設(shè)計(jì)，要確保功能的實(shí)現(xiàn)。</p><p>　　首先是登陸界面，點(diǎn)擊管理員或售貨員出現(xiàn)各自登陸界面，分別輸入管理員號(hào)和密碼或者售貨員號(hào)和密碼進(jìn)入

32、兩個(gè)主要功能端。</p><p>　　4.2.1 管理員端</p><p><b>　　1.商品管理</b></p><p>　　商品管理分為商品入庫(kù)信息和商品修改，其中商品入庫(kù)信息是當(dāng)你輸入商品號(hào)，就會(huì)自動(dòng)顯示出商品入貨價(jià)、單價(jià)、數(shù)量、貨物來(lái)源、商品名和商品類別號(hào)。Adodc連接的是數(shù)據(jù)庫(kù)中入貨日志表。商品修改包括入庫(kù)修改和單價(jià)修改，入庫(kù)修改

33、是對(duì)入庫(kù)的商品添加、修改、刪除，Adodc連接的是入貨日志表。單價(jià)修改只對(duì)商品的單價(jià)修改，Adodc連接的是貨物部分信息表。</p><p><b>　　2.商品入貨查詢</b></p><p>　　商品入貨查詢分為商品類別查詢和具體商品查詢。商品類別查詢時(shí)通過(guò)下拉列表框中選擇貨物類別名和時(shí)間段對(duì)這一類貨物查詢，Adodc連接的是視圖1。具體商品查詢是同樣在下拉列表框

34、選擇貨物類別名和貨物名，選中一個(gè)時(shí)間段，進(jìn)行某個(gè)物品的查詢，結(jié)果還能顯示當(dāng)前單價(jià)和庫(kù)存量，Adodc連接的是視圖1。主要實(shí)現(xiàn)查詢功能代碼如下：</p><p>　　Dim s As String</p><p>　　s = Format(Combo3.ItemData(Combo3.ListIndex), "000")</p><p>　　Ado

35、dc2.CommandType = adCmdText</p><p>　　Dim strsql As String</p><p>　　strsql = "select * from view1 where 貨物類別號(hào)='" & s & "' and 入貨時(shí)間>='" & DTPicker1.V

36、alue & "' and 入貨時(shí)間<='" & DTPicker2.Value & "'"</p><p>　　Adodc2.RecordSource = strsql</p><p>　　Adodc2.Refresh</p><p>　　Set DataGrid2.Da

37、taSource = Adodc2</p><p>　　If Adodc2.Recordset.BOF = True And Adodc2.Recordset.EOF = True Then</p><p>　　MsgBox "未查到此類商品!"</p><p><b>　　End If</b></p><

38、;p><b>　　3.庫(kù)存量分析</b></p><p>　　庫(kù)存量分析這個(gè)窗體主要用來(lái)顯示庫(kù)存量，Adodc連接的是數(shù)據(jù)庫(kù)里的庫(kù)存查詢，另外有打印的功能，所以還連著一個(gè)數(shù)據(jù)報(bào)表1。如圖：</p><p><b>　　4.人事管理</b></p><p>　　人事管理包括售貨員管理和管理員管理，售貨員管理包括了4種功

39、能，查找功能、添加新的售貨員、刪除已有的售貨員、修改售貨員項(xiàng)目，其中修改售貨員項(xiàng)目是修改密碼。窗體要顯示出修改前和修改后的紀(jì)錄。Adodc3連接的是售貨表，Adodc4連接的是售貨員視圖。管理員管理和售貨員管理功能一樣，只有Adodc1連接的是管理員表，Adodc2連接的是視圖 管理員。</p><p><b>　　添加主要代碼如下：</b></p><p><

40、b>　　'添加功能</b></p><p>　　If Option1.Value = True Then</p><p>　　If Trim$(Text1.Text) = "" Then</p><p>　　MsgBox "請(qǐng)輸入管理員號(hào)！", vbExclamation</p><

41、;p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim$(Text2.Text) = "" Then</p><p>　　MsgBox "請(qǐng)

42、輸入管理員名！", vbExclamation</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim$(Text3.Text) = ""

43、; Then</p><p>　　MsgBox "請(qǐng)輸入密碼！", vbExclamation</p><p>　　Text3.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><

44、p>　　If Trim$(Text4.Text) = "" Then</p><p>　　MsgBox "請(qǐng)確認(rèn)密碼！", vbExclamation</p><p>　　Text4.SetFocus</p><p><b>　　Exit Sub</b></p><p>&l

45、t;b>　　End If</b></p><p><b>　　刪除功能</b></p><p>　　If Adodc2.Recordset.RecordCount > 0 Then</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2

46、.Recordset.Delete</p><p>　　Adodc2.Recordset.MoveNext</p><p>　　If Adodc2.Recordset.EOF And Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Adodc2.Recordset.MoveLast</p><

47、p><b>　　End If</b></p><p>　　Adodc2.Recordset.UpdateBatch</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　MsgBox "沒(méi)有記錄！ "</p

48、><p><b>　　End If</b></p><p><b>　　修改功能</b></p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Adodc1.Recordset.MoveFirst</p><p

49、>　　Adodc1.Recordset.find "管理員號(hào)='" & Text1.Text & "'"</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　MsgBox "未查到該管理員!"</p><p>

50、<b>　　Else</b></p><p>　　pass = InputBox("請(qǐng)輸入密碼：", "確認(rèn)是否本人")</p><p>　　If pass = Adodc1.Recordset.Fields("密碼").Value Then</p><p>　　Command2.En

51、abled = True</p><p>　　MsgBox "你有權(quán)修改密碼！", vbExclamation</p><p><b>　　5.系統(tǒng)配置</b></p><p>　　系統(tǒng)配置包括貨物類別配置和具體貨物配置。貨物類別配置通過(guò)輸入貨物類別號(hào)和貨物名，實(shí)現(xiàn)功能包括添加新的貨物類別，刪除原有貨物類別、修改貨物類別名稱

52、。Adodc1連接的貨物類別配置表。具體貨物配置時(shí)通過(guò)在下拉列表框中選擇貨物類別號(hào)，輸入貨物號(hào)和貨物名稱，實(shí)現(xiàn)包括添加新的貨物、刪除原有貨物、修改貨物信息的功能。Adodc2連接的是貨物配置表。兩個(gè)窗體都要顯示配置后的情況和之前的情況。</p><p><b>　　6.售貨查詢</b></p><p>　　售貨查詢主要是售貨日至表的打印預(yù)覽，便于讓其他高層領(lǐng)導(dǎo)查看每日

53、售貨情況，所以還要連接一個(gè)數(shù)據(jù)報(bào)表2。Adodc1連接的是售貨表。</p><p><b>　　7.退出</b></p><p>　　退出只需單擊，就會(huì)卸載管理員端的主窗體，重新回到登陸界面。</p><p>　　4.2.2 售貨員端</p><p><b>　　1.收費(fèi)</b></p>

54、<p>　　收費(fèi)界面需要輸入貨物號(hào)和數(shù)量，確認(rèn)后出現(xiàn)該貨物的信息同時(shí)出現(xiàn)總價(jià)及要收的金額。此時(shí)點(diǎn)擊結(jié)帳按鈕，出現(xiàn)結(jié)帳界面，界面顯示應(yīng)收金額，輸入現(xiàn)收金額后，單擊確定顯示找零及應(yīng)找余額，退出及卸載結(jié)帳窗體。最后清零，清零時(shí)把這類貨物信息與貨物表的庫(kù)存量中該物品相減，在售貨日志表中增加該類信息。收費(fèi)界面中Adodc1連接的貨物表，Adodc2連接的是臨時(shí)表。</p><p>　　連接貨物表主要是為了實(shí)現(xiàn)

55、與臨時(shí)標(biāo)的連接。主要代碼如下：</p><p>　　If pubcnn.State = adStateClosed Then Call CreatConnection</p><p>　　pubcnn.Execute "insert into 臨時(shí)表 select 貨物號(hào) ,貨物名 ,單價(jià), 貨物類別號(hào),數(shù)量,入貨時(shí)間 from 入貨日志表 where 貨物號(hào)='&quo

56、t; & Trim$(Text1.Text) & "'"</p><p>　　pubcnn.Execute "update 臨時(shí)表 set 數(shù)量='" & Text2.Text & "'where 貨物號(hào)='" & Trim$(Text1.Text) & "'

57、;"</p><p>　　pubcnn.Execute "update 臨時(shí)表 set 出貨時(shí)間='" & Date & " 'where 貨物號(hào)='" & Trim$(Text1.Text) & "'"</p><p>　　Adodc2.Refresh&l

58、t;/p><p>　　pubcnn.Close</p><p><b>　　2.修改密碼</b></p><p>　　修改密碼是售貨員可以隨時(shí)修改自己的密碼，以保證系統(tǒng)安全性。首先輸入原密碼，輸入新密碼，確認(rèn)新密碼后單擊確認(rèn)，即可修改自己的密碼。Adodc連接的是售貨員表。</p><p><b>　　3.退出本系

59、統(tǒng)</b></p><p>　　單擊退出系統(tǒng)時(shí)，卸載前臺(tái)管理員界面，回到出登陸主界面。</p><p><b>　　4.2.3公共模塊</b></p><p>　　建立一個(gè)公共模塊，整個(gè)系統(tǒng)都能引用，這個(gè)模塊主要用于商品入貨查詢和收費(fèi)兩個(gè)窗體。</p><p>　　Public pubcnn As New A

60、DODB.Connection</p><p>　　Public Sub AddBusItem(cboX As ComboBox)</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　If pubcnn.State = adStateClosed Then Call CreatConnection</p>

61、<p>　　rs.Open "select * from 貨物類別配置表", pubcnn, adOpenDynamic, adLockBatchOptimistic</p><p>　　If rs.RecordCount = 0 Then Exit Sub</p><p>　　Do Until rs.EOF</p><p>　　cb

62、oX.AddItem rs("貨物類別名").Value</p><p>　　cboX.ItemData(cboX.NewIndex) = rs("貨物類別號(hào)").Value</p><p>　　rs.MoveNext Adodc2.CommandType = adCmdText</p><p><b>　　

63、Loop</b></p><p>　　cboX.ListIndex = 0</p><p>　　Set rs = Nothing</p><p><b>　　End Sub</b></p><p>　　Public Sub CreatConnection()</p><p>　　pub

64、cnn.CursorLocation = adUseClient</p><p>　　pubcnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市信息管理;Data Source=USER085"</p><p><b

65、>　　End Sub</b></p><p>　　Public Sub AddSpecItem(cboX As ComboBox, sd As String)</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　If pubcnn.State = adStateClosed Then Call Cre

66、atConnection</p><p>　　rs.Open "select * from 貨物配置表 where 貨物類別號(hào)='" & sd & "'", pubcnn, adOpenDynamic, adLockBatchOptimistic</p><p>　　If rs.RecordCount = 0 Then

67、</p><p>　　cboX.Clear</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　cboX.Clear</p><p>　　Do Until rs.EOF</p><p&

68、gt;　　cboX.AddItem rs("貨物名").Value</p><p>　　cboX.ItemData(cboX.NewIndex) = rs("貨物號(hào)").Value</p><p>　　rs.MoveNext</p><p>　　Loop cboX.ListIndex = 0 Set rs = Nothin

69、g End Sub</p><p><b>　　第5章 結(jié) 論</b></p><p>　　在經(jīng)過(guò)3個(gè)星期的努力后，我們的系統(tǒng)終于完成了?？粗覀円黄鹋Φ慕Y(jié)果，心里也有一些感慨想要說(shuō)出來(lái)，這些做系統(tǒng)中的點(diǎn)點(diǎn)滴滴，都?xì)v歷在目。</p><p>　　當(dāng)我們小組做超市信息管理系統(tǒng)時(shí)，都不同程度的遇到了各種問(wèn)題，在開始時(shí)我們因?yàn)楸淼慕⒂龅搅艘恍?/p>

70、困難，一些表現(xiàn)在看，建的也不是太好，主要是有些字段的屬性建立的不對(duì)應(yīng)，字段大小也不完整，或太大或太小，因?yàn)橄到y(tǒng)功能不是太強(qiáng)，所以表的毛病并沒(méi)有引起大的錯(cuò)誤。在編寫窗體的代碼時(shí)，下拉列表框，是我們遇到另一個(gè)較大的問(wèn)題，在苦苦思考一段時(shí)間后，建立了公共模塊，解決了這一問(wèn)題。后來(lái)還有收費(fèi)清零時(shí)，要把產(chǎn)生的記錄追加到兩個(gè)表中，在老師的提醒下建立了臨時(shí)表，又根據(jù)課本上的代碼的提示，終于完成。還有一些每個(gè)窗體貶值時(shí)都會(huì)遇到一些問(wèn)題，大家在一起討論或

71、查資料，或問(wèn)同學(xué)、老師，都讓問(wèn)題得到了最后的解決。從這次做課題的過(guò)程中，我意識(shí)到了團(tuán)隊(duì)的重要性，團(tuán)隊(duì)中各成員之間的信任是很重要的。同時(shí)也發(fā)現(xiàn)我掌握的知識(shí)是多么的有限，只有在以后的時(shí)間里多積累知識(shí)，才能做好自己的工作。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1] 亓來(lái)濱 編 Visual Basic 程序設(shè)計(jì)（清華大學(xué)出版社）2005.1

72、</p><p>　　[2] 史濟(jì)民 顧春華 李昌武 苑榮 編 軟件工程——原理、方法與應(yīng)用</p><p>　　[3] 劉勇 周學(xué)軍編著 SQL Server2000基礎(chǔ)教程</p><p><b>　　附錄A: 附加圖</b></p><p>　　附圖1.1 E-R圖</p><p>　　

73、附錄B: 主要源程序</p><p>　　超市信息管理系統(tǒng)的主要程序</p><p><b>　　公共模塊 </b></p><p>　　Pubcnn 為公共變量</p><p>　　Public pubcnn As New ADODB.Connection</p><p>　　填充貨物類別名的組

74、合框</p><p>　　Public Sub AddBusItem(cboX As ComboBox)</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　If pubcnn.State = adStateClosed Then Call CreatConnection</p><p>　　r

75、s.Open "select * from 貨物類別配置表", pubcnn, adOpenDynamic, adLockBatchOptimistic</p><p>　　If rs.RecordCount = 0 Then Exit Sub</p><p>　　Do Until rs.EOF</p><p>　　cboX.AddItem rs

76、("貨物類別名").Value</p><p>　　cboX.ItemData(cboX.NewIndex) = rs("貨物類別號(hào)").Value</p><p>　　rs.MoveNext</p><p><b>　　Loop</b></p><p>　　cboX.ListIn

77、dex = 0</p><p>　　Set rs = Nothing</p><p><b>　　End Sub</b></p><p><b>　　建立連接</b></p><p>　　Public Sub CreatConnection()</p><p>　　pubcn

78、n.CursorLocation = adUseClient</p><p>　　pubcnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市信息管理;Data Source=USER085"</p><p><b&g

79、t;　　End Sub</b></p><p><b>　　填充貨物名組合框</b></p><p>　　Public Sub AddSpecItem(cboX As ComboBox, sd As String)</p><p>　　Dim rs As New ADODB.Recordset</p><p>

80、;　　If pubcnn.State = adStateClosed Then Call CreatConnection</p><p>　　rs.Open "select * from 貨物配置表 where 貨物類別號(hào)='" & sd & "'", pubcnn, adOpenDynamic, adLockBatchOptimistic&

81、lt;/p><p>　　If rs.RecordCount = 0 Then</p><p>　　cboX.Clear</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　cboX.Clear</p&g

82、t;<p>　　Do Until rs.EOF</p><p>　　cboX.AddItem rs("貨物名").Value</p><p>　　cboX.ItemData(cboX.NewIndex) = rs("貨物號(hào)").Value</p><p>　　rs.MoveNext</p><

83、p><b>　　Loop</b></p><p>　　cboX.ListIndex = 0</p><p>　　Set rs = Nothing</p><p><b>　　End Sub</b></p><p><b>　　管理員登錄</b></p>&l

84、t;p>　　If txtUserName.Text = "" Then</p><p>　　MsgBox "管理員號(hào)不能為空", vbExclamation</p><p>　　txtUserName.SetFocus</p><p><b>　　Exit Sub</b></p>&l

85、t;p><b>　　End If</b></p><p>　　If txtPassword.Text = "" Then</p><p>　　MsgBox "密碼不能為空", vbExclamation</p><p>　　txtPassword.SetFocus</p><p&

86、gt;<b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Static inerr As Integer</p><p>　　Dim struser As String, strpass As String, strsql As String</p>&

87、lt;p>　　struser = Trim$(txtUserName.Text)</p><p>　　strpass = Trim$(txtPassword.Text)</p><p>　　strsql = "select * from 管理員表 where 管理員號(hào) ='" & struser & "'and 密碼=&#

88、39;" & strpass & "'"</p><p>　　With Adodc1</p><p>　　.CommandType = adCmdText</p><p>　　.RecordSource = strsql</p><p><b>　　.Refresh</b&

89、gt;</p><p>　　If .Recordset.EOF And .Recordset.BOF Then</p><p>　　inerr = inerr + 1</p><p>　　If inerr >= 3 Then</p><p>　　MsgBox "對(duì)不起，您無(wú)權(quán)使用本系統(tǒng)。", vbExclamatio

90、n, "提示"</p><p><b>　　End</b></p><p><b>　　Else</b></p><p>　　MsgBox "用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入！", vbExclamation, "提示"</p><p><

91、;b>　　End If</b></p><p><b>　　Else</b></p><p><b>　　數(shù)據(jù)處理.Show</b></p><p><b>　　Unload Me</b></p><p><b>　　End If</b>

92、</p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p><b>　　人事管理界面</b></p><p><b>　　'添加功能</b></p><p>　

93、　If Option1.Value = True Then</p><p>　　If Trim$(Text1.Text) = "" Then</p><p>　　MsgBox "請(qǐng)輸入管理員號(hào)！", vbExclamation</p><p>　　Text1.SetFocus</p><p><b

94、>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim$(Text2.Text) = "" Then</p><p>　　MsgBox "請(qǐng)輸入管理員名！", vbExclamation</p><p>

95、;　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim$(Text3.Text) = "" Then</p><p>　　MsgBox "請(qǐng)輸入密碼！

96、", vbExclamation</p><p>　　Text3.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim$(Text4.Text) = "" Then&

97、lt;/p><p>　　MsgBox "請(qǐng)確認(rèn)密碼！", vbExclamation</p><p>　　Text4.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　

98、Dim glyh As String, glym As String, mm As String, qrmm As String</p><p>　　glyh = Text1.Text</p><p>　　glym = Text2.Text</p><p>　　mm = Text3.Text</p><p>　　qrmm = Text4.Te

99、xt</p><p>　　If mm <> qrmm Then</p><p>　　MsgBox "密碼不一致，請(qǐng)核對(duì)后再輸入！", vbExclamation, "提示"</p><p>　　Text4.SetFocus</p><p><b>　　Else</b>&

100、lt;/p><p>　　Adodc2.CommandType = adCmdText</p><p>　　'adodc1.RecordSource = "select * from 管理員表 where 管理員名= '" & Text2.Text & " '"</p><p>　　'

101、; adodc1.Refresh</p><p>　　With Adodc1.Recordset</p><p>　　If .RecordCount > 0 Then</p><p>　　.MoveFirst</p><p>　　.find "管理員號(hào)='" & Text1.Text & &q

102、uot;'"</p><p>　　If .EOF = True Then ' 檢查是否有同名用戶，若無(wú)，添加，若有，重新輸入</p><p><b>　　.AddNew</b></p><p>　　.Fields("管理員號(hào)").Value = glyh</p><p>　

103、　.Fields("管理員名").Value = glym</p><p>　　.Fields("密碼").Value = mm</p><p>　　.UpdateBatch</p><p>　　MsgBox "此用戶添加成功！", vbExclamation</p><p>　　A

104、dodc1.Refresh</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2.CursorLocation = adUseClient</p><p>　　'Adodc2.RecordSource = ""</p><p>　　Adodc2.Reco

105、rdSource = "select * from 管理員"</p><p>　　Adodc2.Refresh</p><p><b>　　Else</b></p><p>　　MsgBox "此用戶已存在！", vbExclamation</p><p><b>　　E

106、nd If</b></p><p><b>　　End If</b></p><p><b>　　End With</b></p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p>

107、<p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　End If</b></p><p><b>　　End If</b>&l

108、t;/p><p><b>　　'刪除功能</b></p><p>　　If Option2.Value = True Then</p><p>　　If Adodc2.Recordset.RecordCount > 0 Then</p><p>　　Adodc2.CommandType = adCmdText&

109、lt;/p><p>　　Adodc2.Recordset.Delete</p><p>　　Adodc2.Recordset.MoveNext</p><p>　　If Adodc2.Recordset.EOF And Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Adodc2.Record

110、set.MoveLast</p><p><b>　　End If</b></p><p>　　Adodc2.Recordset.UpdateBatch</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Msg

111、Box "沒(méi)有記錄！ "</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　'修改功能</b></p><p>　　If Option3.Value = True Then

112、</p><p>　　Dim pass As String</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Adodc1.Recordset.find "管理員號(hào)='&qu

113、ot; & Text1.Text & "'"</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　MsgBox "未查到該管理員!"</p><p><b>　　Else</b></p><p>　

114、　pass = InputBox("請(qǐng)輸入密碼：", "確認(rèn)是否本人")</p><p>　　If pass = Adodc1.Recordset.Fields("密碼").Value Then</p><p>　　Command2.Enabled = True</p><p>　　MsgBox "

115、;你有權(quán)修改密碼！", vbExclamation</p><p>　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = True</p><p>　　Text4.Enabled = True</p><

116、p>　　Label1.Enabled = False</p><p>　　Label2.Enabled = False</p><p>　　Label3.Enabled = True</p><p>　　Label4.Enabled = True</p><p>　　Command1.Enabled = False</p>

117、<p>　　Text3.SetFocus</p><p>　　Label3.Caption = "新密碼"</p><p>　　Label4.Caption = "確認(rèn)新密碼"</p><p><b>　　Else</b></p><p>　　Command2.Enab

118、led = False</p><p>　　MsgBox "你無(wú)權(quán)修改密碼！", vbExclamation</p><p>　　Label1.Enabled = True</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p>

119、<p>　　Text4.Enabled = False</p><p>　　Label2.Enabled = False</p><p>　　Label3.Enabled = False</p><p>　　Label4.Enabled = False</p><p>　　Text1.Enabled = True</p>

120、<p>　　Text1.Text = ""</p><p>　　Command1.Enabled = True</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If&l

121、t;/b></p><p><b>　　End If</b></p><p><b>　　商品入貨查詢界面</b></p><p><b>　　填充貨物類別名代碼</b></p><p>　　Dim sNo As String</p><p>　　

122、sNo = Format(Combo1.ItemData(Combo1.ListIndex), "000")</p><p>　　Call AddSpecItem(Combo2, sNo)</p><p><b>　　填充貨物名代碼</b></p><p>　　Dim s As String</p><p

123、>　　s = Format(Combo3.ItemData(Combo3.ListIndex), "000")</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Dim strsql As String</p><p>　　strsql = "select * from view

124、1 where 貨物類別號(hào)='" & s & "' and 入貨時(shí)間>='" & DTPicker1.Value & "' and 入貨時(shí)間<='" & DTPicker2.Value & "'"</p><p>　　Adodc2.Rec

125、ordSource = strsql</p><p>　　Adodc2.Refresh</p><p>　　Set DataGrid2.DataSource = Adodc2</p><p>　　If Adodc2.Recordset.BOF = True And Adodc2.Recordset.EOF = True Then</p><p&g

126、t;　　MsgBox "未查到此類商品!"</p><p><b>　　End If</b></p><p>　　一段時(shí)間內(nèi)貨物查詢的代碼</p><p>　　Dim s As String</p><p>　　s = Format(Combo1.ItemData(Combo1.ListIndex),

127、 "000")</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Dim strsql As String</p><p>　　strsql = "select * from view1 where 貨物類別號(hào)='" & s & "'

128、 and 貨物名='" & Combo2.Text & "' and 入貨時(shí)間>='" & DTPicker3.Value & "' and 入貨時(shí)間<='" & DTPicker4.Value & "'"</p><p>　　Adodc

129、1.RecordSource = strsql</p><p>　　Adodc1.Refresh</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　If Adodc1.Recordset.BOF = True And Adodc1.Recordset.EOF = True Then</p>&l

130、t;p>　　MsgBox "未查到此類商品!"</p><p><b>　　End If</b></p><p><b>　　收費(fèi)界面</b></p><p><b>　　確認(rèn)按鈕代碼</b></p><p>　　Set DataGrid1.DataS

131、ource = Adodc2</p><p>　　If pubcnn.State = adStateClosed Then Call CreatConnection</p><p>　　將顧客的貨物信息插入到臨時(shí)表中</p><p>　　pubcnn.Execute "insert into 臨時(shí)表 select 貨物號(hào) ,貨物名 ,單價(jià), 貨物類別號(hào),數(shù)

132、量,入貨時(shí)間 from 入貨日志表 where 貨物號(hào)='" & Trim$(Text1.Text) & "'"</p><p>　　pubcnn.Execute "update 臨時(shí)表 set 數(shù)量='" & Text2.Text & "'where 貨物號(hào)='" &am

133、p; Trim$(Text1.Text) & "'"</p><p>　　pubcnn.Execute "update 臨時(shí)表 set 出貨時(shí)間='" & Date & " 'where 貨物號(hào)='" & Trim$(Text1.Text) & "'"&l

134、t;/p><p>　　Adodc2.Refresh</p><p>　　pubcnn.Close</p><p><b>　　實(shí)現(xiàn)記帳總計(jì)功能</b></p><p>　　Dim fee As Currency</p><p>　　Dim fe As Currency</p><p

135、>　　Dim n As Integer</p><p>　　Do Until Adodc2.Recordset.EOF</p><p>　　fe = Adodc2.Recordset.Fields("單價(jià)").Value</p><p>　　n = Adodc2.Recordset.Fields("數(shù)量").Value&