For i = 0 To 9
        
    Me.MSFlexGrid1.ColAlignment(i) = flexAlignCenterBottom
  Next i
    
  ShowRoomStatus

  ShowRoomCount

End Sub

Private Sub Menu_Code_Click()
  FMPwd.Show
End Sub

Private Sub Menu_Close_Open_Click()
  FMOpenRoom.Show
End Sub

Private Sub Menu_Destine_Cancel_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMCancelDestine.CombRoomID.Text = strRoomID
  '    FMDestine.Label1 = 10 * iRow + iCol + 1
  'FMDestine.ShowRoomInfo
  FMCancelDestine.Show vbModal, Me
End Sub

Private Sub Menu_Destine_Open_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMOpenRoom.CombRID = strRoomID
  FMOpenRoom.ShowRoomInfo
  FMOpenRoom.Show vbModal, Me
End Sub

Private Sub Menu_Empty_Destine_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMDestine.CombRoomID = strRoomID
  '    FMDestine.Label1 = 10 * iRow + iCol + 1
  FMDestine.ShowRoomInfo
  FMDestine.Show vbModal, Me
End Sub

Private Sub Menu_Empty_Open_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMOpenRoom.CombRID = strRoomID

  FMOpenRoom.ShowRoomInfo
  FMOpenRoom.Show vbModal, Me
End Sub

Private Sub Menu_Empty_Repair_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMRepair.Combo1 = strRoomID
  'FMRepair.Label1 = 10 * iRow + iCol + 1
  'FMRepair.ShowRoomInfo
  FMRepair.Show vbModal, Me
End Sub

Private Sub Menu_GoodsSale_check_Click()
  FMCheck.Show
End Sub

Private Sub Menu_GoodsSale_Destine_Click()
  FMDestine.Show
End Sub

Private Sub Menu_GoodsSale_OpenRoom_Click()
  FMOpenRoom.Show
End Sub

Private Sub Menu_Info_Client_Click()

End Sub

Private Sub Menu_GoodsSale_Repair_Click()
  FMRepair.Show
End Sub

Private Sub Menu_GoodsSale_Sweep_Click()
  FMSweep.Show
End Sub

Private Sub Menu_Info_Member_Click()
  FMMemberInfo.Show

End Sub

Private Sub Menu_Info_RoomInfo_Click()
  FMRoomInfo.Show
End Sub

Private Sub Menu_Query_Client_Click()
  FMMemberQuery.Show
End Sub

Private Sub Menu_Query_Room_Click()
  FMRoomQuery.Show

End Sub

Private Sub Menu_Query_Tab_Click()
  FMCheckQuery.Show
End Sub

Private Sub Menu_Quit_Click()
  Dialog.Show
        
End Sub

Private Sub Menu_RoomInfo_Click()
  FMRoomInfo.Show
End Sub

Private Sub Menu_User_Click()
  FMUser.Show
End Sub

Private Sub OpenRoom_Click()
  FMOpenRoom.Show
End Sub

Private Sub RoomInfo_Click()
  FMRoomInfo.Show
End Sub

Private Sub Menu_Repair_after_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMRepairAfter.Combo1 = strRoomID
  'FMRepair.Label1 = 10 * iRow + iCol + 1
  'FMRepair.ShowRoomInfo
  FMRepairAfter.Show vbModal, Me
End Sub

Private Sub Menu_Repair_Sweep_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMSweep.CombRoomID.Text = strRoomID
  'FMRepair.Label1 = 10 * iRow + iCol + 1
  'FMRepair.ShowRoomInfo
  FMSweep.Show vbModal, Me
End Sub

Private Sub Menu_RoomManage_DestineTable_Click()
  FMDestineTable.Show
End Sub

Private Sub Menu_RoomManage_OpenRoomTable_Click()
  FMOpenRoomTable.Show
End Sub

Private Sub Menu_RoomManage_RepairTable_Click()
  FMRepairTable.Show
End Sub

Private Sub Menu_Sweep_After_Click()
  Dim Str As String
  Dim iRoomID As Integer
  Dim strRoomID As String

  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  Str = "update RoomInfo set RoomState='空房' where RoomID='" & strRoomID & "'"
  g_DBConn.Execute Str
    
End Sub

Private Sub Menu_Sweep_Repair_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMRepair.Combo1 = strRoomID
  'FMRepair.Label1 = 10 * iRow + iCol + 1
  'FMRepair.ShowRoomInfo
  FMRepair.Show vbModal, Me
End Sub

Private Sub Menu_System_Code_Click()
  FMPwd.Show
End Sub

Private Sub Menu_System_User_Click()
  FMUser.Show
End Sub

Private Sub Menu_System_UserPower_Click()
  FMUserPower.Show
End Sub

Private Sub Menu_System_UserQuery_Click()
  FMUserQuery.Show
End Sub

Private Sub Menu_Use_Check_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String

  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMCheck.CombRID.Text = strRoomID
   
  FMCheck.Show vbModal, Me
End Sub

Private Sub Menu_Use_Repair_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMRepair.Combo1 = strRoomID
  'FMRepair.Label1 = 10 * iRow + iCol + 1
  'FMRepair.ShowRoomInfo
  FMRepair.Show vbModal, Me
End Sub

Private Sub Menu_Use_Sweep_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  iRoomID = 10 * iRow + iCol + 1

  If iRoomID < 10 Then
    strRoomID = "0" & iRoomID
  ElseIf iRoomID < 100 And iRoomID >= 10 Then
    strRoomID = iRoomID
  End If

  FMSweep.CombRoomID.Text = strRoomID
  'FMRepair.Label1 = 10 * iRow + iCol + 1
  'FMRepair.ShowRoomInfo
  FMSweep.Show vbModal, Me
End Sub

Private Sub MSFlexGrid1_EnterCell()
  iRow = Me.MSFlexGrid1.Row
  iCol = Me.MSFlexGrid1.Col

End Sub

Private Sub MSFlexGrid1_MouseUp(Button As Integer, _
                                Shift As Integer, _
                                X As Single, _
                                Y As Single)

  m_MouseButton = Button
  With Me.MSFlexGrid1
    '如果是左鍵的話,那么m_bMouseInCurCell一定是True
    m_bMouseInCurCell = True
    '右鍵時根據鼠標位置判斷
    If m_MouseButton = vbRightMouseButton Then
      If (X > .CellLeft And X < .CellLeft + .CellWidth) And _
        (Y > .CellTop And Y < .CellTop + .CellHeight) Then
          m_bMouseInCurCell = True
      Else
          m_bMouseInCurCell = False
      End If
    End If
  End With

End Sub

Private Sub MSFlexGrid1_Click()
  Dim iRoomID As Integer
  Dim strRoomID As String
  Dim dr As New ADODB.Recordset
  Dim Str As String
  Dim dc As Connection
  Dim iRecord As Integer
  Dim i  As Integer
  Dim strRoomState As String
  
  If m_MouseButton <> vbRightMouseButton Then
    Exit Sub
  End If
  
  If m_MouseButton = vbRightMouseButton _
    And m_bMouseInCurCell = False Then
    Exit Sub
  End If
     
  If (iRow >= 0 And iRow <= 9 And iCol >= 0 And iCol <= 9) Then
    iRoomID = 10 * iRow + iCol + 1

    If iRoomID < 10 Then
      strRoomID = "0" & iRoomID
    ElseIf iRoomID < 100 And iRoomID >= 10 Then
      strRoomID = iRoomID
    End If

    Str = "select RoomState from RoomInfo where RoomID = '" & strRoomID & "'"
    dr.Open Str, g_DBConn, adOpenStatic, adLockOptimistic
    
    iRecord = dr.RecordCount
        
    For i = 0 To iRecord

      If dr.EOF Then
        Exit Sub
      End If

      strRoomState = Trim(dr("RoomState").Value)
        
      Select Case strRoomState

        Case "空房"
          Me.PopupMenu Me.Menu_Empty, vbPopupMenuLeftAlign Or vbPopupMenuLeftButton

        Case "占用"
          Me.PopupMenu Me.Menu_Use, vbPopupMenuLeftAlign Or vbPopupMenuLeftButton

        Case "維修"
          Me.PopupMenu Me.Menu_Repair, vbPopupMenuLeftAlign Or vbPopupMenuLeftButton

        Case "預定"
          Me.PopupMenu Me.Menu_Destine, vbPopupMenuLeftAlign Or vbPopupMenuLeftButton

        Case "打掃"
          Me.PopupMenu Me.Menu_Sweep, vbPopupMenuLeftAlign Or vbPopupMenuLeftButton
      End Select
        
      dr.MoveNext
    Next i

  End If

  dr.Close
End Sub

Private Sub Timer1_Timer()
  Dim iCol As Integer
  Dim iRow As Integer
  iCol = MSFlexGrid1.Col
  iRow = MSFlexGrid1.Row
  '禁止控件更新, 防止閃爍
  LockWindowUpdate (Me.MSFlexGrid1.hwnd)
  ShowRoomStatus
  MSFlexGrid1.Col = iCol
  MSFlexGrid1.Row = iRow
  '恢復控件更新
  LockWindowUpdate (0)
  
  ShowRoomCount
End Sub