📄 houseinfo.frm
字号:
Height = 735
Index = 15
Left = 3840
Picture = "houseinfo.frx":1F6A2
Style = 1 'Graphical
TabIndex = 25
Top = 1080
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":200E4
Height = 735
Index = 14
Left = 3120
Picture = "houseinfo.frx":20B26
Style = 1 'Graphical
TabIndex = 24
Top = 1080
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":21568
Height = 735
Index = 13
Left = 2400
Picture = "houseinfo.frx":21FAA
Style = 1 'Graphical
TabIndex = 23
Top = 1080
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":229EC
Height = 735
Index = 12
Left = 1680
Picture = "houseinfo.frx":2342E
Style = 1 'Graphical
TabIndex = 22
Top = 1080
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":23E70
Height = 735
Index = 11
Left = 960
Picture = "houseinfo.frx":248B2
Style = 1 'Graphical
TabIndex = 21
Top = 1080
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":252F4
Height = 735
Index = 10
Left = 240
Picture = "houseinfo.frx":25D36
Style = 1 'Graphical
TabIndex = 20
Top = 1080
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":26778
Height = 735
Index = 9
Left = 6720
Picture = "houseinfo.frx":271BA
Style = 1 'Graphical
TabIndex = 19
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":27BFC
Height = 735
Index = 8
Left = 6000
Picture = "houseinfo.frx":2863E
Style = 1 'Graphical
TabIndex = 18
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":29080
Height = 735
Index = 7
Left = 5280
Picture = "houseinfo.frx":29AC2
Style = 1 'Graphical
TabIndex = 17
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":2A504
Height = 735
Index = 6
Left = 4560
Picture = "houseinfo.frx":2AF46
Style = 1 'Graphical
TabIndex = 16
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":2B988
Height = 735
Index = 5
Left = 3840
Picture = "houseinfo.frx":2C3CA
Style = 1 'Graphical
TabIndex = 15
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":2CE0C
Height = 735
Index = 4
Left = 3120
Picture = "houseinfo.frx":2D84E
Style = 1 'Graphical
TabIndex = 14
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":2E290
Height = 735
Index = 3
Left = 2400
Picture = "houseinfo.frx":2ECD2
Style = 1 'Graphical
TabIndex = 13
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":2F714
Height = 735
Index = 2
Left = 1680
Picture = "houseinfo.frx":30156
Style = 1 'Graphical
TabIndex = 12
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":30B98
Height = 735
Index = 1
Left = 960
Picture = "houseinfo.frx":315DA
Style = 1 'Graphical
TabIndex = 11
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command4
BackColor = &H00FFFFFF&
DisabledPicture = "houseinfo.frx":3201C
Height = 735
Index = 0
Left = 240
Picture = "houseinfo.frx":32A5E
Style = 1 'Graphical
TabIndex = 10
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.VScrollBar VScroll1
Height = 4215
Left = 7560
TabIndex = 9
Top = 0
Visible = 0 'False
Width = 255
End
End
End
Begin VB.Frame Frame3
Height = 855
Left = 6720
TabIndex = 5
Top = 120
Width = 1215
Begin VB.CommandButton Command1
Height = 495
Left = 360
Picture = "houseinfo.frx":334A0
Style = 1 'Graphical
TabIndex = 6
Top = 240
Width = 495
End
End
Begin VB.Frame Frame2
Height = 855
Left = 2760
TabIndex = 4
Top = 120
Width = 3855
End
Begin VB.Frame Frame1
Height = 855
Left = 120
TabIndex = 1
Top = 120
Width = 2535
Begin VB.ComboBox Combo1
Height = 315
Left = 960
TabIndex = 3
Text = "Combo1"
Top = 320
Width = 1335
End
Begin VB.Label Label1
Caption = "房间类型:"
Height = 200
Left = 120
TabIndex = 2
Top = 360
Width = 855
End
End
End
Begin VB.Menu mnu_houseset
Caption = "客房设置"
Visible = 0 'False
Begin VB.Menu mnu_showbtn
Caption = "显示图标"
End
Begin VB.Menu showall
Caption = "详细信息"
End
Begin VB.Menu mnu_setxiu
Caption = "设为维修房"
End
Begin VB.Menu mnu_setsao
Caption = "设为清扫房"
End
Begin VB.Menu mnu_setweihao
Caption = "设为维修完毕"
End
Begin VB.Menu mnu_setjinghao
Caption = "设置为清扫完毕"
End
End
Begin VB.Menu mnu_qiehuan
Caption = "窗口切换"
Visible = 0 'False
Begin VB.Menu mnu_show1
Caption = "显示图标"
End
End
Begin VB.Menu mnu_qiehuan2
Caption = "窗口切换2"
Visible = 0 'False
Begin VB.Menu mnu_xiangxi
Caption = "详细信息"
End
End
End
Attribute VB_Name = "houseset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public m_kind As String
Public m_name As String
Private Sub Combo1_Click()
m_kind = Combo1.Text
Call LoadHouse
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command4_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
m_name = Command4(Index).Caption
PopupMenu mnu_houseset
End If
End Sub
Private Sub Form_Load()
'窗口居中
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2 - 550
'初始化表格窗体
MSFlexGrid1.ColWidth(0) = 1000
MSFlexGrid1.ColWidth(1) = 1000
MSFlexGrid1.ColWidth(2) = 1000
MSFlexGrid1.ColWidth(3) = 1000
MSFlexGrid1.ColWidth(4) = 3600
'初始化表格名称
MSFlexGrid1.TextMatrix(0, 0) = "房间号"
MSFlexGrid1.TextMatrix(0, 1) = "床位数"
MSFlexGrid1.TextMatrix(0, 2) = "现有客人"
MSFlexGrid1.TextMatrix(0, 3) = "状态"
Call LoadsHouseKind
Call LoadHouse
End Sub
'加载酒店房间类型信息
Private Sub LoadsHouseKind()
Dim str As String
str = "select * from housekind order by kind"
Dim myrs As ADODB.Recordset
Set myrs = New ADODB.Recordset
myrs.CursorLocation = adUseClient
myrs.LockType = adLockOptimistic
myrs.CursorType = adOpenDynamic
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -