vb课程设计报告8382262.docx

1、vb课程设计报告8382262(此文档为word格式，下载后您可任意编辑修改！)单 位 工程力学系 分院(系)专 业 因材机电 班 级 试1103 学 号 学生姓名 李慧 指导教师 王学军 完成日期 2012年 6 月21日摘 要计算机技术的发展促进了程序语言的发展，特别是面向对象程序设计语言的出现，极大的改进了传统的程序设计方法。Visual Basic 是一个功能强大的应用程序开发工具，它具有可视化的界面设计技术、面向对象的程序设计方法。事件驱动的编程机制。支持动态数据交换（DDE）技术和对象的链接与嵌入（OLE）技术，支持数据库的访问，支持多媒体和网络开发等特点。Visual Basic

2、的中心思想就是要便于程序员使用，无论是新手或者专家。Visual Basic使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。Visual Basic的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。报告主要围绕Visual Basic语言的体系结构，介绍了上海世博会的概况，使我更好的掌握了软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能目 录摘 要 2第一章 选题的意义 51.1作者概况 51.2所选题目 51.3选择该题目的原因

3、 51.4知识点 51.5时间安排 51.6参考与工具 5第二章 程序功能需求 62.1题目要求 62.2设计思路 62.3功能模块 62.4流程图示 7第三章 程序界面 73.1登录窗体 73.2用户窗体 83.3概况窗体 93.4浏览须知窗体 103.5精彩场馆窗体 11第四章 程序运行 134.1运行代码 134.1.1登录窗体 134.1.2用户窗体 134.1.3概况窗体 154.1.4浏览须知窗体 154.1.5精彩场馆窗体 164.2运行效果 17第五章 总结 18第六章 致谢 19参考文献 19第一章 选题的意义1.1作者概况李慧，工程力学系试1103班学生，学号。1.2所选题

4、目世博园浏览系统。1.3选择该题目的原因经过一学期的学习，我已经初步掌握Visual Basic基础知识，能解读Visual Basic窗体及对象的基本内容，能进行简单的编程。上海世博期间没能去现场观看那些独特的设计，只能在电视机前感慨设计师的厉害与各国文化的绚丽多彩，因此，在这次有机会接触世博时，我毫不犹豫的选择了世博园浏览系统，在其中体验世博会的美好。1.4知识点窗体的加载与卸载，数据库的剪力与应用，控件数组，图像处理，图像调用，。1.5时间安排2012.6.18 选择题目，制作并上传课程设计任务书，进行初步构思。2012.6.19 构思完成，设计框架，编写简单代码。2012.6.20 编

5、写主体代码，进行初步调试。2012.6.21 进行整体调试并扫尾，撰写课程设计报告。1.6参考与工具Visual Basic 6.0程序设计 王学军 李静， 中国铁道出版社Visual Basic 6.0程序开发范例宝典 ，明日科技，人民邮电出版社MSDNXXXX知道CSDN社区第二章 程序功能需求2.1题目要求1. 本系统可供用户查阅与2010上海世博会浏览相关的信息。2. 应有场馆图片及场馆内主要展品示意图及说明3. 应有进馆参观须知及进馆手续速办提示等，相关信息上网查询4. 应给出不同方案的区别、游览路线及价位等5. 可根据所查资料完善本系统。2.2设计思路1.登录界面：应有普通用户登录

6、和系统维护人员登录之分，以便在后续窗体中控制分出不同登录人员的差别待遇。2.主窗体界面及分窗体界面分控不同的功能，整齐划一3.数据库的应用： 建立数据库存放各个场馆信息。2.3功能模块登录窗体后，用户可以在主窗体中通过不同的命令按钮选择世博园概况，游览须知，精彩场馆介绍及各个场馆具体介绍等。若是系统维护人员，也可在各个场馆介绍中修复更新数据库。2.4流程图示第三章 程序界面布局3.1登录窗体对象NameCaption窗体登录窗体登录窗体标签Label1欢迎词Label2姓名Label3联系方式文本Text1Text2命令按钮Command1确定Command2退出对象NameCaption窗体

7、登录窗体登录窗体标签Label1用户名Label2密码文本Text1Text2命令按钮Command1登录Command2退出3.2主窗体对象NameCaption窗体主窗体欢迎来世博会游玩命令按钮Command1世博园概况Command2游览须知Command3精彩场馆介绍Command4各个场馆介绍Command5游览路线之一日游Command6游览路线之三日游图像框Image13.3概况窗体对象NameCaption窗体世博园概况世博园概况图像框Image13.4游览须知窗体对象NameCaption窗体游览须知游览须知图像框Image13.5精彩场馆窗体对象NameCaptionPic

8、ture窗体精彩场馆精彩场馆命令按钮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 各个场馆窗体对象NameDatasourceMSFlexGridMSFlexGrid1Data2Dat

9、aData2SSTabSSTab1对象NameCaptionFrameFrame1按名称查找命令按钮Command13查找、上一个、下一个标签Label17略文本框Text18略DataData4SSTabSSTab 3.7 一日游窗体对象Name其他窗体世博一日游Caption世博一日游图像框Image1 3.8 三日游窗体对象Name其他窗体世博三日游Caption世博三日游图像框Image1 3.9 系统维护窗体对象NameCaptionFrameFrame1查询条件命令按钮Command（9个）略标签Label17略文本框Text18略DataData3SSTabSSTab第四章 程序

10、运行4.1运行代码4.1.1登录窗体Private Sub Command1_Click() If Text1.Text And Text2.Text Then 主窗体.Show 登陆窗体.Hide 各个场馆信息.cmdadd.Visible = False 各个场馆信息.cmdedit.Visible = False 各个场馆信息.cmddel.Visible = False 各个场馆信息.cmdcancel.Visible = False 各个场馆信息.cmdf.Visible = False 各个场馆信息.cmdn.Visible = False 各个场馆信息.cmdp.Visible

11、= 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.Visib

12、le = 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.

13、Visible = False 各个场馆信息.Text18.Visible = False Else MsgBox 输入错误，请重新输入 End If End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Command3_Click() If Text3.Text = 维护人员 And Text4.Text = 123456 Then 主窗体.Show 登陆窗体.Hide 各个场馆信息.Image3.Visible = False End If End SubPrivate Sub Command4_Click() End End Sub4.1.2主窗体Private Sub Command1_Click() 世博园概况.ShowEnd SubPrivate Sub Command2_Click() 游览须知.ShowEnd SubPrivate Sub Command3_Click() 精彩场馆介绍.ShowEnd SubPrivate Sub Command4_Click() 世博一日游.ShowEnd SubPrivate Sub Command5_Click()