sql课程设计报告

课程设计报告 课程设计题目： 酒店客房预订管理系统 学 生 姓 名 ： 肖莹 专 业：计算机应用技术 班 级 ： 1240301 指 导 教 师 ： 李丽华 2014 年 6 月 18 日 一、设计目的与意义 本课程设计是信息系统设计的实践性环节之一，是在学习完数据库原理 与应用课程后进行的一次全面的综合技术实践。通过数据库课程设计,旨在检 验和提高学习数据库的能力,有助于培养学习兴趣。 二、设计要求 本次课程设计选择酒店客房预订管理系统为设计题目,要求设计出可适用于 酒店客房的预订管理要求.通过本系统，能够实现完成客户预订客房的功能。要 求结合课堂所学知识和生活中的信息管理和应用需求，完成本次酒店客房预订 管理系统的设计和实现。 3、 需 求 分 析 1、 市 场 需 求 随着人类社会进入信息时代，计算机越来越多地活跃在社会各个领域，成 为不可缺少的工具，尤其在管理方面，管理软件的出现使大量繁琐复杂的问题 变得简单易行。在人民生活水平提高的同时，餐饮，住宿，娱乐业在服务行业 中占有越来越重要的地位。要使在当前酒店行业日趋激烈的竞争中脱颖而出， 必须努力发展自己在管理方面的特色，避免传统管理方法的失误，使酒店的信 誉以及各个管理方面都能够出现零失误，给管理者和普通的营业员带来操作上 的方便，对整个酒店各个方面的业务带来快捷，方便，高效的服务，才是管理 软件的成功之处。 现今酒店宾馆的规模不断扩大，客户数量急剧增加，有关客户的各种信息 也成倍增长，尤其是大量的客房预订信息。面对庞大的信息量，需要有客户信 息管理系统来提高客户管理工作的效率。通过这样的系统，可以做到信息的规 范管理，科学统计和快速查询，从而减少管理方面的工作量。当前许多酒店正 在逐步完善客户信息管理工作，需要一个能满足内部管理需求，提高管理效率 的应用系统进行内部管理。许多酒店经过多年的发展，规模不断扩大，客流量 成倍增长，积累了大量的客户信息急需进行统一管理以防信息的流失。因此， 许多酒店需要一个功能全面的客户信息管理系统来进行管理，以使管理客户信 息的工作在该系统的配合下更加高效和便捷。 2、用户需求 该酒店预订管理系统使用户能迅速而便捷的了解和查询酒店信息，根据自己 的需求来预订房间。一个方便地实现对客房变更、房价及预订信息的自动化操 作。 使用该系统全面管理酒店信息，为用户节省时间和人力，更能全面、有效 地掌握酒店基本情况，及时获取最新的准确资料和信息。该软件能系统管理酒 店的信息，功能与实现方面有相当的针对性和实用性。该系统的主要功能有酒 店信息管理,房间类型管理,订单信息管理,业务人员编辑和系统用户管理。 四、系统功能模块图 根据上述系统功能分析，能得出下面系统软件功能模块图： 1 、整体模块分配 该系统充分考虑用户的操作简便性，实现快捷操作。它有以下四大模块： （1）订房：按照客户需求，为新客户分配新客房。 （2）退订：删除已退客户信息，及时更新客房留存状态，方便新客户入住。 （3）客房信息：可以添加新客房，修改客房描述（房间等级，内部设施等） ，删除客房以及查看所有客房的状态信息。 （4）客户信息：可以添加新客户，修改客户信息（客户编号，客户姓名） ， 删除已退订客户信息以及查看所有客户的订房状态信息。 2、客户信息子模块 （1）新增：录入客户编号、客户姓名等信息 （2）更改：更改相应客户的个人信息。 （3）删除：删除相应客户的个人信息。 （4）查询：查询所需客户的订房信息。 （5）显示：显示所有预订客户的个人信息以及预订房号。 （6）全删：删除所有客户信息。 3 、客房信息子模块 （1）新增：录入客房编号、客房描述等相关信息。 （2）更改：更改相应客房的信息。 （3）删除：删除相应客户及客房的信息。 （4）查询：查询所需客房的订房状态。 （5）显示：显示所有客房的房号以及预订状态信息。 （6）全删：删除所有客房信息。 五、ER 模型 m n n 1 n1 n 1 1 n 111 1 1 1 顾 客 退房 结算账 单 登记客 房 预订 预订人 结算 前台接待 员 管理管理员 办理业 务 管理 服务员 服务 顾 客账单编号 客房编号 地 址 身份证 号 年 龄性 别姓 名 顾客编号 预订人 身份证 号 客房编 号 预订编 号 姓 名 客房价 格 客房编 号 客房类 型 客房状 态 实体属性 顾客（顾客编号，姓名，性别，年龄，身份证号，地址，客房编号， 账 结算账 单 账单编 号 入住时 间 退房时 间 消费金 额 前台接待员编 号 客房 前台接待员 密 码顾客编 号 账单编号姓 名前台接待员编号 管理员 密码口令姓 名管理员编号 服务员 姓名服务员编号 单编号） 预订人（姓名，身份证号，预订编号，客房编号） 客房（客房编号，客房类型，客房状态，客房价格） 住宿（顾客编号，客房编号，押金，入住时间，退房时间） 前台接待员（前台接待员编号，姓名，账单编号，顾客编号，密码） 管理员（管理员编号，姓名，密码口令） 服务员（服务员编号，姓名） 结算账单（账单编号，消费金额，入住时间，退房时间，前台接待员 编 号） 六、数据库表 1.t_guest(客户信息表) 字段名称 字段说明 类型定义 属性限定 索引 关系（外键） Guestname 客户姓名 varChar(16) Not full guesttype 客户类型 varChar(16) guestid 证件号 char(18) Primary Key Not Null 主索引 T_book. guestid guesttel 电话 Char(12) 其中，guesttype 的默认值为普通客户 ，表示客户身份。 2.t_book（预定客房表） 字段名称 字段说明 类型定义 属性限定 索引 关系（外键） intime 入住时间 datatime outtime 退房时间 datatime roomid 房间号 Char(8) Not full t_room.roomid guestid 证件号 char(18) t_guest.guestid bookmoney 预付款 money orderno 预定号 Char(10) Primary Key Not Null 主索引 其中，预付款默认值为0 ，表示没有预付房款。 3.t_room(客房信息表) 字段名称 字段说明 类型定义 属性限定 索引 关系（外键） roomid 房间号 datatime Primary Key Not Null 主索引 roomtype 房间类型 Varchar(16) Not null position 楼层 Varchar(20) price 价格 money Not null status 房间状态 bit Not null 其中，房间状态默认值为1,表示房间状态是否为空中的是 。 4.t_vip（会员信息表） 字段名称 字段说明 类型定义 属性限定 索引 关系（外键） Guestname 客户姓名 varChar(16) Not full vipno 客户类型 Char(8) Primary Key Not Null 主索引 guestid 证件号 char(18) t_guest.guestid discount 优惠度 Numeric(2,2 ) 其 中 ， discount 的 默 认 值 为 1， 表 示 优 惠 额 度 为 0,不 优 惠 。 5.t_check（账目表） 字段名称 字段说明 类型定义 属性限定 索引 关系（外键） orderno 预订号 Char(10) Not full T_book.orderno printno 打印号 Char(10) Primary Key Not Null 主索引 monthly 月结 varchar(10) days 天数 Char(8) total 总计 money consume 额外消费 money 其中，monthly 的默认值为0,表示不月结。 七 、 程 序 清 单 创 建 数 据 库 的 sql 语 句 代 码 如 下 ： 图 7-1 创建数 据库 hotel1 在创建各数据表时，参考了如下的创建顺序：t_guest t_room t_book t_check t_vip ,这样创建符合逻辑思考，且容易创设外键关系。创建各数据 表的具体 sql 代码如下： 图 7-2 创建 t_guest 表 图 7-3 创建 t_room 表 图 7-4 创建 t_book 表 图 7-5 创建 t_check 表 图 7-6 创建 t_vip 表 八、主要代码 Imports System.Data.SqlClient Public Class Form1 Dim sql As New SqlConnection(“data source =zheng- hpsqlexpress;initial catalog =hotel1;integrated security=true“) Dim yuju As String Dim spq As SqlDataAdapter Dim sjj As New DataSet() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim yuju9 As String = “select * from t_room “ Dim spq9 As SqlDataAdapter spq9 = New SqlDataAdapter(yuju9, sql) Dim sjj9 As New DataSet() spq9.Fill(sjj9, “inn1“) ComboBox1.DataSource = sjj9.Tables(“inn1“) ComboBox1.DisplayMember = sjj9.Tables(“inn1“).Columns(0).ToString ComboBox2.DataSource = sjj9.Tables(“inn1“) ComboBox2.DisplayMember = sjj9.Tables(“inn1“).Columns(2).ToString ComboBox3.DataSource = sjj9.Tables(“inn1“) ComboBox3.DisplayMember = sjj9.Tables(“inn1“).Columns(1).ToString ComboBox4.DataSource = sjj9.Tables(“inn1“) ComboBox4.DisplayMember = sjj9.Tables(“inn1“).Columns(0).ToString End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim yuju1 As String = “insert into t_guest values(“ & TextBox1.Text & “,“ & ListBox1.Text & “,“ & TextBox2.Text & “,“ & TextBox3.Text & “)“ Dim yuju2 As String = “insert into t_book values(“ & TextBox2.Text & “,“ & TextBox6.Text & “,“ & ComboBox4.Text & “,“ & TextBox4.Text & “ & _ “, ,“ & TextBox15.Text & “)“ Dim yujuz As String = “update t_room set status=false where roomid=“ & ComboBox4.Text & “ Dim cmmd As New SqlCommand(yuju1, sql) Dim cmmd2 As New SqlCommand(yuju2, sql) Dim i As Integer Dim d As Integer sql.Open() Try i = cmmd.ExecuteNonQuery() d = cmmd2.ExecuteNonQuery() Catch wx As Exception MsgBox(wx.Message) End Try sql.Close() MsgBox(“客户入住成功！“) End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Dim yuju3 As String = “insert into t_vip values(“ & TextBox21.Text & “,“ & TextBox22.Text & “,“ & TextBox23.Text & “,“ & TextBox25.Text & “)“ Dim cmmd3 As New SqlCommand(yuju3, sql) Dim ee As Integer sql.Open() Try ee = cmmd3.ExecuteNonQuery() Catch wx2 As Exception MsgBox(wx2.Message) End Try sql.Close() MsgBox(“欢迎您，尊贵的会员！“) End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click yuju = “select * from t_vip“ spq = New SqlDataAdapter(yuju, sql) spq.Fill(sjj, “001“) DataGrid4.DataSource = sjj.Tables(“001“) End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Dim yuju4 As String = “insert into t_guest values(“ & TextBox5.Text & “,“ & TextBox8.Text & “,“ & TextBox7.Text & “)“ Dim yuju6 As String = “insert into t_book values(“ & TextBox8.Text & “,“ & TextBox9.Text & “,“ & TextBox10.Text & “)“ Dim cmmd4 As New SqlCommand(yuju4, sql) Dim cmmd6 As New SqlCommand(yuju6, sql) Dim ee2 As Integer Dim ee6 As Integer sql.Open() Try ee2 = cmmd4.ExecuteNonQuery() ee6 = cmmd4.ExecuteNonQuery() Catch wx3 As Exception MsgBox(wx3.Message) End Try sql.Close() MsgBox(“预订成功！“) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim yuju7 As String = “select guestname,intime from t_book and t_guest where t_book.guestid=t_guest.guestid and orderno=“ & TextBox14.Text & “ “ Dim spq7 As SqlDataAdapter spq7 = New SqlDataAdapter(yuju7, sql) Dim sjj7 As New DataSet() spq7.Fill(sjj7, “inn“) DataGrid1.DataSource = sjj7.Tables(“inn“) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim yuju8 As String = “select * from t_book and t_guest where t_book.guestid=t_guest.guestid “ Dim spq8 As SqlDataAdapter spq8 = New SqlDataAdapter(yuju8, sql) Dim sjj8 As New DataSet() spq8.Fill(sjj8, “inn3“) DataGrid1.DataSource = sjj8.Tables(“inn3“) End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim yujua As String = “select * from t_room where position=“ & ComboBox2.Text & “ “ Dim spqa As SqlDataAdapter spqa = New SqlDataAdapter(yujua, sql) Dim sjja As New DataSet() spqa.Fill(sjja, “inna“) DataGrid2.DataSource = sjja.Tables(“inna“) End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim yuju9 As String = “select * from t_room “ Dim spq9 As SqlDataAdapter spq9 = New SqlDataAdapter(yuju9, sql) Dim sjj9 As New DataSet() spq9.Fill(sjj9, “inn1“) DataGrid2.DataSource = sjj9.Tables(“inn1“) End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Dim yuju10 As String = “select orderno,bookmoney,discount from t_book , t_vip where t_book.guestid=t_vip.guestid and roomid=“ & TextBox16.Text & “ “ Dim spq10 As SqlDataAdapter spq10 = New SqlDataAdapter(yuju10, sql) Dim sjj10 As New DataSet() spq10.Fill(sjj10, “inn2“) DataGrid2.DataSource = sjj10.Tables(“inn2“) Dim mybind As BindingManagerBase mybind = BindingContext(sjj10, “inn2“) TextBox17.DataBindings.Add(“text“, sjj10.Tables(“inn2“), “orderno“) TextBox18.DataBindings.Add(“text“, sjj10.Tables(“inn2“), “discount“) TextBox19.DataBindings.Add(“text“, sjj10.Tables(“inn2“), “bookmoney“) End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Dim yuju11 As String = “select orderno,bookmoney,discount,intime,bookmoney from t_room and t_vip where t_room.guestid=t_vip.guestid and roomid=“ & TextBox16.Text & “ “ Dim spq11 As SqlDataAdapter spq11 = New SqlDataAdapter(yuju11, sql) Dim sjj11 As New DataSet() spq11.Fill(sjj11, “inn5“) TextBox20.Text = sjj11.Tables(“inn5“).Columns(4).ToString Dim yujus As String = “update t_room set status=true where roomid=“ & TextBox16.Text & “ Dim cmmds As New SqlCommand(yujus, sql) Dim yuju15 As String = “insert into t_check values(“ & TextBox17.Text & “,“ & TextBox20.Text & “,“ & TextBox17.Text & “)“ Dim cmmd15 As New SqlCommand(yuju15, sql) Dim yuju16 As String = “delete from t_book where roomid=“ & TextBox16.Text & “ Dim cmmd16 As New SqlCommand(yuju16,sql) Dim ii As Integer Dim ff As Integer Dim tt As Integer sql.Open() Try ii = cmmds.ExecuteNonQuery() ff = cmmds.ExecuteNonQuery() tt = cmmds.ExecuteNonQuery() Catch wxs As Exception MsgBox(wxs.Message) End Try sql.Close() MsgBox(“退房成功！欢迎再次光临！“) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click Dim yujub As String = “select * from t_room where position=“ & ComboBox1.Text & “ “ Dim spqb As SqlDataAdapter spqb = New SqlDataAdapter(yujub, sql) Dim sjjb As New DataSet() spqb.Fill(sjjb, “innb“) DataGrid2.DataSource = sjjb.Tables