📄 frmregisternew.frm
字号:
Height = 255
Index = 2
Left = 4230
TabIndex = 168
Top = 720
Width = 345
End
Begin VB.Label Label81
BackStyle = 0 'Transparent
Caption = "年"
Height = 255
Index = 1
Left = 7920
TabIndex = 167
Top = 360
Width = 345
End
Begin VB.Label Label81
BackStyle = 0 'Transparent
Caption = "年"
Height = 255
Index = 0
Left = 4230
TabIndex = 166
Top = 360
Width = 345
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "饮酒史："
ForeColor = &H00FF0000&
Height = 255
Index = 21
Left = 240
TabIndex = 157
Top = 5160
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "吸烟史："
ForeColor = &H00FF0000&
Height = 255
Index = 18
Left = 240
TabIndex = 156
Top = 3300
Width = 1035
End
Begin VB.Label Label89
BackStyle = 0 'Transparent
Caption = "其它"
Height = 255
Left = 1410
TabIndex = 155
Top = 2880
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "肿瘤"
Height = 255
Index = 17
Left = 5010
TabIndex = 154
Top = 2520
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "精神病"
Height = 255
Index = 15
Left = 1410
TabIndex = 153
Top = 2520
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "糖尿病"
Height = 255
Index = 16
Left = 5010
TabIndex = 152
Top = 2160
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "高血压"
Height = 255
Index = 14
Left = 1410
TabIndex = 151
Top = 2160
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "家庭史："
ForeColor = &H00FF0000&
Height = 255
Index = 19
Left = 240
TabIndex = 150
Top = 2160
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "其它"
Height = 255
Index = 5
Left = 1020
TabIndex = 149
Top = 1740
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "确诊时间"
Height = 255
Index = 13
Left = 5790
TabIndex = 148
Top = 1425
Width = 885
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "肺心病"
Height = 255
Index = 9
Left = 4980
TabIndex = 147
Top = 1395
Width = 1035
End
Begin VB.Label Label77
BackStyle = 0 'Transparent
Caption = "确诊时间"
Height = 255
Left = 2100
TabIndex = 146
Top = 1395
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "恶性肿瘤"
Height = 255
Index = 4
Left = 1020
TabIndex = 145
Top = 1395
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "确诊时间"
Height = 255
Index = 12
Left = 5790
TabIndex = 144
Top = 1070
Width = 885
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "精神病"
Height = 255
Index = 8
Left = 4980
TabIndex = 143
Top = 1050
Width = 1035
End
Begin VB.Label Label73
BackStyle = 0 'Transparent
Caption = "确诊时间"
Height = 255
Left = 2100
TabIndex = 142
Top = 1065
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "高血脂"
Height = 255
Index = 2
Left = 1020
TabIndex = 141
Top = 1050
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "确诊时间"
Height = 255
Index = 11
Left = 5790
TabIndex = 140
Top = 715
Width = 885
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "糖尿病"
Height = 255
Index = 7
Left = 4980
TabIndex = 139
Top = 705
Width = 1035
End
Begin VB.Label Label69
BackStyle = 0 'Transparent
Caption = "确诊时间"
Height = 255
Left = 2100
TabIndex = 138
Top = 720
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "确诊时间"
Height = 255
Index = 10
Left = 5790
TabIndex = 137
Top = 360
Width = 885
End
Begin VB.Label Label67
BackStyle = 0 'Transparent
Caption = "确诊时间"
Height = 255
Left = 2100
TabIndex = 136
Top = 360
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "冠心病"
Height = 255
Index = 3
Left = 1020
TabIndex = 135
Top = 705
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "脑卒中"
Height = 255
Index = 6
Left = 4980
TabIndex = 134
Top = 360
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "高血压病"
Height = 255
Index = 1
Left = 1020
TabIndex = 133
Top = 360
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "个人史："
ForeColor = &H00FF0000&
Height = 255
Index = 20
Left = 240
TabIndex = 132
Top = 360
Width = 1035
End
End
Begin VB.Frame fraGRen
BackColor = &H80000018&
Caption = "个人信息"
Enabled = 0 'False
Height = 6945
Left = 255
TabIndex = 88
Top = 465
Width = 9135
Begin VB.ComboBox CmbFZ
Height = 315
Left = 1980
Style = 2 'Dropdown List
TabIndex = 211
Top = 2275
Width = 2000
End
Begin VB.TextBox txtTJXH
Height = 300
Left = 1980
Locked = -1 'True
TabIndex = 209
Top = 345
Width = 2000
End
Begin VB.TextBox TxtGSelfBH
Height = 300
Left = 1980
TabIndex = 207
Top = 1111
Width = 2000
End
Begin VB.TextBox txtGEMail
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1980
TabIndex = 203
Top = 5384
Width = 2000
End
Begin VB.ComboBox cmbGDWei
Height = 315
Left = 1980
Style = 2 'Dropdown List
TabIndex = 194
Top = 1877
Width = 2000
End
Begin VB.ComboBox cmbGHF
Height = 315
ItemData = "frmRegister.frx":0D3A
Left = 1980
List = "frmRegister.frx":0D44
Style = 2 'Dropdown List
TabIndex = 105
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -