form2.frm

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

  Me.MSFlexGrid1.Rows = 5
  Me.MSFlexGrid1.Cols = 10
    
  Me.MSFlexGrid1.RowHeightMin = 1200
    
  For i = 0 To 9
    Me.MSFlexGrid1.ColWidth(i) = 1200
  Next i
  
  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_MouseUp(Button As Integer, _
                                Shift As Integer, _
                                x As Single, _
                                y As Single)

  If Button = 2 Then
        
  End If

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

  iRow = Me.MSFlexGrid1.Row
  iCol = Me.MSFlexGrid1.Col
    
  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()
  ShowRoomStatus
  ShowRoomCount
End Sub