📄 httz.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form HTTZ
Caption = "房态调整"
ClientHeight = 5625
ClientLeft = 60
ClientTop = 345
ClientWidth = 9900
DrawStyle = 5 'Transparent
Icon = "HTTZ.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5625
ScaleWidth = 9900
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "(&O)确认"
Height = 375
Left = 120
TabIndex = 2
Top = 5040
Width = 1815
End
Begin VB.Frame Frame1
Height = 5340
Left = 2040
TabIndex = 0
Top = 120
Width = 7720
Begin VB.CommandButton Command0
Caption = "Command0"
Height = 975
Index = 0
Left = 120
Style = 1 'Graphical
TabIndex = 1
Top = 240
Width = 1215
End
End
Begin MSComctlLib.TreeView TreeView1
Height = 4665
Left = 120
TabIndex = 3
Top = 220
Width = 1815
_ExtentX = 3201
_ExtentY = 8229
_Version = 393217
LabelEdit = 1
LineStyle = 1
Style = 7
FullRowSelect = -1 'True
SingleSel = -1 'True
ImageList = "ImageList1"
Appearance = 1
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 17
ImageHeight = 15
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HTTZ.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HTTZ.frx":07A2
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HTTZ.frx":0B3E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HTTZ.frx":0EF2
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "HTTZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim RECLC As Recordset
Dim RECHT As Recordset
Dim RECSK As Recordset, RECHJAP As Recordset
Private Sub Combo1_Click()
' LOADFJ
End Sub
Private Sub Command0_Click(Index As Integer)
strhh = left(Command0(Index).Caption, 3)
'检查当前房间是否住客
RECSK.FindFirst ("房号=" & strhh)
If Not RECSK.NoMatch Then
MsgBox "当前房间已住客,不能调整!", vbCritical, "提示信息"
Exit Sub
Else
RECHJAP.FindFirst ("房号=" & strhh)
If Not RECHJAP.NoMatch Then
MsgBox "当前房间已住客,不能调整!", vbCritical, "提示信息"
Exit Sub
End If
End If
'调整房态
RECHT.FindFirst ("房号=" & strhh)
If Not RECHT.NoMatch Then
RECHT.Edit
If RECHT("房态") = "空房" Then
RECHT("房态") = "在住"
Else
If RECHT("房态") = "在住" Then
RECHT("房态") = "走房"
Else
If RECHT("房态") = "走房" Then
RECHT("房态") = "维修"
Else
RECHT("房态") = "空房"
End If
End If
End If
Else
MsgBox "查无此房!", vbCritical, "系统错误"
End If
RECHT.Update
If RECHT("房态") = "空房" Then Command0(Index).Picture = LoadPicture(App.Path & "\空房.ICO")
If RECHT("房态") = "走房" Then Command0(Index).Picture = LoadPicture(App.Path & "\走房.ICO")
If RECHT("房态") = "在住" Then Command0(Index).Picture = LoadPicture(App.Path & "\在住.ICO")
If RECHT("房态") = "维修" Then Command0(Index).Picture = LoadPicture(App.Path & "\维修.ICO")
' Command0(Index).Caption = RECHT("房号") & " " & RECHT("房态")
Command0(Index).Caption = RECHT("房号") & " " & RECHT("类型") & " " & RECHT("房态")
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Activate()
TreeView1.Nodes(1).Selected = True
LOADFJ
TreeView1.SetFocus
End Sub
Private Sub Form_Load()
Dim RECHT_1 As Recordset
Dim TEMPNODE As Node
Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
Set RECLC = DATJDGL.OpenRecordset("楼层", dbOpenDynaset)
Set RECHT = DATJDGL.OpenRecordset("房间状态", dbOpenDynaset)
Set RECSK = DATJDGL.OpenRecordset("散客登记表", dbOpenDynaset)
Set RECHJAP = DATJDGL.OpenRecordset("团会房间安排", dbOpenDynaset)
RECLC.MoveLast
If RECLC.RecordCount <= 0 Then
MsgBox "您还没有在本系统中设置有效的房间!", vbCritical, "提示信息"
Unload Me
End If
RECLC.MoveFirst
TreeView1.Nodes.Clear
Set TEMPNODE = TreeView1.Nodes.Add(, , "A一楼", "一楼", 1, 2)
Set TEMPNODE = TreeView1.Nodes.Add(, , "A二楼", "二楼", 1, 2)
Set TEMPNODE = TreeView1.Nodes.Add(, , "A三楼", "三楼", 1, 2)
Set TEMPNODE = TreeView1.Nodes.Add(, , "A四楼", "四楼", 1, 2)
Set TEMPNODE = TreeView1.Nodes.Add(, , "A五楼", "五楼", 1, 2)
Set TEMPNODE = TreeView1.Nodes.Add(, , "A六楼", "六楼", 1, 2)
Set TEMPNODE = TreeView1.Nodes.Add(, , "A七楼", "七楼", 1, 2)
Set TEMPNODE = TreeView1.Nodes.Add(, , "A八楼", "八楼", 1, 2)
End Sub
Private Sub Form_Unload(Cancel As Integer)
DATJDGL.Close
End Sub
Private Sub LOADFJ()
For l = Command0.Count - 1 To 1 Step -1
Unload Command0(l)
Next l
RECHT.Filter = "TRIM(楼层)='" & TreeView1.SelectedItem.Text & "'"
Set RECHT_1 = RECHT.OpenRecordset(, dbOpenDynaset)
W = 0
H = 0
If RECHT_1.RecordCount > 0 Then
RECHT_1.MoveFirst
Else
Command0(0).Visible = False
End If
Do While Not RECHT_1.EOF
If S <> 0 Then
Load Command0(S)
End If
Command0(S).Visible = True
Command0(S).left = Command0(0).left + 1250 * W
Command0(S).top = Command0(0).top + 1000 * H
If RECHT_1("房态") = "空房" Then Command0(S).Picture = LoadPicture(App.Path & "\空房.ICO")
If RECHT_1("房态") = "走房" Then Command0(S).Picture = LoadPicture(App.Path & "\走房.ICO")
If RECHT_1("房态") = "在住" Then Command0(S).Picture = LoadPicture(App.Path & "\在住.ICO")
If RECHT_1("房态") = "维修" Then Command0(S).Picture = LoadPicture(App.Path & "\维修.ICO")
Command0(S).Caption = RECHT_1("房号") & " " & RECHT_1("类型") & " " & RECHT_1("房态")
S = S + 1
W = W + 1
If W = 6 Then
H = H + 1
W = 0
End If
RECHT_1.MoveNext
Loop
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
LOADFJ
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -