vb课程设计报告8382262.docx
《vb课程设计报告8382262.docx》由会员分享，可在线阅读，更多相关《vb课程设计报告8382262.docx（20页珍藏版）》请在冰豆网上搜索。
vb课程设计报告8382262
单位工程力学系分院（系）
专业因材机电
班级试1103
学号
学生姓名李慧
指导教师王学军
完成日期2012年6月21日
摘要
计算机技术的发展促进了程序语言的发展，特别是面向对象程序设计语言的出现，极大的改进了传统的程序设计方法。
VisualBasic是一个功能强大的应用程序开发工具，它具有可视化的界面设计技术、面向对象的程序设计方法。
事件驱动的编程机制。
支持动态数据交换（DDE）技术和对象的链接与嵌入（OLE）技术，支持数据库的访问，支持多媒体和网络开发等特点。
VisualBasic的中心思想就是要便于程序员使用，无论是新手或者专家。
VisualBasic使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。
VisualBasic的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。
因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。
报告主要围绕VisualBasic语言的体系结构，介绍了上海世博会的概况，使我更好的掌握了软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能
目录
摘要2
第一章选题的意义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
退出
对象
Name
Caption
窗体
登录窗体
登录窗体
标签
Label1
用户名
Label2
密码
文本
Text1
Text2
命令按钮
Command1
登录
Command2
退出
3.2主窗体
对象
Name
Caption
窗体
主窗体
欢迎来世博会游玩
命令按钮
Command1
世博园概况
Command2
游览须知
Command3
精彩场馆介绍
Command4
各个场馆介绍
Command5
游览路线之一日游
Command6
游览路线之三日游
图像框
Image1
3.3概况窗体
对象
Name
Caption
窗体
世博园概况
世博园概况
图像框
Image1
3.4游览须知窗体
对象
Name
Caption
窗体
游览须知
游览须知
图像框
Image1
3.5精彩场馆窗体
对象
Name
Caption
Picture
窗体
精彩场馆
精彩场馆
命令按钮
Command1
沙特阿拉伯馆
D:
/vb/精彩场馆—沙特阿拉伯馆
Command2
中国国家馆
D:
/vb/精彩场馆—中国国家馆
Command3
德国馆
D:
/vb/精彩场馆—德国馆
Command4
意大利馆
D:
/vb/精彩场馆—意大利馆
Command5
日本产业馆
D:
/vb/精彩场馆—日本产业馆
Command6
上汽通用馆
D:
/vb/精彩场馆—上汽通用馆
Command7
国家电网馆
D:
/vb/精彩场馆—国家电网馆
Command8
石油馆
D:
/vb/精彩场馆—石油馆
Command9
返回
3.6各个场馆窗体
对象
Name
Datasource
MSFlexGrid
MSFlexGrid1
Data2
Data
Data2
SSTab
SSTab1
对象
Name
Caption
Frame
Frame1
按名称查找
命令按钮
Command1~3
查找、上一个、下一个
标签
Label1~7
略
文本框
Text1·8
略
Data
Data4
SSTab
SSTab
3.7一日游窗体
对象
Name
其他
窗体
世博一日游
Caption世博一日游
图像框
Image1
3.8三日游窗体
对象
Name
其他
窗体
世博三日游
Caption世博三日游
图像框
Image1
3.9系统维护窗体
对象
Name
Caption
Frame
Frame1
查询条件
命令按钮
Command（9个）
略
标签
Label1~7
略
文本框
Text1·8
略
Data
Data3
SSTab
SSTab
第四章程序运行
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
EndSub
PrivateSubCommand3_Click（）
IfText3.Text="维护人员"AndText4.Text="123456"Then
主窗体.Show
登陆窗体.Hide
各个场馆信息.Image3.Visible=False
EndIf
EndSub
PrivateSubCommand4_Click（）
End
EndSub
4.1.2主窗体
PrivateSubCommand1_Click（）
世博园概况.Show
EndSub
PrivateSubCommand2_Click（）
游览须知.Show
EndSub
PrivateSubCommand3_Click（）
精彩场馆介绍.Show
EndSub
PrivateSubCommand4_Click（）
世博一日游.Show
EndSub
PrivateSubCommand5_Click（）
世博三日游.Show
EndSub
PrivateSubCommand6_Click（）
各个场馆信息.Show
EndSub
PrivateSubForm_Load（）
主窗体.Hide
登陆窗体.Show
EndSub
4.1.3游览须知窗体
无
4.1.4精彩场馆窗体
PrivateSubCommand1_Click（）
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Command7.Visible=False
Command8.Visible=False
Image1.Picture=LoadPicture（"D:
\vb\精彩场馆—沙特阿拉伯馆.jpg"）
EndSub
PrivateSubCommand2_Click（）
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Command7.Visible=False
Command8.Visible=False
Image1.Picture=LoadPicture（"D:
\vb\精彩场馆-中国馆.jpg"）
EndSub
PrivateSubCommand3_Click（）
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Command7.Visible=False
Command8.Visible=False
Image1.Picture=LoadPicture（"D:
\vb\精彩场馆-德国馆.jpg"）
EndSub
PrivateSubCommand4_Click（）
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Command7.Visible=False
Command8.Visible=False
Image1.Picture=LoadPicture（"D:
\vb\精彩场馆-意大利馆.jpg"）
EndSub
PrivateSubCommand5_Click（）
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Command7.Visible=False
Command8.Visible=False
Image1.Picture=LoadPicture（"D:
\vb\精彩场馆-日本馆.jpg"）
EndSub
PrivateSubCommand6_Click（）
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Command7.Visible=False
Command8.Visible=False
Image1.Picture=LoadPicture（"D:
\vb\精彩场馆-上汽通用馆.jpg"）
EndSub
PrivateSubCommand7_Click（）
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Command7.Visible=False
Command8.Visible=False
Image1.Picture=LoadPicture（"D:
\vb\精彩场馆-国家电网馆.jpg"）
EndSub
PrivateSubCommand8_Click（）
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Command7.Visible=False
Command8.Visible=False
Image1.Picture=LoadPicture（"D:
\vb\精彩场馆-石油馆.jpg"）
EndSub
PrivateSubCommand9_Click（）
Command1.Visible=True
Command2.Visible=True
Command3.Visible=True
Command4.Visible=True
Command5.Visible=True
Command6.Visible=True
Command7.Visible=True
Command8.Visible=True
Image1.Picture=LoadPicture（"D:
\vb\未命名.bmp"）
EndSub
4.1.5各个场馆窗体
PrivateSubcmdadd_Click（）
Ifcmdadd.Caption="添加"Then
cmdadd.Caption="确认"
mbookmark=Data3.Recordset.Bookmark
Data3.Recordset.AddNew
Text10.SetFocus
Else
IfText10.Text=""OrText11.Text=""OrText12.Text=""OrText13.Text=""OrText14.Text=""OrText15.Text=""OrText16.Text=""Then
MsgBox"字段不能为空"
ExitSub
EndIf
cmdadd.Caption="添加"
Data3.Recordset.Update
EndIf
EndSub
PrivateSubcmdcancel_Click（）
cmdadd.Enabled=True
cmdedit.Enabled=True
cmddel.Enabled=True
cmdcancel.Enabled=False
Data3.UpdateControls
EndSub
PrivateSubcmddel_Click（）
DimmAsInteger
m=MsgBox（"是否删除当前记录？
",vbOKCancel,"信息提示"）
Ifm=vbYesThen
Data3.Recordset.Delete
Data3.Recordset.MoveNext
IfData3.Recordset.EOFThen
Data3.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubcmdedit_Click（）
cmdadd.Enabled=Notcmdadd.Enabled
cmddel.Enabled=Notcmddel.Enabled
cmdcancel.Enabled=Notcmdcancel.Enabled
Ifcmdedit.Caption="修改"Then
cmdedit.Caption="确认"
mbookmark=Data3.Recordset.Bookmark
Data3.Recordset.Edit
Text10.SetFocus
Else
cmdedit.Caption="修改"
Data3.Recordset.Update
EndIf
EndSub
PrivateSubcmdf_Click（）
Data3.Recordset.MoveFirst
cmdp.Enabled=False
EndSub
PrivateSubcmdl_Click（）
升级会员 