中国旅游信息查询系统-项目报告书 - 图文

《中国旅游信息查询系统》项目报告

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 页

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库中国旅游信息查询系统-项目报告书 - 图文在线全文阅读。