main_kfgl_krcx.frm
来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 1,700 行 · 第 1/5 页
FRM
1,700 行
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "房 价"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 240
Left = 435
TabIndex = 17
Top = 1125
Width = 915
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "房号换为："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 240
Left = 420
TabIndex = 16
Top = 705
Width = 1065
End
Begin VB.Label Label7
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "原 房 号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 240
Left = 405
TabIndex = 15
Top = 150
Width = 1065
End
End
End
Begin VB.PictureBox Picture5
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
ForeColor = &H80000008&
Height = 5940
Left = 5160
ScaleHeight = 5910
ScaleWidth = 4110
TabIndex = 5
Top = 1440
Visible = 0 'False
Width = 4140
Begin VB.PictureBox Picture10
Height = 5655
Left = 120
Picture = "main_kfgl_krcx.frx":114FB
ScaleHeight = 5595
ScaleWidth = 3795
TabIndex = 18
Top = 120
Width = 3855
Begin VB.TextBox KeRen
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 33
Top = 240
Width = 1890
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 32
Top = 600
Width = 1890
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 31
Top = 1335
Width = 1890
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 30
Top = 1695
Width = 1890
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 29
Top = 2070
Width = 1890
End
Begin VB.TextBox Text7
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 28
Top = 2430
Width = 1890
End
Begin VB.TextBox Text8
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 27
Top = 2805
Width = 1890
End
Begin VB.TextBox Text9
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 26
Top = 3165
Width = 1890
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 25
Top = 3885
Width = 1890
End
Begin VB.TextBox Text12
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 24
Top = 4245
Width = 1890
End
Begin VB.TextBox Text13
Appearance = 0 'Flat
BackColor = &H80000013&
Height = 315
Left = 1410
TabIndex = 23
Top = 4620
Width = 1890
End
Begin VB.CommandButton Command10
Height = 375
Left = 960
Picture = "main_kfgl_krcx.frx":15D74
Style = 1 'Graphical
TabIndex = 22
Top = 5160
Width = 940
End
Begin VB.CommandButton Command11
Height = 375
Left = 2160
Picture = "main_kfgl_krcx.frx":16BC6
Style = 1 'Graphical
TabIndex = 21
Top = 5160
Width = 940
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "main_kfgl_krcx.frx":17A18
Left = 1410
List = "main_kfgl_krcx.frx":17A22
TabIndex = 20
Text = "男"
Top = 975
Width = 930
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "main_kfgl_krcx.frx":17A2E
Left = 1410
List = "main_kfgl_krcx.frx":17A38
TabIndex = 19
Text = "内宾"
Top = 3600
Width = 885
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "姓名"
Height = 225
Left = 480
TabIndex = 46
Top = 270
Width = 1635
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "英文姓名"
Height = 225
Left = 480
TabIndex = 45
Top = 630
Width = 1635
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "性别"
Height = 225
Left = 480
TabIndex = 44
Top = 1020
Width = 1635
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "出生日期"
Height = 225
Left = 480
TabIndex = 43
Top = 1395
Width = 1635
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "籍贯"
Height = 225
Left = 480
TabIndex = 42
Top = 1740
Width = 1635
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "长住地址"
Height = 225
Left = 480
TabIndex = 41
Top = 2115
Width = 1635
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "联系电话"
Height = 225
Left = 480
TabIndex = 40
Top = 2475
Width = 1635
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "身份或职业"
Height = 225
Left = 480
TabIndex = 39
Top = 2850
Width = 1635
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "证件号码"
Height = 225
Left = 480
TabIndex = 38
Top = 3210
Width = 1635
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "类别"
Height = 225
Left = 480
TabIndex = 37
Top = 3570
Width = 1635
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Caption = "级别"
Height = 225
Left = 495
TabIndex = 36
Top = 3945
Width = 1635
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "密码"
Height = 225
Left = 480
TabIndex = 35
Top = 4290
Width = 1635
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "折扣"
Height = 225
Left = 480
TabIndex = 34
Top = 4665
Width = 1635
End
End
End
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?