超市管理系统实验

专业班级 学生学号 设计时间 指导老师

超市管理系统论文

目录：

引言................................................................................................................................ 2 第一章 分析.................................................................................................................. 3

1.1可行性分析....................................................................................................... 3

1.1.1经济可行性............................................................................................. 3 1.1.2技术可行性............................................................................................. 3 1.1.3操作可行性............................................................................................. 3 1.2需求分析........................................................................................................... 3 第二章 系统功能详细设计.......................................................................................... 5

2.1数据库设计....................................................................................................... 5 2.2组件的公共模块............................................................................................... 5

2.2.1详细代码................................................................................................. 5 2.3登录窗口的设计............................................................................................... 6

2.3.1详细设计图和代码................................................................................. 6 2.3.2说明......................................................................................................... 8 2.4主页面的设计................................................................................................... 9

2.4.1主页面的设计图和代码......................................................................... 9 2.4.2说明....................................................................................................... 11 2.5员工管理的设计............................................................................................. 11

2.5.1 部分代码与界面图.............................................................................. 11 2.6 交易管理，统计部分界面的设计................................................................ 14

2.6.1部分界面与代码................................................................................... 14

总结.............................................................................................................................. 17 参考文献...................................................................................................................... 17

第 1 页

超市管理系统论文

引言

本软件使用Microsoft Visual Basic 6.0进行编写。数据库技术的产生与发展源于对于数据的组织和管理。数据库技术是数据管理的技术，它随着数据管理任务的需要而产生于20世纪60年代中期。这是一门综合性技术，涉及操作系统，数据结构，算法设计和程序设计等知识。数据库技术的基本思想是对数据实行集中，统一，的管理，用户可以最大限度的共享数据资源。

数据库系统实际上是一个应用系统，它是在计算机硬，软件系统支持下，由用户，数据库管理系统，存储在存储设备上的数据和数据库应用程序构成的数据处理系统。数据库系统是由数据，数据库管理系统，应用程序，用户组成。

数据库的特点： 1.实现数据共享 2.实现数据 3.减少了数据冗余度

4.避免了数据不一致性5.加强了对数据的保护。

数据库应用系统（DATABASE APPLICATION SYSTEMS DBAS） 管理信息系统

开放式信息服务系统

一个数据库应用系统通常是由数据库和应用程序两部分组成，它们是在数据库管理系统支持下设计和开发出来的。

第 2 页

超市管理系统论文

第一章 分析

1.1可行性分析

随着计算机技术的发展和网络人口的增加，人们对网络的需求也越来越苛刻，越来越贴近其生活，电子信息管理已经成为网上的一股潮流。而更多的，是标示传统行业的管理要延伸到网络，以更方便其生活、工作和学习。可行性研究的目的，就是用最小的代价在尽可能短的时间内确定问题是否能够解决。要达到这个目的，必须分析几种主要的可能解法的利弊，从而判断原定的系统规模和目标是否现实，系统完成后所能带来的效益是否大致值得投资开发这个程度。因此，可行性研究实质上是要进行一次大大压缩简化了的系统分析和设计的过程，也就是在较高层次上以较抽象的方式进行的系统分析和设计的过程。 系统的可行性分析主要包括经济上的可行性、技术上的可行性和操作上的可行性。本系统的可行性分析如下： 1.1.1经济可行性

由于本超市管理系统所标示的硬件（计算机相关硬件）和软件环境（Visual Basic+Access2003）,市场上都容易购买到或从相关的网站上下载，系统成本主要集中在本管理系统的开发和维护上，对超市不造成过重的经济负担。而一旦投入使用，不仅可以减少超市的工作强度，提高工作效率，而且方便了超市对信息的管理，延续了传统的管理模式，极大限度的方便了超市管理人员，而且，目标系统不是很复杂，开发的周期较短，人员经济支出不大，所节省的大量人力、财力产生的效益将远远大于本管理系统的开发成本，所以从经济方面讲开发此系统是可行的。 1.1.2技术可行性

本设计采用Mcrosoft Visual Basic 6.0作为开发工具，在连接数据库的时候采用了VB里的ADO方法进行了连接数据库和对数据库操作。后台数据库采用了Access 2003，以下对ADO和Access进行技术简介：

ActiveX Data Objects(ADO)是微软最新的数据访问技术。它被设计用来同新的数据访问层OLE OB Provider一起协同工作，以提供通用数据访问。OLE DB是一个低层的数据访问接口，用它可以访问各种数据源，包括传统的关系型数据库。以及电子邮件系统及自定义的商业对象。

一旦安装了ADO，在VB的工程——引用对话框中就可以对它进行访问。很方便。此技术易于维护。所以技术上可行。 1.1.3操作可行性

超市作为一个商品资源的集散点，其主要功能就是对顾客开放购买的地方。传统的超市管理系统，一般有两种方式：一是手工管理，这种方式应用最传统的“笔纸操作系统”将超市的货物信息、销售信息、厂商信息等以纯手工的形式进行，将信息以表格文件的表现形式记录在纸上，再进行统一的保存。这种方式虽然在简单信息查询时会有一定的方便，但是存在着更多的不便：信息保存时间和条件很受、容易被损坏、信息查询不便、信息传达容易造成失误等。

另一种是信息管理方式是应用单机版的管理系统，但是这种系统设计时间较早，很多功能划分很不科学，很多设置已经跟不上时代的需求了。但是超市管理人员已经有相当的应用经验，所以新的系统操作有一定的操作经验可以作一定的操作经验。

1.2需求分析

随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。计算机作为一种高效的管理工具，对现代企业的管理发挥了极其重要的作用。超市是当前最重要的商业经营形式之一，为了

第 3 页

超市管理系统论文

进一步提高超市的管理水平和竞争力，管理信息系统在超市中的应用已是大势所趋。

传统的计算机管理在超市流程中的数据处理比较繁琐、效率低、易出错，这就制约了企业的发展。因此企业利用成熟的管理思想和先进的信息技术来提高管理水平和经济效益就显得尤为重要。基于先进的计算机技术开发的超市管理信息系统可以帮助超市改变落后的经营模式，并且可以使管理层及时、合理地进行管理和决策。因此设计开发的超市管理信息系统应顺应社会发展的潮流。作为计算机应用的一部分，使用计算机对超市的信息进行管理，具有着手工管理所无法比拟的优点：例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

第 4 页

超市管理系统论文

第二章 系统功能详细设计

2.1数据库设计

本超市管理系统为实现超市的进、销、存三大关键环节，需建立商品信息表、商品销售表、用户登录表。其中商品信息表包括商品编号、商品名称、商品数量等。用户表包括了，用户名、用户密码、用户工作时间、用户联系方式等。还建立了员工信息表，用于方便的对员工进行管理，建立了销售表，用于对销售货物的管理。表的设计如下：

用户登录表

列名 用户名 密码 员工工龄 员工编号 员工联系方式 数据类型 文本 数字 文本 文本 数字 长度 8 8 50 8 20 进货表 列名 进货编号 商品名称 进货数量 生产厂商 数据类型 文本 文本 数字 文本 长度 50 50 50 50 进货登记

列名 进货编号 商品名称 进货数量 生产厂商 单价 商品型号 总金额 交易日期 数据类型 文本 文本 数字 文本 数字 文本 数字 日期/时间 长度 50 50 50 50 50 50 50 日期/时间 可否为空 Not Null Not Null Not Null Not Null Not Null Not Null Not Null Not Null 注释 进货编号 商品名称 数量多少 何处生产 实际价格 商品型号 金额 何时交易 可否为空 Not Null Not Null Not Null Not Null 注释 进货编号 商品名称 进货数量数 生产厂商 可否为空 Not Null Not Null Not Null Not Null Not Null 注释 用户名字 用户密码 工作时间（年） 手机号 销售表等表的设计如上。

2.2组件的公共模块

在工程中添加一个模块。此模块有两个功能： 用来连接数据库的及相关的初始化操作。

存放在对数据库的操作过程中可能用到的一些公共函数。 2.2.1详细代码 如下：

第 5 页

超市管理系统论文

Option Explicit

Public conn As New ADODB.Connection Public userID As String Public book_num As String

Public rsReader As New ADODB.Recordset

2.3登录窗口的设计

2.3.1详细设计图和代码

第 6 页

超市管理系统论文

代码设计： Option Explicit Dim cnt As Integer Dim pwd As String

Dim rsUser As ADODB.Recordset

Private Sub Command1_Click() Dim sql As String

Set rsUser = New ADODB.Recordset If rsUser.State = 1 Then rsUser.Close

sql = \"select 密码 from 登录 where 用户名='\" & Combo1.Text & \"'\" rsUser.Open sql, conn, adOpenStatic, adLockPessimistic

pwd = Trim(rsUser.Fields(\"密码\"))

If Combo1.Text = \"\" Then

MsgBox \"请选择用户名!\登录\" Combo1.SetFocus Exit Sub End If

If txtpwd.Text = \"\" Then

MsgBox \"请输入密码!\登录\" txtpwd.SetFocus Exit Sub End If

If txtpwd.Text = pwd Then

第 7 页

超市管理系统论文

userID = Combo1.Text Me.Hide

MsgBox \"登陆成功！\" 主页面.Show Else

MsgBox \"密码无效，请重试!您还有\" & 2 - cnt & \"次机会\登录\" txtpwd.SetFocus cnt = cnt + 1 If cnt = 3 Then Unload Me End If End If

End Sub

Private Sub Command2_Click() Me.Combo1.Text = \"\" Me.txtpwd.Text = \"\" End Sub

Private Sub Command3_Click() End End Sub

Private Sub Form_Load() Dim cnnstr As String Dim sql As String

Set conn = New ADODB.Connection Set rsUser = New ADODB.Recordset

cnnstr = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=管理.mdb;Persist Security Info=False\"

conn.Open cnnstr

sql = \"select 用户名 from 登录\"

rsUser.Open sql, conn, adOpenStatic, adLockPessimistic Combo1.Clear

Do Until rsUser.EOF

Combo1.AddItem rsUser.Fields(\"用户名\") & \"\" rsUser.MoveNext Loop cnt = 0 End Sub 2.3.2说明

进入登陆界面后，首先输入账号和密码，系统打开数据库进行判定是否为员工，如果是，则可以输入正确的密码进入，如果不是，则需要添加用户，对用户添加的必须是本超市的用

第 8 页

超市管理系统论文

户。如果密码不正确，则显示密码不正确，并且只有三次输入机会，如果三次输入密码都不正确，则系统自动退出。

2.4主页面的设计

2.4.1主页面的设计图和代码

代码设计如下：

Private Sub benyue_Click() 本月销售.Show End Sub

Private Sub BNXS_Click() 本年销售.Show End Sub

Private Sub JHB_Click() 进货表.Show End Sub

Private Sub JHDJ_Click() 进货登记.Show End Sub

Private Sub jr_Click() 今日销售.Show End Sub

Private Sub mmxg_Click() 修改密码.Show End Sub

Private Sub XSB_Click() 销售表.Show

第 9 页

超市管理系统论文

End Sub

Private Sub NJH_Click() 年进货.Show End Sub

Private Sub rjh_Click() 日进货.Show End Sub

Private Sub THDJ_Click() 退货登记.Show End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1

员工信息表.Show Case 2

员工查看.Show Case 3

员工增加.Show Case 4

修改密码.Show Case 5

员工信息表.Show Case 6

Dim value As Integer

value = MsgBox(\"真的要退出吗?\超市管理系统\") If value = 6 Then End End Select End Sub

Private Sub XSDJ_Click() 销售登记.Show End Sub

Private Sub ygxxb_Click() 员工信息表.Show End Sub

Private Sub ygzj_Click() 员工增加.Show End Sub

Private Sub ygck_click() 员工查看.Show End Sub

第 10 页

超市管理系统论文

Private Sub YJH_Click() 月进货.Show End Sub 2.4.2说明

进入主页面之后，可以对所有的数据库时行操作，可以修改用户密码，可以增加销售信息。可以查询员工信息，可以进行退化登记，可以对数据库进行增加，删除，修改，查询等功能的实现。

2.5员工管理的设计

2.5.1 部分代码与界面图

代码如下：

1. 密码修改代码

Private Sub Command1_Click() Dim sql As String

Set rsUser = New ADODB.Recordset If rsUser.State = 1 Then rsUser.Close

sql = \"select 密码 from 登录 where 用户名='\" & Combo1.Text & \"'\" rsUser.Open sql, conn, adOpenStatic, adLockPessimistic

pwd = Trim(rsUser.Fields(\"密码\"))

If Combo1.Text = \"\" Then

MsgBox \"请选择用户名!\密码修改\" Combo1.SetFocus Exit Sub

第 11 页

超市管理系统论文

End If

If Text2.Text = \"\" Then

MsgBox \"请输入原密码!\密码修改\" Text2.SetFocus Exit Sub End If

If Text3.Text = \"\" Then

MsgBox \"请输入新密码!\密码修改\" Text3.SetFocus Exit Sub End If

If Text4.Text = \"\" Then

MsgBox \"请输入确认密码!\密码修改\" Text4.SetFocus Exit Sub End If

If Text2.Text = pwd Then userID = Combo1.Text

Dim rs_chang As New ADODB.Recordset

If Trim(Text3.Text) <> Trim(Text4.Text) Then

MsgBox \"密码不一致！\ Text3.SetFocus Text3.Text = \"\" Text4.Text = \"\" Else

sql = \"select * from 登录 where 用户名='\" & userID & \"'\" rs_chang.CursorLocation = adUseClient

rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(6) = Text3.Text rs_chang.Update rs_chang.Close

MsgBox \"密码修改成功\ Unload Me End If Else

MsgBox \"原密码不正确，请重输!\密码修改\" Text2.SetFocus End If End Sub

第 12 页

超市管理系统论文

2. 员工增加代码

Private Sub Command1_Click() Dim sql As String

Set rs_add = New ADODB.Recordset If Trim(Text1.Text) = \"\" Then

MsgBox \"请输入用户名\ Text1.SetFocus Exit Sub End If

If Trim(Text2.Text) = \"\" Then

MsgBox \"密码不能为空\ Text1.SetFocus Exit Sub End If

If Trim(Text3.Text) = \"\" Then

MsgBox \"请确认密码\ Text3.SetFocus Exit Sub End If

sql = \"select * from 登录 where 用户名 ='\" & Text1.Text & \"'\" rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_add.EOF Then rs_add.AddNew

rs_add.Fields(2) = Trim(Text1.Text) rs_add.Fields(5) = Trim(Text2.Text)

rs_add.Update

MsgBox \"添加员工信息成功！\ rs_add.Close Me.Hide 主页面.Show Else

MsgBox \"员工信息重复！\ Text1.SetFocus Text1.Text = \"\" rs_add.Close Exit Sub End If End Sub 2.5.2 说明

员工管理设计，包括对员工信息的查看，员工密码的修改，员工的查询，员工信息表的直接查看，其中可以实现对密码直接的修改，信息的直接查询，也可以通过员工信息表对员工信息进行删除。其中可以访问数据库，第个页面都和数据库有联系。修改密码必须要知道原来

第 13 页

超市管理系统论文

的密码，并且两次输入的密码必须一致，如果不一致，系统会提示“两次输入的密码不一致”并将光标定到输入密码处，要求用户重新输入。

2.6 交易管理，统计部分界面的设计

2.6.1部分界面与代码

销售登记部分代码：

Private Sub Command1_Click()

Dim Sccs As New ADODB.Recordset Dim sql As String

If Combo1.Text = \"\" Then

MsgBox \"请添加生产厂商！\ Combo1.SetFocus Else

If Check1.value = vbChecked Then If Combo1.Text = \"\" Then

MsgBox \"请添加生产厂商！\ Combo1.SetFocus Else

sql = \"生产厂商='\" & Trim(Combo1.Text & \" \") & \"'\" End If End If

If Check2.value = vbChecked Then

sql = \"商品名称='\" & Trim(Text1.Text & \" \") & \"'\" End If

If Check3.value = vbChecked Then

sql = \"商品型号='\" & Trim(Text2.Text & \" \") & \"'\" End If

If Check4.value = vbChecked Then

sql = \"进货数量='\" & Trim(Text1.Text & \" \") & \"'\" End If

第 14 页

超市管理系统论文

If Check5.value = vbChecked Then

sql = \"单价='\" & Trim(Text1.Text & \" \") & \"'\" End If

If Check6.value = vbChecked Then

sql = \"总金额='\" & Trim(Text1.Text & \" \") & \"'\" End If

If Check7.value = vbChecked Then

sql = \"交易日期='\" & Trim(Text1.Text & \" \") & \"'\" End If

sql = \"select * from 进货登记 where 生产厂商='\" & Combo1.Text & \"'\" Sccs.Open sql, conn, adOpenKeyset, adLockPessimistic 'If Sccs.EOF Then Sccs.AddNew

Sccs.Fields(1) = Trim(Text1.Text) Sccs.Fields(2) = Trim(Text4.Text) Sccs.Fields(3) = Trim(Text2.Text) Sccs.Fields(4) = Trim(Combo1.Text) Sccs.Fields(5) = Trim(Text3.Text) Sccs.Fields(6) = Trim(Text5.Text)

Sccs.Fields(7) = Trim(DTPicker1.value) Sccs.Update

MsgBox \"进货登记增加成功！\ Sccs.Close 'Else

' MsgBox \"商品名称重复！\ 'Combo1.SetFocus 'Combo1.Text = \"\" 'Sccs.Close 'Exit Sub End If

End Sub

Private Sub Command2_Click() Combo1.Text = \"\" Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\" Text4.Text = \"\" Text5.Text = \"\"

End Sub

Private Sub Command3_Click()

第 15 页

超市管理系统论文

主页面.Show Me.Hide End Sub

Private Sub Command4_Click() 添加生产厂商.Show End Sub

其他部分的设计，同上面的差不多。各个模块都可以运行成功。如下图：

第 16 页

超市管理系统论文

总结

尽管整个系统已经开发完成，个个功能模块运行流畅自然且经使用具有一定的实用价值，但是由于时间的关系及个人水平有限，在本软件中，有许多地方需要改进。本系统是一个面向小型超市企业，具有一定性的数据库信息管理系统。它主要完成对超市仓库的一系列管理。其功能较为齐全，包括商品、供应商、员工及会员信息等的添加、查询、修改以及商品销售等信息的管理。本系统采用便捷的面向对象的开发工具Visual Basic来完成整个系统的设计，在数据库的设计上利用了ACCESS的便利性、实用性。

本系统具有较为齐全的实用功能。在查询方面，系统实现了多条件任意字段的模糊查询。系统可以识别是否是本超市的用户，而进行判断是否可以进入此系统。在输入添加、查询、修改三者之间建立了良好的链接关系，某一部分地修改均会自动引发系统对与其相关的部分的进行连锁的修改。也可以对用户的密码等进行相应的单独修改。

系统在设计过程中不可避免地遇到各种各样的问题，由于整个系统完全是由个人设计的，有关Visual Basic许多细节问题都要靠自己去摸索，加之本人水平有限，并没有完全地理解Visual Basic的所有功能。

这些都是需要完善的地方，比如判断用户的身份是用户还是管理员，对用户和管理员给于不同的权限，进货，库存系统都不太完善，需要进行不断的补充和完善。代码的可读性较差。

通过本次设计，我学到了不少新的东西，也发现了大量的问题，有些在设计过程中已经解决，有些还需要慢慢学习。

参考文献

1.《管理系统》 王要武

2.《Visual Basic6.0数据库存取访问技术》黄淼云

第 17 页