VB与数据库应用课程设计
中国旅游景点查询系统设计与实现
学 院 专 业 学 生 学 号 指导教师
二○一八年六月
课 程 设 计 任 务 书
课程设计
一、课程名称：VB与数据库应用课程设计
二、课程设计题目：中国旅游景点查询系统设计与实现
三、课程设计工作自2015年6 月15日至2015年6 月26 日止 四、课程设计的内容及要求
1．强化Visual Basic6.0程序设计和数据库应用的基础知识，比较熟练应用软件开发工具设计简单数据库应用系统，掌握数据库应用系统的分析、设计、编码和调试的基本方法和过程。
2．掌握Access 数据库和数据表的创建和应用。 3．具体内容
（1）创建数据库和表 密码表（用户名，密码） 中国旅游景点查询系统设计（编号、省份、直辖市、景点级别等等） （2）系统主要功能
结合题目和实际需求，完成相应数据信息的编辑（添加、修改、删除）、浏
览、查询、统计和系统维护（密码设置）等功能。 （3）窗口设计
系统登录表单设计、系统菜单设计、数据编辑、浏览表单设计、数据查询表单设计、密码设置、系统初始化和数据备份/恢复等。 （4）系统主菜单设计（结合系统功能）。
系统界面友好、设计合理、操作简单。
4．要求：课设结束后，上交软件系统和课程设计说明书。
课程设计说明书（报告）的主要内容：
系统分析、系统设计、详细设计；参考书、课设总结。
指导教师：
学生签名：
1
课程设计
目 录
1 系统分析 ............................................................................................................................. 1
1.1 系统的开发背景 ..................................................................................................... 1
1.2 系统需求分析 ......................................................................................................... 1
2 系统设计 ............................................................................................................................. 1
2.1 系统功能 ................................................................................................................. 1 2.2 系统功能结构图 ..................................................................................................... 2 2.3 系统实现的目标 ..................................................................................................... 2 2.4 系统开发及运行环境 ............................................................................................. 2 2.5 数据库设计 ............................................................................................................. 2
3 系统详情设置
3.1 系统登录界面设计 3
3.2 系统主界面（菜单）设计 ..................................................................................... 4 3.3 旅游景点信息编辑浏览界面设计 ......................................................................... 5 3.4 旅游景点单项查询界面设计 ................................................................................. 6 3.5 旅游景点组合查询界面设计 ................................................................................. 7 3.6 旅游景点统计界面设计 ......................................................................................... 8 3.7 系统初始化功能界面设计 ................................................................................... 10
4 系统测试 ............................................................................................................................. 14
附录A 参考文献 .................................................................................................................... 15 课程设计总结 ......................................................................................................................... 15
2
课程设计
1 系统分析
1.1 系统的开发背景
旅游业在国民经济发展中的作用日益受到重视，产业定位日趋清晰从上世纪50 年代初期至1978 年以前的二十多年间，我国的旅游工作一直属于民间友好往来的范畴，是我国对外交往的一条重要渠道。所以制作一个旅游信息管理系统尤为重要，方便大众。
1.2 系统需求分析
该系统是使用Visual Basic6.0作为开发平台，基于MDI窗体以及Access 2010数据库进行开发的，力求与中国旅游景点查询系统的实际工作相结合，具有编辑、查询、统计、打印等功能，旨在达到使管理工作趋于科学化、规范化和自动化，提高工作效率。
2 系统设计
2.1 系统功能
根据中国旅游景点查询系统存在的问题和实际需求，该系统主要包括以下几大功能模块：
1）信息编辑：对旅游信息的添加、修改、删除和浏览功能等； 2）信息查询：根据需要进行单项查询或组合查询等功能； 3）数据统计：根据需要进行统计和图表分析等功能； 4）信息打印：根据需要进行打印等功能；
5）系统维护：系统初始化、系统注册、操作员密码设置和系统数据备份与恢复功能。
2.2 系统功能结构图
根据系统开发对象的实际情况和需求,本系统包含六大功能模块。系统功能结构如图2-1所示。
3
课程设计
图2-1 系统功能结构图
2.3 系统实现的目标
针对中国旅游景点查询系统的实际需求，本系统实施后，应该达到以下预期目标：
系统运行稳定，安全可靠。
界面设计美观，人机交互界面友好。
信息查询灵活、方便、快捷、准确，数据存储安全可靠。 采用多种方式查询数据。
操作员可以随时修改自己的口令。
对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。
2.4 系统开发及运行环境
系统开发平台：Visual Basic 6.0
数据库：Microsoft Office Access 2010 运行平台：Windows 7
2.5 数据库设计
根据中国旅游景点查询系统实际需求，本系统采用Access 2010设计数据库，需要建立系统注册登录和记录旅游景点等信息的数据表。
数据库名称：中国旅游景点查询系统设计
数据表名称：密码表、中国旅游景点查询系统设计1 1） 密码表：用来存储操作员登录信息的表，见表2-1。 2） 中国旅游景点查询系统设计1：记录旅游景点信息见表2-2。
表2-1 密码表 字段名称 数据类型 说明 4
课程设计
用户名 密码 文本 文本 操作员名称 密码 表2-2 旅游景点信息 字段名称 编号 省份 直辖市 景点级别 景点名称 票价 游客评价 附近酒店 分类归属 占地面积 开放时间 电话 数据类型 文本 文本 文本 文本 文本 文本 文本 文本 文本 文本 文本 文本 说明 编号 省份 直辖市 景点级别 景点名称 票价 游客评价 附近酒店 分类归属 占地面积 开放时间 电话 3 系统详细设计
中国旅游景点查询系统的详细设计就是将前期的理论分析实践化的过程，这是管理系统开发过程中的难点和重点，包括管理系统的窗体界面设计和程序代码设计。
3.1 系统登录界面设计
用户进入系统前必须通过系统登录，验证用户是否具有使用系统的权限，只有使用权限的用户才能登录系统。系统登录界面如图3-1所示。
图3-1 系统登录界面
事件过程代码：
Private Sub Command1_Click() Dim MPassword As String
Adodc1.RecordSource = \"select * from 密码表 where 用户名 ='\" & Text1.Text & \"'\" Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then MPassword = Adodc1.Recordset.Fields(\"密码\") If Text2.Text = MPassword Then Name1 = Text1.Text Form2.Show Unload Me Else
MsgBox \"密码不正确,请您确认后重新输入\提示信息\" Text2.Text = \"\"
5
课程设计
Text2.SetFocus End If Else
MsgBox \"对不起 没有此用户的信息\提示信息\" Text1.Text = \"\" Text2.Text = \"\" End If End Sub
Private Sub Form_Load()
'Adodc1.RecordSource = \"select * from 密码表\" Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then ListView1.Enabled = True ListView1.ListItems.Clear i = 1
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False Key = Adodc1.Recordset.Fields(\"用户名\") Set itmX = ListView1.ListItems.add(, , Key, i) i = i + 1
Adodc1.Recordset.MoveNext Loop Else
ListView1.Enabled = False End If End Sub
Private Sub ListView1_Click() Text1.Text = ListView1.SelectedItem 'Adodc1.Refresh Text2.SetFocus End Sub
3.2 系统主界面（菜单）设计
系统主界面集成了系统提供的所有功能服务，其主界面窗口如图3-2所示。
6
课程设计
图3-2 系统主界面
3.3 旅游景点信息编辑浏览界面设计
信息编辑浏览窗口提供了信息的浏览、编辑和查询等功能。编辑浏览功能界面如图3-3所示。
图3-3 编辑浏览界面
事件过程代码：
Private Sub Command1_Click(Index As Integer) Select Case Index
7
课程设计
Case 0
Adodc1.Recordset.MoveFirst ' 第一条 Case 1
Adodc1.Recordset.MovePrevious ' 上一条 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case 2
Adodc1.Recordset.MoveNext ' 下一条 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Case 3
Adodc1.Recordset.MoveLast ' 最后一条 Case 4
Dim mno As String
xm = InputBox(\"请输入姓名\查找窗\") Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find \"姓名 ='\" & xm & \"'\
If Adodc1.Recordset.EOF Then MsgBox \"无此记录!\提示\" End Select End Sub
Private Sub Command2_Click(Index As Integer)
Dim ask As Integer Select Case Index Case 0
Adodc1.Recordset.AddNew Case 1
ask = MsgBox(\"删除否？\ If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Case 2
Adodc1.Recordset.Update Case 3
Adodc1.Recordset.CancelUpdate Case 4 Unload me End Select End Sub
3.4 旅游景点单项查询界面设计
旅游景点单项查询界面如图3-4所示。
8
课程设计
图3-4 旅游景点查询界面
事件过程代码：
Private Sub Command1_Click()
kcbh = Combo1.Text
Adodc1.RecordSource = \"select * from 中国旅游查询系统 where 游客评价 ='\" & kcbh & \"'\" Adodc1.Refresh End Sub
3.5 旅游景点组合查询界面设计
组合查询可以实现所提供查询选项中的任意组合查询。居民信息组合查询功能界面如图3-5所示。
图3-5 旅游景点组合查询界面
事件过程代码：
Private Sub Command1_Click()
strsql = \"select * from 中国旅游景点查询 where \"
9
课程设计
n = 0
If Check1.Value = Checked Then
strsql = strsql + \" 景点= '\" + Combo1 + \"'\" Adodc1.RecordSource = strsql n = 1
End If
If Check2.Value = Checked Then
If n = 1 Then
strsql = strsql + \" and \" End If
strsql = strsql + \" 省份='\" + Combo2 + \"'\" Adodc1.RecordSource = strsql n = 1
End If
Private Sub Command2_Click()
Unload me End Sub
3.6 旅游景点统计界面设计
统计界面以表格和图形（直方图或圆饼图）的形式提供统计分析数据。旅游景点信息统计功能界面如图3-6所示。
图3-6 省份统计功能界面
事件过程代码：
Private Sub Command1_Click()
Adodc1.RecordSource = \"select 省份,count(*) as 数量 from 数据库 group by 省份\" Adodc1.Refresh End Sub
10
课程设计
Private Sub Command2_Click()
Adodc1.RecordSource = \"select 景点级别,count(*) as 数量 from 数据库 group by 景点级别\" Adodc1.Refresh End Sub
Private Sub Command3_Click()
Adodc1.RecordSource = \"select 分类归属,count(*) as 数量 from 数据库 group by 分类归属\" Adodc1.Refresh End Sub
Private Sub Command4_Click()
Adodc1.RecordSource = \"select 游客评价,count(*) as 数量 from 数据库 group by 游客评价\" Adodc1.Refresh End Sub
Private Sub Command5_Click() Form2.Show Form10.Hide End Sub
Private Sub List1_Click() End Sub
Private Sub Command6_Click() Form2.Show Form10.Hide End Sub
3.7 系统初始化功能界面设计
系统初始化功能界面如图3-7所示。
11
课程设计
图 3-7 系统初始化功能界面
事件过程代码：
Private Sub Command1_Click() MsgBox \"系统初始化成功\提示\" End Sub
Private Sub Command2_Click() Form2.Show Form12.Hide End Sub
3.8 数据备份/恢复功能界面设计
数据备份/恢复提供将系统数据备份到其他磁盘或将系统在其他磁盘上的备份数据恢复到系统中的功能。数据备份与恢复功能界面如图3-8所示。
图 3-8 数据备份与恢复功能界面
12
课程设计
事件过程代码：
Private Sub Command1_Click() MsgBox \"系统备份成功\提示\" End Sub
Private Sub Command2_Click() Form2.Show Form13.Hide End Sub
3.9 密码修改功能界面设计
密码修改功能界面如图3-9所示。
图 3-9 密码修改功能界面
事件过程代码：
Private Sub Command1_Click() Adodc1.Recordset.Fields(2) = Text3 Adodc1.Recordset.Update MsgBox \"更改成功\提示信息\" End Sub
Private Sub Command2_Click() Text1 = \"\"
13
课程设计
End Sub
Private Sub Command3_Click() Form2.Show Form9.Hide End Sub
Private Sub Form_Load() Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then ListView1.Enabled = True ListView1.ListItems.Clear i = 1
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False Key = Adodc1.Recordset.Fields(\"用户名\") Set itmX = ListView1.ListItems.Add(, , Key, i) i = i + 1
Adodc1.Recordset.MoveNext Loop Else
ListView1.Enabled = False End If
14
课程设计
End Sub
Private Sub Label3_Click() Text2.PasswordChar = \"*\" End Sub
Private Sub ListView1_Click() Text1 = ListView1.SelectedItem Text2.SetFocus End Sub
Private Sub Text2_LostFocus() Dim MPassword As String
Adodc1.RecordSource = \"select * from 密码表 where 用户名 ='\" & Text1.Text & \"'\" Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then MPassword = Adodc1.Recordset.Fields(\"密码\") If Text2.Text = MPassword Then Text3.SetFocus Else
MsgBox \"密码不正确,请您确认后重新输入\提示信息\" Text2.Text = \"\"
15
课程设计
Text2.SetFocus End If Else
MsgBox \"对不起 没有此用户的信息\提示信息\" Text1.Text = \"\" Text2.Text = \"\" End If End Sub
3.10 关于系统功能界面设计
关于系统功能界面如图3-10所示。
图 3-10 关于系统功能界面
4 系统测试
本系统采取的测试方法是先进行各模块测试，经过修改和调整通过后，进行总体测试，测试结果及各项功能均已基本达到设计要求。
1. 代码测试
在系统具体实现时进行代码测试，在各个模块编写时就开始测试，有利于尽早的发现问题，以减少集成测试时出现错误的机率以及修改源程序的难度。
(1) 使用合法数据进行测试
提交数据时输入符合要求的数据，检验运行结果，确保系统可接收正常数据，能够正常运行。
(2) 使用不合法数据进行调试
在提交时输入一些不符合要求的数据，如在时间的地方输入不是时间型的数据，在数字输入的地方输入非数字数据等等，进行结果调试，确保系统有识别非法数据的能力，同时能够予以拒绝并给出提示。
2. 结构功能测试
经过代码测试确定程序在逻辑上符合要求，并不能验证是否符合具体功能，即是否能够
16
课程设计
使数据前后一体化，模块间的数据操作统一化，所以还要进行功能测试。
(1) 模块测试
本系统由多个功能模块组成，每一个模块由多个程序组成。这一个阶段的测试由自己独立完成，把各个程序串联起来，经过测试修改，实现各模块之间的连接，并且可以使数据前后操作一致。
(2) 确认测试
这一阶段主要是针对系统的功能、特性及稳定性和适用性进行进一步的测试。该阶段主要是用户进行。由他们确定该系统哪些功能需要修改，哪些数据需要增加备份以及在管理中的适用情况。针对使用意见，再次完善系统功能并做最终测试。
附录A 参考文献
1．新编Visual Basic 程序设计案例教程 清华大学出版社 王晓斌等 2013年8月 2．Visual Basic程序设计教程 高等教育出版社 龚沛曾等 2004年5月
课程设计总结
这两周的VB课设虽早已过去，但它却给我留下了深刻的记忆，在这两周的课设期间，他不仅教会了我如何去设计一个系统软件，最重要的是他教会我如何去思考，如何去扩展，同时他也给了我创新的灵感，让我感悟到如何根据实际问题灵活运用我们已掌握的知识。总之，这两周的课设教会了我很多实用的东西，我会好好的珍惜这两周学到的东西。
17
因篇幅问题不能全部显示，请点此查看更多更全内容