酒店管理信息系统毕业设计（论文）
4.2 数据库逻辑结构设计
User表
字段名 UseeName Password Admin 数据类型 必添字段 文本 文本 是\\否
是 否 否 表4-1
说明 用户名 密码 等级，是否是管理员
RoomType表
字段名 RTID RTName RTPrice RTBedCount RTArea RTAirConditioner RTWashroom RTAdsl RTTV 数据类型 文本 文本 货币 数字（整型） 数字（单精度型） 文本 文本 文本 文本 必添字段 是 是 是 否 否 否 否 否 否 否 说明 类型编号 类型名称 单价 床位数 面积 是否有空调 是否有卫生间 是否有宽带 是否有电视 是否有电话 RTTele 文本 表4-2
Room表 字段名 ID Type Posi Director Memo 数据类型 文本 文本 文本 文本 备注 8
必添字段 是 是 否 否 否 说明 房间编号 房间类型名称 楼层 负责人名称 备注 酒店管理信息系统毕业设计（论文）
Putup 是\\否 表 4-3
否 是否被订制 OrderRoom表
字段名 ID RoomID CustomID Customname Discount Indate Sex Memo Outdate Ammount 表4-4
数据类型 自动编号 文本 文本 文本 数字 日期\\时间 文本 备注 日期\\时间 数字 必添字段 是 是 是 是 否 是 否 否 否 否 说明 订房编号 房间编号 顾客身份证号 顾客姓名 折扣 入住日期 性别 备注 离店日期 结算金额 OldOrderRoom表
字段名 ID RoomID CustomID Customname Discount Indate Sex Memo Outdate Ammount 数据类型 自动编号 文本 文本 文本 数字 日期\\时间 文本 备注 日期\\时间 数字 表4-5
9
必添字段 是 是 是 是 否 是 否 否 否 否 说明 订房编号 房间编号 顾客身份证号 顾客姓名 折扣 入住日期 性别 备注 离店日期 结算金额 酒店管理信息系统毕业设计（论文）
4.3创建系统主界面
图4-3-1 “客房管理子系统”主界面设计
4.31系统管理模块
图4-3-2 用户登录窗体
Private Sub CmdCancel_Click() Unload Me End Sub
Private Sub CmdOK_Click() Dim rs As ADODB.Recordset Dim sql As String
10
酒店管理信息系统毕业设计（论文）
Dim msgstr As String Dim grade As Boolean
sql = \* from UserInfo where username = ' \&
txtUserName.Text & \
Set rs = GoSql(sql, msgstr) If Not rs.EOF Then
If txtPassword.Text = rs.Fields(1) Then G_UserName = rs.Fields(0) grade = rs.Fileds(2) If Not grade Then
frmMain.mnuSysAdd.Enabled = False frmMain.mnuSysDele.Enabled = False frmMain.mnuRoomTypeDele.Enabled = False frmMain.mnuRoomInfoDele.Enabled = False End If frmMain.Show Unload Me Else
MsgBox \密码错误,请重新输入!\登录\txtPassword.SetFocus End If Else
MsgBox \无此用户,请重新输入!\登录\txtUserName.SetFocus End If
Set rs = Nothing End Sub
11
酒店管理信息系统毕业设计（论文）
4.32”房间类型管理”模块
图4-3-3”添加房间”窗体
Private Sub Form_load() Call refreshcbort End sub
Sub refreshcbort()
Dim rs as ADODB. Recordset Dim sql as string Dim msg as string Cboroomtype.clear
Sql=”select * from roomtype” Set rs =gosql(sql,msqster)
Do while not rs.eof
Cboroomtype.additem rs.fileds(1) Rs.movenext Loop
If cboroomtype.listcount>0 then Cboroomtype.listindex=0
12