数据库技术及应用课程设计项目设计报告说明书之中国旅游景点查询系统.docVIP

数据库技术及应用课程设计项目设计报告说明书之中国旅游景点查询系统 《中国旅游信息查询系统》项目报告 同济大学 《数据库技术及应用》 实验报告 实验报告题目： 中国旅游景点查询系统 小组成员： 陈晶晶（042411），李珊(042121) 班级： 数据库（ 三 ）班 姓名：学号： 年级： 04级 专业：工程管理 指导教师： 袁科萍 日期： 2007年 年 01 月 04 日 第 1 页 共 74 页 《中国旅游信息查询系统》项目报告 一， 项目设计背景及意义 众所周知，中国是一个旅游大国，九百六十万平方公里的广大土地以及不同的地貌特征造就了中国丰富的旅游资源，上下五千年的历史文化积淀也给中国赋予了博大精深的文化底蕴。 近年来，随着市场经济的进一步发展以及2008年北京奥运会的临近，中国的世界旅游大国地位已经势在必得。为此，我们特开发了此套“中国旅游信息查询系统”，希望通过自己的探索，努力开发出一套合理可行、丰富高效且人性化程度高的查询系统，以便提供更丰富、更全面的旅游信息给游客。我们希望，这套系统一方面可以促进全国旅游事业的进一步发展，另一方面也为人们展示出中国的博大精深和动人魅力，为中国全球化、外国友人进一步了解中国打下一定的基础。 二， 数据库设计 E-R图，具体图形见下： 第 2 页 共 74 页 《中国旅游信息查询系统》项目报告 《中国旅游信息查询系统》项目报告 三， 具体功能展示 一、 启动窗体 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 amp; quot;\数据库图片\景点图片\0001.jpgquot;) Dim t As Integer Logintype(1) = quot;普通用户quot; Logintype(2) = quot;数据库管理员quot; For t = 1 To 2 ComboBox1.Items.Add(Logintype(t)) Next TextBox2.PasswordChar = quot;*quot; 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(quot;integrated security=SSPI;data source=33a6737336b14af;persist security info=True;initial catalog=mybelovedquot;) 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 = quot;login_proc;1quot; ElseIf Int(ComboBox1.SelectedIndex) = 1 Then .CommandText = quot;login_proc;2quot; End If End With Dim para_name As SqlClient.SqlParameter = cmdSQLSERVER.Parame