VB酒店客房管理系统数据流图+ER图+功能模块图第一章、系统概述1.1项目研究的意义第二章、系统需求分析2.1编写目的……………………………………………………………12.2开发背景……………………………………………………………22.3参考资料……………………………………………………………22.4任务概述2.4.1实现目标…………………………………………………………22.4.2运行环境…………………………………………………………32.3条件限制……………………………………………………………32.5数据描述2.5.1信息需求…………………………………………………………32.5.2处理需求…………………………………………………………32.6数据流图……………………………………………………………42.7数据字典……………………………………………………………62.8功能需求2.8.1功能模块…………………………………………………………62.8.2系统主要功能描述………………………………………………72.9性能需求2.9.1数据精度…………………………………………………………72.9.2时间特性…………………………………………………………72.10 运行需求 …………………………………………………………72.11 其他要求 …………………………………………………………7第三章、数据库概念结构设计3.1E-R图 ………………………………………………………………83.1.1 局部E-R图 ………………………………………………………83.1.2总E-R图 …………………………………………………………9第四章、数据库的逻辑结构设计（详细设计）4.1关系模式………………………………………………………………104.2基本表…………………………………………………………………104.3接口设计………………………………………………………………12第五章、系统的实现与调试5.1系统流程设计…………………………………………………………13第六章 系统的界面设计及源代码6.1登陆窗口界面及代码…………………………………………………146.2系统主窗口界面………………………………………………………156.3.住宿管理设计…………………………………………………………196.3.1住宿登记……………………………………………………………196.3.2追加押金……………………………………………………………256.3.3调房登记……………………………………………………………286.3.4退房结帐……………………………………………………………316.4客房管理………………………………………………………………366.4.1客房设置……………………………………………………………366.4.2.客房查询……………………………………………………………386.4.3.房态查看……………………………………………………………396.5挂帐管理………………………………………………………………416.6查询统计………………………………………………………………426.6.1.住宿查询……………………………………………………………426.6.2退宿查询……………………………………………………………426.6.3宿费提醒……………………………………………………………436.7日结设计………………………………………………………………446.7.1客房销售报表………………………………………………………446.8系统设置………………………………………………………………466.8.1操作员设置…………………………………………………………466.8.2密码设置……………………………………………………………476.8.3权限设置……………………………………………………………321 [10] ... >> 酒店客房管理系统系统的界面设计及源代码 6.1系统登陆窗口界面Dim TIM As Integer ''定义一个整型变量Dim myval As String ''定义一个字符串变量Private Sub Form_Load() ''自动识别数据库路径 Data1.DatabaseName = App.Path & "\KFGL.mdb" Data2.DatabaseName = App.Path & "\KFGL.mdb"End SubPrivate Sub Form_Activate()''当记录为零时，进入系统具有所有权限 If Data1.Recordset.RecordCount = 0 Then MsgBox ("请先设置操作员密码和权限！") Load main main.Show Unload Me Else Text1.SetFocus End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus ''按回车键，text2获得焦点End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Cmd1.SetFocus ''按回车键cmd1获得焦点If KeyCode = vbKeyUp Then Text1.SetFocusIf KeyCode = vbKeyDown Then Cmd1.SetFocusEnd SubPrivate Sub cmd1_Click() main.StatusBar1.Panels(4).Text = Text1.Text ''赋值给main.StatusBar1.Panels(4).Text ''验证操作员及密码 If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst Data2.Recordset.FindFirst "操作员 like " + Chr(34) + Text1.BoundText + Chr(34) + "" If Data2.Recordset.NoMatch Then MsgBox ("操作员输入错误!") Else Data1.RecordSource = "select * from qxsz where 操作员=''" & Text1.BoundText & "''" Data1.Refresh If Text1.BoundText <> "" And Text2.Text <> "" And Text2.Text = Data1.Recordset.Fields("密码") Then Load main main.Show Unload Me Else If TIM = 3 Then ''密码输错3次，退出系统 myval = MsgBox("密码输入错误,请向系统管理员查询!", 0, "") If myval = vbOK Then End End If If Text1.BoundText = "" Then MsgBox ("请输入操作员!") Text1.SetFocus Else If Text1.BoundText <> Data1.Recordset.Fields("操作员") Then MsgBox ("查无此操作员,请重新输入操作员!") Text1.SetFocus Else If Text2.Text = "" Then MsgBox ("请输入操作员密码!") Text2.SetFocus Else If Text2.Text <> Data1.Recordset.Fields("密码") Then MsgBox ("密码错误,请重新输入密码!") TIM = TIM + 1 Text2.SetFocus End If End If End If End If End IfEnd IfEnd SubPrivate Sub cmd2_Click() End6.2系统主程序窗口界面 Private Sub Form_Load() Data1.DatabaseName = App.Path & "\Kfgl.MDB" ''自动识别数据库路径End SubPrivate Sub Form_Activate() ''设置操作员权限 With Data1.Recordset If .BOF = False Then .MoveFirst .FindFirst "操作员 like " + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + "" If .NoMatch Then Else main.zjyj.Enabled = .Fields("追加押金") main.zsdj.Enabled = .Fields("住宿登记") main.Label1.Enabled = .Fields("住宿登记") main.tf.Enabled = .Fields("退宿登记") main.Label2.Enabled = .Fields("退宿登记") main.tfdj.Enabled = .Fields("调房登记") main.kfsz.Enabled = .Fields("客房管理") main.kfcx.Enabled = .Fields("客房查询") main.ftck.Enabled = .Fields("房态查看") main.khjk.Enabled = .Fields("客户结款") main.zscx.Enabled = .Fields("住宿查询") main.Label3.Enabled = .Fields("住宿查询") main.tfcx.Enabled = .Fields("退宿查询") main.sftx.Enabled = .Fields("宿费提醒") main.Label5.Enabled = .Fields("宿费提醒") main.Label4.Enabled = .Fields("客房销售报表") main.xstj.Enabled = .Fields("客房销售统计报表") main.czysz.Enabled = .Fields("操作员设置") main.ma.Enabled = .Fields("密码设置") main.csh.Enabled = .Fields("初始化") main.qxsz.。