《超市信息管理系統(tǒng)畢業(yè)論文》由會員分享，可在線閱讀，更多相關(guān)《超市信息管理系統(tǒng)畢業(yè)論文（34頁珍藏版）》請?jiān)谘b配圖網(wǎng)上搜索。

1、I超市信息管理系統(tǒng)摘 要超市信息管理系統(tǒng)是典型的信息管理系統(tǒng)。 ，該系統(tǒng)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。對于后臺數(shù)據(jù)庫建立和維護(hù)，建成了數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于前端應(yīng)用程序的開發(fā)則提供了強(qiáng)大的數(shù)據(jù)操作功能，界面友好、使用簡單方便等特點(diǎn)，我們使用了 SQL Server 2000 數(shù)據(jù)庫為開發(fā)工具，VB 編程語言作為開發(fā)平臺，并利用 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ā)背景.

2、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.報表需求.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ù)庫設(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: 附

3、加圖附加圖.22附錄附錄 B: 主要源程序主要源程序.231第 1 章 系統(tǒng)分析在系統(tǒng)開發(fā)之前，我們要對整個系統(tǒng)進(jìn)行簡單的分析。1.1 系統(tǒng)開發(fā)目的（1）大大提高超市的運(yùn)作效率；（2）通過全面的信息采集和處理，輔助提高超市的決策水平；（3）使用本系統(tǒng)，可以迅速提升超市的管理水平，為降低經(jī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ìn)入到了一個全新的領(lǐng)域，競爭已不再是規(guī)模的競爭，而是技術(shù)的競爭、管理的競爭

4、、人才的競爭。技術(shù)的提升和管理的升級是超市業(yè)的競爭核心。零售領(lǐng)域目前呈多元發(fā)展趨勢，多種業(yè)態(tài)：超市、倉儲店、便利店、特許加盟店、專賣店、貨倉等相互并存。如何在激烈的競爭中擴(kuò)大銷售額、降低經(jīng)營成本、擴(kuò)大經(jīng)營規(guī)模，成為超市營業(yè)者努力追求的目標(biāo)。1.2.1 應(yīng)用范圍本系統(tǒng)適用于各種小型超市，可以方便的進(jìn)行管理。1.2.2 開發(fā)工具 本系統(tǒng)是以 Windows 系統(tǒng)為操作平臺，用 VB 編程語言和SQLServer，數(shù)據(jù)庫來實(shí)現(xiàn)超市信息管理系統(tǒng)所需功能的。2ADO 接口技術(shù)用來連接數(shù)據(jù)庫和前段應(yīng)用程序。1.3 項(xiàng)目確立 針對超市的特點(diǎn)，為了幫助超市解決現(xiàn)在面臨的問題，提高小型超市的競爭力，我們將開發(fā)以

5、下系統(tǒng)：前臺銷售系統(tǒng)、后臺管理系統(tǒng)，其中這兩個子系統(tǒng)又包含其它一些子功能。第 2 章 需求分析 目前，我們城市的許多大型超市或者是小型超市，由于貨品日益增多，顧客群體越來越大，他們的管理產(chǎn)生了許多的不便。面對這樣的情況我們設(shè)計(jì)了這樣一個系統(tǒng)。2.1 功能需求 本課題主要實(shí)現(xiàn)的是超市信息管理系統(tǒng)設(shè)計(jì)系統(tǒng)時應(yīng)進(jìn)可能的方便員工操作，貼近客戶。系統(tǒng)在實(shí)現(xiàn)上應(yīng)具有以下功能。2.1.1 基本功能劃分 主要分為兩個功能端，收銀端和管理員端。2.1.2 功能描述 首先是管理員端，管理員是后臺的運(yùn)行者和使用者。因此管理員端有很多功能，登陸只允許管理員自己才能進(jìn)入，商品管理主要對已有商品進(jìn)行查詢、修改，商品入貨查

6、詢對入貨商品進(jìn)行一些必要的查詢，庫存量分析 和售貨管理主要是針對報表，人事管理是對售貨員和管理員一些本身的信息進(jìn)行管理，商品配置是對商品具體的添加、刪除等管理。 接下來是售貨員端，售貨員不需要管理太多信息，只需要銷售、結(jié)3帳、保存信息就行了。先登陸，然后有收費(fèi)界面為了調(diào)出商品信息，結(jié)帳后把信息進(jìn)行保存，同時售貨員自己也可以對自己的密碼進(jìn)行修改，這樣是為了是系統(tǒng)的安全性提高。2.1.3 基本功能實(shí)現(xiàn)1、管理員端 主要實(shí)現(xiàn)功能： 登錄（按管理員號登錄） 商品管理（商品的入庫信息，商品修改（商品入庫修改和商品單價修改） ） 商品入貨查詢（可以按具體商品和商品類別進(jìn)行出入貨查詢） 庫存量分析（顯示當(dāng)前

7、所有商品的庫存量） 售貨員管理（錄入，修改，刪除） 人事管理（管理員以及售貨員的添加，刪除，修改）系統(tǒng)配置（商品類別配置：配置商品的大類） （具體商品配置：配置新的商品） 售貨查詢（售貨商品信息的查詢及報表的打印預(yù)覽） 退出系統(tǒng)2、收銀臺端 主要實(shí)現(xiàn)功能： 登錄（按售貨員號登錄系統(tǒng)）4 收費(fèi)（輸入貨號，輸入數(shù)量，顯示金額） 結(jié)賬 （輸入錢數(shù)，顯示找零） 修改密碼（售貨員修改密碼） 退出系統(tǒng)2.1.4.報表需求 超市信息管理系統(tǒng)的某些信息應(yīng)當(dāng)能夠以報表形式打印出來。能夠?qū)崿F(xiàn)庫存量的報表和日售貨的報表。對于隨時進(jìn)行調(diào)閱、打印非常方便的功能實(shí)現(xiàn)。2.1.5 用戶界面需求 超市信息管理系統(tǒng)應(yīng)提供簡單、

8、層次關(guān)系明了、清晰的操作界面，使用戶一目了然。盡可能的為用戶的登陸、查詢等功能操作提供方便。2.2 性能需求 超市信息管理系統(tǒng)是一個綜合性的管理系統(tǒng)，它對此系統(tǒng)的要求也很高的，要具有很好的銷售管理，庫存管理，職工信息管理，廠商信息管理2.2.1 系統(tǒng)安全性 超市信息管理系統(tǒng)是一個需要較強(qiáng)安全性的系統(tǒng)，因?yàn)橄到y(tǒng)里有很多關(guān)于貨物數(shù)量，銷售額和營業(yè)額的管理，因?yàn)榕c金錢有著密切的關(guān)系，所以系統(tǒng)的安全使每個開發(fā)商和應(yīng)用上的都關(guān)注的事，因此對于系統(tǒng)的安全性要進(jìn)行重要管理。52.2.2 系統(tǒng)的完整性 本系統(tǒng)在使用方面要快速、界面簡潔，各個功能的實(shí)現(xiàn)要完整，不能有遺漏的功能。第 3 章 系統(tǒng)概要設(shè)計(jì)本系統(tǒng)除具

9、有進(jìn)、銷、存等基本功能外，還解決了一物多名，多產(chǎn)地、按批號管理、自定義打印報表等用戶關(guān)心的問題。1、保密的進(jìn)貨價格、方便的拆包、打包功能、靈活的價格管理、便捷的結(jié)款管理等功能極大的方便且改善了用戶的管理。2.完善的權(quán)限管理機(jī)制保證了各部門權(quán)限的獨(dú)立性和一致性，確保系統(tǒng)的安全性和可靠性。3、清晰的報表、圖形分析使您更方使的統(tǒng)計(jì)和分析進(jìn)銷情況、利潤等問題。3.1 基本設(shè)計(jì)概念超市信息管理系統(tǒng)登 陸管理員主界面售貨員主界面1. 登錄與其他系統(tǒng)登錄一樣需要輸入用戶名和密碼，但不同的是，我們根據(jù)超市的特殊性，可以設(shè)置成兩種權(quán)限，即管理員和售貨員，如果為管理員則到管理員界面登錄，反之就到售貨員界面登錄，售

10、貨員只管前臺銷售，對商品的管理不得插手，而管理員不僅能夠管理商品二屆能夠到前臺進(jìn)行銷售，能夠?qū)κ圬泦T進(jìn)行管理！2.售貨員主界面3.管理員主界面63.2 結(jié)構(gòu) 三管理員商品管理商品入貨查詢系統(tǒng)配置人事管理售貨查詢庫存量分析具體商品查詢商品類別查詢商品入庫信息商品修改售貨員管理管理員管理商品類別配 置具體商品配置入庫修改單價修改其中商品管理要能夠管理商品入庫信息，能夠?qū)ι唐沸薷摹Ｉ唐啡胴洸樵兡軐唧w商品和商品類別查詢，人事管理分為管理員管理和售貨員管理，系統(tǒng)配置對商品類別配置和具體商品配置。售貨員系統(tǒng)登陸收費(fèi)修改密碼結(jié) 帳73.3 數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫使用 SQL Server2000要建立貨物表、貨

11、物日志表（定期備份） （統(tǒng)計(jì)） 、 售貨表（定期備份）臨時表、入貨日志表、售貨員日志表、售貨員表、管理員表、 貨物類別配置表、貨物配置表。只有建立好完整的這些表，才能實(shí)現(xiàn)系統(tǒng)的正確運(yùn)行，因?yàn)楸硎且粋€系統(tǒng)的關(guān)鍵之中的關(guān)鍵，所以要保證表與表之間不能出現(xiàn)互斥的現(xiàn)象。 其次建立關(guān)系，貨物表，入貨日志表，貨物類別配置表。還要建立視圖，分別是售貨員視圖，管理員視圖，和庫存量視圖。建立好這么多的表、視圖等，就可以對系統(tǒng)進(jìn)行詳細(xì)的設(shè)計(jì)了。第 4 章 系統(tǒng)詳細(xì)設(shè)計(jì) 對于整個系統(tǒng)，詳細(xì)設(shè)計(jì)幾乎是要設(shè)計(jì)出系統(tǒng)所實(shí)現(xiàn)的所有功能，每個方面都要想到，不能有沒有想到的功能，包括屆面的完整性和系統(tǒng)操作的簡用簡單性，還要包括功

12、能的實(shí)現(xiàn)，其中要實(shí)現(xiàn)整個業(yè)務(wù)的計(jì)算機(jī)管理，管理中的各種情況要用計(jì)算機(jī)進(jìn)行實(shí)施，售貨中的程序和流程要在計(jì)算機(jī)使用的情況下，不能出現(xiàn)任何錯誤，而且保證其系統(tǒng)運(yùn)行安全性，其次各報表的編制和打印也由計(jì)算機(jī)完成。4.1 數(shù)據(jù)表詳細(xì)設(shè)計(jì)表 4.1 貨物表8表 4.2 貨物類別配置表字段名數(shù)據(jù)類型大小貨物類別號nvarchar255貨物類別名varchar50表 4.3 貨物配置表字段名數(shù)據(jù)類型大小貨物類別號nvarchar255貨物號nvarchar255貨物名nvarchar255表 4.4 售貨員表字段名數(shù)據(jù)類型大小售貨員號nvarchar50密碼nvarchar50售貨員名nvarchar50表 4

13、.5 管理員表字段名數(shù)據(jù)類型大小字段名數(shù)據(jù)類型長度貨物號nvachar125貨物類別號nvachar255單價money8庫存量float8貨物名nvachar 2559管理員號varchar50密碼varchar50管理員名varchar50表 4.6 入貨日志表字段名數(shù)據(jù)類型大小數(shù)量float8入貨價float8入貨時間smalldat4管理員號nvarchar255貨物來源nvarchar255編號float8貨物名nvarchar255貨物號nvarchar25單價money8貨物類別號nvarchar255表 4.7 售貨員日志表字段名數(shù)據(jù)類型大小售貨員號varchar50登陸時間d

14、atetime8注銷時間datetimr8前余額numeric9營業(yè)額numeric9現(xiàn)余額numeric9標(biāo)記char410表 4.8 貨物部分信息表字段名數(shù)據(jù)類型大小貨物類別名nvarchar50貨物名nvarchar255貨物號nvarchar255單價money8表 4.9 臨時表字段名數(shù)據(jù)類型大小貨物號char10貨物名char10單價money8貨物類別號char10數(shù)量int4出貨時間smalldat4表 4.10 售貨表字段名數(shù)據(jù)類型大小貨物號nvarchar25貨物類別號varchar50單價numeric9數(shù)量int4出貨時間datetime8貨物名char1011貨物類別

15、配置表，貨物表，貨物部分信息表都是對貨物進(jìn)行管理時用的表，售貨表、臨時表、入貨日志表都是和庫存量有關(guān)系的表，管理員表和售貨員表都是和人事管理有重要聯(lián)系的表。4.2 系統(tǒng)功能詳細(xì)設(shè)計(jì)對于整個系統(tǒng)，我們只須對前臺售貨員端和后臺管理員端進(jìn)行詳細(xì)設(shè)計(jì)，要確保功能的實(shí)現(xiàn)。首先是登陸界面，點(diǎn)擊管理員或售貨員出現(xiàn)各自登陸界面，分別輸入管理員號和密碼或者售貨員號和密碼進(jìn)入兩個主要功能端。4.2.1 管理員端1.商品管理商品管理分為商品入庫信息和商品修改，其中商品入庫信息是當(dāng)你輸入商品號，就會自動顯示出商品入貨價、單價、數(shù)量、貨物來源、商品名和商品類別號。Adodc 連接的是數(shù)據(jù)庫中入貨日志表。商品修改包括入庫

16、修改和單價修改，入庫修改是對入庫的商品添加、修改、刪除，Adodc 連接的是入貨日志表。單價修改只對商品的單價修改，Adodc 連接的是貨物部分信息表。2.商品入貨查詢商品入貨查詢分為商品類別查詢和具體商品查詢。商品類別查詢時通過下拉列表框中選擇貨物類別名和時間段對這一類貨物查詢，Adodc 連接的是視圖 1。具體商品查詢是同樣在下拉列表框選擇貨物類別名和貨物名，選中一個時間段，進(jìn)行某個物品的查詢，結(jié)果還能顯示當(dāng)前單價和庫存量，Adodc 連接的是視圖 1。主要實(shí)現(xiàn)查詢功能代碼如下：12Dim s As String s = Format(Combo3.ItemData(Combo3.List

17、Index), 000)Adodc2.CommandType = adCmdTextDim strsql As Stringstrsql = select * from view1 where 貨物類別號= & s & and 入貨時間= & DTPicker1.Value & and 入貨時間 0 Then Adodc2.CommandType = adCmdText Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF And Adodc1.Recordset.RecordCount 0 Then

18、 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 管理員號= & Text1.Text & If Adodc1.Recordset.EOF = True Then MsgBox 未查到該管理員! Else pass = InputBox(請輸入密碼：, 確認(rèn)是否

19、本人) If pass = Adodc1.Recordset.Fields(密碼).Value Then Command2.Enabled = True MsgBox 你有權(quán)修改密碼！, vbExclamation16 5.系統(tǒng)配置系統(tǒng)配置包括貨物類別配置和具體貨物配置。貨物類別配置通過輸入貨物類別號和貨物名，實(shí)現(xiàn)功能包括添加新的貨物類別，刪除原有貨物類別、修改貨物類別名稱。Adodc1 連接的貨物類別配置表。具體貨物配置時通過在下拉列表框中選擇貨物類別號，輸入貨物號和貨物名稱，實(shí)現(xiàn)包括添加新的貨物、刪除原有貨物、修改貨物信息的功能。Adodc2 連接的17是貨物配置表。兩個窗體都要顯示配置后

20、的情況和之前的情況。6.售貨查詢售貨查詢主要是售貨日至表的打印預(yù)覽，便于讓其他高層領(lǐng)導(dǎo)查看每日售貨情況，所以還要連接一個數(shù)據(jù)報表 2。Adodc1 連接的是售貨表。7.退出退出只需單擊，就會卸載管理員端的主窗體，重新回到登陸界面。4.2.2 售貨員端1.收費(fèi)收費(fèi)界面需要輸入貨物號和數(shù)量，確認(rèn)后出現(xiàn)該貨物的信息同時出現(xiàn)總價及要收的金額。此時點(diǎn)擊結(jié)帳按鈕，出現(xiàn)結(jié)帳界面，界面顯示應(yīng)收金額，輸入現(xiàn)收金額后，單擊確定顯示找零及應(yīng)找余額，退出及卸載結(jié)帳窗體。最后清零，清零時把這類貨物信息與貨物表的庫存量中該物品相減，在售貨日志表中增加該類信息。收費(fèi)界面中 Adodc1 連接的貨物表，Adodc2 連接的是

21、臨時表。連接貨物表主要是為了實(shí)現(xiàn)與臨時標(biāo)的連接。主要代碼如下：18If pubcnn.State = adStateClosed Then Call CreatConnection pubcnn.Execute insert into 臨時表 select 貨物號 ,貨物名 ,單價, 貨物類別號,數(shù)量,入貨時間 from 入貨日志表 where 貨物號= & Trim$(Text1.Text) & pubcnn.Execute update 臨時表 set 數(shù)量= & Text2.Text & where 貨物號= & Trim$(Text1.Text) & pubcnn.Execute up

22、date 臨時表 set 出貨時間= & Date & where 貨物號= & Trim$(Text1.Text) & Adodc2.Refresh pubcnn.Close2.修改密碼修改密碼是售貨員可以隨時修改自己的密碼，以保證系統(tǒng)安全性。首先輸入原密碼，輸入新密碼，確認(rèn)新密碼后單擊確認(rèn)，即可修改自己的密碼。Adodc 連接的是售貨員表。3.退出本系統(tǒng)單擊退出系統(tǒng)時，卸載前臺管理員界面，回到出登陸主界面。4.2.3 公共模塊建立一個公共模塊，整個系統(tǒng)都能引用，這個模塊主要用于商品入貨查詢和收費(fèi)兩個窗體。Public pubcnn As New ADODB.ConnectionPublic

23、 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.NewI

24、ndex) = rs(貨物類別號).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=USER

25、085End 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 貨物類別號= & sd & , pubcnn, adOpenDynamic, adLockBatchOptimisticIf rs.RecordCount = 0 ThencboX.ClearExit SubEnd IfcboX.C

26、learDo Until rs.EOFcboX.AddItem rs(貨物名).ValuecboX.ItemData(cboX.NewIndex) = rs(貨物號).Value rs.MoveNextLoop cboX.ListIndex = 0 Set rs = Nothing End Sub20 第 5 章 結(jié) 論在經(jīng)過 3 個星期的努力后，我們的系統(tǒng)終于完成了。看著我們一起努力的結(jié)果，心里也有一些感慨想要說出來，這些做系統(tǒng)中的點(diǎn)點(diǎn)滴滴，都?xì)v歷在目。當(dāng)我們小組做超市信息管理系統(tǒng)時，都不同程度的遇到了各種問題，在開始時我們因?yàn)楸淼慕⒂龅搅艘恍├щy，一些表現(xiàn)在看，建的也不是太好，主要是有些

27、字段的屬性建立的不對應(yīng)，字段大小也不完整，或太大或太小，因?yàn)橄到y(tǒng)功能不是太強(qiáng)，所以表的毛病并沒有引起大的錯誤。在編寫窗體的代碼時，下拉列表框，是我們遇到另一個較大的問題，在苦苦思考一段時間后，建立了公共模塊，解決了這一問題。后來還有收費(fèi)清零時，要把產(chǎn)生的記錄追加到兩個表中，在老師的提醒下建立了臨時表，又根據(jù)課本上的代碼的提示，終于完成。還有一些每個窗體貶值時都會遇到一些問題，大家在一起討論或查資料，或問同學(xué)、老師，都讓問題得到了最后的解決。從這次做課題的過程中，我意識到了團(tuán)隊(duì)的重要性，團(tuán)隊(duì)中各成員之間的信任是很重要的。同時也發(fā)現(xiàn)我掌握的知識是多么的有限，只有在以后的時間里多積累知識，才能做好自

28、己的工作。21參考文獻(xiàn)1 亓來濱 編 Visual Basic 程序設(shè)計(jì)（清華大學(xué)出版社）2005.12 史濟(jì)民 顧春華 李昌武 苑榮 編 軟件工程原理、方法與應(yīng)用3 劉勇 周學(xué)軍編著 SQL Server2000 基礎(chǔ)教程22附錄 A: 附加圖管理員密碼管理員號貨物貨物日志表單價貨物號姓名入貨價貨物類別號入貨時間貨物來源管理員號數(shù)量 售貨員上班下班售貨員名 密碼售貨員號管理包含銷售登錄換班貨物類別號貨物名 貨物號庫存量單價附圖 1.1 E-R 圖 23附錄 B: 主要源程序超市信息管理系統(tǒng)的主要程序公共模塊 Pubcnn 為公共變量Public pubcnn As New ADODB.Con

29、nection填充貨物類別名的組合框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(貨物類別名).Val

30、ue cboX.ItemData(cboX.NewIndex) = rs(貨物類別號).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=US

31、ER085End 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 貨物類別號= & sd & , pubcnn, adOpenDynamic, adLockBatchOptimistic If rs.RecordCount = 0 Then24 cboX.Clear Ex

32、it Sub End If cboX.Clear Do Until rs.EOF cboX.AddItem rs(貨物名).Value cboX.ItemData(cboX.NewIndex) = rs(貨物號).Value rs.MoveNext Loop cboX.ListIndex = 0 Set rs = NothingEnd Sub管理員登錄If txtUserName.Text = Then MsgBox 管理員號不能為空, vbExclamation txtUserName.SetFocus Exit Sub End If If txtPassword.Text = Then M

33、sgBox 密碼不能為空, 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 管理員號 = & struser & and 密碼= & strpass & With Adodc1

34、 .CommandType = adCmdText .RecordSource = strsql .Refresh If .Recordset.EOF And .Recordset.BOF Then inerr = inerr + 125 If inerr = 3 Then MsgBox 對不起，您無權(quán)使用本系統(tǒng)。, vbExclamation, 提示 End Else MsgBox 用戶名或密碼錯誤，請重新輸入！, vbExclamation, 提示 End If Else 數(shù)據(jù)處理.Show Unload Me End If End With End Sub人事管理界面添加功能 If Op

35、tion1.Value = True Then If Trim$(Text1.Text) = Then MsgBox 請輸入管理員號！, vbExclamation Text1.SetFocus Exit Sub End If If Trim$(Text2.Text) = Then MsgBox 請輸入管理員名！, vbExclamation Text2.SetFocus Exit Sub End If If Trim$(Text3.Text) = Then MsgBox 請輸入密碼！, vbExclamation Text3.SetFocus Exit Sub End If If Trim$

36、(Text4.Text) = Then MsgBox 請確認(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 密碼不一致，請核對后再輸入！, vbExclamation, 提示 Text4.SetFocus Else Adodc2

37、.CommandType = adCmdText adodc1.RecordSource = select * from 管理員表 where 管理員名= & Text2.Text & adodc1.Refresh With Adodc1.Recordset If .RecordCount 0 Then .MoveFirst .find 管理員號= & Text1.Text & If .EOF = True Then 檢查是否有同名用戶，若無，添加，若有，重新輸入 .AddNew .Fields(管理員號).Value = glyh .Fields(管理員名).Value = glym .Fi

38、elds(密碼).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 = Text

39、2.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.Mov

40、eLast 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 管理員號= & Text1.Text & If Adodc1.Recordset.EOF = True Then MsgBox 未查到該管理

41、員! Else pass = InputBox(請輸入密碼：, 確認(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

42、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

43、 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)Ad

44、odc2.CommandType = adCmdTextDim strsql As Stringstrsql = select * from view1 where 貨物類別號= & s & and 入貨時間= & DTPicker1.Value & and 入貨時間= & DTPicker3.Value & and 入貨時間 0 Then Adodc2.Recordset.MoveFirst End If Do Until Adodc2.Recordset.EOF If Adodc1.Recordset.Fields(貨物號).Value = Adodc2.Recordset.Fields(

45、貨物號).Value Then Adodc1.Recordset.Fields(庫存量).Value = Adodc1.Recordset.Fields(庫存量).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 臨時表 Adodc2.Refresh pubcnn.Close Text3.Text = 0 Text1.Text = Text2.Text = Set DataGrid1.DataSource = Nothing Command4.SetFocus