📄 main_kfgl_dj.frm
字号:
Left = 7590
TabIndex = 63
Top = 1215
Width = 1950
Begin VB.OptionButton Option4
BackColor = &H00FFFFFF&
Caption = "女"
ForeColor = &H000040C0&
Height = 180
Left = 1095
TabIndex = 65
Top = 165
Width = 540
End
Begin VB.OptionButton Option3
BackColor = &H00FFFFFF&
Caption = "男"
ForeColor = &H000040C0&
Height = 180
Left = 285
TabIndex = 64
Top = 150
Value = -1 'True
Width = 540
End
End
Begin VB.TextBox F_Host
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 7230
TabIndex = 24
Top = 4350
Width = 2175
End
Begin VB.TextBox F_RoomRate
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 5040
TabIndex = 23
Text = "0"
Top = 4380
Width = 735
End
Begin VB.TextBox F_RoomNo
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 1800
TabIndex = 22
ToolTipText = "按回车键改房号，TAB键下跳"
Top = 4380
Width = 1185
End
Begin VB.TextBox F_WhereTo
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 7980
TabIndex = 17
Top = 3495
Width = 1470
End
Begin VB.TextBox F_WhereFrom
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 5370
TabIndex = 16
Top = 3525
Width = 1455
End
Begin VB.ComboBox Combo4
BackColor = &H00E0E0E0&
ForeColor = &H00000000&
Height = 300
Left = 7155
TabIndex = 28
Top = 4770
Width = 1155
End
Begin VB.TextBox F_qianzheng
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 7980
TabIndex = 11
Top = 2610
Width = 1440
End
Begin VB.ComboBox Combo3
BackColor = &H00E0E0E0&
ForeColor = &H00000000&
Height = 300
Left = 7770
TabIndex = 5
Top = 1740
Width = 1710
End
Begin VB.TextBox F_ValidityOfStay
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 1830
TabIndex = 12
Top = 3060
Width = 1410
End
Begin VB.ComboBox Combo2
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 300
Left = 1755
TabIndex = 9
Top = 2610
Width = 1635
End
Begin VB.TextBox F_visanumber
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 4500
TabIndex = 10
Top = 2610
Width = 1950
End
Begin VB.TextBox F_Number
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 4485
TabIndex = 7
Top = 2205
Width = 1965
End
Begin VB.TextBox F_nationality
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 1830
TabIndex = 6
Text = "中国"
Top = 2205
Width = 1500
End
Begin VB.TextBox F_englishname
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 1845
MaxLength = 20
TabIndex = 3
Top = 1305
Width = 4335
End
Begin VB.TextBox F_addr
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 1845
TabIndex = 4
Top = 1770
Width = 4350
End
Begin VB.TextBox F_name
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 1845
MaxLength = 10
TabIndex = 1
ToolTipText = "输入完姓名后按回车键，直接调用客史资料；TAB键下跳。"
Top = 855
Width = 2790
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 570
Left = 1350
TabIndex = 60
Top = 150
Width = 1485
Begin VB.OptionButton Option2
BackColor = &H00FFFFFF&
Caption = "外宾及港澳台"
ForeColor = &H000040C0&
Height = 210
Left = 105
TabIndex = 62
Top = 330
Width = 1485
End
Begin VB.OptionButton Option1
BackColor = &H00FFFFFF&
Caption = "内宾"
ForeColor = &H000040C0&
Height = 210
Left = 105
TabIndex = 61
Top = 120
Value = -1 'True
Width = 915
End
End
Begin MSMask.MaskEdBox F_ArrivialDate
Height = 300
Left = 1785
TabIndex = 18
Top = 3915
Width = 1125
_ExtentX = 1984
_ExtentY = 529
_Version = 393216
BorderStyle = 0
Appearance = 0
BackColor = 14737632
MaxLength = 10
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -