VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   3105
   ClientLeft      =   165
   ClientTop       =   780
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3105
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Visible         =   0   'False
   Begin VB.Menu POP1 
      Caption         =   ""
      Begin VB.Menu POP1_1 
         Caption         =   "強制設置該房"
         Begin VB.Menu POP_A0 
            Caption         =   "停租"
         End
         Begin VB.Menu POP_A1 
            Caption         =   "待租"
         End
         Begin VB.Menu POP_A2 
            Caption         =   "出租"
         End
         Begin VB.Menu POP_A3 
            Caption         =   "入住"
         End
      End
      Begin VB.Menu POP1_2 
         Caption         =   "強制復位該房"
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************************
http://www.codesky.net 源碼天空
'***************************************************************************

Private Sub POP_A0_Click() '空房
Call OSD_LISK.TX_房態(0)
End Sub
Private Sub POP_A1_Click() '待租
Call OSD_LISK.TX_房態(1)
End Sub

Private Sub POP_A2_Click() '出租
Call OSD_LISK.TX_房態(2)
End Sub

Private Sub POP_A3_Click() '入住
Call OSD_LISK.TX_房態(3)
End Sub

Private Sub POP1_2_Click()
Call OSD_LISK.強制復位該房
End Sub