《中国旅游信息查询系统》项目报告
xxx大学
《数据库技术及应用》
实验报告
实验报告题目：
中国旅游景点查询系统
小组成员：
xxx
班级： xxx
姓名： xx 学号： xx 年级： xxx 专业：xxx 指导教师： xxx 日期： xxx年 年 xxx 月 xxx 日
第 1 页 共 73 页
《中国旅游信息查询系统》项目报告
一， 项目设计背景及意义
众所周知，中国是一个旅游大国，九百六十万平方公里的广大土地以及不同的地貌特征造就了中国丰富的旅游资源，上下五千年的历史文化积淀也给中国赋予了博大精深的文化底蕴。
近年来，随着市场经济的进一步发展以及2008年北京奥运会的临近，中国的世界旅游大国地位已经势在必得。为此，我们特开发了此套“中国旅游信息查询系统”，希望通过自己的探索，努力开发出一套合理可行、丰富高效且人性化程度高的查询系统，以便提供更丰富、更全面的旅游信息给游客。我们希望，这套系统一方面可以促进全国旅游事业的进一步发展，另一方面也为人们展示出中国的博大精深和动人魅力，为中国全球化、外国友人进一步了解中国打下一定的基础。
二， 数据库设计
E-R图，具体图形见下：
第 2 页 共 73 页
《中国旅游信息查询系统》项目报告
ID provinceID 1 省，直辖市，自治区 Province province 隶属 N 城市 City cityID 1 隶属 SceneID N SceneCityID 景点 SceneLocatioSceneCity 1 隶属 隶属 Scene SceneNearby SceneComm1 隶属 SceneDescriptSceneName father ID city 1 N SceneID 景点图片 ScenePictureScenePicture N 饭店 Restaurant 饭店架构同酒店架构 HotelID SceneID N HotelFee 酒店 Hotel HotelLocation HotelName HotelDescripti 第 3 页 共 73 页 HotelComent
《中国旅游信息查询系统》项目报告
三， 具体功能展示
一、 启动窗体
Imports System Imports System.Data
Imports System.Data.SqlClient Private dsDataSet As New DataSet
Private daAdapter As New SqlDataAdapter Private dvDataView As New DataView
Private Logintype(3) As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox1.Focus()
Label3.Image = Image.FromFile(Application.StartupPath & \数据库图片\\景点图片\\0001.jpg\ Dim t As Integer
Logintype(1) = \普通用户\ Logintype(2) = \数据库管理员\ For t = 1 To 2
ComboBox1.Items.Add(Logintype(t)) Next
TextBox2.PasswordChar = \ ComboBox1.SelectedIndex = 0 End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnSQLServer As New SqlConnection(\source=33a6737336b14af;persist security info=True;initial catalog=mybeloved\ dsDataSet = New DataSet
Dim cmdSQLSERVER As New SqlCommand Dim para_SQL As New SqlParameter With cmdSQLSERVER
.Connection = cnSQLServer
.CommandType = CommandType.StoredProcedure If Int(ComboBox1.SelectedIndex) = 0 Then .CommandText = \
ElseIf Int(ComboBox1.SelectedIndex) = 1 Then .CommandText = \ End If End With
Dim para_name As SqlClient.SqlParameter = cmdSQLSERVER.Parameters.Add(\System.Data.SqlDbType.Char, 10)
para_name.Value = TextBox1.Text
第 4 页 共 73 页
《中国旅游信息查询系统》项目报告
Dim para_psw As SqlClient.SqlParameter = cmdSQLSERVER.Parameters.Add(\System.Data.SqlDbType.Char, 15) para_psw.Value = TextBox2.Text
para_SQL = cmdSQLSERVER.Parameters.Add(\ para_SQL.Direction = ParameterDirection.ReturnValue para_SQL.SqlDbType = SqlDbType.Int
Dim daAdapter2 As New SqlDataAdapter(cmdSQLSERVER)
Try
daAdapter2.Fill(dsDataSet) Catch osqlexception As SqlException
MsgBox(\ End Finally End Try
Dim switch As Integer
If cmdSQLSERVER.Parameters(\Then
switch = MsgBox(\用户名错误！\错误提示！\ If switch = MsgBoxResult.OK Then TextBox1.Text = \ TextBox2.Text = \ TextBox1.Focus() End If End If
If cmdSQLSERVER.Parameters(\Then
switch = MsgBox(\用户密码错误！\错误提示！\ If switch = MsgBoxResult.OK Then TextBox2.Text = \ TextBox2.Focus() End If End If
If cmdSQLSERVER.Parameters(\Then
If Int(ComboBox1.SelectedIndex) = 0 Then Me.Hide() frm6.Show()
frm6.TextBox1.Text = TextBox1.Text frm6.TextBox2.Text = TextBox2.Text TextBox1.Text = \ TextBox2.Text = \ Dim j As Integer
第 5 页 共 73 页