📄 frmregisternew.frm
字号:
Top = 3071
Width = 885
End
Begin VB.ComboBox cmbGSEX
Height = 315
ItemData = "frmRegister.frx":0D50
Left = 1980
List = "frmRegister.frx":0D5A
Style = 2 'Dropdown List
TabIndex = 104
Top = 2673
Width = 885
End
Begin VB.TextBox txtGSG
Height = 300
Left = 5640
TabIndex = 103
Top = 4260
Visible = 0 'False
Width = 885
End
Begin VB.TextBox txtGAGE
Height = 300
Left = 1980
TabIndex = 102
Top = 3469
Width = 885
End
Begin VB.TextBox txtGYYRSFZH
Height = 300
Left = 1980
TabIndex = 101
Top = 3852
Width = 2000
End
Begin VB.TextBox txtGYZBM
Height = 300
Left = 1980
TabIndex = 100
Top = 5752
Width = 2000
End
Begin VB.TextBox txtGLXDZ
Height = 300
Left = 1980
TabIndex = 99
Top = 6510
Width = 7095
End
Begin VB.TextBox txtGYYRYDDH
Height = 300
Left = 1980
TabIndex = 98
Top = 5001
Width = 2000
End
Begin VB.TextBox txtGYYRBGDH
Height = 300
Left = 1980
TabIndex = 97
Top = 4618
Width = 2000
End
Begin VB.TextBox txtGYYRJTDH
Height = 300
Left = 1980
TabIndex = 96
Top = 4235
Width = 2000
End
Begin VB.TextBox txtGWBSX
Height = 300
Left = 6165
TabIndex = 95
Top = 5820
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox txtGPYSX
Height = 300
Left = 6165
TabIndex = 94
Top = 5415
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox txtGYYRXM
Height = 300
Left = 1980
TabIndex = 93
Top = 1494
Width = 2000
End
Begin VB.TextBox txtGYYID
Height = 300
Left = 1980
Locked = -1 'True
TabIndex = 92
Top = 728
Width = 2000
End
Begin VB.Frame Frame5
BackColor = &H80000018&
Caption = "项目选择"
Height = 5925
Left = 5700
TabIndex = 89
Top = 360
Width = 3285
Begin MSComctlLib.TreeView tvwGDXiang
Height = 3855
Left = 150
TabIndex = 200
Top = 270
Width = 2985
_ExtentX = 5265
_ExtentY = 6800
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Style = 7
Checkboxes = -1 'True
Appearance = 1
End
Begin VB.ComboBox cmbGTCan
Height = 315
Left = 150
Style = 2 'Dropdown List
TabIndex = 90
Top = 4500
Width = 2985
End
Begin VB.Label Label65
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "选择体检套餐："
Height = 255
Left = 90
TabIndex = 197
Top = 4260
Width = 1335
End
Begin VB.Label lblGInfo
BackStyle = 0 'Transparent
Height = 945
Left = 150
TabIndex = 91
Top = 4860
Width = 2985
End
End
Begin MSComCtl2.DTPicker dtpGTJRQ
Height = 285
Left = 1980
TabIndex = 106
Top = 6135
Width = 2000
_ExtentX = 3519
_ExtentY = 503
_Version = 393216
Format = 21299201
UpDown = -1 'True
CurrentDate = 37993
MaxDate = 109939
MinDate = 2
End
Begin VB.Label Label41
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "所属分组："
ForeColor = &H00FF0000&
Height = 255
Left = 300
TabIndex = 212
Top = 2315
Width = 1575
End
Begin VB.Label Label40
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "当日体检序号："
Height = 255
Left = 300
TabIndex = 210
Top = 390
Width = 1575
End
Begin VB.Label Label39
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "自定义编号："
Height = 255
Left = 300
TabIndex = 208
Top = 1160
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 = 300
TabIndex = 204
Top = 5395
Width = 1575
End
Begin VB.Label Label64
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "所属团体："
ForeColor = &H00FF0000&
Height = 255
Left = 300
TabIndex = 198
Top = 1930
Width = 1575
End
Begin VB.Label Label95
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "岁"
Height = 255
Left = 2850
TabIndex = 193
Top = 3315
Width = 255
End
Begin VB.Label Label34
BackStyle = 0 'Transparent
Caption = "cm"
Height = 255
Left = 6570
TabIndex = 123
Top = 4290
Visible = 0 'False
Width = 465
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "婚否："
Height = 255
Left = 300
TabIndex = 122
Top = 3085
Width = 1575
End
Begin VB.Label Label33
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "身高："
Height = 255
Index = 1
Left = 3960
TabIndex = 121
Top = 4245
Visible = 0 'False
Width = 1575
End
Begin VB.Label Label32
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "年龄："
Height = 255
Left = 300
TabIndex = 120
Top = 3470
Width = 1575
End
Begin VB.Label Label30
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "性别："
Height = 255
Left = 300
TabIndex = 119
Top = 2700
Width = 1575
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "身份证号："
Height = 255
Left = 300
TabIndex = 118
Top = 3855
Width = 1575
End
Begin VB.Label Label31
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "选择体检项目："
Height = 255
Left = 3810
TabIndex = 117
Top = 360
Width = 1815
End
Begin VB.Label Label29
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "体检日期："
Height = 255
Left = 300
TabIndex = 116
Top = 6165
Width = 1575
End
Begin VB.Label Label28
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "邮政编码："
Height = 255
Left = 300
TabIndex = 115
Top = 5780
Width = 1575
End
Begin VB.Label Label27
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "联系地址："
Height = 255
Left = 300
TabIndex = 114
Top = 6555
Width = 1575
End
Begin VB.Label Label26
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "移动电话："
Height = 255
Left = 300
TabIndex = 113
Top = 5010
Width = 1575
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -