vb课程设计报告8382262Word文件下载.docx
《vb课程设计报告8382262Word文件下载.docx》由会员分享,可在线阅读,更多相关《vb课程设计报告8382262Word文件下载.docx(23页珍藏版)》请在冰豆网上搜索。
第一章选题的意义5
1.1作者概况5
1.2所选题目5
1.3选择该题目的原因5
1.4知识点5
1.5时间安排5
1.6参考与工具5
第二章程序功能需求6
2.1题目要求6
2.2设计思路6
2.3功能模块6
2.4流程图示7
第三章程序界面7
3.1登录窗体7
3.2用户窗体8
3.3概况窗体9
3.4浏览须知窗体10
3.5精彩场馆窗体11
第四章程序运行13
4.1运行代码13
4.1.1登录窗体13
4.1.2用户窗体13
4.1.3概况窗体15
4.1.4浏览须知窗体15
4.1.5精彩场馆窗体16
4.2运行效果17
第五章总结18
第六章致谢19
参考文献19
第一章选题的意义
1.1作者概况
李慧,工程力学系试1103班学生,学号。
1.2所选题目
《世博园浏览系统》。
1.3选择该题目的原因
经过一学期的学习,我已经初步掌握VisualBasic基础知识,能解读VisualBasic窗体及对象的基本内容,能进行简单的编程。
上海世博期间没能去现场观看那些独特的设计,只能在电视机前感慨设计师的厉害与各国文化的绚丽多彩,因此,在这次有机会接触世博时,我毫不犹豫的选择了世博园浏览系统,在其中体验世博会的美好。
1.4知识点
窗体的加载与卸载,数据库的剪力与应用,控件数组,图像处理,图像调用,。
1.5时间安排
2012.6.18选择题目,制作并上传《课程设计任务书》,进行初步构思。
2012.6.19构思完成,设计框架,编写简单代码。
2012.6.20编写主体代码,进行初步调试。
2012.6.21进行整体调试并扫尾,撰写《课程设计报告》。
1.6参考与工具
《VisualBasic6.0程序设计》王学军李静,中国铁道出版社
《VisualBasic6.0程序开发范例宝典》,明日科技,人民邮电出版社
MSDN
XX
XX知道
CSDN社区
第二章程序功能需求
2.1题目要求
1.本系统可供用户查阅与2010上海世博会浏览相关的信息。
2.应有场馆图片及场馆内主要展品示意图及说明
3.应有进馆参观须知及进馆手续速办提示等,相关信息上网查询
4.应给出不同方案的区别、游览路线及价位等
5.可根据所查资料完善本系统。
2.2设计思路
1.登录界面:
应有普通用户登录和系统维护人员登录之分,以便在后续窗体中控制分出不同登录人员的差别待遇。
2.主窗体界面及分窗体界面分控不同的功能,整齐划一
3.数据库的应用:
建立数据库存放各个场馆信息。
2.3功能模块
登录窗体后,用户可以在主窗体中通过不同的命令按钮选择世博园概况,游览须知,精彩场馆介绍及各个场馆具体介绍等。
若是系统维护人员,也可在各个场馆介绍中修复更新数据库。
2.4流程图示
第三章程序界面布局
3.1登录窗体
对象
Name
Caption
窗体
登录窗体
标签
Label1
欢迎词
Label2
姓名
Label3
联系方式
文本
Text1
Text2
命令按钮
Command1
确定
Command2
退出
用户名
密码
登录
3.2主窗体
主窗体
欢迎来世博会游玩
世博园概况
游览须知
Command3
精彩场馆介绍
Command4
各个场馆介绍
Command5
游览路线之一日游
Command6
游览路线之三日游
图像框
Image1
3.3概况窗体
3.4游览须知窗体
3.5精彩场馆窗体
Picture
精彩场馆
沙特阿拉伯馆
D:
/vb/精彩场馆—沙特阿拉伯馆
中国国家馆
/vb/精彩场馆—中国国家馆
德国馆
/vb/精彩场馆—德国馆
意大利馆
/vb/精彩场馆—意大利馆
日本产业馆
/vb/精彩场馆—日本产业馆
上汽通用馆
/vb/精彩场馆—上汽通用馆
Command7
国家电网馆
/vb/精彩场馆—国家电网馆
Command8
石油馆
/vb/精彩场馆—石油馆
Command9
返回
3.6各个场馆窗体
Datasource
MSFlexGrid
MSFlexGrid1
Data2
Data
SSTab
SSTab1
Frame
Frame1
按名称查找
Command1~3
查找、上一个、下一个
Label1~7
略
文本框
Text1·
8
Data4
3.7一日游窗体
其他
世博一日游
Caption世博一日游
3.8三日游窗体
世博三日游
Caption世博三日游
3.9系统维护窗体
查询条件
Command(9个)
Data3
第四章程序运行
4.1运行代码
4.1.1登录窗体
PrivateSubCommand1_Click()
IfText1.Text<
>
"
"
AndText2.Text<
Then
主窗体.Show
登陆窗体.Hide
各个场馆信息.cmdadd.Visible=False
各个场馆信息.cmdedit.Visible=False
各个场馆信息.cmddel.Visible=False
各个场馆信息.cmdcancel.Visible=False
各个场馆信息.cmdf.Visible=False
各个场馆信息.cmdn.Visible=False
各个场馆信息.cmdp.Visible=False
各个场馆信息.cmdl.Visible=False
各个场馆信息.Frame2.Visible=False
各个场馆信息.cmdserach.Visible=False
各个场馆信息.Picture1.Visible=False
各个场馆信息.Text9.Visible=False
各个场馆信息.Label8.Visible=False
各个场馆信息.Text10.Visible=False
各个场馆信息.Label9.Visible=False
各个场馆信息.Text11.Visible=False
各个场馆信息.Label10.Visible=False
各个场馆信息.Text12.Visible=False
各个场馆信息.Label11.Visible=False
各个场馆信息.Text13.Visible=False
各个场馆信息.Label12.Visible=False
各个场馆信息.Text14.Visible=False
各个场馆信息.Label13.Visible=False
各个场馆信息.Text15.Visible=False
各个场馆信息.Label14.Visible=False
各个场馆信息.Text16.Visible=False
各个场馆信息.Label15.Visible=False
各个场馆信息.Text18.Visible=False
Else
MsgBox"
输入错误,请重新输入"
EndIf
EndSub
PrivateSubCommand2_Click()
End
PrivateSubCommand3_Click()
IfText3.Text="
维护人员"
AndText4.Text="
123456"
各个场馆信息.Image3.Visible=False
PrivateSubCommand4_Click()
4.1.2主窗体
世博园概况.Show
游览须知.Show
精彩场馆介绍.Show
世博一日游.Show
PrivateSubCommand5_Click()