酒店管理系统设计.doc

/smsp1982酒店管理系统设计一 课程设计题目：酒店管理系统苏晓冬 20064250 杨 宇 20064270 宣张敏 20064236二.背景：现代化的酒店是集客房、餐饮、通讯及其他各种服务与设施为一体化的消费场所，酒店组织庞大，服务项目多，信息量大，要想提高劳动生产，降低成本，提高服务质量和管理水平，促进经济效益，必须借助计算机来进行现代化的信息管理。该系统是运用Microsoft SQL server2000数据库和Microsoft Visual Basic6.0编程工具开发实现的。酒店管理系统要实现住宿登记、退房、客房标准管理、客房状态信息管理等。各个模块不同的表实现添加记录、修改记录、删除记录、以及查询显示记录等功能。全面系统地实现了酒店管理信息系统的各项功能。 三.系统需求功能分析 酒店管理子系统由客户管理、房间管理、客户查询、管理员等功能模块组成。酒店管理系统主要实现的功能：（1）客户管理此系统可以完成客户登记，退房结算的功能。（2）房间管理 此系统具有对房间的管理的功能。包括房间状态、添加房间等。（3）客户查询 此系统可完成管理员对客户的信息的查询。包括客户住址、客户编号、身份证号、房间编号等功能。（4）管理员 此系统实现对管理员的功能有：添加和删除。（5）房间编号 此系统可对房间的信息进行查询。包括房间编号、房间状态、房间种类、房间价格等。（6）预订 客户可通过此系统进行房间预订。包括客户信息、预订时间、房间编号等。四.酒店管理系统数据流图如下：五.酒店客房管理系统的系统模块示意图如下：酒店管理系统客户管理房间管理客户查询退房结算客户登记房间状态登陆窗体模块添加房间退出客户住址管理员客户编号身份证号房间编号删除管理员添加管理员六.数据库概念结构设计1. 房间编号实体E-R图如下：房间编号房间编号房间状态房间种类价格2. 管理员实体E-R图如下：管理员管理员帐号密码3. 客户登记实体E-R图如下：客户登记备注身份证号客户住址客户性别入住时间客户单位房间编号客户编号客户名字4. 预订实体E-R图如下：预 订预订时间房间编号客户信息酒店管理系统的实体关系模型（ER模型）图如下：客户登记表管理管理员表住宿预订客房分配住宿登记表房间编号表客房分配NNN111N1七、逻辑设计：将以上的E-R图转换为关系数据模型。该E-R图有4个实体类型，其属性如下所述。.房间编号（编号、房间状态、房间种类、价格）.管理员（管理员帐号、密码）.预订（房间编号、客户信息、预订时间）.客户登记（客户编号、客户名字、客户单位、客户性别、客户住址、身份证号、房间编号、备注、入住时间）系统运行后的部分界面以及代码：代码：Private Sub Command1_Click() frmdenglu.ShowEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() If connecttoserver = True Then MsgBox 连接数据完毕 Else MsgBox no End IfEnd SubPrivate Sub Timer1_Timer() Unload Me midguanli.ShowEnd SubPrivate Sub Command1_Click() If txtid.Text = dd And txtkouling = 123 Then midguanli.Show Else MsgBox 输入ID或密码错误 End If Unload frmtupian Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub代码： Private Sub mnukehubianhao_Click() frmchaxun.ShowEnd SubPrivate Sub mnukehudengji_Click() frmdengji.ShowEnd SubPrivate Sub mnukehuname_Click() frmfangjianmohuchaxun.ShowEnd SubPrivate Sub mnukehunianling_Click() frmfangjianmohuchaxun1.ShowEnd SubPrivate Sub mnukehuzhuzhi_Click() frmchaxun.ShowEnd SubPrivate Sub mnushanchu_Click() frmshanchuguanliyuan.ShowEnd SubPrivate Sub mnushenfenzhenghao_Click() frmchaxun.ShowEnd SubPrivate Sub mnutianjia_Click() frmtianjiafangjian.ShowEnd SubPrivate Sub mnutuichu_Click() Unload MeEnd SubPrivate Sub mnutuifangjiesuan_Click() frmtuifang.ShowEnd SubPrivate Sub mnuzengjia_Click() frmtianjiaguanliyuan.ShowEnd SubPrivate Sub mnuzhuangtai_Click() frmfangjianzhuangtai.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case 登记 Call mnukehudengji_Click Case 退房 Call mnutuifangjiesuan_Click Case 精细查询 Call mnukehuzhuzhi_Click Case 姓名查询 Call mnukehuname_Click Case 年龄查询 Call mnukehunianling_Click Case 增加房间 Call mnutianjia_Click Case 房间状态 Call mnuzhuangtai_Click Case 增加管理员 Call mnuzengjia_Click Case 删除管理员 Call mnushanchu_Click Case 退出系统 Call mnutuichu_Click End SelectEnd Sub代码： Private Sub cmdbaocun_Click() Dim str As String If txtxingming.Text = Empty Then MsgBox 你的输入无效请重新输入 Else str = select * from kehudengji If querydata(str) = True Then rct.AddNew rct.Fields(kehuID).Value = Val(txtid.Text) rct.Fields(kehuname).Value = txtxingming.Text rct.Fields(kehudanwei).Value = txtdanwei.Text rct.Fields(kehunianling).Value = Val(txtnianling.Text) rct.Fields(kehuxingbie).Value = txtxingbie.Text rct.Fields(kehuzhuzhi).Value = txtzhuzhi.Text rct.Fields(shenfenzhenghao).Value = Val(txtshenfenzhenghao.Text) rct.Fields(beizhu).Value = txtbeizhu.Text rct.Fields(ruzhuriqi).Value = txtruzhuriqi.Text rct.Fields(fangjianbianhao).Value = Val(txtbianhao.Text) rct.Update Else MsgBox 提出数据失败! End If str = select * from fangjianbiao where fangjianbianhao= & txtbianhao.Text If querydata(str) = True Then rct.MoveFirst rct.Fields(fangjianzhuangtai).Value = 1 rct.Update Else MsgBox 没有此房间! End If End If txtxingming.Text = txtxingbie.Text = txtid.Text = txtshenfenzhenghao.Text = txtnianling.Text = txtdanwei.Text = txtbianhao.Text = txtzhuzhi.Text = txtruzhuriqi.Text = txtbeizhu.Text = 备注说明：End Sub代码： Private Sub Form_Load() flxzhuangtai.Rows = 1 flxzhuangtai.Cols = 2 flxzhuangtai.Row = 0 flxzhuangtai.Col = 1 flxzhuangtai.Text = 房间编号 Set rct = New ADODB.Recordset rct.Open select * from fangjianbiao, con, adOpenDynamic, adLockOptimistic, -1 While Not rct.EOF flxzhuangtai.AddItem (Empty) flxzhuangtai.Row = flxzhuangtai.Rows - 1 flxzhuangtai.Text = rct!fangjianbianhao If rct!fangjianzhuangtai = 0 Then flxzhuangtai.CellBackColor = &HFF00& Else flxzhuangtai.CellBackColor = &HFF& End If rct.MoveNext WendEnd Sub代码： Private Sub Form_Load() txtid.Text = rct.Fields(kehuID).Value txtxingming.Text = rct.Fields(kehuname).Value txtdanwei.Text = rct.Fields(kehudanwei).Value txtnianling.Text = rct.Fields(kehunianling).Value txtxingbie.Text = rct.Fields(kehuxingbie).Value txtzhuzhi.Text = rct.Fields(kehuzhuzhi).Value txtshenfenzhenghao.Text = rct.Fields(shenfenzhenghao).Value txtbeizhu.Text = rct.Fields(beizhu).Value txtruzhuriqi.Text = rct.Fields(ruzhuriqi).Value txtbianhao.Text = rct.Fields(fangjianbianhao).ValueEnd Sub代码： msfchaxunjieguo.Col = 6 msfchaxunjieguo.Text = 身份证号 msfchaxunjieguo.ColWidth(6) = 1600 msfchaxunjieguo.CellAlignment = flexAlignCenterCenter msfchaxunjieguo.Col = 7 msfchaxunjieguo.Text = 备注 msfchaxunjieguo.ColWidth(7) = 3000 msfchaxunjieguo.CellAlignment = flexAlignCenterCenter msfchaxunjieguo.Col = 8 msfchaxunjieguo.Text = 入住日期 msfchaxunjieguo.ColWidth(8) = 1000 msfchaxunjieguo.CellAlignment = flexAlignCenterCenter msfchaxunjieguo.Col = 9 msfchaxunjieguo.Text = 房间编号 msfchaxunjieguo.ColWidth(9) = 800 msfchaxunjieguo.CellAlignment = flexAlignCenterCenter On Error Resume Next rct.MoveFirst If Err.Number 0 Then Exit Sub Do While Not rct.EOF msfchaxunjieguo.AddItem (Empty) msfchaxunjieguo.Row = msfchaxunjieguo.Rows - 1 msfchaxunjieguo.Col = 0 msfchaxunjieguo.Text = rct.Fields(kehuID).Value msfchaxunjieguo.Col = 1 msfchaxunjieguo.Text = rct.Fields(kehuname).Value msfchaxunjieguo.Col = 2 msfchaxun