33、称varchar6是 表 9 “预定表”的设计: 简称列名数据类型长度是否允许空备注 预定单号预定单号varchar36PK 会员编号会员编号Int4是 客房类型客房类型varchar4 抵店时间抵店时间smalldatetime4 离店时间离店时间smalldatetime4是 单据状态单据状态varchar20是 入住人数入住人数int4是 客房编号客房编号varchar12是 客房价格客房价格money8是 入住价格入住价格money8是 折扣折扣decimal5是 折扣原因折扣原因varchar60是 是否加床是否加床bit1是 加床价格加床价格money8是 预收款预收款money8 。

34、是 预定人预定人varchar20是 预定公司预定公司varchar60是 第 10 页 共 24 页 联系电话联系电话varchar40是 备注备注varchar510是 操作员操作员varchar10是 业务员业务员varchar50是 表 10 “预定单历史”表的设计： 简称列名数据类型长度是否允许空备注 预定单号预定单号varchar36PK 会员编号会员编号Int4是 客房类型客房类型varchar4 抵店时间抵店时间smalldatetime4 离店时间离店时间smalldatetime4是 单据状态单据状态varchar20是 入住人数入住人数int4是 客房编号客房编号varc 。

35、har12是 客房价格客房价格money8是 入住价格入住价格money8是 折扣折扣decimal5是 折扣原因折扣原因varchar60是 是否加床是否加床bit1是 加床价格加床价格money8是 预收款预收款money8是 预定人预定人varchar20是 预定公司预定公司varchar60是 联系电话联系电话varchar40是 备注备注varchar510是 操作员操作员varchar10是 业务员业务员varchar50是 3.2.2 酒店管理系统酒店管理系统 E-R 图图 在该系统中 ，“客房信息”起到关键的作用 ，“客房信息”和其他表间的关 系是 1:N 的关系 。
图 2 为酒 。

36、店管理系统关键实体 E-R 图 。
第 11 页 共 24 页 图 2 酒店管理系统关键实体 E-R 图 4具体具体模块设计模块设计 4.14.1 客房信息设置客房信息设置 4.24.2 预定管理功能预定管理功能 该功能模块实现客人的预定管理 。
能根据实现进行添加、修改、删除、搜 索预定客房信息 。
如需要新增一个客人预定 ， 点击“新增”按钮 ， 在下面填入 相应的入住信息 。
预定单号自动递增生成 。
第 12 页 共 24 页 图8 新增客房预定界面图 图9为新增一个客房预定界面图 ， 为了实现程序的友好性 ， 在查询“客房编 号”时 ， 点击“查询”按钮 ， 即可弹出房间状态为“空”的房间统计表供操作 人员选择 。
这样的设计 。

37、充分体现了程序的友好性 ， 简洁性 。
如图9所示： 图9 查询空房示例图 4.34.3 入住管理功能入住管理功能 该功能实现入住信息的添加、修改和搜索 。
图10为新增入住管理界面 ， 填入相应数据 ， 点击类似如图5“保存”或“取 消”按钮即可保存或取消新增入住管理信息 。
第 13 页 共 24 页 图 10 新增入住管理信息界面 为方便状态为“空”的客房编号的查询 ， 点击查询按钮 ， 即可查询空余的 房间 ， 点击相应房间 ， 客房编号文本框显示相应的客房编号 。
如图11所示： 图 11 查询空余客房编号界面图 其“添加”功能代码为： Public Overrides Sub SaveForAdd() Dim dr As 。

38、 DataRow = DataSet11.Tables(入住单).NewRow() Try dr(入住单号) = txbInId.Text.Trim dr(客房类型) = cbbRoomType.SelectedValue.ToString.Trim dr(抵店时间) = tmArrive.Text.Trim dr(离店时间) = tmLeft.Text.Trim dr(联系电话) = txbPhone.Text.Trim dr(客房编号) = txbRoomCode.Text.Trim dr(客房价格) = txbOriginPrice.Text.Trim dr(入住价格) = txbNow 。

39、Price.Text.Trim dr(折扣) = txbDiscount.Text.Trim dr(折扣原因) = txbReasonDiscount.Text.Trim dr(入住人数) = txbNumber.Text.Trim dr(是否加床) = ckbAddBed.Checked dr(加床价格) = txbAddPrice.Text.Trim dr(电话等级) = cbbPhoneLevel.Text.Trim dr(预收款) = txbBeforMoney.Text.Trim 第 14 页 共 24 页 dr(单据状态) = txbState.Text.Trim dr(预定人)。

40、= txbName.Text.Trim dr(业务员) = txbOperationPeople.Text.Trim dr(操作员) = txbOperator.Text.Trim dr(会员编号) = txbMemberId.Text.Trim dr(预定公司) = txbDestineCompany.Text.Trim dr(早餐) = ckbBreakfast.Checked dr(叫醒) = ckbWakeUp.Checked dr(保密) = ckbSecrecy.Checked dr(vip) = ckbVip.Checked dr(预定单号) = txbId.Text.Trim。

41、dr(特要说明) = txbRemark.Text.Trim Catch ex As Exception MessageBox.Show(数据格式不正确！) Exit Sub End Try Try Dim strTmp As String = txbInId.Text.Trim DataSet11.Tables(入住单).Rows.Add(dr) If Me.DataSet11.HasChanges = True Then SqlDataAdapter1.Update(DataSet11) Dim db As DataBase = New DataBase Dim strSQL As Str 。

42、ing = update 客房信息set 状态=空房 from 客房信息as a,入住单as b where a.客房编号=b.客房编号and b.入住单号= + strTmp + db.RunDelOrInsSQL(strSQL) db.RunDelOrInsSQL(exec sf_保存入住单 + strTmp + ) db.Dispose() End If Catch ex As Exception MessageBox.Show(数据添加失败!) End Try LoadData() dgdList.DataSource = dtData.DefaultView 第 15 页 共 24。

稿源：(未知)

【傻大方】网址：/a/2021/0822/0023896814.html

标题：毕业设计|毕业设计（论文）某小型酒店内部管理系统的研发与应用( 五 )