发布时间 : 星期一 文章旅游信息管理系统毕业论文 - 图文更新完毕开始阅读22fc879cf18583d04864595d
河南师范大学新联学院本科毕业论文
来启动或关闭某些按钮的操作；导游信息表的作用是存放导游的基本资料，便于及时查看和更新。游客信息表是用来存放游客资料信息，随时可以添加删除记录，方便用户的记录管理；景点信息表中存放景点的具体信息，用户可以根据具体的情况对信息进行添加、修改和删除。
（2）数据库设计
数据库是信息系统的核心和基础，把信息系统中大量的数据按一定的模型组织起来，提供存储、维护、检索数据的功能，使信息系统可以方便、及时、准确地从数据库中获得所需的信息[11]。
数据库设计是指根据用户的需求，在某一具体的数据库管理系统上，设计数据库的结构和建立数据库的过程。数据库系统需要操作系统的支持。数据库设计是信息系统开发和建设中的核心技术，具体说，数据库设计是指对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求（信息要求和处理要求）。
根据旅游信息系统的需要和实际操作的要求，本系统所建的表详细如下： 用户登录表主要包括三个字段：用户名、密码和权限。其表结构如表3-1所示：
表3-1 用户登录表结构
列名 username pwd right 数据类型 text text text 允许为空值 否 否 否 用户登录表内容如表3-2所示：
表3-2 用户登录表
username 001 002 003 004 005 0011 0022 0033 0044 0055 pwd 001 002 003 004 005 0011 0022 0033 0044 0055 right 0 0 0 0 0 1 1 1 1 1 13
河南师范大学新联学院本科毕业论文
景点信息表包括6个字段，分别为vsbh(景点名称)、vsname（编号）、area（地点）、price（门票)、type(类型)以及info（其他信息）。其中，“vsbh（景点编号）”为主键。
景点信息表结构如表3-3所示：
表3-3 景点信息表结构
列名
vsbh vsname area type info price 数据类型 text text text text text text 允许为空值 否 是 是 是 是 是 景点信息表内容如表3-4所示：
表3-4 景点信息表
vsbh 01 02 03 04 05 06 07 08 09 10 vsname 龙门石窟 丽江古城 泰山 华山 敦煌石窟 黄山 青海湖 太湖 鼓浪屿 故宫 area 洛阳 丽江 泰安 渭南 敦煌 黄山 青海 无锡 厦门 北京 type 石刻 建筑 山峰 山峰 石刻 山峰 湖泊 湖泊 海滩 建筑 price 120 60 110 90 150 90 30 60 30 80 info 龙门石窟是中国石刻艺术宝丽江古城，又名“大研古镇”，泰山，世界文化与自然双重遗华山古称“西岳”，为中国著敦煌石窟，被誉为20世纪最黄山，中国5A级旅游景区、青海湖又名“措温布”，即藏太湖位于长江三角洲的南缘，鼓浪屿是福建省厦门市思明北京故宫，旧称为紫禁城，是游客信息表包括6个字段，分别为bh（游客编号）、name（姓名）、vsname（所选旅游景点）、tel（联系方式）、age（年龄）、gid（所选导游）。其中“bh（游客编号）”为主键。
游客信息表结构如表3-5所示：
表3-5 游客信息表结构
列名 bh name vsname tel gid age 数据类型 text text text text text text 允许为空值 是 是 是 是 是 是 14
河南师范大学新联学院本科毕业论文
游客信息表内容如表3-6所示：
表3-6 游客信息表
bh 1001 1002 1003 1004 1005 1006 name 王林 李华 石雨 孟青 孙仪 刘悦 vsname 故宫 龙门石窟 青海湖 太湖 故宫 华山 gid 111 113 112 114 111 116 age 27 36 24 26 37 20 tel 13203045517 19253321211 15639703371 13166872539 15137188369 13714753228
15
河南师范大学新联学院本科毕业论文
4 编码与模块功能实现
4.1登录模块编码及实现
（1）通用模块代码如下：
Private Declare Function SetWindowRgn Lib \
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateRoundRectRgn Lib\ ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 AsLong, ByVal Y3 As Long) As Long （2）窗体模块代码
Private Sub cmdCancel_Click()
MsgBox \您已成功退出！\提示\ Unload Me End Sub
Private Sub Commandok_Click() If Text1.Text = \
MsgBox \用户名不能为空！\提示\ Else
rs.MoveFirst
rs.Find \ If rs.EOF Then Text1.Text = \ Text2.Text = \ Text1.SetFocus
MsgBox \用户名输入错误！\提示\ Else
If Text2.Text = \
MsgBox \密码不能为空，请输入密码！\提示\
16