在此系统中，客房是一个重要的实体，客房实体包含了客房的基本配置信息，以及当前房间状态 ，其E-R图如图3.2所示：
Fig.3.2 the E-R chart of registration rooms table
客人退房时需要对退房信息进行登记，退房登记实体包含人的基本信息以及对房费进行结算登记的信息，退房登记实体的E-R图如图3.3所示：
Fig.3.3 the E-R chart of check registration table
4数据库设计
4.1Microsoft office Access2003简介
Microsoft Access是一种关系式数据库，是由微软公司开发的。关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。表(Table)是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询(Query)可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。窗体(Form) 提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。报表(Report) 的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。宏(Macro) 相当于DOS中的批处理，用来自动执行一系列操作。模块(Module) 的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。 4.2数据库表结构设计
该系统使用了Access数据库，名称为JDGL.mdb，其各表的功能和具体设计结构如下：
4.2.1用户信息表（tb_user）
功能是保存系统的用户数据，其结构如表4.1所示：
表4.1用户信息表
Table4.1The table of user information
字段名称 操作员 密码
4.2.2登记信息表（tb_djb）
功能是用来保存客人住宿时的住宿登记信息，其结构如表4.2所示：
表4.2登记信息表
Table4.2The table of registration information
字段名称 凭证号码 姓名 证件名称 证件号码 详细地址 房间号 客房类型 客房价格 住宿日期 住宿时间 住宿天数 应收宿费 预收金额 提醒日期 退宿日期 备注 标志 数据类型 文本 文本 文本 文本 文本 文本 文本 货币 日期时间 日期时间 数字 货币 货币 日期时间 日期时间 文本 文本 字段大小 20 50 20 20 50 20 10 8 8 8 双精度型 8 8 8 8 50 1 数据类型 文本 文本 字段大小 10 50
日期 时间 退宿时间 提醒时间 摘要 BZ
日期时间 日期时间 日期时间 日期时间 文本 数字 8 8 8 8 200 双精度型 4.2.3客房基础信息表（tb_kf）
功能是用来保存客房基础信息，其结构如表4.3所示：
表4.3客房信息表
Table4.3The table of rooms information
字段名称 房间号 房间类型 价格 房态 标志 备注 配置 使用设置 营业日期
数据类型 文本 文本 货币 文本 是否 文本 文本 文本 日期时间 字段大小 30 50 8 4 1 100 100 10 8 4.2.4退房登记信息表（tb_tfd）
功能是用来保存客人退宿登记信息，其结构如表4.4所示：
表4.4 参考文献信息表
Table4.4The table of check rooms information
字段名称 凭证号码 姓名 数据类型 文本 文本 字段大小 20 50
证件名称 证件号码 详细地址 房间号 客房类型 客房价格 住宿日期 住宿时间 住宿天数 应收宿费 金额总计 预收宿费 退还宿费 退房日期 退房时间 备注 BZ
文本 文本 文本 文本 文本 货币 日期时间 日期时间 数字 货币 货币 货币 货币 日期时间 日期时间 文本 数字 20 20 50 20 10 8 8 8 双精度型 8 8 8 8 8 8 50 双精度型 5系统详细设计与实现
5.1系统公共模块设计
在系统中使用公共模块，可节省系统资源，实现代码重用。在本系统中新建一个Module模块，此模块主要用于共享数据库边接。其中ESQL()函数用于打开到数据库的连接，StrCnn()函数用于返回于一个连接串。公共模块代码如下： Public adocon As New ADODB.Connection '创建ADODB.Connection对象 Public adoRs As New ADODB.Recordset '创建ADODB.Recordset对象 Public Sub Main() '打开数据库连接 adocon.Open
\
Source=\
&
App.Path & \
End Sub
Public Function ESQL(ByVal sql As String) As ADODB.Recordset '定义函数 Dim cnn As ADODB.Connection '定义连接 Dim rs As ADODB.Recordset '定义记录集 Set cnn = New ADODB.Connection '创建连接 cnn.Open StrCnn '打开连接 Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic Set ESQL = rs End Function
Public Function StrCnn() '返回一个数据库连接
StrCnn = \& \End Function 5.2主窗体的设计
在登录窗体对话框中输入正确的操作员和操作员密码后才能进到主窗体。窗体如图5.2所示：
图5.2登录窗体对话框 Fig5.2 Login form dialog box