VB课设超市收银系统报告样例 1.docx
- 文档编号:5268248
- 上传时间:2022-12-14
- 格式:DOCX
- 页数:12
- 大小:889.63KB
VB课设超市收银系统报告样例 1.docx
《VB课设超市收银系统报告样例 1.docx》由会员分享,可在线阅读,更多相关《VB课设超市收银系统报告样例 1.docx(12页珍藏版)》请在冰豆网上搜索。
VB课设超市收银系统报告样例1
沈阳航空航天大学
课程设计
学号_
班级_3____
姓名______
指导教师______
2014年10月24日
沈阳航空航天大学
课程设计任务书
学院:
机电工程学院专业:
机械设计制造及其自动化班级:
机械
学号:
*********题目:
超市收银系统
一、课程设计时间
2014.10.19~2014.10.26
二、课程设计内容
用VB编写模拟超市收银系统,具体要求如下:
1.信息输入输入若干超市商品信息Access表中存储;
2.顾客信息管理顾客信息可分为会员和非会员,商品具有会员价和非会员价的区分,会员持会员卡可以享受一定的折扣,并可以积分;
3.查询会员可以凭借会员卡对积分进行查询;
4.修改会员可以对个人信息进行修改;
5.结账结账时应从数据库表中调取商品的价格库存等信息,生成顾客的账单;交易成功后,要修改商品信息,如果顾客购物满100元,可以选择是否成为会员,如果成为会员,应分配相应的会员卡号,并对会员信息进行存储。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
需求分析
该软件作为一款超市收银软件,应该具有如下功能,以满足用户需求:
1.信息输入输入若干超市商品信息Access表中存储;
2.顾客信息管理顾客信息可分为会员和非会员,商品具有会员价和非会员价的区分,会员持会员卡可以享受一定的折扣,并可以积分;
3.查询会员可以凭借会员卡对积分进行查询;
4.修改会员可以对个人信息进行修改;
5.结账结账时应从数据库表中调取商品的价格库存等信息,生成顾客的账单;交易成功后,要修改商品信息,如果顾客购物满100元,可以选择是否成为会员,如果成为会员,应分配相应的会员卡号,并对会员信息进行存储。
设计分析
(1)概述:
根据用户需求略。
该软件通过VB设计出来需要用到以下几个方面的技术:
1.数据库的连接和运用,需要对数据库的数据进行修改和增加,需要用到adodc控件,以及代码语句对数据库内容修改和增加。
2.关于界面,可以设置多个界面,在数据库的修改和增加方面用不同的窗口,达到层次分明的效果。
3.关于数据库,建立两个数据库,一个存储顾客资料,一个存储商品资料。
4.控件方面,根据功能需求运用不同控件,达到要求。
(2)总体设计:
(3)详细设计:
Form3form2
Form1
技术要点
略。
文字部分,是课设报告最重要的部分。
阐述你所编写的程序用到哪些重要技术、重要算法、或者VB的知识点。
分项说明,必要时配置程序代码片段作为佐证。
1关于数据库的连接:
(1).数据库连接运用到adodc控件。
该软件设计过程中,用到了四个adodc控件与两个数据库建立联系,其中包括:
A.查询功能:
PrivateSubCommand5_Click()
IfText1.Text<>""Then
Adodc2.CommandType=adCmdUnknown
Adodc2.RecordSource="select*from商品表where商品编号='"&Trim(Text1)&"'"
Adodc2.Refresh
Else
MsgBox"请输入正确商品编号"
EndIf
EndSub
B.数据修改:
PrivateSubCommand4_Click()
Adodc1.Recordset.Update
MsgBox"修改成功"
EndSub
C.数据新增:
PrivateSubCommand1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("会员编号")=Text1.Text
Adodc1.Recordset.Fields("会员姓名")=Text2.Text
Adodc1.Recordset.Fields("办理时间")=Text3.Text
Adodc1.Recordset.Fields("会员积分")=Text4.Text
MsgBox("增加成功,继续结账")
EndSub
D.窗体切换:
PrivateSubCommand2_Click()
Form1.Show
Form3.Hide
EndSub
E.图片加载:
PrivateSubCommand5_Click()
IfText1.Text="SP001"Then
Picture1.Picture=LoadPicture("耳机.jpg")
EndIf
IfText1.Text="SP002"Then
Picture1.Picture=LoadPicture("相机.jpg")
EndIf
IfText1.Text="SP003"Then
Picture1.Picture=LoadPicture("手机.jpg")
EndIf
IfText1.Text="SP004"Then
Picture1.Picture=LoadPicture("网球拍.jpg")
EndIf
EndSub
2SQL语句的应用:
无
主要界面截图
图1按商品,会员编号查询界面
图2商品新增加进数据库界面
图3会员新增加进数据库界面
总结
略。
文字部分。
个人对此次课设的感想。
完整的源程序
Form1
PrivateSubCommand1_Click()
IfText13.Text>100Then
rvale=MsgBox("亲爱的会员您购买的商品总价为"&Text13.Text&"是否确定购买?
",4+32,"结算")
Ifrvale=6Then
MsgBox"谢谢购买,欢迎下次光临",0,"提示"
Else
MsgBox"谢谢。
",0,"提示"
EndIf
EndIf
Adodc1.Recordset.Update
Adodc1.Recordset.Fields("会员积分")=Val(Text10)+Val(Text13)
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
IfText12.Text>100Then
rvale=MsgBox("亲爱的顾客您购买的商品总价为"&Text12.Text&"已满100元"&"是否升级为会员?
",4+32,"结算")
Ifrvale=6Then
MsgBox"你的回答是“是”,请输入姓名。
",0,"提示"
Else
MsgBox"你的回答是“否”,谢谢。
",0,"提示"
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()
IfText7.Text<>""Then
Adodc1.CommandType=adCmdUnknown
Adodc1.RecordSource="select*from会员信息表where会员编号='"&Trim(Text7)&"'"
Adodc1.Refresh
Else
MsgBox"请输入正确会员编号"
EndIf
EndSub
PrivateSubCommand4_Click()
Adodc1.Recordset.Update
MsgBox"修改成功"
EndSub
PrivateSubCommand5_Click()
IfText1.Text<>""Then
Adodc2.CommandType=adCmdUnknown
Adodc2.RecordSource="select*from商品表where商品编号='"&Trim(Text1)&"'"
Adodc2.Refresh
Else
MsgBox"请输入正确商品编号"
EndIf
IfText1.Text="SP001"Then
Picture1.Picture=LoadPicture("耳机.jpg")
EndIf
IfText1.Text="SP002"Then
Picture1.Picture=LoadPicture("相机.jpg")
EndIf
IfText1.Text="SP003"Then
Picture1.Picture=LoadPicture("手机.jpg")
EndIf
IfText1.Text="SP004"Then
Picture1.Picture=LoadPicture("网球拍.jpg")
EndIf
Dima,bAsLong
a=a+Val(Text4)*Val(Text11)
p=a
Text12.Text=Val(Text12)+p
b=b+Val(Text5)*Val(Text11)
V=b
Text13.Text=Val(Text13)+b
Text3.Text=Text3.Text&""&Text6.Text&""&"数量"&Text11.Text
Text14.Text=Val(Text2)-Val(Text11)
'Adodc2.Recordset.Fields("商品数量")=Text14.Text
'Adodc2.Refresh
EndSub
PrivateSubCommand6_Click()
Form1.Hide
Form2.Show
EndSub
PrivateSubCommand7_Click()
DimaskAsInteger
ask=MsgBox("是否真的要删除?
",vbYesNo)
Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Refresh
EndIf
EndSub
PrivateSubCommand8_Click()
Form1.Hide
Form3.Show
EndSub
PrivateSubForm_Click()
Text1.Text="0"
Text2.Text="0"
Text3.Text=""
Text4.Text="0"
Text5.Text="0"
Text6.Text="0"
Text7.Text="0"
Text8.Text="0"
Text9.Text="0"
Text10.Text="0"
Text11.Text="1"
Text12.Text="0"
Text13.Text="0"
Text14.Text="1"
EndSub
PrivateSubForm_Load()
Text1.Text="0"
Text2.Text="0"
Text3.Text=""
Text4.Text="0"
Text5.Text="0"
Text6.Text="0"
Text7.Text="0"
Text8.Text="0"
Text9.Text="0"
Text10.Text="0"
Text11.Text="1"
EndSub
PrivateSubTimer1_Timer()
Label6.Left=Label6.Left+50
IfLabel6.Left>=Form1.WidthThen
Label6.Left=0
EndIf
EndSub
Form2:
PrivateSubCommand1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("会员编号")=Text1.Text
Adodc1.Recordset.Fields("会员姓名")=Text2.Text
Adodc1.Recordset.Fields("办理时间")=Text3.Text
Adodc1.Recordset.Fields("会员积分")=Text4.Text
MsgBox("增加成功,继续结账")
EndSub
PrivateSubCommand2_Click()
Form1.Show
Form2.Hide
EndSub
Form3:
PrivateSubCommand1_Click()
Adodc1.Recordset.AddNew
MsgBox("增加成功,继续结账")
EndSub
PrivateSubCommand2_Click()
Form1.Show
Form3.Hide
EndSub
参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
(等等)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB课设超市收银系统 报告样例 VB 超市 收银 系统 报告