Visuai Basic 程序设计软件设计说明书.docx

资源描述

Visuai Basic 程序设计软件设计说明书.docx

《Visuai Basic 程序设计软件设计说明书.docx》由会员分享，可在线阅读，更多相关《Visuai Basic 程序设计软件设计说明书.docx（33页珍藏版）》请在冰点文库上搜索。

Visuai Basic 程序设计软件设计说明书.docx

VisuaiBasic程序设计软件设计说明书

基于VisuaiBasic的西安旅游导览系统的程序设计

单位计算机科学学院

专业计算机科学与技术

班级计科三班

学号41012112

学生姓名李静波

指导教师卢俊岭

2012/12/12

摘要

计算机技术的发展促进了程序语言的发展，特别是面向对象程序设计语言的出现，极大的改进了传统的程序设计方法。

VisualBasic是一个功能强大的应用程序开发工具，它具有可视化的界面设计技术、面向对象的程序设计方法。

事件驱动的编程机制。

支持动态数据交换（DDE）技术和对象的链接与嵌入（OLE）技术，支持数据库的访问，支持多媒体和网络开发等特点。

VisualBasic的中心思想就是要便于程序员使用，无论是新手或者专家。

VisualBasic使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。

VisualBasic的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。

因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。

报告主要围绕VisualBasic语言的体系结构，介绍了西安旅游景点的概况，使我更好的掌握了软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能。

摘要-------------------------------------2

第一章选题的意义---------------------------4

1.1所选题目------------------------------------------------------4

1.2选择该题目的原因----------------------------------------------4

1.3知识点-------------------------------------------------------4

1.4参考与工具---------------------------------------------------4

第二章程序功能需求------------------------5

2.1题目要求----------------------------------------------------5

2.2设计思路----------------------------------------------------5

2.3功能模块----------------------------------------------------5

2.4流程图示----------------------------------------------------5

第三章程序界面------------------------------7

3.1登录窗体----------------------------------------------------7

3.2主窗体-------------------------------------------------------8

3.3概况窗体----------------------------------------------------9

3.4注意事项窗体------------------------------------------------10

3.5特色景点窗体------------------------------------------------10

3.6各个景点窗体-------------------------------------------------11

3.7一日游窗体-------------------------------------------------13

3.8三日游窗体-------------------------------------------------14

3.9信息维护窗体------------------------------------------------15

3.10数据库的设计----------------------------------------------15

第四章程序运行-----------------------------13

4.1运行代码---------------------------------------------------16

4.1.1登录窗体

4.1.2用户窗体

4.1.3概况窗体

4.1.4浏览须知窗体

4.1.5精彩场馆窗体

第五章自我评价--------------------------27

第一章选题的意义

1.1所选题目

《西安旅游导览系统》

1.2选择该题目的原因

经过一学期的学习，我已经初步掌握VisualBasic基础知识，能解读VisualBasic窗体及对象的基本内容，能进行简单的编程。

西安一直以来都受到全国各地游客的喜爱。

其美丽的自然风光让大家神往，悠久的历史文化更让大家感慨。

为了让来西安的游客提前对西安的旅游景点有一个初步的了解。

对于一个已在西安上了三年大学的我，以对西安的旅游景点有了一定的了解因此设计此软件。

1.3知识点

窗体的加载与切换、数据库的链接与更新，多个控件的使用，图像插入，动画的演示、适当的超链接。

1.4参考与工具

《大学VB.NET程序设计实践教程》沈建蓉，夏耘著，复旦大学出版社

《VB.NET程序设计教程》（英）BillyHollis，（英）RockfordLhotka等著；康博译清华大学出版社

第二章程序功能需求

2.1题目要求

1.本系统可供用户查阅与西安有关的旅游景点、浏览相关的信息。

2.应有特色景点的图片及文字方面的详细介绍。

3.应有游客旅游的须知及西安相关信息上网查询。

4.应给几条特色旅游方案的区别、游览路线及价位等。

5.管理员可以更新旅游景点的信息。

2.2设计思路

1.登录界面：

应有普通用户登录和系统维护人员登录之分，以便在后续窗体中控制分出不同登录人员的差别待遇。

2.主窗体界面及分窗体界面分控不同的功能，整齐划一

3.数据库的应用：

建立数据库存放各个旅游景点的相关信息。

2.3功能模块

登录窗体后，用户可以在主窗体中通过不同的命令按钮选择西安概况，游览须知，特色景点介绍及各个景点的具体介绍等。

若是系统维护人员，也可在各个景点介绍中修复更新数据库。

2.4流程图示

第三章程序界面布局

3.1登录窗体

对象

Name

Text

窗体

登录窗体

游客登录

标签

Label1

欢迎词

Label2

姓名

Label3

联系方式

文本

Text1

Text2

命令按钮

Button1

确定

Button2

退出

对象

Name

Text

窗体

登录窗体

系统登录

标签

Label1

用户名

Label2

密码

文本

Text1

Text2

命令按钮

Button1

Button2

退出

3.2主窗体

对象

Name

Text

窗体

主窗体

欢迎来西安游玩

命令按钮

Button1

西安概况

Button2

注意事项

Button3

特色景点

Button4

各个景点

Button5

西安一日游

Button6

西安三日游

图像框

Image1

3.3概况窗体

对象

Name

text

窗体

Form

西安概况

图像框

Image1

3.4注意事项窗体

对象

Name

Caption

窗体

Form

注意事项

图像框

Image1

3.5特色景点窗体

对象

Name

Text

Picture

窗体

form

特色景点

背景图片

命令按钮

Button1

大雁塔

背景图片

Button2

钟楼

背景图片

Button3

兵马俑

背景图片

Button4

曲江

背景图片

Button5

3.6各个景点窗体

对象

Name

Text

DataGridView

DataGridView1

Button

Button1

信息查询

Button2

对象

Name

Text

GroupBox

GroupBox1F14

查询条件

命令按钮

Button1

查找

文本框

Text1~5

Data

Data4

LinkLabel

LinkLabel1

共交通

LinkLabel1

天气通

LinkLabel1

XX一下

3.7一日游窗体

对象

Name

Text

窗体

Form

西安一日游

图像框

PictureBox1F10

3.8三日游窗体

对象

Name

Text

窗体

Form

西安一日游

图像框

PictureBox1F10

3.9系统维护窗体

对象

Name

text

GroupBox

GroupBox1F14

查询条件

命令按钮

Button1~7

略

文本框

Textbox1~5

略

DataGridView

DataGridView1

3.10数据库的设计

TABLE1

Aname

Atheme

Alevel

Aprice

大雁塔

佛家文化

AAAAA

兵马俑

历史文化

AAAAA

120

曲江

游乐场所

AAAAA

钟楼

历史文化

无

陕师大

学校

大唐芙蓉园

历史文化

AAAAA

历史博物馆

历史文化

AAA

华山

自然风景

AAAAAA

100

回民街

小吃

无

数据库的设计中Aname字段属性为文本型；Atheme字段属性为文本型；Alevel字段属性为文本型；Aprice字段属性为数字型。

第四章程序运行

4.1运行代码

4.1.1登录窗体

PublicClassForm1

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

Me.AcceptButton=Button3F1

EndSub

PrivateSubButton1F1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1F1.Click

EndSub

PrivateSubButton3F1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3F1.Click

IfTextBox1F1.Text<>""AndTextBox2F1.Text<>""Then

Form3.Show（）

Me.Hide（）

Form2.Hide（）

Form13.Button2F13.Visible=False

Form14.Button5F14.Visible=False

Form14.Button6F14.Visible=False

Form14.Button7F14.Visible=False

Form14.Button4F14.Visible=False

Else

MsgBox（"输入错误，请重新输入"）

EndIf

EndSub

PrivateSubButton4F1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4F1.Click

Close（）

EndSub

PrivateSubButton2F1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2F1.Click

Form2.Show（）

Me.Hide（）

EndSub

EndClass

PublicClassForm2

PrivateSubForm2_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

Me.AcceptButton=Button3F2

EndSub

PrivateSubButton1F2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1F2.Click

Form1.Show（）

Me.Hide（）

EndSub

PrivateSubButton3F2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3F2.Click

IfTextBox1F2.Text="维护人员"AndTextBox2F2.Text="123456"Then

Form3.Show（）

Me.Hide（）

Form1.Hide（）

Else

MsgBox（"输入错误，请重新输入"）

EndIf

EndSub

PrivateSubButton4F2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4F2.Click

Close（）

EndSub

EndClass

4.1.2主窗体

PublicClassForm3

PrivateSubButton1F3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1F3.Click

Me.Hide（）

Form4.Show（）

EndSub

PrivateSubButton2F3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2F3.Click

Me.Hide（）

Form5.Show（）

EndSub

PrivateSubButton3F3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3F3.Click

Me.Hide（）

Form13.Show（）

EndSub

PrivateSubButton4F3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4F3.Click

Me.Hide（）

Form10.Show（）

EndSub

PrivateSubButton5F3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton5F3.Click

Me.Hide（）

Form11.Show（）

EndSub

PrivateSubButton6F3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton6F3.Click

Me.Hide（）

Form12.Show（）

EndSub

EndClass

4.1.3注意事项窗体

PublicClassForm12

PrivateSubButton1F12_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1F12.Click

Me.Hide（）

Form3.Show（）

EndSub

EndClass

4.1.4特色景点窗体

PublicClassForm5

PrivateSubButton3F5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3F5.Click

Me.Hide（）

Form7.Show（）

EndSub

PrivateSubButton2F5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2F5.Click

Me.Hide（）

Form8.Show（）

EndSub

PrivateSubButton4F5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4F5.Click

Me.Hide（）

Form9.Show（）

EndSub

PrivateSubButton1F5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1F5.Click

Me.Hide（）

Form6.Show（）

EndSub

PrivateSubButton5F5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton5F5.Click

Me.Hide（）

Form3.Show（）

EndSub

PrivateSubForm5_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

EndSub

EndClass

4.1.5各个景点窗体

ImportsSystem.Data

ImportsSystem.Data.OleDb

PublicClassForm13

DimxAsInteger=300

DimyAsInteger=300

DimflagAsBoolean=True

PrivateSubButton2F13_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2F13.Click

Me.Hide（）

Form14.Show（）

EndSub

PrivateSubButton3F13_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3F13.Click

Me.Hide（）

Form15.Show（）

EndSub

PrivateSubButton1F13_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1F13.Click

EndSub

PrivateSubForm13_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

Dimx,yAsInteger

DimflagAsBoolean=True

x=300

y=300

lblMsg.Location=NewPoint（x,y）

lblMsg.BackColor=Color.Aqua

lblMsg.AutoSize=True

lblMsg.Font=NewSystem.Drawing.Font（"华文彩云",30,FontStyle.Bold）

lblMsg.Text="欢迎来到西安~~~"

Timer1.Interval=10

Timer1.Enabled=True

DimconnStr,selectCmdAsString

connStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=db1.mdb"

DimconnAsOleDbConnection,myAdapterAsOleDbDataAdapter

DimmydatasetAsDataSet=NewDataSet

conn=NewOleDbConnection（connStr）

conn.Open（）

selectCmd="select*fromTABLE1"

myAdapter=NewOleDbDataAdapter（selectCmd,conn）

myAdapter.Fill（mydataset,"TABLE1"）

DimmydatatableAsDataTable=mydataset.Tables（"TABLE1"）

DataGridView1.DataSource=mydataset.Tables

展开阅读全文