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

I超市信息管理系統(tǒng)摘 要超市信息管理系統(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ù)操作功能，界面友好、使用簡(jiǎn)單方便等特點(diǎn)，我們使用了 SQL Server 2000 數(shù)據(jù)庫(kù)為開發(fā)工具，VB 編程語言作為開發(fā)平臺(tái)，并利用 ADO 數(shù)據(jù)接口技術(shù)，實(shí)現(xiàn)超市的管理、收銀等功能。關(guān)鍵詞： 超市信息管理系統(tǒng)； SQL Server； ADO 目 錄摘摘 要要.I第第 1 章章 系統(tǒng)分析系統(tǒng)分析.11.1 系統(tǒng)開發(fā)目的.11.2 系統(tǒng)開發(fā)背景.11.2.1應(yīng)用范圍.11.2.2 開發(fā)工具.11.3 項(xiàng)目確立.2第第 2 章章 需求分析需求分析.22.1 功能需求.22.1.1 基本功能劃分.22.1.3基本功能實(shí)現(xiàn).32.1.4.報(bào)表需求.42.1.5用戶界面需求.42.2 性能需求.42.2.1 系統(tǒng)安全性.42.2.2 系統(tǒng)的完整性.4第第 3 章章 系統(tǒng)概要設(shè)計(jì)系統(tǒng)概要設(shè)計(jì).53.1 基本設(shè)計(jì)概念.53.2 結(jié)構(gòu).63.3 數(shù)據(jù)庫(kù)設(shè)計(jì).7第第 4 章章 系統(tǒng)詳細(xì)設(shè)計(jì)系統(tǒng)詳細(xì)設(shè)計(jì).74.1 數(shù)據(jù)表詳細(xì)設(shè)計(jì).74.2 系統(tǒng)功能詳細(xì)設(shè)計(jì).114.2.1 管理員端.11第第 5 章章 結(jié)結(jié) 論論.19致致 謝謝.20附錄附錄 A: 附加圖附加圖.22附錄附錄 B: 主要源程序主要源程序.231第 1 章 系統(tǒng)分析在系統(tǒng)開發(fā)之前，我們要對(duì)整個(gè)系統(tǒng)進(jìn)行簡(jiǎn)單的分析。1.1 系統(tǒng)開發(fā)目的（1）大大提高超市的運(yùn)作效率；（2）通過全面的信息采集和處理，輔助提高超市的決策水平；（3）使用本系統(tǒng)，可以迅速提升超市的管理水平，為降低經(jīng)營(yíng)成本， 提高效益，增強(qiáng)超市擴(kuò)張力， 提供有效的技術(shù)保障。（4）可在應(yīng)用范圍較廣的 WINDOWS 系列操作系統(tǒng)上使用。除此以外，系統(tǒng)還應(yīng)可通過訪問權(quán)限控制以及數(shù)據(jù)備份功能，確保數(shù)據(jù)的安全性。1.2 系統(tǒng)開發(fā)背景 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ǔ)店、便利店、特許加盟店、專賣店、貨倉(cāng)等相互并存。如何在激烈的競(jìng)爭(zhēng)中擴(kuò)大銷售額、降低經(jīng)營(yíng)成本、擴(kuò)大經(jīng)營(yíng)規(guī)模，成為超市營(yíng)業(yè)者努力追求的目標(biāo)。1.2.1 應(yīng)用范圍本系統(tǒng)適用于各種小型超市，可以方便的進(jìn)行管理。1.2.2 開發(fā)工具 本系統(tǒng)是以 Windows 系統(tǒng)為操作平臺(tái)，用 VB 編程語言和SQLServer，數(shù)據(jù)庫(kù)來實(shí)現(xiàn)超市信息管理系統(tǒng)所需功能的。2ADO 接口技術(shù)用來連接數(shù)據(jù)庫(kù)和前段應(yīng)用程序。1.3 項(xiàng)目確立 針對(duì)超市的特點(diǎn)，為了幫助超市解決現(xiàn)在面臨的問題，提高小型超市的競(jìng)爭(zhēng)力，我們將開發(fā)以下系統(tǒng)：前臺(tái)銷售系統(tǒng)、后臺(tái)管理系統(tǒng)，其中這兩個(gè)子系統(tǒng)又包含其它一些子功能。第 2 章 需求分析 目前，我們城市的許多大型超市或者是小型超市，由于貨品日益增多，顧客群體越來越大，他們的管理產(chǎn)生了許多的不便。面對(duì)這樣的情況我們?cè)O(shè)計(jì)了這樣一個(gè)系統(tǒng)。2.1 功能需求 本課題主要實(shí)現(xiàn)的是超市信息管理系統(tǒng)設(shè)計(jì)系統(tǒng)時(shí)應(yīng)進(jìn)可能的方便員工操作，貼近客戶。系統(tǒng)在實(shí)現(xiàn)上應(yīng)具有以下功能。2.1.1 基本功能劃分 主要分為兩個(gè)功能端，收銀端和管理員端。2.1.2 功能描述 首先是管理員端，管理員是后臺(tái)的運(yùn)行者和使用者。因此管理員端有很多功能，登陸只允許管理員自己才能進(jìn)入，商品管理主要對(duì)已有商品進(jìn)行查詢、修改，商品入貨查詢對(duì)入貨商品進(jìn)行一些必要的查詢，庫(kù)存量分析 和售貨管理主要是針對(duì)報(bào)表，人事管理是對(duì)售貨員和管理員一些本身的信息進(jìn)行管理，商品配置是對(duì)商品具體的添加、刪除等管理。 接下來是售貨員端，售貨員不需要管理太多信息，只需要銷售、結(jié)3帳、保存信息就行了。先登陸，然后有收費(fèi)界面為了調(diào)出商品信息，結(jié)帳后把信息進(jìn)行保存，同時(shí)售貨員自己也可以對(duì)自己的密碼進(jìn)行修改，這樣是為了是系統(tǒng)的安全性提高。2.1.3 基本功能實(shí)現(xiàn)1、管理員端 主要實(shí)現(xiàn)功能： 登錄（按管理員號(hào)登錄） 商品管理（商品的入庫(kù)信息，商品修改（商品入庫(kù)修改和商品單價(jià)修改） ） 商品入貨查詢（可以按具體商品和商品類別進(jìn)行出入貨查詢） 庫(kù)存量分析（顯示當(dāng)前所有商品的庫(kù)存量） 售貨員管理（錄入，修改，刪除） 人事管理（管理員以及售貨員的添加，刪除，修改）系統(tǒng)配置（商品類別配置：配置商品的大類） （具體商品配置：配置新的商品） 售貨查詢（售貨商品信息的查詢及報(bào)表的打印預(yù)覽） 退出系統(tǒng)2、收銀臺(tái)端 主要實(shí)現(xiàn)功能： 登錄（按售貨員號(hào)登錄系統(tǒng)）4 收費(fèi)（輸入貨號(hào)，輸入數(shù)量，顯示金額） 結(jié)賬 （輸入錢數(shù)，顯示找零） 修改密碼（售貨員修改密碼） 退出系統(tǒng)2.1.4.報(bào)表需求 超市信息管理系統(tǒng)的某些信息應(yīng)當(dāng)能夠以報(bào)表形式打印出來。能夠?qū)崿F(xiàn)庫(kù)存量的報(bào)表和日售貨的報(bào)表。對(duì)于隨時(shí)進(jìn)行調(diào)閱、打印非常方便的功能實(shí)現(xiàn)。2.1.5 用戶界面需求 超市信息管理系統(tǒng)應(yīng)提供簡(jiǎn)單、層次關(guān)系明了、清晰的操作界面，使用戶一目了然。盡可能的為用戶的登陸、查詢等功能操作提供方便。2.2 性能需求 超市信息管理系統(tǒng)是一個(gè)綜合性的管理系統(tǒng)，它對(duì)此系統(tǒng)的要求也很高的，要具有很好的銷售管理，庫(kù)存管理，職工信息管理，廠商信息管理2.2.1 系統(tǒng)安全性 超市信息管理系統(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)行重要管理。52.2.2 系統(tǒng)的完整性 本系統(tǒng)在使用方面要快速、界面簡(jiǎn)潔，各個(gè)功能的實(shí)現(xiàn)要完整，不能有遺漏的功能。第 3 章 系統(tǒng)概要設(shè)計(jì)本系統(tǒng)除具有進(jìn)、銷、存等基本功能外，還解決了一物多名，多產(chǎn)地、按批號(hào)管理、自定義打印報(bào)表等用戶關(guān)心的問題。1、保密的進(jìn)貨價(jià)格、方便的拆包、打包功能、靈活的價(jià)格管理、便捷的結(jié)款管理等功能極大的方便且改善了用戶的管理。2.完善的權(quán)限管理機(jī)制保證了各部門權(quán)限的獨(dú)立性和一致性，確保系統(tǒng)的安全性和可靠性。3、清晰的報(bào)表、圖形分析使您更方使的統(tǒng)計(jì)和分析進(jìn)銷情況、利潤(rùn)等問題。3.1 基本設(shè)計(jì)概念超市信息管理系統(tǒng)登 陸管理員主界面售貨員主界面1. 登錄與其他系統(tǒng)登錄一樣需要輸入用戶名和密碼，但不同的是，我們根據(jù)超市的特殊性，可以設(shè)置成兩種權(quán)限，即管理員和售貨員，如果為管理員則到管理員界面登錄，反之就到售貨員界面登錄，售貨員只管前臺(tái)銷售，對(duì)商品的管理不得插手，而管理員不僅能夠管理商品二屆能夠到前臺(tái)進(jìn)行銷售，能夠?qū)κ圬泦T進(jìn)行管理！2.售貨員主界面3.管理員主界面63.2 結(jié)構(gòu) 三管理員商品管理商品入貨查詢系統(tǒng)配置人事管理售貨查詢庫(kù)存量分析具體商品查詢商品類別查詢商品入庫(kù)信息商品修改售貨員管理管理員管理商品類別配 置具體商品配置入庫(kù)修改單價(jià)修改其中商品管理要能夠管理商品入庫(kù)信息，能夠?qū)ι唐沸薷?。商品入貨查詢能?duì)具體商品和商品類別查詢，人事管理分為管理員管理和售貨員管理，系統(tǒng)配置對(duì)商品類別配置和具體商品配置。售貨員系統(tǒng)登陸收費(fèi)修改密碼結(jié) 帳73.3 數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)使用 SQL Server2000要建立貨物表、貨物日志表（定期備份） （統(tǒng)計(jì)） 、 售貨表（定期備份）臨時(shí)表、入貨日志表、售貨員日志表、售貨員表、管理員表、 貨物類別配置表、貨物配置表。只有建立好完整的這些表，才能實(shí)現(xiàn)系統(tǒng)的正確運(yùn)行，因?yàn)楸硎且粋€(gè)系統(tǒng)的關(guān)鍵之中的關(guān)鍵，所以要保證表與表之間不能出現(xiàn)互斥的現(xiàn)象。 其次建立關(guān)系，貨物表，入貨日志表，貨物類別配置表。還要建立視圖，分別是售貨員視圖，管理員視圖，和庫(kù)存量視圖。建立好這么多的表、視圖等，就可以對(duì)系統(tǒng)進(jìn)行詳細(xì)的設(shè)計(jì)了。第 4 章 系統(tǒng)詳細(xì)設(shè)計(jì) 對(duì)于整個(gè)系統(tǒng)，詳細(xì)設(shè)計(jì)幾乎是要設(shè)計(jì)出系統(tǒng)所實(shí)現(xiàn)的所有功能，每個(gè)方面都要想到，不能有沒有想到的功能，包括屆面的完整性和系統(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ī)完成。4.1 數(shù)據(jù)表詳細(xì)設(shè)計(jì)表 4.1 貨物表8表 4.2 貨物類別配置表字段名數(shù)據(jù)類型大小貨物類別號(hào)nvarchar255貨物類別名varchar50表 4.3 貨物配置表字段名數(shù)據(jù)類型大小貨物類別號(hào)nvarchar255貨物號(hào)nvarchar255貨物名nvarchar255表 4.4 售貨員表字段名數(shù)據(jù)類型大小售貨員號(hào)nvarchar50密碼nvarchar50售貨員名nvarchar50表 4.5 管理員表字段名數(shù)據(jù)類型大小字段名數(shù)據(jù)類型長(zhǎng)度貨物號(hào)nvachar125貨物類別號(hào)nvachar255單價(jià)money8庫(kù)存量float8貨物名nvachar 2559管理員號(hào)varchar50密碼varchar50管理員名varchar50表 4.6 入貨日志表字段名數(shù)據(jù)類型大小數(shù)量float8入貨價(jià)float8入貨時(shí)間smalldat4管理員號(hào)nvarchar255貨物來源nvarchar255編號(hào)float8貨物名nvarchar255貨物號(hào)nvarchar25單價(jià)money8貨物類別號(hào)nvarchar255表 4.7 售貨員日志表字段名數(shù)據(jù)類型大小售貨員號(hào)varchar50登陸時(shí)間datetime8注銷時(shí)間datetimr8前余額numeric9營(yíng)業(yè)額numeric9現(xiàn)余額numeric9標(biāo)記char410表 4.8 貨物部分信息表字段名數(shù)據(jù)類型大小貨物類別名nvarchar50貨物名nvarchar255貨物號(hào)nvarchar255單價(jià)money8表 4.9 臨時(shí)表字段名數(shù)據(jù)類型大小貨物號(hào)char10貨物名char10單價(jià)money8貨物類別號(hào)char10數(shù)量int4出貨時(shí)間smalldat4表 4.10 售貨表字段名數(shù)據(jù)類型大小貨物號(hào)nvarchar25貨物類別號(hào)varchar50單價(jià)numeric9數(shù)量int4出貨時(shí)間datetime8貨物名char1011貨物類別配置表，貨物表，貨物部分信息表都是對(duì)貨物進(jìn)行管理時(shí)用的表，售貨表、臨時(shí)表、入貨日志表都是和庫(kù)存量有關(guān)系的表，管理員表和售貨員表都是和人事管理有重要聯(lián)系的表。4.2 系統(tǒng)功能詳細(xì)設(shè)計(jì)對(duì)于整個(gè)系統(tǒng)，我們只須對(duì)前臺(tái)售貨員端和后臺(tái)管理員端進(jìn)行詳細(xì)設(shè)計(jì)，要確保功能的實(shí)現(xiàn)。首先是登陸界面，點(diǎn)擊管理員或售貨員出現(xiàn)各自登陸界面，分別輸入管理員號(hào)和密碼或者售貨員號(hào)和密碼進(jìn)入兩個(gè)主要功能端。4.2.1 管理員端1.商品管理商品管理分為商品入庫(kù)信息和商品修改，其中商品入庫(kù)信息是當(dāng)你輸入商品號(hào)，就會(huì)自動(dòng)顯示出商品入貨價(jià)、單價(jià)、數(shù)量、貨物來源、商品名和商品類別號(hào)。Adodc 連接的是數(shù)據(jù)庫(kù)中入貨日志表。商品修改包括入庫(kù)修改和單價(jià)修改，入庫(kù)修改是對(duì)入庫(kù)的商品添加、修改、刪除，Adodc 連接的是入貨日志表。單價(jià)修改只對(duì)商品的單價(jià)修改，Adodc 連接的是貨物部分信息表。2.商品入貨查詢商品入貨查詢分為商品類別查詢和具體商品查詢。商品類別查詢時(shí)通過下拉列表框中選擇貨物類別名和時(shí)間段對(duì)這一類貨物查詢，Adodc 連接的是視圖 1。具體商品查詢是同樣在下拉列表框選擇貨物類別名和貨物名，選中一個(gè)時(shí)間段，進(jìn)行某個(gè)物品的查詢，結(jié)果還能顯示當(dāng)前單價(jià)和庫(kù)存量，Adodc 連接的是視圖 1。主要實(shí)現(xiàn)查詢功能代碼如下：12Dim s As String s = Format(Combo3.ItemData(Combo3.ListIndex), 000)Adodc2.CommandType = adCmdTextDim strsql As Stringstrsql = select * from view1 where 貨物類別號(hào)= & s & and 入貨時(shí)間= & DTPicker1.Value & and 入貨時(shí)間 0 Then Adodc2.CommandType = adCmdText Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF And Adodc1.Recordset.RecordCount 0 Then Adodc2.Recordset.MoveLast End If Adodc2.Recordset.UpdateBatch Adodc1.Refresh Else MsgBox 沒有記錄！ End If修改功能If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.find 管理員號(hào)= & Text1.Text & If Adodc1.Recordset.EOF = True Then MsgBox 未查到該管理員! Else pass = InputBox(請(qǐng)輸入密碼：, 確認(rèn)是否本人) If pass = Adodc1.Recordset.Fields(密碼).Value Then Command2.Enabled = True MsgBox 你有權(quán)修改密碼！, vbExclamation16 5.系統(tǒng)配置系統(tǒng)配置包括貨物類別配置和具體貨物配置。貨物類別配置通過輸入貨物類別號(hào)和貨物名，實(shí)現(xiàn)功能包括添加新的貨物類別，刪除原有貨物類別、修改貨物類別名稱。Adodc1 連接的貨物類別配置表。具體貨物配置時(shí)通過在下拉列表框中選擇貨物類別號(hào)，輸入貨物號(hào)和貨物名稱，實(shí)現(xiàn)包括添加新的貨物、刪除原有貨物、修改貨物信息的功能。Adodc2 連接的17是貨物配置表。兩個(gè)窗體都要顯示配置后的情況和之前的情況。6.售貨查詢售貨查詢主要是售貨日至表的打印預(yù)覽，便于讓其他高層領(lǐng)導(dǎo)查看每日售貨情況，所以還要連接一個(gè)數(shù)據(jù)報(bào)表 2。Adodc1 連接的是售貨表。7.退出退出只需單擊，就會(huì)卸載管理員端的主窗體，重新回到登陸界面。4.2.2 售貨員端1.收費(fèi)收費(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í)表。連接貨物表主要是為了實(shí)現(xiàn)與臨時(shí)標(biāo)的連接。主要代碼如下：18If pubcnn.State = adStateClosed Then Call CreatConnection pubcnn.Execute insert into 臨時(shí)表 select 貨物號(hào) ,貨物名 ,單價(jià), 貨物類別號(hào),數(shù)量,入貨時(shí)間 from 入貨日志表 where 貨物號(hào)= & Trim$(Text1.Text) & pubcnn.Execute update 臨時(shí)表 set 數(shù)量= & Text2.Text & where 貨物號(hào)= & Trim$(Text1.Text) & pubcnn.Execute update 臨時(shí)表 set 出貨時(shí)間= & Date & where 貨物號(hào)= & Trim$(Text1.Text) & Adodc2.Refresh pubcnn.Close2.修改密碼修改密碼是售貨員可以隨時(shí)修改自己的密碼，以保證系統(tǒng)安全性。首先輸入原密碼，輸入新密碼，確認(rèn)新密碼后單擊確認(rèn)，即可修改自己的密碼。Adodc 連接的是售貨員表。3.退出本系統(tǒng)單擊退出系統(tǒng)時(shí)，卸載前臺(tái)管理員界面，回到出登陸主界面。4.2.3 公共模塊建立一個(gè)公共模塊，整個(gè)系統(tǒng)都能引用，這個(gè)模塊主要用于商品入貨查詢和收費(fèi)兩個(gè)窗體。Public pubcnn As New ADODB.ConnectionPublic Sub AddBusItem(cboX As ComboBox) Dim rs As New ADODB.RecordsetIf pubcnn.State = adStateClosed Then Call CreatConnection rs.Open select * from 貨物類別配置表, pubcnn, adOpenDynamic, adLockBatchOptimisticIf rs.RecordCount = 0 Then Exit Sub19Do Until rs.EOF cboX.AddItem rs(貨物類別名).ValuecboX.ItemData(cboX.NewIndex) = rs(貨物類別號(hào)).Valuers.MoveNext Adodc2.CommandType = adCmdText LoopcboX.ListIndex = 0 Set rs = NothingEnd SubPublic Sub CreatConnection()pubcnn.CursorLocation = adUseClient pubcnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市信息管理;Data Source=USER085End SubPublic Sub AddSpecItem(cboX As ComboBox, sd As String)Dim rs As New ADODB.RecordsetIf pubcnn.State = adStateClosed Then Call CreatConnectionrs.Open select * from 貨物配置表 where 貨物類別號(hào)= & sd & , pubcnn, adOpenDynamic, adLockBatchOptimisticIf rs.RecordCount = 0 ThencboX.ClearExit SubEnd IfcboX.ClearDo Until rs.EOFcboX.AddItem rs(貨物名).ValuecboX.ItemData(cboX.NewIndex) = rs(貨物號(hào)).Value rs.MoveNextLoop cboX.ListIndex = 0 Set rs = Nothing End Sub20 第 5 章 結(jié) 論在經(jīng)過 3 個(gè)星期的努力后，我們的系統(tǒng)終于完成了?？粗覀円黄鹋Φ慕Y(jié)果，心里也有一些感慨想要說出來，這些做系統(tǒng)中的點(diǎn)點(diǎn)滴滴，都?xì)v歷在目。當(dāng)我們小組做超市信息管理系統(tǒng)時(shí)，都不同程度的遇到了各種問題，在開始時(shí)我們因?yàn)楸淼慕⒂龅搅艘恍├щy，一些表現(xiàn)在看，建的也不是太好，主要是有些字段的屬性建立的不對(duì)應(yīng)，字段大小也不完整，或太大或太小，因?yàn)橄到y(tǒng)功能不是太強(qiáng)，所以表的毛病并沒有引起大的錯(cuò)誤。在編寫窗體的代碼時(shí)，下拉列表框，是我們遇到另一個(gè)較大的問題，在苦苦思考一段時(shí)間后，建立了公共模塊，解決了這一問題。后來還有收費(fèi)清零時(shí)，要把產(chǎn)生的記錄追加到兩個(gè)表中，在老師的提醒下建立了臨時(shí)表，又根據(jù)課本上的代碼的提示，終于完成。還有一些每個(gè)窗體貶值時(shí)都會(huì)遇到一些問題，大家在一起討論或查資料，或問同學(xué)、老師，都讓問題得到了最后的解決。從這次做課題的過程中，我意識(shí)到了團(tuán)隊(duì)的重要性，團(tuán)隊(duì)中各成員之間的信任是很重要的。同時(shí)也發(fā)現(xiàn)我掌握的知識(shí)是多么的有限，只有在以后的時(shí)間里多積累知識(shí)，才能做好自己的工作。21參考文獻(xiàn)1 亓來濱 編 Visual Basic 程序設(shè)計(jì)（清華大學(xué)出版社）2005.12 史濟(jì)民 顧春華 李昌武 苑榮 編 軟件工程原理、方法與應(yīng)用3 劉勇 周學(xué)軍編著 SQL Server2000 基礎(chǔ)教程22附錄 A: 附加圖管理員密碼管理員號(hào)貨物貨物日志表單價(jià)貨物號(hào)姓名入貨價(jià)貨物類別號(hào)入貨時(shí)間貨物來源管理員號(hào)數(shù)量 售貨員上班下班售貨員名 密碼售貨員號(hào)管理包含銷售登錄換班貨物類別號(hào)貨物名 貨物號(hào)庫(kù)存量單價(jià)附圖 1.1 E-R 圖 23附錄 B: 主要源程序超市信息管理系統(tǒng)的主要程序公共模塊 Pubcnn 為公共變量Public pubcnn As New ADODB.Connection填充貨物類別名的組合框Public Sub AddBusItem(cboX As ComboBox) Dim rs As New ADODB.Recordset If pubcnn.State = adStateClosed Then Call CreatConnection rs.Open select * from 貨物類別配置表, pubcnn, adOpenDynamic, adLockBatchOptimistic If rs.RecordCount = 0 Then Exit Sub Do Until rs.EOF cboX.AddItem rs(貨物類別名).Value cboX.ItemData(cboX.NewIndex) = rs(貨物類別號(hào)).Value rs.MoveNext Loop cboX.ListIndex = 0 Set rs = NothingEnd Sub建立連接Public Sub CreatConnection() pubcnn.CursorLocation = adUseClient pubcnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市信息管理;Data Source=USER085End Sub填充貨物名組合框Public Sub AddSpecItem(cboX As ComboBox, sd As String) Dim rs As New ADODB.Recordset If pubcnn.State = adStateClosed Then Call CreatConnection rs.Open select * from 貨物配置表 where 貨物類別號(hào)= & sd & , pubcnn, adOpenDynamic, adLockBatchOptimistic If rs.RecordCount = 0 Then24 cboX.Clear Exit Sub End If cboX.Clear Do Until rs.EOF cboX.AddItem rs(貨物名).Value cboX.ItemData(cboX.NewIndex) = rs(貨物號(hào)).Value rs.MoveNext Loop cboX.ListIndex = 0 Set rs = NothingEnd Sub管理員登錄If txtUserName.Text = Then MsgBox 管理員號(hào)不能為空, vbExclamation txtUserName.SetFocus Exit Sub End If If txtPassword.Text = Then MsgBox 密碼不能為空, vbExclamation txtPassword.SetFocus Exit Sub End If Static inerr As Integer Dim struser As String, strpass As String, strsql As String struser = Trim$(txtUserName.Text) strpass = Trim$(txtPassword.Text) strsql = select * from 管理員表 where 管理員號(hào) = & struser & and 密碼= & strpass & With Adodc1 .CommandType = adCmdText .RecordSource = strsql .Refresh If .Recordset.EOF And .Recordset.BOF Then inerr = inerr + 125 If inerr = 3 Then MsgBox 對(duì)不起，您無權(quán)使用本系統(tǒng)。, vbExclamation, 提示 End Else MsgBox 用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入！, vbExclamation, 提示 End If Else 數(shù)據(jù)處理.Show Unload Me End If End With End Sub人事管理界面添加功能 If Option1.Value = True Then If Trim$(Text1.Text) = Then MsgBox 請(qǐng)輸入管理員號(hào)！, vbExclamation Text1.SetFocus Exit Sub End If If Trim$(Text2.Text) = Then MsgBox 請(qǐng)輸入管理員名！, vbExclamation Text2.SetFocus Exit Sub End If If Trim$(Text3.Text) = Then MsgBox 請(qǐng)輸入密碼！, vbExclamation Text3.SetFocus Exit Sub End If If Trim$(Text4.Text) = Then MsgBox 請(qǐng)確認(rèn)密碼！, vbExclamation Text4.SetFocus Exit Sub26 End If Dim glyh As String, glym As String, mm As String, qrmm As String glyh = Text1.Text glym = Text2.Text mm = Text3.Text qrmm = Text4.Text If mm qrmm Then MsgBox 密碼不一致，請(qǐng)核對(duì)后再輸入！, vbExclamation, 提示 Text4.SetFocus Else Adodc2.CommandType = adCmdText adodc1.RecordSource = select * from 管理員表 where 管理員名= & Text2.Text & adodc1.Refresh With Adodc1.Recordset If .RecordCount 0 Then .MoveFirst .find 管理員號(hào)= & Text1.Text & If .EOF = True Then 檢查是否有同名用戶，若無，添加，若有，重新輸入 .AddNew .Fields(管理員號(hào)).Value = glyh .Fields(管理員名).Value = glym .Fields(密碼).Value = mm .UpdateBatch MsgBox 此用戶添加成功！, vbExclamation Adodc1.Refresh Adodc2.CommandType = adCmdText Adodc2.CursorLocation = adUseClient Adodc2.RecordSource = Adodc2.RecordSource = select * from 管理員 Adodc2.Refresh Else MsgBox 此用戶已存在！, vbExclamation End If27 End If End With Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End IfEnd If刪除功能 If Option2.Value = True Then If Adodc2.Recordset.RecordCount 0 Then Adodc2.CommandType = adCmdText Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF And Adodc1.Recordset.RecordCount 0 Then Adodc2.Recordset.MoveLast End If Adodc2.Recordset.UpdateBatch Adodc1.Refresh Else MsgBox 沒有記錄！ End If End If 修改功能 If Option3.Value = True Then Dim pass As String If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.find 管理員號(hào)= & Text1.Text & If Adodc1.Recordset.EOF = True Then MsgBox 未查到該管理員! Else pass = InputBox(請(qǐng)輸入密碼：, 確認(rèn)是否本人) If pass = Adodc1.Recordset.Fields(密碼).Value Then28 Command2.Enabled = True MsgBox 你有權(quán)修改密碼！, vbExclamation Text1.Enabled = False Text2.Enabled = False Text3.Enabled = True Text4.Enabled = True Label1.Enabled = False Label2.Enabled = False Label3.Enabled = True Label4.Enabled = True Command1.Enabled = False Text3.SetFocus Label3.Caption = 新密碼 Label4.Caption = 確認(rèn)新密碼 Else Command2.Enabled = False MsgBox 你無權(quán)修改密碼！, vbExclamation Label1.Enabled = True Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Label2.Enabled = False Label3.Enabled = False Label4.Enabled = False Text1.Enabled = True Text1.Text = Command1.Enabled = True End If End If End IfEnd If商品入貨查詢界面填充貨物類別名代碼Dim sNo As StringsNo = Format(Combo1.ItemData(Combo1.ListIndex), 000)29Call AddSpecItem(Combo2, sNo)填充貨物名代碼Dim s As String s = Format(Combo3.ItemData(Combo3.ListIndex), 000)Adodc2.CommandType = adCmdTextDim strsql As Stringstrsql = select * from view1 where 貨物類別號(hào)= & s & and 入貨時(shí)間= & DTPicker1.Value & and 入貨時(shí)間= & DTPicker3.Value & and 入貨時(shí)間 0 Then Adodc2.Recordset.MoveFirst End If Do Until Adodc2.Recordset.EOF If Adodc1.Recordset.Fields(貨物號(hào)).Value = Adodc2.Recordset.Fields(貨物號(hào)).Value Then Adodc1.Recordset.Fields(庫(kù)存量).Value = Adodc1.Recordset.Fields(庫(kù)存量).31Value - Adodc2.Recordset.Fields(數(shù)量).Value Adodc1.Recordset.UpdateBatch Adodc2.Recordset.MoveNext Else Adodc2.Recordset.MoveNext End If Loop Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNext LoopAdodc1.Recordset.UpdateBatch實(shí)現(xiàn)清零功能 pubcnn.Execute delete from 臨時(shí)表 Adodc2.Refresh pubcnn.Close Text3.Text = 0 Text1.Text = Text2.Text = Set DataGrid1.DataSource = Nothing Command4.SetFocus