📄 frmregisternew.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdXYSModify
Height = 285
Left = 4545
TabIndex = 187
Top = 4800
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 cmdXYSAdd
Height = 285
Left = 3030
TabIndex = 186
Top = 4800
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 = 1365
Left = 1020
TabIndex = 185
Top = 5160
Width = 7875
_ExtentX = 13891
_ExtentY = 2408
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
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
Begin MSComctlLib.ListView lvwXYS
Height = 1455
Left = 1020
TabIndex = 184
Top = 3300
Width = 7875
_ExtentX = 13891
_ExtentY = 2566
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "开始时间"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "吸烟量(支/天)"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "情况描述"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "戒断时间"
Object.Width = 2540
EndProperty
End
Begin VB.TextBox txtGRS
Height = 285
Index = 7
Left = 6630
TabIndex = 183
Top = 1380
Width = 1245
End
Begin VB.TextBox txtGRS
Height = 285
Index = 5
Left = 6630
TabIndex = 182
Top = 1050
Width = 1245
End
Begin VB.TextBox txtGRS
Height = 285
Index = 3
Left = 6630
TabIndex = 181
Top = 690
Width = 1245
End
Begin VB.TextBox txtGRS
Height = 285
Index = 1
Left = 6630
TabIndex = 180
Top = 345
Width = 1245
End
Begin VB.TextBox txtGRS
Height = 285
Index = 6
Left = 2940
TabIndex = 179
Top = 1380
Width = 1245
End
Begin VB.TextBox txtGRS
Height = 285
Index = 4
Left = 2940
TabIndex = 178
Top = 1050
Width = 1245
End
Begin VB.TextBox txtGRS
Height = 285
Index = 2
Left = 2940
TabIndex = 177
Top = 705
Width = 1245
End
Begin VB.TextBox txtGRS
Height = 285
Index = 0
Left = 2940
TabIndex = 176
Top = 345
Width = 1245
End
Begin VB.CheckBox chkJZL
BackColor = &H80000018&
Caption = "父亲"
Height = 285
Index = 1
Left = 6720
TabIndex = 175
Top = 2505
Width = 855
End
Begin VB.CheckBox chkJZL
BackColor = &H80000018&
Caption = "母亲"
Height = 285
Index = 0
Left = 5730
TabIndex = 174
Top = 2505
Width = 855
End
Begin VB.TextBox txtGQT
Height = 285
Left = 2130
TabIndex = 165
Top = 1725
Width = 5895
End
Begin VB.TextBox txtJQT
Height = 285
Left = 2130
TabIndex = 164
Top = 2865
Width = 5895
End
Begin VB.CheckBox chkJTNB
BackColor = &H80000018&
Caption = "父亲"
Height = 285
Index = 1
Left = 6720
TabIndex = 163
Top = 2145
Width = 855
End
Begin VB.CheckBox chkJTNB
BackColor = &H80000018&
Caption = "母亲"
Height = 285
Index = 0
Left = 5730
TabIndex = 162
Top = 2145
Width = 855
End
Begin VB.CheckBox chkJJSB
BackColor = &H80000018&
Caption = "父亲"
Height = 285
Index = 1
Left = 3150
TabIndex = 161
Top = 2505
Width = 855
End
Begin VB.CheckBox chkJJSB
BackColor = &H80000018&
Caption = "母亲"
Height = 285
Index = 0
Left = 2160
TabIndex = 160
Top = 2505
Width = 855
End
Begin VB.CheckBox chkJGXY
BackColor = &H80000018&
Caption = "父亲"
Height = 285
Index = 1
Left = 3150
TabIndex = 159
Top = 2145
Width = 855
End
Begin VB.CheckBox chkJGXY
BackColor = &H80000018&
Caption = "母亲"
Height = 285
Index = 0
Left = 2160
TabIndex = 158
Top = 2145
Width = 855
End
Begin VB.Label Label81
BackStyle = 0 'Transparent
Caption = "年"
Height = 255
Index = 7
Left = 7920
TabIndex = 173
Top = 1395
Width = 345
End
Begin VB.Label Label81
BackStyle = 0 'Transparent
Caption = "年"
Height = 255
Index = 6
Left = 4230
TabIndex = 172
Top = 1395
Width = 345
End
Begin VB.Label Label81
BackStyle = 0 'Transparent
Caption = "年"
Height = 255
Index = 5
Left = 7920
TabIndex = 171
Top = 1065
Width = 345
End
Begin VB.Label Label81
BackStyle = 0 'Transparent
Caption = "年"
Height = 255
Index = 4
Left = 4230
TabIndex = 170
Top = 1065
Width = 345
End
Begin VB.Label Label81
BackStyle = 0 'Transparent
Caption = "年"
Height = 255
Index = 3
Left = 7920
TabIndex = 169
Top = 705
Width = 345
End
Begin VB.Label Label81
BackStyle = 0 'Transparent
Caption = "年"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -