SQL课程设计报告.doc

《SQL课程设计报告.doc》由会员分享，可在线阅读，更多相关《SQL课程设计报告.doc（18页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、课程设计报告 课程设计题目： 酒店客房预订管理系统 学 生 姓 名 ： 肖莹 专 业：计算机应用技术班 级 ： 指 导 教 师 ： 李丽华 2014 年 6 月 18 日 一、设计目的与意义本课程设计是信息系统设计的实践性环节之一，是在学习完数据库原理与应用课程后进行的一次全面的综合技术实践。通过数据库课程设计,旨在检验和提高学习数据库的能力,有助于培养学习兴趣。二、设计要求 本次课程设计选择酒店客房预订管理系统为设计题目,要求设计出可适用于酒店客房的预订管理要求.通过本系统，能够实现完成客户预订客房的功能。要求结合课堂所学知识和生活中的信息管理和应用需求，完成本次酒店客房预订管理系统的设计和

2、实现。三、 需求分析 1、市场需求随着人类社会进入信息时代，计算机越来越多地活跃在社会各个领域，成为不可缺少的工具，尤其在管理方面，管理软件的出现使大量繁琐复杂的问题变得简单易行。在人民生活水平提高的同时，餐饮，住宿，娱乐业在服务行业中占有越来越重要的地位。要使在当前酒店行业日趋激烈的竞争中脱颖而出，必须努力发展自己在管理方面的特色，避免传统管理方法的失误，使酒店的信誉以及各个管理方面都能够出现零失误，给管理者和普通的营业员带来操作上的方便，对整个酒店各个方面的业务带来快捷，方便，高效的服务，才是管理软件的成功之处。现今酒店宾馆的规模不断扩大，客户数量急剧增加，有关客户的各种信息也成倍增长，尤

3、其是大量的客房预订信息。面对庞大的信息量，需要有客户信息管理系统来提高客户管理工作的效率。通过这样的系统，可以做到信息的规范管理，科学统计和快速查询，从而减少管理方面的工作量。当前许多酒店正在逐步完善客户信息管理工作，需要一个能满足内部管理需求，提高管理效率的应用系统进行内部管理。许多酒店经过多年的发展，规模不断扩大，客流量成倍增长，积累了大量的客户信息急需进行统一管理以防信息的流失。因此，许多酒店需要一个功能全面的客户信息管理系统来进行管理，以使管理客户信息的工作在该系统的配合下更加高效和便捷。2、用户需求 该酒店预订管理系统使用户能迅速而便捷的了解和查询酒店信息，根据自己的需求来预订房间。

4、一个方便地实现对客房变更、房价及预订信息的自动化操作。 使用该系统全面管理酒店信息，为用户节省时间和人力，更能全面、有效地掌握酒店基本情况，及时获取最新的准确资料和信息。该软件能系统管理酒店的信息，功能与实现方面有相当的针对性和实用性。该系统的主要功能有酒店信息管理,房间类型管理,订单信息管理,业务人员编辑和系统用户管理。四、系统功能模块图根据上述系统功能分析，能得出下面系统软件功能模块图：1 、整体模块分配该系统充分考虑用户的操作简便性，实现快捷操作。它有以下四大模块：（1）订房：按照客户需求，为新客户分配新客房。（2）退订：删除已退客户信息，及时更新客房留存状态，方便新客户入住。（3）客房

5、信息：可以添加新客房，修改客房描述（房间等级，内部设施等），删除客房以及查看所有客房的状态信息。（4）客户信息：可以添加新客户，修改客户信息（客户编号，客户姓名），删除已退订客户信息以及查看所有客户的订房状态信息。2、客户信息子模块（1）新增：录入客户编号、客户姓名等信息（2）更改：更改相应客户的个人信息。（3）删除：删除相应客户的个人信息。（4）查询：查询所需客户的订房信息。（5）显示：显示所有预订客户的个人信息以及预订房号。（6）全删：删除所有客户信息。3 、客房信息子模块（1）新增：录入客房编号、客房描述等相关信息。（2）更改：更改相应客房的信息。（3）删除：删除相应客户及客房的信息。（

6、4）查询：查询所需客房的订房状态。（5）显示：显示所有客房的房号以及预订状态信息。（6）全删：删除所有客房信息。退房五、ER模型登记1111客 房结算账单顾 客mnn1办理业务1服务结算预订n1服务员n1管理1n管理管理员前台接待员预订人1客房编号身份证号地 址年 龄性 别姓 名顾客编号账单编号顾 客身份证号客房编号预订编号姓 名预订人客房价格客房编号客房类型客房状态客房 账单编号前台接待员编号密 码顾客编号姓 名前台接待员密码口令管理员编号姓 名管理员服务员编号姓名服务员消费金额前台接待员编号退房时间入住时间账单编号结算账单实体属性 顾客（顾客编号，姓名，性别，年龄，身份证号，地址，客房编号

7、，账 单编号） 预订人（姓名，身份证号，预订编号，客房编号） 客房（客房编号，客房类型，客房状态，客房价格） 住宿（顾客编号，客房编号，押金，入住时间，退房时间） 前台接待员（前台接待员编号，姓名，账单编号，顾客编号，密码） 管理员（管理员编号，姓名，密码口令） 服务员（服务员编号，姓名） 结算账单（账单编号，消费金额，入住时间，退房时间，前台接待员编 号）六、数据库表1. t_guest(客户信息表)字段名称字段说明类型定义属性限定索引关系（外键）Guestname客户姓名varChar(16)Not fullguesttype客户类型varChar(16)guestid证件号char(18

8、)Primary KeyNot Null主索引T_book.guestidguesttel电话Char(12) 其中，guesttype的默认值为普通客户，表示客户身份。2. t_book（预定客房表）字段名称字段说明类型定义属性限定索引关系（外键）intime入住时间datatimeouttime退房时间datatimeroomid房间号Char(8)Not fullt_room.roomidguestid证件号char(18)t_guest.guestidbookmoney预付款moneyorderno预定号Char(10)Primary KeyNot Null主索引其中，预付款默认值为0

9、，表示没有预付房款。3. t_room(客房信息表) 字段名称字段说明类型定义属性限定索引关系（外键）roomid房间号datatimePrimary KeyNot Null主索引roomtype房间类型Varchar(16)Not nullposition楼层Varchar(20)price价格moneyNot nullstatus房间状态bitNot null其中，房间状态默认值为1,表示房间状态是否为空中的是。4. t_vip（会员信息表）字段名称字段说明类型定义属性限定索引关系（外键）Guestname客户姓名varChar(16)Not fullvipno客户类型Char(8)Pri

10、mary KeyNot Null主索引guestid证件号char(18)t_guest.guestiddiscount优惠度Numeric(2,2)其中，discount的默认值为1，表示优惠额度为0,不优惠。5. t_check（账目表）字段名称字段说明类型定义属性限定索引关系（外键）orderno预订号Char(10)Not fullT_book.ordernoprintno打印号Char(10)Primary KeyNot Null主索引monthly月结varchar(10)days天数Char(8)total总计moneyconsume额外消费money 其中，monthly的默认

11、值为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.SqlClientPublic Class Form1 Dim sql As New SqlConnection(da

12、ta 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

13、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).C

14、olumns(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

15、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

16、 & & _ , , & 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()

17、 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

18、 & , & 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.EventA

19、rgs) 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

20、 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 Int

21、eger 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 = selec

22、t 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(By

23、Val 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.DataS

24、ource = 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

25、 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) Di

26、m 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.guest

27、id=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.DataBinding

28、s.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 St

29、ring = 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)

30、.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

31、) 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 Msg

32、Box(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

33、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(innb) End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal

34、e As System.EventArgs) Handles Button14.Click Dim yujuc As String = select * from t_room where position= & ComboBox3.Text & Dim spqc As SqlDataAdapter spqc = New SqlDataAdapter(yujuc, sql) Dim sjjc As New DataSet() spqc.Fill(sjjc, inna) DataGrid2.DataSource = sjjc.Tables(innc) End SubEnd Class九、设计总结

35、 通过此次数据库的课程设计，真正达到了学与用的结合，增强了对数据库方面应用的理解，对自己今后参与开发数据库系统积累了不少经验，在实验过程中，从建立数据开始，对数据库设计理念及思想上有更高的认识，从需求分析，到概念设计和逻辑设计，E-R图的表示，懂得了不少有关数据库开发过程中的知识，增强了自己在数据库中应用SQL语言的灵活性，其中包括，插入、删除、修改、查询,牵涉表和表之间的联系，主建与外主键的定义，约束项的设置，使逻辑更严密，在学习过程中，我也上网查了不少资料，也看了一些别人设计的旅馆管理信息系统的设计报告，学以致用，自我创新，完成了这份自己的报告，从中在学到用，从用又到学，受益匪浅。东华理工

36、大学课程设计评分表学生姓名： 肖莹 班级： 学号：5课程设计题目：酒店客房预订管理系统项目内容满分实 评选题能结合所学课程知识、有一定的能力训练。符合选题要求（5人一题）10工作量适中，难易度合理10能力水平能熟练应用所学知识，有一定查阅文献及运用文献资料能力10理论依据充分，数据准确，公式推导正确10能应用计算机软件进行编程、资料搜集录入、加工、排版、制图等10能体现创造性思维，或有独特见解10成果质量总体设计正确、合理，各项技术指标符合要求。10说明书综述简练完整，概念清楚、立论正确、技术用语准确、结论严谨合理；分析处理科学、条理分明、语言流畅、结构严谨、版面清晰10设计说明书栏目齐全、合理，符号统一、编号齐全。格式、绘图、表格、插图等规范准确，符合国家标准10有一定篇幅，字符数不少于500010总 分100指导教师评语： 指导教师签名： 年 月 日