最新版vb课程设计报告8382262.docx

1、最新版vb课程设计报告8382262单 位 工程力学系 分院(系)专 业 因材机电 班 级 试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选择该题目的原因 51.4知识点 51.5时间安排 51.6参考与

3、工具 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所选题目世博园浏览系统。1.3选择该题目的原因经过一学期

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

5、整体调试并扫尾，撰写课程设计报告。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窗体登录窗体登录窗体标签Label1用户名Label2

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

8、1沙特阿拉伯馆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 各个场馆窗体对象NameDatasourceMSFlexGridMSFlexGrid1Data2DataData2SSTabSSTab1对象NameCa

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

10、 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 = False 各个场馆信息.cmdl.Visib

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

12、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 各个场馆信息.Te

13、xt18.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 C

14、ommand1_Click() 世博园概况.ShowEnd SubPrivate Sub Command2_Click() 游览须知.ShowEnd SubPrivate Sub Command3_Click() 精彩场馆介绍.ShowEnd SubPrivate Sub Command4_Click() 世博一日游.ShowEnd SubPrivate Sub Command5_Click() 世博三日游.ShowEnd SubPrivate Sub Command6_Click() 各个场馆信息.ShowEnd SubPrivate Sub Form_Load() 主窗体.Hide 登陆窗

15、体.ShowEnd Sub4.1.3游览须知窗体无4.1.4精彩场馆窗体Private Sub Command1_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精彩

16、场馆沙特阿拉伯馆.jpg)End SubPrivate Sub Command2_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)End S

17、ubPrivate Sub Command3_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)End SubPrivate Sub Comm

18、and4_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)End SubPrivate Sub Command5_Click() Comm

19、and1.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)End SubPrivate Sub Command6_Click() Command1.Visible = Fal

20、se 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)End SubPrivate Sub Command7_Click() Command1.Visible = False Command2.Visi

21、ble = 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)End SubPrivate Sub Command8_Click() Command1.Visible = False Command2.Visible = False Comm

22、and3.Visible = False Command4.Visible = False Command5.Visible = False Command6.Visible = False Command7.Visible = False Command8.Visible = False Image1.Picture = LoadPicture(D:vb精彩场馆-石油馆.jpg)End SubPrivate Sub Command9_Click() Command1.Visible = True Command2.Visible = True Command3.Visible = True

23、Command4.Visible = True Command5.Visible = True Command6.Visible = True Command7.Visible = True Command8.Visible = True Image1.Picture = LoadPicture(D:vb未命名.bmp)End Sub4.1.5各个场馆窗体Private Sub cmdadd_Click() If cmdadd.Caption = 添加 Then cmdadd.Caption = 确认 mbookmark = Data3.Recordset.Bookmark Data3.Rec

24、ordset.AddNew Text10.SetFocus Else If Text10.Text = Or Text11.Text = Or Text12.Text = Or Text13.Text = Or Text14.Text = Or Text15.Text = Or Text16.Text = Then MsgBox 字段不能为空 Exit Sub End If cmdadd.Caption = 添加 Data3.Recordset.Update End IfEnd SubPrivate Sub cmdcancel_Click() cmdadd.Enabled = True cmd

25、edit.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False Data3.UpdateControls End SubPrivate Sub cmddel_Click() Dim m As Integer m = MsgBox(是否删除当前记录？, vbOKCancel, 信息提示) If m = vbYes Then Data3.Recordset.Delete Data3.Recordset.MoveNext If Data3.Recordset.EOF Then Data3.Recordset.MoveLast E

26、nd If End IfEnd SubPrivate Sub cmdedit_Click() cmdadd.Enabled = Not cmdadd.Enabled cmddel.Enabled = Not cmddel.Enabled cmdcancel.Enabled = Not cmdcancel.Enabled If cmdedit.Caption = 修改 Then cmdedit.Caption = 确认 mbookmark = Data3.Recordset.Bookmark Data3.Recordset.Edit Text10.SetFocus Else cmdedit.Ca

27、ption = 修改 Data3.Recordset.Update End If End SubPrivate Sub cmdf_Click() Data3.Recordset.MoveFirst cmdp.Enabled = FalseEnd SubPrivate Sub cmdl_Click() Data3.Recordset.MoveLast cmdn.Enabled = FalseEnd SubPrivate Sub cmdn_Click() Data3.Recordset.MoveNext If Data4.Recordset.EOF Then Data4.Recordset.Mov

28、eLast cmdn.Enabled = False cmdp.Enabled = True End If Picture1.Picture = LoadPicture(Text18.Text)End SubPrivate Sub cmdp_Click() Data3.Recordset.MovePrevious If Data3.Recordset.BOF Then Data3.Recordset.MoveFirst cmdp.Enabled = False cmdn.Enabled = True End IfEnd SubPrivate Sub cmdserach_Click() If Text9.Text Then Data3.RecordSource = select*from 各个场馆 where 名称= & Text9.Text & Else Data3.RecordSource = select*from 各个场馆 End If Data3.Refresh End SubPrivate Sub Command1_Click() Dim bm bm = Data4.Recordset.Bookmark Data4.Recordset.Find