📄 frmprecontract.frm
字号:
End
Begin VB.TextBox TxtSelfBH
Height = 300
Left = 2040
TabIndex = 82
Top = 2892
Width = 1845
End
Begin VB.TextBox txtGLXDZ
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 2
Top = 6193
Width = 6945
End
Begin VB.TextBox txtGWBSX
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6300
TabIndex = 1
Top = 6165
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox txtGPYSX
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6300
TabIndex = 0
Top = 5685
Visible = 0 'False
Width = 1845
End
Begin VB.Frame Frame5
BackColor = &H80000018&
Caption = "项目选择"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5775
Left = 5100
TabIndex = 52
Top = 270
Width = 3855
Begin MSComctlLib.TreeView tvwGDXiang
Height = 3915
Left = 180
TabIndex = 61
Top = 300
Width = 3495
_ExtentX = 6165
_ExtentY = 6906
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Style = 7
Checkboxes = -1 'True
Appearance = 1
End
Begin VB.ComboBox cmbGTCan
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 180
Style = 2 'Dropdown List
TabIndex = 3
Top = 4560
Width = 3495
End
Begin VB.Label Label36
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "选择体检套餐："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 0
Left = 180
TabIndex = 60
Top = 4320
Width = 1260
End
Begin VB.Label lblGInfo
BackStyle = 0 'Transparent
Height = 375
Left = 180
TabIndex = 53
Top = 4980
Width = 3405
End
End
Begin MSComCtl2.DTPicker dtpGTJRQ
Height = 315
Left = 2040
TabIndex = 89
Top = 2033
Width = 1845
_ExtentX = 3254
_ExtentY = 556
_Version = 393216
Font = "frmPrecontract.frx":0DD1
Format = 27066369
UpDown = -1 'True
CurrentDate = 37256
MaxDate = 73415
MinDate = 2
End
Begin VB.Label Label39
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "自定义编号："
Height = 255
Left = 210
TabIndex = 81
Top = 2901
Width = 1575
End
Begin VB.Label Label40
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "当日体检序号："
Height = 255
Left = 210
TabIndex = 80
Top = 2490
Width = 1575
End
Begin VB.Label Label33
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "电子邮件："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 210
TabIndex = 70
Top = 5367
Width = 1575
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "婚否："
Height = 255
Left = 210
TabIndex = 69
Top = 3312
Width = 1575
End
Begin VB.Label Label32
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "年龄："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 56
Top = 1668
Width = 1575
End
Begin VB.Label Label30
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "性别："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 55
Top = 1257
Width = 1575
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "预约人身份证号："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 54
Top = 3723
Width = 1575
End
Begin VB.Label Label29
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "体检日期："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 51
Top = 2079
Width = 1575
End
Begin VB.Label Label28
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "邮政编码："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 50
Top = 5778
Width = 1575
End
Begin VB.Label Label27
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "联系地址："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 49
Top = 6189
Width = 1575
End
Begin VB.Label Label26
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "预约人移动电话："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 48
Top = 4956
Width = 1575
End
Begin VB.Label Label25
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "预约人办公电话："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 47
Top = 4545
Width = 1575
End
Begin VB.Label Label24
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "预约人家庭电话："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 210
TabIndex = 46
Top = 4134
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -