VB旅游管理系统实验报告_旅游管理系统实验报告
VB旅游管理系统实验报告由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“旅游管理系统实验报告”。
VB实验报告
——旅游资源管理及路线设计系统
实验报告
1.实验目的（1）学会程序的设置，掌握数据库的建立以及与程序的链接。
（2）将零散的知识系统化。
（3）进一步加深对计算机的了解。
2.实验要求
制作一个旅游资源管理及路线设计系统。主要内容包括：
①管理员管理，其中分为管理模块与查询模块。管理模块分为旅游信息管理、景点管理、导游管理。查询模块分为景点与导游管理、导游与景点查询、导游与游客查询、景点与游客管理、游客与景点管理。
②员工查询，其中分为景点与导游管理、导游与景点查询、导游与游客查询、景点与游客管理、游客与景点管理。
③游客查询，基本查询与员工查询一样。
此系统涵盖管理员与员工及游客三大系统。包含管理与查询。管理可以对导游的信息以及景点的各个信息做出及时的修改。同时也可以查询到很多方面，如导游信息、旅游线路、旅游价格、旅游景点的风景、以及最终的满意程度。
3.实验内容与步骤
（1）在界面上设置出旅游线路的整体规划。
（2）根据界面编写程序。
①编写管理员登陆界面的代码
Option Explicit
Public txtsql As String
Public username As String
Private Sub Form_Load()
txtid.Text = “”
txtpas.Text = “”
End Sub
'启动拖放
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
moveit = True
cx = X: cy = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If moveit = True Then
'调用函数获得鼠标位置，未知信息存放在变量zb中
GetCursorPos zb
Me.Move zb.X * 1565, zb.Y * 15350
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
moveit = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'启动拖放
moveit = True
cx = X: cy = Y
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If moveit = True Then
'调用函数获得鼠标位置，未知信息存放在变量zb中
GetCursorPos zb
Me.Move zb.X * 1565, zb.Y * 15350
End If
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'停止拖放
moveit = False
End Sub
Private Sub Image3_Click()
txtid.Text = “”
txtpas.Text = “”
End Sub
Private Sub Image5_Click()
End
End Sub
Private Sub Label4_Click()
'查找数据库中是否有相同名称的用户
txtsql = “select username from 用户权限表 where username='” & Trim(txtid.Text)& “'”
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = txtsql
Adodc1.Refresh
If Adodc1.Recordset.EOF = True Then'如果当前记录位置位于Recordset对象的最后一个记录之后
MsgBox “ 用户名错误！”, vbExclamation + vbOKOnly, “警告”
txtid.Text = “”
txtid.SetFocus
Else
'查找数据库中是否有相同密码的用户
txtsql = “select username from 用户权限表 where paword='” & Trim(txtpas.Text)& “'”
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = txtsql
Adodc1.Refresh
'记录是否为空
If Adodc1.Recordset.EOF = True Then'如果当前记录位置位于Recordset对象的最后一个记录之后
MsgBox “ 密码错误！”, vbExclamation + vbOKOnly, “警告”
txtpas.Text = “”
txtpas.SetFocus
Else
管理员总控.Show
Unload Me
End If
End If
End Sub
Private Sub Label5_Click()
txtid.Text = “”
txtpas.Text = “”
End Sub
Private Sub Label6_Click()
End
End Sub
②编写员工登陆界面的代码：
Private Sub Form_Load()
opt1.Value = False
opt2.Value = False
End Sub
Private Sub Image2_Click()
If opt1.Value = True Then
管理员登录.Show: 登录.Hide
ElseIf opt2.Value = True Then
员工登录.Show: 登录.Hide
End If
End Sub
Private Sub Image6_Click()
'退出程序
End
End Sub
Private Sub Label1_Click()
End
End Sub
（3）建立数据库，将搜索的旅游信息、数据，放入数据库中，与程序进行链接。
（4）运行程序。
3.实验心得
这次实验中我运用了Visual Basic 以及Acce数据库及其与程序的链接等软件，制作出了一个简单的旅游资源管理及路线设计系统。
在这个系统的制作过程中，许多过程是我所不熟识的，所以，系统的制作，对我来说，是一个挑战。同时，我也从中学到好多，比如将零散的知识在系统中运用，让它们体现出自身的价值。再者，我认识到知识只有在实际中才能发挥作用。还有自己知识的短缺。
因此，我会记住这次试验，它让我了解到好多从未发现的东西。在以后的学习中，改变自身的缺点，尽量让这种不足减少或消失。争取以后能熟练的应用VB语言及数据库的应用。
