课设报告超市管理系统.docx
《课设报告超市管理系统.docx》由会员分享,可在线阅读,更多相关《课设报告超市管理系统.docx(13页珍藏版)》请在冰点文库上搜索。
![课设报告超市管理系统.docx](https://file1.bingdoc.com/fileroot1/2023-6/5/5d88d741-12ff-4d7b-b844-fbc9170562e7/5d88d741-12ff-4d7b-b844-fbc9170562e71.gif)
课设报告超市管理系统
经济管理学院本科课程设计说明书
面向对象课程设计
题目:
超市管理系统
学号:
姓名:
班级:
专业:
信息管理与信息系统
系别:
管理系
指导教师:
2012年12月07日
目录
第一章课设概述1
1.1超市管理系统的开发背景介绍1
1.2课程设计的功能及意义1
1.3本课程设计的具体研究工作1
第二章系统的设计与实现...........................................2
2.1概述设计.....................................................3
2.2数据库设计3
2.3详细设计3
2.4运行效果4
第三章结论或心得体会10
参考文献10
第一章课设概述
1.1超市管理系统开发背景介绍
随着经济的发展伴随着人们的消费的提高,人们对购物的要求变得越来越高,所以为了满足人们对于在购物时的快捷方便,开发超市管理系统是非常必要的。
目前大多数的超市来说还是运用比较传统的管理方式,所以满足不了顾客对于快捷购物的需要。
其次,在对于超市员工的管理中,为了方便在招聘员工,解雇员工,以及查询员工的基本信息,本系统还能为超市的管理者对于员工的快捷管理。
本系统能够帮助超市的管理者方便,快捷的对超市进行管理,满足当今快节奏的生活状态,符合时代的需要,所以一定会得到广大超市管理者的青睐。
1.2功能描述
本系统由二部分构成:
(1).商品信息系统:
能够添加,修改,删除,查询相关商品信息。
这一功能能够帮助超市管理者对超市的进货情况的管理,整体对超市的进货情况掌握和把握,对超市的运营起到很好的辅助作用。
(2).员工信息系统:
能够添加,删除,修改,查询相关员工信息。
这一功能能够帮助超市管理者对超市员工的个人资料进行系统的管理,便于对员工的聘用,解雇等信息的管理。
1.3本设计的具体研究工作
本课设采用VisualBasic6.0+Access2003实现单机数据库管理,首先用Access建立关系数据库。
然后用VisualBasic建立客户端,实现简单易懂的图形用户界面,并完成程序的功能
第二章系统的设计与实现
2.1概述设计
对上述各项功能进行集中、分块,按照结构化层序设计的要求,得到如图所示的系统功能模块图。
图2-1系统功能模块图
2.2.数据库设计
数据库在本成绩管理系统中占有非常重要的地位,数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。
合理的数据库及结构设计可以提高数据存储的效率,保证数据的完整和一致。
同时合理的数据库结构也将有利于程序的实现。
设计本系统的数据库应该充分满足用户的需求。
(1)商品信息查询:
包括的字段有:
商品号,商品名称,厂商,商品类型,单价。
字段名称
数据类型
字段大小
商品号
数字
10
商品名称
文本
10
厂商
文本
10
商品类型
文本
10
单价
数字
10
表2-1商品信息查询数据库
(2)员工信息查询:
包括的字段有:
员工号,姓名,性别,籍贯。
字段名称
数据类型
字段大小
员工号
数字
10
姓名
文本
10
性别
文本
10
籍贯
文本
10
表2-2员工信息查询数据库
2.3.详细设计
系统主要由二部分组成:
商品信息管理、员工信息管理,其中还包括登录界面。
各部分的主要功能如下:
1.商品信息管理:
通过创建数据库,连接数据库,调用数据库及Data控件Adodc控件,MSHFlexGrid控件的使用来实现商品信息的添加,查询,删除和修改。
2.员工信息管理:
通过创建数据库,连接数据库,调用数据库以及Data控件Adodc控件,MSHFlexGrid控件的使用来实现员工的添加,查询,删除和修改。
2.4.运行效果
图2-2登陆界面
程序登陆密码
PrivateSubCommand1_Click()
IfText1.Text=""Then
MsgBox"请输入正确的用户名",11,"错误信息"
ElseIfText2.Text=""Then
MsgBox"请输入正确的密码",11,"错误信息"
EndIf
IfText1.Text="陈晨"AndText2.Text="2011305010117"Then
LoadForm2
Form2.Show1
UnloadForm1
Else
MsgBox"用户名或密码错误",11,"错误信息"
EndIf
EndSub
、
图2-3登陆之后
PrivateSubCommand1_Click()
LoadForm3
Form3.Show1
UnloadForm1
EndSub
PrivateSubCommand3_Click()
LoadForm5
Form5.Show1
UnloadForm3
EndSub
En
图2-4商品管理界面
Publicmsg
PrivateSubCommand1_Click()
vb_msg=MsgBox("请输入要添加的数据",vbOKCancel)
Ifvb_msg=vbCancelThen
ExitSub
EndIf
Data1.Recordset.AddNew
Data1.Recordset.Fields("商品号")=Val(Text1.Text)
Data1.Recordset.Fields("商品名称")=Text2.Text
Data1.Recordset.Fields("厂商")=Text3.Text
Data1.Recordset.Fields("商品类型")=Val(Text4.Text)
Data1.Recordset.Fields("单价")=Val(Text5.Text)
EndSub
PrivateSubCommand2_Click()
DimXAsInteger
X=MsgBox("你确定要删除记录吗?
",vbYesNo)
IfX=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()
DimareturnAsInteger
areturn=MsgBox("你确定要修改记录吗?
",vbYesNo)
Ifareturn=vbYesThen
Data1.Recordset.Edit
Data1.Recordset.Fields("商品号")=Val(Text1.Text)
Data1.Recordset.Fields("商品名称")=Text2.Text
Data1.Recordset.Fields("商品类型")=Text3.Text
Data1.Recordset.Fields("单价")=Val(Text4.Text)
Data1.Recordset.Update
EndIf
EndSub
PrivateSubCommand4_Click()
msg=InputBox("请输入商品号","查找记录")
Data1.Recordset.FindFirst"商品号='"&msg&"'"
IfData1.Recordset.NoMatchThen
MsgBox"没有你所找商品!
"
Else
MsgBox"合您查找条件的商品为"&Data1.Recordset.Fields
(1)
EndIf
EndSub
SubCommand5_Click()
Form3.Hide
Form2.Show
EndSub
PrivateSubCommand6_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
MsgBox("已经是第一条记录了!
")
EndIf
EndSub
PrivateSubCommand7_Click()
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
MsgBox("已经是最后一条记录了!
")
EndIf
EndSub
图2-5员工管理界面
PrivateSubCommand1_Click()
vb_msg=MsgBox("请输入要添加的数据",vbOKCancel)
Ifvb_msg=vbCancelThen
ExitSub
EndIf
Data1.Recordset.AddNew
Data1.Recordset.Fields("员工号")=Val(Text1.Text)
Data1.Recordset.Fields("姓名")=Text2.Text
Data1.Recordset.Fields("性别")=Text3.Text
Data1.Recordset.Fields("籍贯")=Val(Text4.Text)
EndSub
PrivateSubCommand2_Click()
DimXAsInteger
X=MsgBox("你确定要删除记录吗?
",vbYesNo)
IfX=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()
areturn=MsgBox("你确定要修改记录吗?
",vbYesNo)
Ifareturn=vbYesThen
Data1.Recordset.Edit
Data1.Recordset.Fields("员工号")=Val(Text1.Text)
Data1.Recordset.Fields("姓名")=Val(Text2.Text)
Data1.Recordset.Fields("性别")=Val(Text3.Text)
Data1.Recordset.Fields("籍贯")=Val(Text4.Text)
Data1.Recordset.Update
EndSub
PrivateSubCommand4_Click()
msg=InputBox("请输入员工号","查找记录")
Data1.Recordset.FindFirst"销售记录号为='"&msg&"'"
IfData1.Recordset.NoMatchThen
MsgBox"没有你所找人!
"
Else
MsgBox"合您查找条件的人为"&Data1.Recordset.Fields
(1)
EndIf
EndSub
PrivateSubCommand5_Click()
Form1.Show
Form5.Hide
EndSub
PrivateSubCommand6_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
MsgBox("已经是第一条记录了!
")
EndIf
EndSub
PrivateSubCommand7_Click()
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
MsgBox("已经是最后一条记录了!
")
EndIf
EndSub
PrivateSubLabel5_Click()
EndSub
第三章结论或心得体会
课设的时候我们因为只对vb的基本编程有一些了解,但是一自己动起手来就感觉有点力不从心,自己的能力有限,于是去图书馆借书来查看相关的信息但是设计之前由于数据库知识的空白,使得我毫无头绪,无从下去手,只是盲目的按照课本和参考资料进行设计和编程,我认真地看了课本和相关书籍,经过自己的学习,和同学们和老师的帮助我对有了数据库的思想和思路,自己又重新规划了系统的结构。
这次课程设计我用了我的全力,最终我还是成功的把我的课程设计完成了。
经过不断的调试,使我认识即时丁点的错误也可以导致系统的非正常运行,细节决定成败。
我只有在以后的学习之路上做到一丝不苟,才能获得成功。
面对新的问题,以前的我会觉的十分畏惧,可通过这次实习,我发现自己变得勇敢,积极地从正面面对问题,认真地查阅资料、动手实践、和同学交流,问题便能解决。
此次实习培养了我自主学习和动手实践能力,让我体会到完成任务的成就感和喜悦。
对这次课程设计来说对我有了很大的提高,使我对VB有了更深一步的了解,对我今后的学习有了很大的信心
参考文献
[1]李春葆等.Access2003程序设计教程(第2版),清华大学出版社.2007.1
[2]范立南等.SQLServer2000实用教程,清华大学出版社.2005.2
[3]张宏等.30天学通VisualBasic项目案例开发,电子工业出版社.2009.7
[4]龚沛曾等.VisualBasic程序设计教程,高等教育出版社.2005.2
[5]蒋加伏等.VisualBasic程序设计教程,北京邮电大学出版社.2004.1
[6]张路平等.VisualBasic6.0编程案例精解,电子工业出版社.2004.3