VB课程设计报告 38.docx
- 文档编号:13332909
- 上传时间:2023-06-13
- 格式:DOCX
- 页数:12
- 大小:160.92KB
VB课程设计报告 38.docx
《VB课程设计报告 38.docx》由会员分享,可在线阅读,更多相关《VB课程设计报告 38.docx(12页珍藏版)》请在冰点文库上搜索。
VB课程设计报告38
沈阳航空航天大学
课程设计
学号_
班级______
姓名______
指导教师______
2012年3月12日
沈阳航空航天大学
课程设计任务书
学院:
机电工程学院专业:
机械设计及其自动化班级:
04060101
学号:
2010040601038题目:
销售信息统计
一、课程设计时间
2012年3月5~9日(第一周),共计一周,20学时。
二、课程设计内容
沈阳的某家建材商店去年7月的销售业绩清单存储在文件“file22_销售信息统计.txt”中,格式为:
售货员编号,售货员姓名,销售日期,销售额。
写程序,对文件中的数据具有如下的统计分析功能:
①能够按照所指定的售货员的编号,或者姓名,统计出他在7月的销售总额。
②能够按照所指定的日期,统计出当日的销售总额。
③自己再增加一项功能。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“读取数据”、“统计某售货员的销售总额”、“统计某天的销售总额”、“退出”4项。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
____赵景辉____
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点5
主要界面截图6
总结.………………………………………………………10
完整的源程序…………………………………………….11
参考文献………………………………………………….17
需求分析
作为一家建材商店,销售信息统计软件是必不可少的,他需要对员工的销售业绩进行统计,他要能很轻松知道每天的销售额。
而本销售信息统计系统可以很快捷的根据售货员的姓名或编号查询出他当月的销售总额,只要输入日期就能查询当天的销售额,在增加统计全月的销售总额·消除·退出功能失望同时,还增加人性化设计,对输入的信息进行检查,若格式不对,自动弹出对话框,提醒用户重新输入,提醒用户重新输入。
本软件简单实用,是商家的不二之选。
设计分析
(1)概述:
本销售信息统计软件包括6个text文本框,6个command命令按钮,4个label标签以及2个frame框架部件。
在设计编写时运用了打开文件,循环结构,累加,函数求值,函数检验等技术。
只需在相应的文本框中输入姓名.编号或者日期,点击确定即可查询,点击相应的按钮就能查询想要的结果。
(2)总体设计:
(3)详细设计:
技术要点
在编写本软件时运用的技术要点有:
①打开文件
\010*********赵景辉\file22_销售信息统计.txt"ForInputAs#1
②do.......while循环
DoWhileNotEOF
(1)
LineInput#1,temp
sum=sum+Val(Split(temp,",")(3))
Loop
③循环累加
sum=sum+Val(Split(temp,",")(3))
④msgbox函数
i=MsgBox("日期格式错误",5+vbExclamation,"警告")
⑤split函数.isdate函数.isnumeric函数
Iffindname=Split(temp,",")
(1)Then'运用split函数求指定姓名的销售额,然后进行累加
sum=sum+Val(Split(temp,",")(3))
EndIf
IfIsDate(temp)=TrueThen
FindDate=temp
Endif
IfNotIsNumeric(Text1)Then
i=MsgBox("请输入售货员编号",5+vbExclamation,"提示")
EndIf
主要界面截图
图1运行主界面
图2按日期查询与查询当月销售总额
图3按姓名查询
图4按编号查询
图5弹出对话框
总结
为期一周的vb课程设计已经结束,但我相信我的程序设计学习还没有结束。
因为在这一周中,我深深地感觉到程序设计的神秘与强大。
接下来,我会继续研究学习程序设计。
在这一周中,我从刚开始的信心满满到充满疑问,再到恍然大悟。
在开始时面对我的任务书时,我感觉也就一般般,还不是小菜一碟,可当我把界面设计完准备写程序时,却全是疑问了。
我该如何在文件中找到一句话,并把他中的一项找出来加起来…….真是待到用时方恨读书少啊!
我只有继续打开课本,一点点的看。
但是还是不知道该如何去做。
最后在请教了老师与同学后,了解了split函数,顿时大悟啊!
让我感到vb中的任何一个东西都很关键,也感到他的神秘与强大。
一堆字母,就能把东西查询出来。
在这一周的学习中,每天面对电脑,腰酸脖子痛,但当我看着程序在一点一点的调试中成功时,这点累还算什么啊!
自己的劳动成果是总充实。
完整的源程序
PrivateSubCommand1_Click()
DimtempAsString,sumAsDouble
DimfindnameAsString
\010*********赵景辉\file22_销售信息统计.txt"ForInputAs#1'打开文件
findname=Text2
DoWhileNotEOF
(1)'运用dowhile循环,累加求和
LineInput#1,temp
Iffindname=Split(temp,",")
(1)Then'运用split函数求指定姓名的销售额,然后进行累加
sum=sum+Val(Split(temp,",")(3))
EndIf
Loop
Close#1
Text4=sum
EndSub
PrivateSubCommand2_Click()
DimtempAsString,dateTAsString,sumAsCurrency
DimFindDateAsDate,iAsInteger
temp=Text3
IfIsDate(temp)=TrueThen'运用isdate函数进行输入日期的检验
FindDate=temp
Else:
i=MsgBox("日期格式错误",5+vbExclamation,"警告")
Text3=""
Text3.SetFocus'若输入错误,则焦点继续在text1
EndIf
\010*********赵景辉\file22_销售信息统计.txt"ForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,temp
dateT=Split(temp,",")
(2)
IfIsDate(dateT)=TrueThen
IfdateT=FindDateThensum=sum+Val(Split(temp,",")(3))
EndIf
Loop
Close#1
Text5=sum
EndSub
PrivateSubCommand3_Click()
DimxszeAsCurrency,tempAsString,xseAsString,sumAsCurrency
\010*********赵景辉\file22_销售信息统计.txt"ForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,temp
sum=sum+Val(Split(temp,",")(3))
Loop
Close#1
Text6=sum
EndSub
PrivateSubCommand4_Click()
DimtempAsString,sumAsCurrency
DimfindnoAsInteger,iAsInteger
findno=Val(Text1)
IfNotIsNumeric(Text1)Then'运用isnumeric函数检验输入的是否始数字
i=MsgBox("请输入售货员编号",5+vbExclamation,"提示")
Text1=""
Text4=""
Text1.SetFocus
EndIf
\010*********赵景辉\file22_销售信息统计.txt"ForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,temp
Iffindno=Val(Split(temp,",")(0))Thensum=sum+Val(Split(temp,",")(3))
Loop
Close#1
Text4=sum
EndSub
PrivateSubCommand5_Click()
End
EndSub
PrivateSubCommand6_Click()
Text1=""
Text2=""
Text3=""'清除已输入的内容
Text4=""
Text5=""
Text6=""
EndSub
参考文献
[1]龚沛曾.《VisualBasic程序设计教程》.北京:
高等教育出版社,2007.3
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB课程设计报告 38 VB 课程设计 报告