📄 frmregisternew.frm
字号:
Begin VB.Label Label25
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "办公电话："
Height = 255
Left = 300
TabIndex = 112
Top = 4625
Width = 1575
End
Begin VB.Label Label24
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "家庭电话："
Height = 255
Left = 300
TabIndex = 111
Top = 4240
Width = 1575
End
Begin VB.Label Label23
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "五笔简码："
Height = 255
Left = 4485
TabIndex = 110
Top = 5835
Visible = 0 'False
Width = 1575
End
Begin VB.Label Label22
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "拼音简码："
Height = 255
Left = 4485
TabIndex = 109
Top = 5430
Visible = 0 'False
Width = 1575
End
Begin VB.Label Label21
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "姓名："
Height = 255
Left = 300
TabIndex = 108
Top = 1545
Width = 1575
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "健康档案号："
Height = 255
Left = 300
TabIndex = 107
Top = 775
Width = 1575
End
End
Begin VB.Frame fraTTi
BackColor = &H80000018&
Caption = "单位信息"
Enabled = 0 'False
Height = 6885
Left = -74760
TabIndex = 49
Top = 450
Width = 9135
Begin VB.TextBox txtTEMail
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1980
TabIndex = 205
Top = 3647
Width = 1845
End
Begin VB.Frame Frame2
BackColor = &H80000018&
Caption = "项目选择"
Height = 5925
Index = 1
Left = 5700
TabIndex = 66
Top = 360
Width = 3285
Begin MSComctlLib.TreeView tvwTDXiang
Height = 3855
Left = 120
TabIndex = 199
Top = 270
Width = 3045
_ExtentX = 5371
_ExtentY = 6800
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Style = 7
Checkboxes = -1 'True
Appearance = 1
End
Begin VB.ComboBox cmbTTCan
Height = 315
Left = 360
Style = 2 'Dropdown List
TabIndex = 67
Top = 4440
Width = 2595
End
Begin VB.Label LblTTCInfo
BackColor = &H80000018&
Height = 255
Left = 360
TabIndex = 196
Top = 4440
Width = 2535
End
Begin VB.Label Label63
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "选择体检套餐："
Height = 250
Left = 360
TabIndex = 195
Top = 4200
Width = 1335
End
Begin VB.Label lblTInfo
BackStyle = 0 'Transparent
Height = 855
Left = 360
TabIndex = 68
Top = 4860
Width = 2595
End
End
Begin VB.ComboBox cmbTDWei
Height = 315
Left = 1980
TabIndex = 65
Top = 754
Width = 1845
End
Begin VB.TextBox txtTDJRS
Height = 285
Left = 1980
TabIndex = 64
Top = 5692
Width = 1845
End
Begin VB.TextBox txtTQYXZ
Height = 285
Left = 1980
TabIndex = 63
Top = 5283
Width = 1845
End
Begin VB.TextBox txtTYHZH
Height = 285
Left = 1980
TabIndex = 62
Top = 4874
Width = 1845
End
Begin VB.TextBox txtTYWYH
Height = 285
Left = 1980
TabIndex = 61
Top = 4465
Width = 1845
End
Begin VB.TextBox txtTYZBM
Height = 285
Left = 1980
TabIndex = 60
Top = 4056
Width = 1845
End
Begin VB.TextBox txtTLXDZ
Height = 285
Left = 1980
TabIndex = 59
Top = 6510
Width = 7005
End
Begin VB.TextBox txtTFZRYDDH
Height = 285
Left = 1980
TabIndex = 58
Top = 3238
Width = 1845
End
Begin VB.TextBox txtTFZRBGDH
Height = 285
Left = 1980
TabIndex = 57
Top = 2829
Width = 1845
End
Begin VB.TextBox txtTFZR
Height = 285
Left = 1980
TabIndex = 56
Top = 2420
Width = 1845
End
Begin VB.TextBox txtTLXRYDDH
Height = 285
Left = 1980
TabIndex = 55
Top = 2011
Width = 1845
End
Begin VB.TextBox txtTLXRBGDH
Height = 285
Left = 1980
TabIndex = 54
Top = 1602
Width = 1845
End
Begin VB.TextBox txtTLXR
Height = 285
Left = 1980
TabIndex = 53
Top = 1193
Width = 1845
End
Begin VB.TextBox txtTWBSX
Height = 285
Left = 5970
TabIndex = 52
Top = 3090
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox txtTPYSX
Height = 285
Left = 5970
TabIndex = 51
Top = 2700
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox txtTYYID
Height = 285
Left = 1980
Locked = -1 'True
TabIndex = 50
Top = 345
Width = 1845
End
Begin MSComCtl2.DTPicker dtpTTJRQ
Height = 285
Left = 1980
TabIndex = 69
Top = 6101
Width = 1845
_ExtentX = 3254
_ExtentY = 503
_Version = 393216
Format = 21299201
UpDown = -1 'True
CurrentDate = 37993
MaxDate = 73415
MinDate = 2
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 = 2
Left = 300
TabIndex = 206
Top = 3662
Width = 1575
End
Begin VB.Label Label35
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "选择体检项目："
Height = 255
Left = 3810
TabIndex = 87
Top = 360
Width = 1815
End
Begin VB.Label Label18
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "体检日期："
Height = 255
Left = 300
TabIndex = 86
Top = 6116
Width = 1575
End
Begin VB.Label Label16
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "登记人数："
Height = 255
Left = 300
TabIndex = 85
Top = 5707
Width = 1575
End
Begin VB.Label Label15
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "企业性质："
Height = 255
Left = 300
TabIndex = 84
Top = 5298
Width = 1575
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "银行帐号："
Height = 255
Left = 300
TabIndex = 83
Top = 4889
Width = ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -