📄 frmregister.frm
字号:
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "睡眠时间："
Height = 285
Left = 330
TabIndex = 77
Top = 4635
Width = 1455
End
Begin VB.Label Label61
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "睡眠情况："
Height = 285
Left = 330
TabIndex = 76
Top = 5115
Width = 1455
End
Begin VB.Label Label62
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "其它习惯："
Height = 285
Left = 330
TabIndex = 75
Top = 5595
Width = 1455
End
Begin VB.Label Label94
BackStyle = 0 'Transparent
Caption = "小时"
Height = 285
Left = 2850
TabIndex = 74
Top = 4665
Width = 465
End
End
Begin VB.Frame fraGRen
BackColor = &H00D3DABC&
Caption = "个人信息"
Enabled = 0 'False
Height = 7230
Left = 150
TabIndex = 33
Top = 450
Width = 9300
Begin VB.TextBox txtGYYID
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 5730
Locked = -1 'True
TabIndex = 39
Top = 450
Visible = 0 'False
Width = 2805
End
Begin VB.Frame Frame5
BackColor = &H00D3DABC&
Caption = "项目选择"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6945
Left = 5415
TabIndex = 36
Top = 210
Width = 3780
Begin VB.ComboBox cmbGTCan
Height = 315
Left = 150
Style = 2 'Dropdown List
TabIndex = 17
Top = 6540
Width = 3510
End
Begin MSComctlLib.TreeView tvwGDXiang
Height = 5790
Left = 150
TabIndex = 16
Top = 210
Width = 3525
_ExtentX = 6218
_ExtentY = 10213
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
LineStyle = 1
Style = 7
Checkboxes = -1 'True
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label65
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "选择体检套餐："
Height = 255
Left = 90
TabIndex = 38
Top = 6300
Width = 1335
End
Begin VB.Label lblCurrentPrice
BackStyle = 0 'Transparent
Height = 255
Left = 150
TabIndex = 37
Top = 6030
Width = 3495
End
End
Begin VB.TextBox txtGYYRXM
Height = 300
Left = 1550
TabIndex = 1
Top = 798
Width = 3405
End
Begin VB.TextBox txtGYYRJTDH
Height = 300
Left = 1550
TabIndex = 9
Top = 4287
Width = 3405
End
Begin VB.TextBox txtGYYRBGDH
Height = 300
Left = 1550
TabIndex = 10
Top = 4710
Width = 3405
End
Begin VB.TextBox txtGYYRYDDH
Height = 300
Left = 1550
TabIndex = 11
Top = 5133
Width = 3405
End
Begin VB.TextBox txtGLXDZ
Height = 300
Left = 1550
TabIndex = 14
Top = 6387
Width = 3405
End
Begin VB.TextBox txtGYZBM
Height = 300
Left = 1550
TabIndex = 13
Top = 5964
Width = 3405
End
Begin VB.TextBox txtGYYRSFZH
Height = 300
Left = 1550
TabIndex = 8
Top = 3864
Width = 3405
End
Begin VB.TextBox txtGAGE
Height = 300
Left = 1550
TabIndex = 5
Top = 2535
Width = 555
End
Begin VB.ComboBox cmbGSEX
Height = 315
ItemData = "frmRegister.frx":1BFA
Left = 1550
List = "frmRegister.frx":1C04
Style = 2 'Dropdown List
TabIndex = 4
Top = 2097
Width = 1005
End
Begin VB.ComboBox cmbGHF
Height = 315
ItemData = "frmRegister.frx":1C10
Left = 1550
List = "frmRegister.frx":1C1A
Style = 2 'Dropdown List
TabIndex = 6
Top = 2958
Width = 1005
End
Begin VB.ComboBox cmbGDWei
Height = 315
Left = 1550
Style = 2 'Dropdown List
TabIndex = 2
Top = 1221
Width = 3405
End
Begin VB.TextBox txtGEMail
Height = 285
Left = 1550
TabIndex = 12
Top = 5556
Width = 3405
End
Begin VB.TextBox TxtGSelfBH
Height = 300
Left = 1550
TabIndex = 35
Top = 375
Width = 1935
End
Begin VB.TextBox txtTJXH
Height = 300
Left = 1035
Locked = -1 'True
TabIndex = 34
Top = -150
Visible = 0 'False
Width = 3405
End
Begin VB.ComboBox CmbFZ
Height = 315
Left = 1550
Style = 2 'Dropdown List
TabIndex = 3
Top = 1659
Width = 3405
End
Begin VB.TextBox TxtGBeiZhu
Height = 285
Left = 1550
TabIndex = 15
Top = 6810
Width = 3390
End
Begin MSComCtl2.DTPicker dtpGTJRQ
Height = 345
Left = 1545
TabIndex = 7
Top = 3396
Width = 3405
_ExtentX = 6006
_ExtentY = 609
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 61603841
CurrentDate = 37993
MaxDate = 109939
MinDate = 2
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "健康档案号："
Height = 255
Left = 5100
TabIndex = 59
Top = 510
Visible = 0 'False
Width = 1575
End
Begin VB.Label Label21
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "姓名："
Height = 255
Left = 60
TabIndex = 58
Top = 833
Width = 1425
End
Begin VB.Label Label24
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "家庭电话："
Height = 255
Left = 60
TabIndex = 57
Top = 4257
Width = 1425
End
Begin VB.Label Label25
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "办公电话："
Height = 255
Left = 60
TabIndex = 56
Top = 4685
Width = 1425
End
Begin VB.Label Label26
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "移动电话："
Height = 255
Left = 60
TabIndex = 55
Top = 5113
Width = 1425
End
Begin VB.Label Label27
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -