超市管理系统课程设计说明书.docx
- 文档编号:4503734
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:39
- 大小:161.36KB
超市管理系统课程设计说明书.docx
《超市管理系统课程设计说明书.docx》由会员分享,可在线阅读,更多相关《超市管理系统课程设计说明书.docx(39页珍藏版)》请在冰豆网上搜索。
超市管理系统课程设计说明书
第一章.超市管理系统调研
1.前言
随着我国信息技术和经济的发展,计算机已经被应用在各个领域。
计算机给人们的生活带来了便利的同时还需要开发相应的管理系统。
目前,农民的生活水品有了很大的提高,在农村当中很多的杂货店往中小型超市发展的趋势日益明显,但是在实际中农村里面很多超市的管理还是依靠人工来管理,给日常的超市管理带来了很多麻烦。
为达到方便超市管理的目的,对农村的超市进行调研,获得更多的超市管理信息,以便给超市管理系统开发奠定基础。
本次调研主要围绕超市的经营方式,经营规模,超市管理者进行调研。
2.调研目的
1. 为超市管理系统的提供依据;
2. 为该管理系统的销售提供客观依据;
3.调研内容
1.超市的经营方式(产品专营卖场,网店低本经营,产品创意搭配,产品定制销售,自行设计加工);
2.超市经营规模(超市占地面积,经营商品种类,超市区隔,商品的敏感度,超市形象,超市毛利,员工人数);
3.超市营业执照(超市法人,注册资本);
4.超市营业额(日营业额,月营业额,年营业额);
5.消费者调查(年龄,性别,收入);
6.超市管理员(年龄,性别,文化程度);
7.超市管理方式;
4.调查对象及抽样
此次调研的对象主要是农村中的中型超市,一般都是受广大农村消费者所喜欢的超市。
此次调研将会对超市的管理员,消费者以及超市的地面作全面的调查。
第二章.系统设计
1.问题定义
针对目前农村中杂货店向中小型超市发展趋势以及农村超市管理技术比较落后这一问题,开发一个适用于农村中小型超市的管理系统显得越来越有必要。
开发超市管理系统是要达到方便管理员和消费者的目的,我们就得解决以下问题:
1) 超市的商品信息管理;
2)超市的仓库管理;
3)超市员工管理;
4) 超市会员的管理;
5)超市数据的统计;
2.可行性研究
经过上面对超市管理系统的问题定义,从技术方面来看,超市的商品信息管理,仓库管理,员工管理,会员管理以及数据统计实现起来并不难,这些功能都是一些经常遇到的;经济方面由于自身属于没资本的人,投入的只能是简单的开发设备。
3.需求分析
1. 系统概述
背景:
随着我国信息技术和经济的发展,计算机已经被广泛的应用到各个领域。
计算机给人们的生活带来方便的同时也需要开发相应的管理系统。
根据目前农村现状来看,很多杂货店向中小型超市发展的趋势越来越明显,但是现实农村中很多超市的管理都依靠原始的人力管理,没有与其相对应的管理系统,给日常的超市管理带来了很多不必要的麻烦。
2. 目的
通过实现超市管理系统,达到超市管理者能够方便地对超市中商品的管理,同时让消费者享受到购物的快捷。
3. 系统功能需求
1)超市的员工能够对商品的信息和超市会员信息实现添加,删除,更新,查询操作,能够对商品的信息按不同种类的查询;
2) 超市的管理员能够对超市仓库中各种商品信息的查询,能够及时地了解仓库中各种商品的库存信息;
3)超市的管理员通过超市管理系统实现对超市员工的管理,能够对员工信息的查询,添加,删除,更新操作;
4) 超市管理系统中能够对超市中的员工分类,对不同类型的员工,赋予不同的权限对超市进行管理;
3.系统运行环境要求
硬件:
内存256MB以上,硬盘60GB以上;
软件:
windows操作系统,SQLServer数据库:
chaoshi
4.分析与综合
外部实体:
商品,顾客
数据流:
商品信息,账单
4.总体设计
1.超市管理系统的软件结构图,如图所示
2.详细设计
a.模块设计及功能说明
1) 登陆模块:
登陆模块主要用于超市员工的登陆。
通过登陆模块实现不同类型的员工登陆到不同的界面,这样能更容易地达到不同类型的员工在超市管理系统中有不同的操作权限。
2) 主界面模块:
对超市各部分进行整体的管理。
3) 会员管理模块:
会员管理模块主要是方便超市的管理员对超市的会员的管理。
通过会员管理模块主要是对会员信息的增,删,改,查操作。
4)仓库管理模块:
仓库管理模块主要是用于商品库存信息的查询以及商品入库,出库查询。
通过仓库管理模块超市管理系统的管理员能够查询库存信息,商品入库以及出库的信息。
5) 商品管理模块:
商品信息管理模块主要是商品的管理问题,通过商品信息管理模块可以实现对商品的增,删,改,查操作。
6) 结账管理模块:
结账管理模块主要用于顾客结帐的管理。
结帐管理模块主要是实现顾客购买商品后的打折以及结算。
7)员工管理模块:
员工管理模块主要是用于员工的管理。
通过员工管理模块可以实现员工的增,删,改,查操作。
b. 数据库设计
1)商品信息表
2)会员信息表
3)员工信息表
第三章.界面设计
系统是用VB与SQL数据库相结合,在做系统前需建立一个链接模块,用来整体连接数据库。
具体代码:
ImportsSystem.Data.oledb
Module连接
PublicmystrAsString
PublicmyconnAsNewOleDbConnection
PublicSublj(ByValsjkAsString)
mystr="Provider=SQLOLEDB;DataSource=XGX614-01-04;Password=y@;UserID=y;InitialCatalog=chaoshi"
myconn.ConnectionString=mystr
myconn.Open()
EndSub
EndModule
1)商品信息
商品信息查询界面
通过查找的字段、选择运算符及所查找的值进行条件查询;也可以点击全部,显示数据库中的全部数据。
具体代码:
ImportsSystem.Data.oledb
PublicClass商品信息查询
DimsjkAsString,sjyAsString
DimmydsAsNewDataSet
DimmydaAsNewOleDbDataAdapter("select*from商品信息",myconn)
DimmydvAsNewDataView
PrivateSub图书类型查询_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
sjk="chaoshi.mdb"
Calllj(sjk)
myda.Fill(myds,"商品信息")
mydv=myds.Tables("商品信息").DefaultView
DataGridView1.DataSource=myds.Tables("商品信息")
ComboBox1.Items.Add("名称"):
ComboBox1.Items.Add("类型")
ComboBox1.Items.Add("数量")
ComboBox2.Items.Add("="):
ComboBox2.Items.Add("<>")
ComboBox2.Items.Add(">"):
ComboBox2.Items.Add(">=")
ComboBox2.Items.Add("<"):
ComboBox2.Items.Add("<=")
ComboBox2.Items.Add("like")
myconn.Close()
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimcondstrAsString
IfComboBox1.Text<>""AndComboBox2.Text<>""AndTextBox1.Text<>""Then
IfComboBox2.Text<>"like"Then
condstr=ComboBox1.Text&ComboBox2.Text&"'"&TextBox1.Text&"'"
Else
condstr=ComboBox1.Text&""&ComboBox2.Text&""&"'%"&TextBox1.Text&"%'"
EndIf
Else
condstr=""
EndIf
mydv.RowFilter=condstr
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
mydv.RowFilter=""
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Me.Hide()
EndSub
EndClass
.商品信息管理界面
这个界面是对商品信息添加、修改、删除。
代码:
ImportsSystem.Data.oledb
PublicClass商品信息管理
DimsjkAsString,sjyAsString,mybsAsBindingSource
DimmydsAsNewDataSet
DimmydaAsNewOleDbDataAdapter("select*from商品信息",myconn)
DimflagAsInteger'取值含义为1:
新增2:
修改3:
删除
PrivateSubtextlock(ByValopAsBoolean)
TextBox1.Enabled=op:
TextBox2.Enabled=op
TextBox3.Enabled=op:
TextBox4.Enabled=op
TextBox5.Enabled=op
EndSub
PrivateSubbuttonlock(ByValopAsInteger)
Ifop=1Then
Button1.Enabled=True:
Button2.Enabled=True
Button3.Enabled=True:
Button4.Enabled=True
Button5.Enabled=True:
Button6.Enabled=True
Button7.Enabled=True:
Button8.Enabled=False
Button9.Enabled=False
Else
Button1.Enabled=False:
Button2.Enabled=False
Button3.Enabled=False:
Button4.Enabled=False
Button5.Enabled=False:
Button6.Enabled=False
Button7.Enabled=False:
Button8.Enabled=True
Button9.Enabled=True
EndIf
EndSub
PrivateSub商品信息管理_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
sjk="chaqoshi.mdb"
Calllj(sjk)
'DimmydaAsNewOleDbDataAdapter("select*from图书信息",myconn)
myda.Fill(myds,"商品信息")
mybs=NewBindingSource(myds,"商品信息")
DataGridView1.DataSource=myds.Tables("商品信息")
TextBox1.DataBindings.Add("text",mybs,"编号")
TextBox2.DataBindings.Add("text",mybs,"名称")
TextBox3.DataBindings.Add("text",mybs,"类型")
TextBox4.DataBindings.Add("text",mybs,"总数量")
TextBox5.DataBindings.Add("text",mybs,"单价")
Calltextlock(False)
myconn.Close()
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Ifmybs.Position<>0Then
mybs.MoveFirst()
EndIf
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Ifmybs.Position<>0Then
mybs.MovePrevious()
EndIf
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Ifmybs.Position<>mybs.Count-1Then
mybs.MoveNext()
EndIf
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
Ifmybs.Position<>mybs.Count-1Then
mybs.MoveLast()
EndIf
EndSub
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
flag=1
TextBox1.Text=""
TextBox2.Text=""
TextBox3.Text=""
TextBox4.Text=""
TextBox5.Text=""
Calltextlock(True)
Callbuttonlock
(2)
TextBox1.Focus()
EndSub
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click
flag=2
Calltextlock(True)
Callbuttonlock
(2)
TextBox1.Enabled=False
TextBox1.Focus()
EndSub
PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click
flag=3
Callbuttonlock
(2)
EndSub
PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.Click
DimmysqlAsString
SelectCaseflag
CaseIs=1'新增保存
IfTextBox1.Text=""Then
MsgBox("编号不能为空",MsgBoxStyle.OkOnly,"信息提示")
TextBox1.Focus()
ExitSub
EndIf
DimmycmdAsNewOleDbCommand
mysql="select*from商品信息where编号='"&TextBox1.Text&"'"
myconn.Open()
Dimmyda1AsNewOleDbDataAdapter(mysql,myconn)
myda1.Fill(myds,"商品信息1")
myconn.Close()
Ifmyds.Tables("商品信息1").Rows.Count=1Then
MsgBox("不能插入相同编号的记录",MsgBoxStyle.OkOnly,"信息提示")
Else
myconn.Open()
mysql="insertinto商品信息(编号,名称,类型,总数量,单价)values("&"'"&TextBox1.Text&"','"&TextBox2.Text&"','"&TextBox3.Text&"','"&TextBox4.Text&"','"&TextBox5.Text&"')"
mycmd.Connection=myconn
mycmd.CommandText=mysql
mycmd.ExecuteNonQuery()
myconn.Close()
EndIf
myds.Clear()
myda.Fill(myds,"商品信息")
Callbuttonlock
(1)
Calltextlock(False)
CaseIs=2'修改保存
DimmycmdAsNewOleDbCommand
myconn.Open()
mysql="update商品信息set"&"名称='"&TextBox2.Text&"',"&"类型='"&TextBox3.Text&"',"&"总数量='"&TextBox4.Text&"',"&"单价='"&TextBox5.Text&"'where编号='"&TextBox1.Text&"'"
mycmd.Connection=myconn
mycmd.CommandText=mysql
mycmd.ExecuteNonQuery()
myconn.Close()
myds.Clear()
myda.Fill(myds,"商品信息")
Callbuttonlock
(1)
Calltextlock(False)
CaseIs=3'删除保存
DimmycmdAsNewOleDbCommand
myconn.Open()
mysql="deletefrom商品信息where编号='"&TextBox1.Text&"'"
mycmd.Connection=myconn
mycmd.CommandText=mysql
mycmd.ExecuteNonQuery()
myconn.Close()
myds.Clear()
myda.Fill(myds,"商品信息")
Callbuttonlock
(1)
Calltextlock(False)
EndSelect
DataGridView1.Refresh()
EndSub
PrivateSubButton9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.Click
myds.Clear()
myda.Fill(myds,"商品信息")
Callbuttonlock
(1)
Calltextlock(False)
EndSub
PrivateSubDataGridView1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesDataGridView1.Click
TextBox1.Text=DataGridView1.CurrentRow.Cells(0).Value
TextBox2.Text=DataGridView1.CurrentRow.Cells
(1).Value
TextBox3.Text=DataGridView1.CurrentRow.Cells
(2).Value
TextBox4.Text=DataGridView1.CurrentRow.Cells(3).Value
TextBox5.Text=DataGridView1.CurrentRow.Cells(4).Value
EndSub
PrivateSubButton10_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton10.Click
Me.Hide()
EndSub
EndClass
2)会员信息
.会员管理界面
这个界面是对会员信息添加、修改、删除及浏览信息。
具体代码:
ImportsSystem.Data.oledb
PublicClass会员信息管理
DimsjkAsString,sjyAsString,mybsAsBindingSource
DimmydsAsNewDataSet
DimmydaAsNewOleDbDataAdapter("select*from会员信息",myconn)
DimflagAsInteger
PrivateSubtextlock(ByValopAsBoolean)
TextBox1.Enabled=op:
TextBox2.Enabled=op
TextBox3.Enabled=op
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 超市 管理 系统 课程设计 说明书