vb课程设计报告8382262.docx

vb课程设计报告8382262.docx

《vb课程设计报告8382262.docx》由会员分享，可在线阅读，更多相关《vb课程设计报告8382262.docx（26页珍藏版）》请在冰点文库上搜索。

vb课程设计报告8382262

（此文档为word格式，下载后您可任意编辑修改！

）

单位工程力学系分院（系）

专业因材机电

班级试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知道zhidao.baidu

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（）

Data3.Recordset.MoveLast

cmdn.Enabled=False

EndSub

PrivateSubcmdn_Click（）

Data3.Recordset.MoveNext

IfData4.Recordset.EOFThen

Data4.Recordset.MoveLast

cmdn.Enabled=False

cmdp.Enabled=True

EndIf

Picture1.Picture=LoadPicture（Text18.Text）

EndSub

PrivateSubcmdp_Click（）

Data3.Recordset.MovePrevious

IfData3.Recordset.BOFThen

Data3.Recordset.MoveFirst

cmdp.Enabled=False

cmdn.Enabled=True

EndIf

EndSub

PrivateSubcmdserach_Click（）

IfText9.Text<>""Then

Data3.RecordSource="select*from各个场馆where名称='"&Text9.Text&"'"

Else

Data3.RecordSource="select*from各个场馆"

EndIf

Data3.Refresh

EndSub

PrivateSubCommand1_Click（）

Dimbm

bm=Data4.Recordset.Bookmark

Data4.Recor