📄 frmregister.frm
字号:
Height = 255
Left = 1320
TabIndex = 127
Top = 255
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "冠心病"
Height = 255
Index = 3
Left = 240
TabIndex = 126
Top = 570
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "脑卒中"
Height = 255
Index = 6
Left = 4200
TabIndex = 125
Top = 255
Width = 1035
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "高血压病"
Height = 255
Index = 1
Left = 240
TabIndex = 124
Top = 255
Width = 1035
End
End
Begin VB.Frame Frame7
BackColor = &H00D3DABC&
Caption = "家庭史"
ForeColor = &H00FF0000&
Height = 1335
Left = 210
TabIndex = 99
Top = 2280
Width = 8715
Begin VB.CheckBox chkJZL
BackColor = &H00D3DABC&
Caption = "父亲"
Height = 285
Index = 1
Left = 5580
TabIndex = 108
Top = 585
Width = 855
End
Begin VB.CheckBox chkJZL
BackColor = &H00D3DABC&
Caption = "母亲"
Height = 285
Index = 0
Left = 4590
TabIndex = 107
Top = 585
Width = 855
End
Begin VB.TextBox txtJQT
Height = 285
Left = 990
TabIndex = 106
Top = 885
Width = 5895
End
Begin VB.CheckBox chkJTNB
BackColor = &H00D3DABC&
Caption = "父亲"
Height = 285
Index = 1
Left = 5580
TabIndex = 105
Top = 330
Width = 855
End
Begin VB.CheckBox chkJTNB
BackColor = &H00D3DABC&
Caption = "母亲"
Height = 285
Index = 0
Left = 4590
TabIndex = 104
Top = 330
Width = 855
End
Begin VB.CheckBox chkJJSB
BackColor = &H00D3DABC&
Caption = "父亲"
Height = 285
Index = 1
Left = 2010
TabIndex = 103
Top = 585
Width = 855
End
Begin VB.CheckBox chkJJSB
BackColor = &H00D3DABC&
Caption = "母亲"
Height = 285
Index = 0
Left = 1020
TabIndex = 102
Top = 585
Width = 855
End
Begin VB.CheckBox chkJGXY
BackColor = &H00D3DABC&
Caption = "父亲"
Height = 285
Index = 1
Left = 2010
TabIndex = 101
Top = 330
Width = 855
End
Begin VB.CheckBox chkJGXY
BackColor = &H00D3DABC&
Caption = "母亲"
Height = 285
Index = 0
Left = 1020
TabIndex = 100
Top = 330
Width = 855
End
Begin VB.Label Label89
BackStyle = 0 'Transparent
Caption = "其它"
Height = 255
Left = 270
TabIndex = 113
Top = 900
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "肿瘤"
Height = 255
Index = 17
Left = 3870
TabIndex = 112
Top = 600
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "精神病"
Height = 255
Index = 15
Left = 270
TabIndex = 111
Top = 600
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "糖尿病"
Height = 255
Index = 16
Left = 3870
TabIndex = 110
Top = 345
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "高血压"
Height = 255
Index = 14
Left = 270
TabIndex = 109
Top = 345
Width = 735
End
End
Begin VB.Frame Frame6
BackColor = &H00D3DABC&
Caption = "饮酒史"
ForeColor = &H00FF0000&
Height = 1575
Left = 210
TabIndex = 94
Top = 5430
Width = 8715
Begin XPControls.XPCommandButton cmdYJSDel
Height = 285
Left = 5850
TabIndex = 95
Top = 1170
Width = 765
_ExtentX = 1349
_ExtentY = 503
Caption = "删除"
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 XPControls.XPCommandButton cmdYJSModify
Height = 285
Left = 4305
TabIndex = 96
Top = 1170
Width = 765
_ExtentX = 1349
_ExtentY = 503
Caption = "修改"
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 XPControls.XPCommandButton cmdYJSAdd
Height = 285
Left = 2790
TabIndex = 97
Top = 1170
Width = 765
_ExtentX = 1349
_ExtentY = 503
Caption = "添加"
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 MSComctlLib.ListView lvwYJS
Height = 885
Left = 150
TabIndex = 98
Top = 240
Width = 8385
_ExtentX = 14790
_ExtentY = 1561
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
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
NumItems = 7
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "开始时间"
Object.Width = 1834
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "白酒(克/天)"
Object.Width = 1834
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "啤酒(克/天)"
Object.Width = 1834
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "色酒(克/天)"
Object.Width = 1834
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "饮酒频率"
Object.Width = 1834
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "情况描述"
Object.Width = 1834
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "戒断时间"
Object.Width = 1834
EndProperty
End
End
Begin VB.Frame Frame4
BackColor = &H00D3DABC&
Caption = "吸烟史"
ForeColor = &H00FF0000&
Height = 1605
Left = 210
TabIndex = 89
Top = 3720
Width = 8715
Begin XPControls.XPCommandButton cmdXYSDel
Height = 285
Left = 5790
TabIndex = 90
Top = 1200
Width = 765
_ExtentX = 1349
_ExtentY = 503
Caption = "删除"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -