?? main_kfgl_ft.frm

?? 星級酒店客房管理系統一套很不錯的系統
?? FRM
?? 第 1 頁 / 共 5 頁
字號:
上一頁 1 2 3 45
    Case "顯示"
        If Registration_Type = "" Then
            Me.Command4.Visible = True
        Else
            Me.Command4.Visible = False
        End If
    End Select
    
    Exit Sub
    
err18:
    MsgBox "操作錯誤,錯誤代碼1018", 48, "提示"
End Sub


Private Sub ListView1_DblClick()
On Error GoTo E200203
    If QAccount_ID = "" Then
        MsgBox "請注意：沒有登記帳號，可能有錯，請通過其他方式查詢！", 48, "提示"
    Else
        Select Case Adodc9.Recordset.Fields("出售方式")
        Case "包房"
            Registration_Type = "顯示"
            Registration_Type2 = Adodc9.Recordset.Fields("當前狀態") & "修改"
            main_kfgl_dl.Show 1
        Case "共享"
            Select Case Adodc9.Recordset.Fields("當前狀態")
            Case "售出"
                Query_Type = "在住客人"
                main_kfgl_krcx.Show 1
            Case "預訂"
                Query_Type = "預訂客人"
                main_kfgl_krcx.Show 1
            
            End Select

        End Select
    End If
    
    Exit Sub
    
E200203:
    MsgBox "請注意：可能重復打開窗口，請先關閉后再查詢！", 64, "提示"
    
End Sub

Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
   
     On Error GoTo err19

    Adodc9.ConnectionString = My_PROVIDER
    Adodc9.CommandType = adCmdText
    Adodc9.RecordSource = "select * from 客房 where 房號 like '" & Item & "'"
    Adodc9.Refresh
    
    Me.Text6.Text = Adodc9.Recordset.Fields("床位數") - Adodc9.Recordset.Fields("住客")
    Me.Text4.Text = IIf(IsNull(Adodc9.Recordset.Fields("床位數")), 0, Adodc9.Recordset.Fields("床位數"))
    Me.Text5.Text = IIf(IsNull(Adodc9.Recordset.Fields("類型")), "", Adodc9.Recordset.Fields("類型"))
    Me.Text3.Text = IIf(IsNull(Adodc9.Recordset.Fields("出售方式")), "", Adodc9.Recordset.Fields("出售方式"))
    
    RoomNO = Item
     If RoomFlag = True Then main_kfgl_dl.F_RoomNo.Text = Item
    Room_Rate = IIf(IsNull(Adodc9.Recordset.Fields("日房價")), 0, Adodc9.Recordset.Fields("日房價"))
    Room_Type = IIf(IsNull(Adodc9.Recordset.Fields("類型")), "", Adodc9.Recordset.Fields("類型"))
    Room_Statu = IIf(IsNull(Adodc9.Recordset.Fields("當前狀態")), "", Adodc9.Recordset.Fields("當前狀態"))
    Room_Share_Type = IIf(IsNull(Adodc9.Recordset.Fields("出售方式")), "", Adodc9.Recordset.Fields("出售方式"))
    QAccount_ID = IIf(IsNull(Adodc9.Recordset.Fields("帳號")), "", Adodc9.Recordset.Fields("帳號"))
    
    CuanWeiShu = IIf(IsNull(Adodc9.Recordset.Fields("床位數")), "", Adodc9.Recordset.Fields("床位數"))
    ZhuKeRenShu = IIf(IsNull(Adodc9.Recordset.Fields("住客")), "", Adodc9.Recordset.Fields("住客"))
    
    'Account_ID = IIf(IsNull(adodc9.Recordset.Fields("帳號")), "", adodc9.Recordset.Fields("帳號"))
    
    'Adodc9.Recordset.Close
    
    Exit Sub
    RoomFlag = False
err19:
    MsgBox "操作錯誤,錯誤代碼1019", 48, "提示"

End Sub

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
   PopupMenu MDIForm1.QuickM
End If
End Sub

Private Sub Option1_Click()
    
    Me.Frame2.Visible = True
    Me.Frame3.Visible = False
    Me.Text1.SetFocus
    
End Sub

Private Sub Option2_Click()

    On Error GoTo err20
    
    Me.Combo1.Clear
    Me.Frame2.Visible = False
    Me.Frame3.Visible = True
    
    Adodc9.ConnectionString = My_PROVIDER
    Adodc9.CommandType = adCmdText
    Adodc9.RecordSource = "select * from 房間狀態"
    Adodc9.Refresh
    If Adodc9.Recordset.RecordCount > 0 Then
        While Not Adodc9.Recordset.EOF
            Me.Combo1.AddItem Adodc9.Recordset.Fields("房間狀態")
            Adodc9.Recordset.MoveNext
        Wend
    End If
    Adodc9.Recordset.Close
    Exit Sub
err20:
    MsgBox "操作錯誤,錯誤代碼1020", 48, "提示"

End Sub

Private Sub Option3_Click()
On Error GoTo err21
    Me.Combo1.Clear
    Me.Frame2.Visible = False
    Me.Frame3.Visible = True
    Me.Combo1.Clear
    Adodc9.ConnectionString = My_PROVIDER
    Adodc9.CommandType = adCmdText
    Adodc9.RecordSource = "select * from 項目編碼 where 編碼 like 'FL%' order by 名稱"
    Adodc9.Refresh
    While Not Adodc9.Recordset.EOF
        Me.Combo1.AddItem Adodc9.Recordset.Fields("名稱")
        If Adodc9.Recordset.Fields("首選項") = "是" Then
            Me.Combo1.Text = Adodc9.Recordset.Fields("名稱")
        End If
        Adodc9.Recordset.MoveNext
    Wend
    Adodc9.Recordset.Close
    
    Exit Sub
    
err21:
    MsgBox "操作錯誤,錯誤代碼1021", 48, "提示"


End Sub

Private Sub Option4_Click()

    On Error GoTo err22

    Dim List_item As ListItem
    Me.Frame2.Visible = False
    Me.Frame3.Visible = False
    
    Adodc9.ConnectionString = My_PROVIDER
    Adodc9.CommandType = adCmdText
    Adodc9.RecordSource = "select * from 客房"
    Adodc9.Refresh
    Me.ListView1.ListItems.Clear
    For i = 0 To 4
        Room(i) = 0
    Next
    While Not Adodc9.Recordset.EOF
        Select Case Adodc9.Recordset.Fields("當前狀態")
        Case "空房"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 1
            Room(0) = Room(0) + 1
        Case "臟房"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 2
            Room(1) = Room(1) + 1
        Case "維修房"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 3
            Room(2) = Room(2) + 1
        Case "售出"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 4
            Room(3) = Room(3) + 1
        Case "預訂"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 5
            Room(4) = Room(4) + 1
        Case Else
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 1
        End Select
        Adodc9.Recordset.MoveNext
        
    Wend
    Adodc9.Recordset.Close
    Me.Label7.Caption = "空房：" & CStr(Room(0))
    Me.Label8.Caption = "臟房：" & CStr(Room(1))
    Me.Label9(0).Caption = "維修：" & CStr(Room(2))
    Me.Label9(1).Caption = "上鎖：" & CStr(Room(6))
    Me.Label10.Caption = "售出：" & CStr(Room(3))
    Me.Label11.Caption = "預訂：" & CStr(Room(4))
    Me.Label12.Caption = "合計：" & CStr(Room(0) + Room(1) + Room(2) + Room(3) + Room(4))
Me.Label13.Caption = "出租：" & (Round(Room(3) / (Room(0) + Room(1) + Room(2) + Room(3) + Room(4)), 2) * 100) & "%"

    Exit Sub
    
err22:
    MsgBox "操作錯誤,錯誤代碼1022", 48, "提示"

End Sub


Private Sub baofan()
    If Room_Statu = "空房" Then
        If Load_Statu = "使用" Then
            Adodc9.ConnectionString = My_PROVIDER
            Adodc9.CommandType = adCmdText
            Adodc9.RecordSource = "select * from 客房 where 房號 like '" & RoomNO & "'"
            Adodc9.Refresh
            Adodc9.Recordset.Fields("當前狀態") = Registration_Type
            Adodc9.Recordset.Fields("出售方式") = "包房"
            Adodc9.Recordset.Fields("帳號") = Account_ID
            Adodc9.Recordset.Fields("住客") = 1
            Adodc9.Recordset.Update
            Adodc9.Recordset.Close
            Room_Update = True
            Unload Me
        End If
    Else
        If Room_Statu = "預訂" Then
            If Account_ID = QAccount_ID Then
                Adodc9.ConnectionString = My_PROVIDER
                Adodc9.CommandType = adCmdText
                Adodc9.RecordSource = "select * from 客房 where 房號 like '" & RoomNO & "'"
                Adodc9.Refresh
                Adodc9.Recordset.Fields("當前狀態") = Registration_Type
                Adodc9.Recordset.Fields("出售方式") = "包房"
                Adodc9.Recordset.Fields("帳號") = Account_ID
                Adodc9.Recordset.Update
                Adodc9.Recordset.Close
                Room_Update = True
                Unload Me
            Else
                MsgBox "請注意：" & RoomNO & "房間當前狀態是：[" & Room_Statu & "]，被[" & QAccount_ID & "]帳號" & Room_Share_Type & "，不能" & Registration_Type & "！", 48, "提示"
                Room_Update = False
            End If
        Else
            If Room_Statu = "售出" Then
                Select Case Room_Share_Type
                Case "共享"
                    MsgBox "請注意：" & RoomNO & "房間當前狀態是：[" & Room_Statu & "]，被[" & QAccount_ID & "]帳號" & Room_Share_Type & "，不能" & Registration_Type & "！", 48, "提示"
                Case "包房"
                    MsgBox "請注意：" & RoomNO & "房間當前狀態是：[" & Room_Statu & "]，被[" & QAccount_ID & "]帳號" & Room_Share_Type & "，不能" & Registration_Type & "！", 48, "提示"
                Case Else
                    MsgBox "房間狀態錯誤，請核查！", 64, "提示"
                End Select
            End If
            Room_Update = False
        End If
    End If

End Sub


Private Sub gongxiang()
    If Room_Statu = "空房" Then
        If Load_Statu = "使用" Then
            Adodc9.ConnectionString = My_PROVIDER
            Adodc9.CommandType = adCmdText
            Adodc9.RecordSource = "select * from 客房 where 房號 like '" & RoomNO & "'"
            Adodc9.Refresh
            Adodc9.Recordset.Fields("當前狀態") = Registration_Type
            Adodc9.Recordset.Fields("出售方式") = "共享"
            Adodc9.Recordset.Fields("住客") = 1
            Adodc9.Recordset.Fields("帳號") = Account_ID
            Adodc9.Recordset.Update
            Adodc9.Recordset.Close
            Room_Update = True
            Unload Me
        End If
    Else
        If Load_Statu = "使用" Then
            Select Case Room_Share_Type
            Case "共享"
                    If ZhuKeRenShu >= CuanWeiShu Then
                        MsgBox RoomNO & "房間已滿，不能再住！", 16, "提示"
                    Else
                        Adodc9.Recordset.Fields("當前狀態") = Registration_Type
                        Adodc9.Recordset.Fields("出售方式") = "共享"
                        Adodc9.Recordset.Fields("住客") = Adodc9.Recordset.Fields("住客") + 1
                        Adodc9.Recordset.Fields("帳號") = Account_ID
                        Adodc9.Recordset.Update
                        Adodc9.Recordset.Close
                        Room_Rate = 0
                        Room_Update = True
                        Unload Me
                    End If
            Case "包房"
                    MsgBox "請注意：" & RoomNO & "房間當前狀態是：[" & Room_Statu & "]，被[" & QAccount_ID & "]帳號" & Room_Share_Type & "，不能" & Registration_Type & "！", 48, "提示"
            Case Else
                    MsgBox "請注意：" & RoomNO & "房間當前狀態是：[" & Room_Statu & "]，被[" & QAccount_ID & "]帳號" & Room_Share_Type & "，不能" & Registration_Type & "！", 48, "提示"
            End Select
        Else
            MsgBox "請注意：" & RoomNO & "房間當前狀態是：[" & Room_Statu & "]，被[" & QAccount_ID & "]帳號" & Room_Share_Type & "，不能" & Registration_Type & "！", 48, "提示"
            Room_Update = False
        End If
    End If

End Sub


Private Sub ReLoadStatu()
Dim List_item As ListItem
    Adodc9.ConnectionString = My_PROVIDER
    Adodc9.CommandType = adCmdText
    Adodc9.RecordSource = "select * from 客房"
    Adodc9.Refresh
    Me.ListView1.ListItems.Clear
    While Not Adodc9.Recordset.EOF
        Select Case Adodc9.Recordset.Fields("當前狀態")
        Case "空房"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 1
        Case "臟房"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 2
        Case "維修房"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 3
        Case "售出"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 4
        Case "預訂"
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 5
        Case Else
            ListView1.ListItems.Add , , Adodc9.Recordset.Fields("房號"), 1
        End Select
        Adodc9.Recordset.MoveNext
    Wend
    Adodc9.Recordset.Close
End Sub
上一頁 1 2 3 45
?? 文件大小 2761 K
?? 上傳用戶 cy_jing
?? 所屬分類酒店行業
??? 相關標簽

#管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? main_kfgl_ft.frm

?? 快捷鍵說明
