超市管理信息系统的设计与实现本科学位论文.docx
《超市管理信息系统的设计与实现本科学位论文.docx》由会员分享，可在线阅读，更多相关《超市管理信息系统的设计与实现本科学位论文.docx（25页珍藏版）》请在冰豆网上搜索。
超市管理信息系统的设计与实现本科学位论文
目录
摘要2
Abstract2
1、引言3
1.1系统开发的背景和目的3
1.2MIS与手工管理的对比3
2、需求分析3
2.1系统功能分析3
2.2系统结构及各模块点功能4
3、概念结构设计5
4、逻辑结构设计5
5、功能设计6
6、小结9
致谢9
参考文献10
附录11
超市管理信息系统的设计与实现
摘要：
尽管许多大型超市实现了用计算机来管理信息系统，但对于数以万计的仍以手工管理的小型超市而言，用计算机网络系统和数据库技术开发一套超市管理信息系统仍具有诱人的市场前景。
本系统以VisualBasic为开发平台设计系统所有界面，以SQLServer为数据源，通过VisualBasic与SQLServer的联合编程，使VisualBasic与SQLServer进行连接，从而实现了在界面上对超市的资料管理、采购管理、库存管理以及销售管理等进行操作，可大大提高超市管理的效率。
关键词：
超市管理信息系统；；VisualBasic；SQLServer
DesignandImplementationofaSupermarketManagementInformationSystem
Abstract:
Althoughmanylarge-scalesupermarkethaverealizaduseingcomputermanageinformationsystem,buttensofthousandsofsmallsupermarketsstillusinghandtomanage,sousecomputernetworksystemsanddatabasetechnologytodevelopamanagementinformationsystemsupermarketstillhasanattractivemarketprospects.TheVisualBasicdevelopmentplatformisbasedalltheinterfaceofthissystemdesign,andSQLServerwasusedasadatasource.MakeVisualBasicandSQLServerconnectionbyuseingVisualBasicjoinSQLServerprogramming,andrealizathemanagementofsupermarketinformationmanagement,purchasingmanagement,inventorymanagementandsalesmanagementontheinterface,andtheefficiencyofthesupermarketcangreatlyimproved.
Keywords:
supermarketmanagementinformationsystem;VisualBasic;SQLServer
1、引言
1.1系统开发的背景和目的
21世纪，超市的竞争也进入到了一个全新的领域，竞争已不仅仅是规模的竞争，同时也是技术的竞争、管理的竞争、人才的竞争。
完善进、销、存、人、财、物等管理，是现代商场提高效率和竞争力，实现利润最大化的关键。
尽管许多大型超市实现了用计算机来管理信息系统，但对于数以万计的仍以手工管理的小型超市而言，用计算机网络系统和数据库技术开发一套超市管理信息系统仍具有诱人的市场前景。
本系统拟以民大超市管理为对象，用计算机网络系统和数据库技术，以VisualBasic与SQLServer为平台开发一套通用的超市MIS软件，提升超市的管理水平，为降低经营成本，提高效益，增强超市扩张力，提供有效的技术保障。
1.2MIS与手工管理的对比
所谓MIS（管理信息系统--ManagementInformationSystem）系统，主要指的是进行日常事物操作的系统。
这种系统主要用于管理需要的记录，并对记录数据进行相关处理。
MIS系统通常用于系统决策，例如，可以利用MIS系统找出目前迫切需要解决的问题，并将信息及时反馈给上层管理人员，使他们了解当前工作发展的进展或不足。
换句话说，MIS系统的最终目的是使管理人员及时了解公司现状，把握将来的发展路径。
在现代化管理中，计算机管理信息系统已经成为企业管理不可缺少的帮手，它的广泛应用已经成为管理现代化的重要标志。
随着科学技术的发展，尤其是信息技术和通讯技术的发展，使计算机和网络逐渐应用于现代管理之中。
面对越来越多的信息资源和越来越复杂的企业内外部环境，企业有必要建立高效、实用的管理信息系统，为企业管理决策和控制提供保障，这是实现管理现代化的必然趋势[1]。
过去传统的管理方式是以人为主体的人工操作，虽然管理人员投入了大量的时间、精力，然而个人的能力是有限的，所以管理工作难免会出现局限性，或带有个人的主观性和片面性。
而管理信息系统使用系统思想建立起来的，以计算机为信息处理手段，以现代化通信设备为基本传输工具，能为管理决策者提供信息服务的人机系统，这无疑是将管理与现代化接轨，以科技提高管理质量的重大举措[2]。
2、需求分析
2.1系统功能分析
根据实际需要，本系统应该具有以下功能：
（1）供应商资料管理：
根据超市业务需要，通过供应商唯一的编号来实现供应商资料的查找、添加和修改。
（2）商品资料管理：
根据超市业务特点，可以通过商品唯一的编号，实现商品资料的查找、添加和修改。
（3）用户管理：
不同的用户拥有不同的权限，对系统进行的操作不同。
其中员工的权限是：
通过商品编号获得商品信息，打印销售单；管理人员的权限是：
操作软件对供应商、商品、人员等资料进行录入和修改；根据库存状态，制定进货单，对进货入库进行审核；对销售进行分析统计。
（4）采购管理：
根据实际情况制定进货计划，按照计划单进行商品的入库操作。
（5）销售管理：
根据销售情况打印销售单，通过销售单唯一的编号，实现销售查询、统计。
（6）库存管理：
包括库存盘点和库存维护，通过商品编号来查找商品的库存状态，并根据实际需要设置商品的最低储备、正常储备和最高储备。
2.2系统结构及各模块点功能
供应商资料管理模块：
对供应商信息进行查找、添加、修改和删除；
商品资料管理模块：
对商品进行查找，并对商品名称，计量单位，供应商等基本信息进行操作；
采购管理：
制定进货单，实现进货入库；
销售管理：
打印销售单，查询销售详情；
库存管理：
盘点商品库存，对商品库存进行维护；
数据统计：
对进货与销售进行分析，获得销售利润；
系统管理：
对超市所有用户的资料，包括用户的基本资料，用户的权限等进行统一管理。
3、概念结构设计
系统的ER图如图一所示：
图一系统的总体ER图
4、逻辑结构设计
系统的关系模型如下[3-6]：
（1）供应商资料表：
（供应商编号、供应商名称、地址、电话、邮编、提供商品）
（2）商品资料表：
（商品编号、商品名称、计量单位、供应商编号、供应商地址）
（3）商品库存表：
（商品编号、商品状态、成本价、销售价、库存数量、最低储备、正常储备、最高储备、最近操作日期、操作人员）
（4）盘点明细表：
（编号ID、商品编号、调整数量、成本价、调整总金额、操作日期、操作人员、标志）
（5）采购单明细表：
（采购编号ID、采购单号、商品编号、采购数量、采购单价、总共金额）
（6）采购单表：
（采购单号、供应商编号、采购日期、采购员、是否审核、操作人员、总共金额）
（7）销售单明细表：
（销售编号ID、销售单号、商品编号、销售数量、成本单价、销售单价、总金额）
（8）销售单表：
（销售单号、销售日期、销售员、是否审核、操作人员、总共金额）
（9）用户信息表：
（用户ID、用户名称、用户密码、用户类别、地址、电话、权限）
其中画有黑粗下画线的属性为主码，细下画线的为外码。
5、功能设计：
系统的登陆界面如图5.1所示[7-11]：
图5.1系统的登陆界面
这部分主要的作用是：
将输入的信息与数据库中用户的信息进行核对，只有核对正确的才能进入到系统中。
系统的主界面如图5.2所示：
图5.2超市管理系统主界面
这部分的主要功能是：
通过登陆时的用户信息，获得用户的权限，使其对系统有不同的操作权限。
如管理员拥有所有的权限，而员工只拥有资料管理和销售管理的权限。
供应商资料管理界面如图5.3所示（商品资料管理界面类似）：
这部分主要的作用是：
通过供应商唯一的编号，对供应商的资料进行相关查询，并可对供应商资料进行相关的添加、修改、删除和保存等操作。
图5.3供应商资料管理界面
商品销售单分析界面及销售统计界面分别如图5.4、5.5所示：
图5.4商品销售单分析界面
图5.5商品销售统计界面
这部分的主要功能是：
对一段时间内的商品销售情况进行统计分析，得到销售的总利润。
库存维护和库存盘点界面分别如图5.6、5.7所示：
图5.6库存维护界面
图5.7库存盘点界面
这部分的主要功能是：
对商品的库存信息进行盘点分析，并可对商品的库存进行查询和修改。
用户资料管理界面如图5.8所示：
图5.8用户管理界面
这部分的主要作用是：
可对用户进行查询，获得其基本资料及权限，并可对用户的资料及权限进行相关的添加、修改、删除和保存等操作。
详细的代码见附录。
6、小结
本文简要介绍了超市管理系统的设计流程，重点阐述了系统设计过程中的结构设计部分和功能设计部分。
和传统管理模式相比较，使用本系统，大大提高超市的运作效率，为降低经营成本，提高效益，增强超市扩张能力，提供了有效的技术保障。
由于能力有限，加上时间仓促，本系统仍有一些功能有待完善，例如：
本系统只适用于小型超市的管理，由于大型超市管理系统还包括会员管理及商品的折扣管理等诸多方面，因此本系统不适用于大型超市的管理。
对于上述不足之处，希望老师能给与批评指正。
致谢
本系统的设计过程中得到了XXX老师的大量指导以及同学的大量帮助，在这里，对他们表示诚挚的感谢！
在系统设计过程中，我深深的感觉到在知识方面还很欠缺，在技术方面也有很多的问题需要在以后的学习中慢慢改进，逐步完善。
在XXX老师的耐心指导下，本系统得以顺利完成，我不仅从中学到了许多知识，更重要的是我学到了要用正确的态度去面对人生中的问题和困难，在此，再次感谢XXX老师！
参考文献
[1]管理信息系统的作用.
[2]管理信息系统在社会中的作用.
[3]何玉洁.数据库原理与应用教程（第二版）[M].北京:
机械工业出版社,2007.
[4]牛勇等.新电脑课堂SQLServer编程篇[M].北京:
电子工业出版社,2005.
[5]赵杰,李涛,朱慧.SQLServer数据库管理、设计与实现教程[M].北京:
清华大学出版社,2003.
[6]高金兰,章锋.数据库原理与SQLServer应用[M].武汉:
武汉大学出版社,2008.
[7]曹萌萌,李响.VB.NET访问SQLSERVER2000数据库的方法[J].农业图书情报学刊,2007,19
（1）:
110-112.
[8]王军弟,赵恺.基于VB.NET的数据库访问技术[J].福建电脑,2006,12（11）:
81-82.
[9]蒋铁海、刘朝晖.利用VB.NET开发Web数据库应用系统[J].微机发 展,2003,13（6）:
113-115.
[10]葛小东,邓秋媛.VB.NET编程实例与技巧集萃[M].北京:
中国科技技术出版社,2003.
[11]陶雪丽,郭凤英等.新世纪VisualBasic.NET中文版程序设计培训教程[M].北京:
电子工业出版社,2002.
附录
系统设计的主要代码如下：
数据库连接的代码如下：
ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=True;"
ConnectionString=ConnectionString&"UserID="&Trim（txtUserId.Text）&";Password="&Trim（txtPwd.Text）&";"
ConnectionString=ConnectionString&"InitialCatalog="&Trim（txtDatabase.Text）&";DataSource="&Trim（txtServer.Text）
a登录.Show
UnloadMe
登陆窗口的代码如下：
OptionExplicit
DimSQLAsString
DimmsgAsString
PrivateSubForm_Load（）
DimrstAsADODB.Recordset
DimstrItemAsString
'初始化ComboBox
SQL="select用户ID,用户名称from用户信息表orderby用户ID"
Setrst=SelectSQL（SQL,msg）
Ifrst.RecordCount>0Then
DoWhileNotrst.EOF
'添加到ComboBox列表
strItem=rst.Fields（0）&""&rst.Fields
（1）
CboName.AddItem（strItem）
rst.MoveNext'指向下一条记录
Loop
rst.Close
CboName.ListIndex=0'默认ComboBox
Else
MsgBox（"请先创建用户信息！
"）
CmdOk.Enabled=False
ExitSub
EndIf
EndSub
PrivateSubCmdOK_Click（）
DimrstAsADODB.Recordset
DimpasswordAsString
'判断用户是否存在
UserID=Left（Trim（CboName.Text）,4）'取出用户的ID
SQL="select用户ID,密码from用户信息表where用户ID='"&UserID&"'"
Setrst=SelectSQL（SQL,msg）
Ifrst.RecordCount>0Then
password=Trim（rst.Fields
（1））'取出该用户的密码
rst.Close
Else
MsgBox（"数据库操作错误！
"）
ExitSub
EndIf
'判断密码是否正确
Ifpassword=Trim（txtPassword.Text）Then
LoginSucceeded=True
超市管理系统主界面.Show
UnloadMe
Else
MsgBox（"密码错误！
"）
LoginSucceeded=False
EndIf
EndSub
PrivateSubcmdCancel_Click（）
'设置全局变量为false
'不提示失败的登录
LoginSucceeded=False
UnloadMe
EndSub
PrivateSubForm_Unload（CancelAsInteger）
LoginSucceeded=False
UnloadMe
EndSub
系统的主要代码如下：
PrivateSubForm_Load（）
DimrstAsADODB.Recordset
DimSQLAsString
DimmsgAsString
DimrightsAsString'保存记录中的权限值
'查找权限
SQL="select权限from用户信息表where用户ID='"&UserID&"'"
Setrst=SelectSQL（SQL,msg）
Ifrst.RecordCount>0Then
rights=Trim（rst.Fields（0））
rst.Close
Else
MsgBox（"没有用户信息！
"）
ExitSub
EndIf
'设置权限
IfInStr（rights,"资料管理"）Then
资料管理.Enabled=True
Me.Toolbar1.Buttons
（1）.Enabled=True
Me.Toolbar1.Buttons
（2）.Enabled=True
Else
资料管理.Enabled=False
Me.Toolbar1.Buttons
（1）.Enabled=False
Me.Toolbar1.Buttons
（2）.Enabled=False
EndIf
IfInStr（rights,"采购管理"）Then
采购管理.Enabled=True
Me.Toolbar1.Buttons（3）.Enabled=True
Me.Toolbar1.Buttons（4）.Enabled=True
Else
采购管理.Enabled=False
Me.Toolbar1.Buttons（3）.Enabled=False
Me.Toolbar1.Buttons（4）.Enabled=False
EndIf
IfInStr（rights,"销售管理"）Then
销售管理.Enabled=True
Me.Toolbar1.Buttons（5）.Enabled=True
Else
销售管理.Enabled=False
Me.Toolbar1.Buttons（5）.Enabled=False
EndIf
库存管理.Enabled=InStr（rights,"库存管理"）
统计分析.Enabled=InStr（rights,"统计分析"）
用户管理.Enabled=InStr（rights,"用户管理"）
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Index
Case1:
Call供应商资料_Click'调入供应商资料
Case2:
Call商品资料_Click'调入商品资料
Case3:
Call采购单_Click'调入采购单
Case4:
Call采购入库_Click'调入采购入库
Case5:
Call销售清单_Click'调入销售单
Case6:
Call销售利润_Click'调入销售利润
Case7:
Call密码维护_Click'调入密码维护
EndSelect
EndSub
PrivateSub采购单_Click（）
a采购单.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub采购单分析_Click（）
a采购单分析.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub采购入库_Click（）
a采购入库.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub供应商资料_Click（）
a供应商资料.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub库存盘点_Click（）
a库存盘点.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub库存维护_Click（）
a库存维护.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub密码维护_Click（）
a密码维护.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub商品资料_Click（）
a商品资料.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub销售单分析_Click（）
a销售单分析.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub销售利润_Click（）
a销售利润.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub销售清单_Click（）
a销售单.Show
超市管理系统主界面.Enabled=False
EndSub
PrivateSub用户管理_Click（）
a用户管理.Show
超市管理系统主界面.Enabled=False
EndSub
供应商资料管理模块：
[7]-[9]
OptionExplicit
DimrsAsADODB.Recordset
DimSQLAsString
DimmsgAsString
DimIndexAsInteger
DimflagAsString'判断是新增记录还是修改记录
PrivateSubForm_Load（）
'初始化查询条件ComboBox
CboQuery.AddItem（"供应商编号"）
CboQuery.AddItem（"供应商名称"）
CboQuery.ListIndex=0'默认查询条件为供应商编号
CallLoadData'装载数据
CallShowData'显示数据
EndSub
PrivateSubLoadData（）
DimcolNameAsString'保存所选择的查询条件
DimcolValueAsString'保存所要查询具体的值
DimstrWhereAsString
'得到查询条件
colName=CboQuery.Text'取出条件的值
colValue=txtQuery.Text'取出所要查询的值
'构建条件
strWhere="where"&colName&"like'%"&colValue&"%'
升级会员 