1、 订房信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。 结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。 结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。 1.3系统功能模块设计按结构化程序设计思想，当然最终设计考虑到自己的编程水平和能力，分析得出如下系统功能模块图系统设置客房管理住宿管理员工管理消费品管理账务管理关于添加操作员修改密码退出客房设置客房查询客房查看住宿登记调房登
2、记住宿查询退宿查询登录界面添加员工查询员工添加新消费品消费品查询追加押金退宿结账挂账结款开发简介系统简介2.系统运行需求2.1运行环境操作系统：windows2000/xp数据库：ACCESS语言：VB6.02.2尚未问决的问题功能尚不完善，有待于继续开发。2.3功能概述及界面图示1）系统登陆2）系统主框架 系统欢迎界面。3） 系统设置完成对操作员的增加、对密码的更改操作4）客房管理客房设置、客房查询、房态设置功能 房态设置5）住宿管理完成住宿登记、调房登记、住宿查询、退宿查询功能6）员工管理完成添加员工、查询员工功能。7） 消费品管理完成添加新消费品、消费品查询功能8）账务管理完成追加押金、
3、退宿结账、挂账结款功能9）关于完成对系统和开发的介绍3数据库设计数据库设计步骤： 数据库需求分析 数据库概念结构设计 数据库逻辑结构设计首先将宾馆管理信息系统的数据库概念结构转化为ACCESS2003数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下：3.1 表格表djb表gzmx表kf表kfyd表qxsz表tfd表xfp表ygb3.2宾馆管理信息系统几个代表窗口的具体程序实现:房态查询代码实现：Private Sub Form_Activate（） Dim i As Integer 定义一个整型变量 Dim criteria As String 定义一个字符串变量
4、 Dim mydb1 As Database 定义数据库 Dim myrs1 As Recordset 定义字段 Dim myrs2 As Recordset Dim myrs3 As Recordset Set mydb1 = Workspaces（0）.OpenDatabase（App.Path & db.mdb） 定义数据环境 Set myrs1 = mydb1.OpenRecordset（kf, dbOpenSnapshot） 定义数据表 入住房间查询 SQL = select * from kf where kf.房态 like + Chr（34） + 入住 Set myrs2 =
5、mydb1.OpenRecordset（SQL）维修房间查询维修 Set myrs3 = mydb1.OpenRecordset（SQL） For i = 1 To 25 房态显示 criteria = 房间号 = & Command1（i）.Caption & myrs1.FindFirst criteria If myrs1.NoMatch Then Else If myrs1.Fields（房态） = 空房 Then Command1（i）.Picture = LoadPicture（空房 Then Command1（i）.Picture = LoadPicture（App.Path &
6、tupianhappy.bmp）tupiandiamond.bmp End If Next i If Not myrs2.EOF Then myrs2.MoveLast If Not myrs3.EOF Then myrs3.MoveLast Labsy.Caption = myrs2.RecordCount 客房入住数 Labwx.Caption = myrs3.RecordCount 客房维修数 Labkx.Caption = 25 - Val（Labwx.Caption） - Val（Labsy.Caption） 客房空闲数 Labsyl.Caption = Val（Labsy.Capt
7、ion） / 25 * 100 &%客房使用率End SubPrivate Sub Form_Unload（Cancel As Integer） main.Enabled = TruePrivate Sub Command1_Click（Index As Integer） 查询住宿信息 If Index = 0 = 25 Then main_zscx.Data1.RecordSource = select * from djb where 标志=1and 房间号= Command1（Index）.Caption & main_zscx.Data1.Refresh Load main_zscx
8、main_zscx.ShowPrivate Sub Command2_Click（） Unload Me调房登记代码实现：Private Sub Form_Load（）自动识别数据库路径 Data1.DatabaseName = App.Path &db.MDB Data2.DatabaseName = App.Path & Data3.DatabaseName = App.Path & Data4.DatabaseName = App.Path & czy.Text = main.StatusBar1.Panels（4）.Text 赋值给czy.text查询住宿登记信息 Data4.Reco
9、rdSource = Data4.Refresh main.Enabled = True 设置主窗体有效Private Sub DBCombo1_KeyDown（KeyCode As Integer, Shift As Integer） If KeyCode = vbKeyReturn Then Texbz.SetFocus texbz获得焦点Private Sub DBCOMBO2_Change（） If DBCombo2.Text Then Data1.Recordset.FindFirst 房间号= DBCombo2.Text &and 标志= If Data1.Recordset.No
10、Match Then MsgBox （请核准住宿房间和住宿人！ If Data1.Recordset.Fields（客房类型） 0 Then Dim mydb1 As Database查询所有住宿登记信息 Data1.RecordSource = select * from djb Data1.Refresh bh = Data1.Recordset.Fields（ Data1.Recordset.Edit 编辑住宿登记信息 If DBCombo1.Text Then Data1.Recordset.Fields（房间号） = Val（DBCombo1.Text） If Texbz.Text
11、Data3.Recordset.MoveFirst For i = 1 To Data3.Recordset.RecordCount Data3.Recordset.Edit 编辑住宿登记预收信息 Then Data3.Recordset.Fields（ Data3.Recordset.Fields（ Data3.Recordset.Update If Data3.Recordset.EOF = False Then Data3.Recordset.MoveNext编辑客房状态 Data2.Recordset.Edit Data2.Recordset.Fields（ Data2.Records
12、et.Updateselect * from kf Data2.Recordset.FindFirst select * from kf where 房态=设置控件有效或无效 Texxmb.Enabled = False: Texsfz.Enabled = False: DBCombo1.Enabled = False DBCombo2.Enabled = False: Texbz.Enabled = False: Comok.Enabled = False Comcancel.Enabled = False: Comdj.Enabled = True清空数据 DBCombo1.Text =
13、: DBCombo2.Text = Texxmb.Text = Texsfz.Text = Texbz.Text = Texjg.Text = Comdj.SetFocus Comdj获得焦点所选房间已有人入住，请选择空房,再保存!Private Sub comcancel_Click（） 取消操作 DBCombo2.Enabled = True: Comok.Enabled = False:Private Sub comend_Click（）追加押金代码实现：select 凭证号码 from djb where 标志=order by 凭证号码Private Sub DBCombo1_Cha
14、nge（）select * from djb where 凭证号码= If Data1.Recordset.RecordCount 0 Then 当记录大于零时赋值给text2等 Then Text2.Text = Data1.Recordset.Fields（预收金额 Then Text3.Text = Data1.Recordset.Fields（住宿天数 Then Text4.Text = Data1.Recordset.Fields（ Then Text5.Text = Data1.Recordset.Fields（ Then Text6.Text = Data1.Recordset.Fields（客房价格
