要是完成房间编号,房间级别,房间类型,房间价格,是否有人住等信息输入、修改、删除等。该窗体包括四个按钮控件,一个DataGrid控件,一个Frame控件。我们将它保存为"frmRoomInfo.frm".部分代码及截图如下
Private Sub dtgRoomRefresh()
With frmRoomInfo.dtgRoomInfo
'绑定
Set .DataSource = frmMDI.adoRoom
.AllowRowSizing = False
'表头宽度设为两行
.HeadLines = 2
'选择方式为整行选中
.MarqueeStyle = dbgHighlightRow
'不允许修改(设为只读)
.AllowAddNew = False
.AllowDelete = False
.AllowUpdate = False
'第一列标题和宽度
.Columns(0).Caption = "房间编号"
.Columns(0).Width = 60
.Columns(0).AllowSizing = False
'第二列标题和宽度
.Columns(1).Caption = "房间级别"
.Columns(1).Width = 80
.Columns(1).DataFormat.Type = 5
.Columns(1).DataFormat.TrueValue = "标准间"
.Columns(1).DataFormat.FalseValue = "豪华间"
.Columns(1).DataFormat.NullValue = "未知"
.Columns(1).AllowSizing = False
'第三列标题和宽度
.Columns(2).Caption = "房间类型"
.Columns(2).Width = 80
.Columns(2).DataFormat.Type = 5
.Columns(2).DataFormat.TrueValue = "单人间"
.Columns(2).DataFormat.FalseValue = "双人间"
.Columns(2).DataFormat.NullValue = "未知"
.Columns(2).AllowSizing = False
'第四列标题和宽度
.Columns(3).Caption = "房间价格(元)"
.Columns(3).Width = 80
.Columns(3).AllowSizing = False
'.Columns(4).Visible = False
.Columns(4).Caption = "状态"
.Columns(4).Width = 40
.Columns(4).DataFormat.Type = 5
.Columns(4).DataFormat.TrueValue = "在住"
.Columns(4).DataFormat.FalseValue = "空房"
.Columns(4).DataFormat.NullValue = "未知"
.Columns(4).AllowSizing = False
End With
End Sub
Private Sub cmdAddNew_Click()
With frmRoomInfoEdit
'窗体标题
.Caption = "添加新客房"
'清空编号并设为可修改
.txtRoomNo.Locked = False
.txtRoomNo.Text = ""
'默认类型为第一项
If .cboRoomGrade.ListCount = 0 Then
.cboRoomGrade.ListIndex = -1
Else
.cboRoomGrade.ListIndex = 0
End If
'默认为第一项
If .cboRoomType.ListCount = 0 Then
.cboRoomType.ListIndex = -1
Else
.cboRoomType.ListIndex = 0
End If
.txtRoomRate = ""
'显示为模式窗体
.Show vbModal
End With
End Sub
Private Sub cmdDelete_Click()
With frmMDI.adoRoom.Recordset
If .EOF <> True And .BOF <> True Then
If !RoomStatus Then
MsgBox "当前房间有客人居住,您不能删除该房间!", vbOKOnly + vbInformation, "提示"
上一篇:
速途研究院:2014年Q2手机阅读App市场分析报告
下一篇:
问卷调查可以自动生成试卷等,并且只能一个用户登录