VB课程设计实验报告.docx
- 文档编号:11537326
- 上传时间:2023-03-19
- 格式:DOCX
- 页数:15
- 大小:467.79KB
VB课程设计实验报告.docx
《VB课程设计实验报告.docx》由会员分享,可在线阅读,更多相关《VB课程设计实验报告.docx(15页珍藏版)》请在冰豆网上搜索。
VB课程设计实验报告
VB课程设计实验报告
题目:
超市销售管理系统
任课教师:
专业:
姓名:
学号:
班级:
一、目的:
本次课程设计结合是实际应用的要求,使课程设计既覆盖VB的知识点,又接近工程实际需要。
目的是通过课程设计的综合训练,培养我们学生实际分析问题、解决问题的能力,以及编程和动手能力,最终目的是通过课程设计这种形式,课程设计是这门课程的实践性教学环节之一,通过这次课程设计帮助我们系统的掌握VB这课程的主要内容,养成良好的变成习惯,更好的完成学习任务。
二、题目及简介:
(1)题目:
超市销售管理系统
(2)简介:
超市销售管理系统是一种集系统开发和实际应用于一体的一种应用性软件,它的开发有益于实现超市前台销售和仓库后台管理的实现,大大减少了人们的工作量,增加了工作效率,彻底实现了电子化管理,促进了管理业的快速发展。
三、设计说明:
1、功能描述
用户通过登陆界面进入系统之后,在页面指引下可以进行一系列的在架待售商品、商品销售累帐、销售记录、商品库存信息等一系列查询,从而完成对目前的商品信息的一系列查询!
2、概要设计
模块结构图
登陆界面
销售记录
销售累帐
在架待售
库存信息
3、详细设计
(1)首先创建六个Form窗口,分别为Form1、Form2、Form3Form4、Form5、Form6。
在Form1中添加一个Label1、两个CommandButton控件,一个Command1、一个Command2;在Form2添加一个Command1,然后添加出八个Command,Caption分别为首条、上一条、下一条、尾条、增加、删除、修改、取消再分别添加七个lable控件和文本框、然后分别设置lable控件和文本框控件的Caption分别为0、1、2、3、4、5、6、7。
最后在四个form框中各添加一个data控件,并依次和事先建好的数据库绑定连接,然后选择菜单编辑器编辑菜单为:
界面、打印、查询、退出系统。
。
(2)在四个Form事件中使除命令按钮外的所有控件不可操作。
(3)在修改、删除事件中产生编写有关的代码,并使修改、删除时可操作。
(4)查找时单击确定按钮时,判断用户输入的商品编号是否正确,正确则输出有关的商品信息,不正确则提示“输入不正确“。
四、源代码
1、代码实现
PrivateSubCommand1_Click()
i=Text1.Text
j=Text2.Text
Ifi="6789"Then
Ifj="1234"Then
LoadForm1
Form5.Show
Form1.Hide
Else
MsgBox("密码错误,请重新输入!
!
")
Text2.Text=""
EndIf
Else
MsgBox("操作编号错误,请重新输入!
!
")
Text1.Text=""
EndIf
EndSub
PrivateSubCommand2_Click()
i=Text1.Text
j=Text2.Text
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubForm_Load()
Text1.MaxLength=4
Text2.PasswordChar="*"
EndSub
PrivateSubForm_Load()
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Text6.Enabled=False
Text7.Enabled=False
EndSub
PrivateSubkucunxinxi_Click()
Form2.Hide
Form4.Show
EndSub
PrivateSubtongchuxitong_Click()
LoadForm2
Form1.Show
Form2.Hide
DimjAsInteger
j=MsgBox("是否退出?
?
",vbYesNo)
Ifj=vbYesThen
MsgBox("欢迎您下次使用!
!
")
Form1.Text1.Text=""
Form1.Text2.Text=""
Else
Form2.Show
EndIf
EndSub
PrivateSubyishouchu_Click()
Form2.Hide
Form3.Show
EndSub
PrivateSubxiaoshouleizhang_Click()
Form2.Hide
Form6.Show
EndSub
PrivateSubzaijiadaishou_Click()
Form2.Hide
Form4.Show
EndSub
PrivateSubzhujiemian_Click()
Form2.Hide
Form5.Show
EndSub
IfOption1=TrueThen
Form5.Hide
Form2.Show
Else
IfOption2=TrueThen
Form5.Hide
Form4.Show
Else
IfOption3=TrueThen
Form5.Hide
Form3.Show
Else
IfOption4=TrueThen
Form5.Hide
Form6.Show
Else
MsgBox("您的选择有误,请重新选择!
!
")
EndIf
EndIf
EndIf
EndIf
EndSub
PrivateSubcommamd8_Click()
DimjAsInteger
j=MsgBox("是否删除记录?
?
",vbYesNo)
Ifj=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand1_Click()
Data1.Recordset.MoveFirst
EndSub
PrivateSubCommand2_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
MsgBox("已经是第一条记录了!
!
")
EndIf
EndSub
PrivateSubCommand3_Click()
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
MsgBox("已经是最后一条记录了!
!
")
EndIf
EndSub
PrivateSubCommand4_Click()
Data1.Recordset.MoveLast
EndSub
PrivateSubCommand5_Click()
vb_msg=MsgBox("请输入商品信息!
!
",vbOKCancel)
Ifvb_msg=vbCancelThen
ExitSub
EndIf
Data1.Recordset.AddNew
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Text5.Enabled=True
Text6.Enabled=True
Text7.Enabled=True
Data1.Recordset.Fields("商品名称")=Text1.Text
Data1.Recordset.Fields("商品编号")=Text2.Text
Data1.Recordset.Fields("销售日期")=Text3.Text
Data1.Recordset.Fields("销售数量")=Val(Text4.Text)
Data1.Recordset.Fields("销售单价")=Val(Text5.Text)
Data1.Recordset.Fields("是否优惠")=Text6.Text
Data1.Recordset.Fields("商品库存")=Text7.Text
EndSub
PrivateSubCommand6_Click()
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Text6.Enabled=False
Text7.Enabled=False
Data1.Recordset.MoveFirst
EndSub
PrivateSubCommand7_Click()
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Text5.Enabled=True
Text6.Enabled=True
Text7.Enabled=True
DimjAsInteger
j=MsgBox("是否修改记录?
?
",vbYesNo)
Ifj=vbYesThen
Data1.Recordset.Edit
Data1.Recordset.Fields("商品名称")=Text1.Text
Data1.Recordset.Fields("商品编号")=Text2.Text
Data1.Recordset.Fields("销售日期")=Text3.Text
Data1.Recordset.Fields("销售数量")=Val(Text4.Text)
Data1.Recordset.Fields("销售单价")=Val(Text5.Text)
Data1.Recordset.Fields("是否优惠")=Text6.Text
Data1.Recordset.Fields("商品库存")=Text7.Text
Else
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Text6.Enabled=False
Text7.Enabled=False
EndIf
EndSub
PrivateSubCommand9_Click()
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Text6.Enabled=False
Text7.Enabled=False
msg=InputBox("请输入准确的商品号","查找记录")
Data1.Recordset.FindFirst"商品编号='"&msg&"'"
IfData1.Recordset.NoMatchThen
MsgBox"没有符合条件的商品!
!
"
EndIf
EndSub
PrivateSubdayin_Click()
DataReport1.Show
EndSub
PrivateSubForm_Load()
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Text6.Enabled=False
Text7.Enabled=False
EndSub
五、初始页面
六、主界面
七、
(1)查找
(2)修改
(3)删除
(5)运行结果
八、实验体会
通过几周对VB的学习,使我增加了对VB课程的了解.
首先了解到VB的特点,VB是在原来的Basic语言基础上发展而来的.Visual指的是可视的图形用户界面开发方法.不需编写大量代码去描述界面元素的外观和位置,只要把预先建立的对象添加到屏幕上的某点即可,用VB创建一个应用程序时,第一步骤是创建窗体,它是用户与应用程序进行交互操作的可视部分,窗体是创建界面的基本构造模块,也是创建应用程序所使用的对象.而后必要设置窗体的属性,从而构出窗体的外观,设置好的窗体,窗体就作为对象,能够对其定义的事件作出响应,这也是所谓的窗体事件,而窗体事件又包括窗体本身事件,键盘事件和鼠标事件。
除此之外,为了编程,我们还应培养良好的编程习惯,首先是对象,变量及过程的命名约定,然结构化编码约定.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课程设计 实验 报告