📄 frmregister.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdXYSModify
Height = 285
Left = 4260
TabIndex = 91
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
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdXYSAdd
Height = 285
Left = 2760
TabIndex = 92
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
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ListView lvwXYS
Height = 885
Left = 180
TabIndex = 93
Top = 240
Width = 8355
_ExtentX = 14737
_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 = 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
End
End
Begin VB.Frame fraHealth1
BackColor = &H00D3DABC&
Caption = "健康档案"
Enabled = 0 'False
Height = 7140
Left = -74760
TabIndex = 60
Top = 510
Width = 9135
Begin VB.TextBox txtNation
Height = 285
Left = 1890
TabIndex = 72
Top = 815
Width = 1845
End
Begin VB.ComboBox cmbMINZU
Height = 315
ItemData = "frmRegister.frx":19D6
Left = 1890
List = "frmRegister.frx":19D8
Style = 2 'Dropdown List
TabIndex = 71
Top = 1285
Width = 1845
End
Begin VB.TextBox txtGZDW
Height = 285
Left = 1890
TabIndex = 70
Top = 1785
Width = 1845
End
Begin VB.ComboBox cmbZhiYi
Height = 315
ItemData = "frmRegister.frx":19DA
Left = 1890
List = "frmRegister.frx":1A0B
Style = 2 'Dropdown List
TabIndex = 69
Top = 6045
Width = 1845
End
Begin VB.ComboBox cmbYWGMS
Height = 315
ItemData = "frmRegister.frx":1A73
Left = 1890
List = "frmRegister.frx":1A86
Style = 2 'Dropdown List
TabIndex = 68
Top = 2220
Width = 1845
End
Begin VB.ComboBox cmbTYDLQK
Height = 315
ItemData = "frmRegister.frx":1AA8
Left = 1890
List = "frmRegister.frx":1ABB
Style = 2 'Dropdown List
TabIndex = 67
Top = 2700
Width = 1845
End
Begin VB.ComboBox cmbDLLX
Height = 315
ItemData = "frmRegister.frx":1AE8
Left = 1890
List = "frmRegister.frx":1AF5
Style = 2 'Dropdown List
TabIndex = 66
Top = 3180
Width = 1845
End
Begin VB.ComboBox cmbDLSJ
Height = 315
ItemData = "frmRegister.frx":1B41
Left = 1890
List = "frmRegister.frx":1B51
Style = 2 'Dropdown List
TabIndex = 65
Top = 3660
Width = 1845
End
Begin VB.ComboBox cmbYSXG
Height = 315
ItemData = "frmRegister.frx":1B73
Left = 1890
List = "frmRegister.frx":1B8F
Style = 2 'Dropdown List
TabIndex = 64
Top = 4140
Width = 1845
End
Begin VB.TextBox txtSMSJ
Height = 285
Left = 1890
TabIndex = 63
Top = 4620
Width = 885
End
Begin VB.ComboBox cmbSMKN
Height = 315
ItemData = "frmRegister.frx":1BC5
Left = 1890
List = "frmRegister.frx":1BD8
Style = 2 'Dropdown List
TabIndex = 62
Top = 5070
Width = 1845
End
Begin VB.TextBox txtQTXG
Height = 315
Left = 1890
TabIndex = 61
Top = 5550
Width = 1845
End
Begin MSComCtl2.DTPicker dtpBirthDate
Height = 285
Left = 1890
TabIndex = 73
Top = 345
Width = 1845
_ExtentX = 3254
_ExtentY = 503
_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 = 38003
MaxDate = 109939
MinDate = 2
End
Begin VB.Label Label36
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "出生日期："
Height = 285
Left = 330
TabIndex = 87
Top = 360
Width = 1455
End
Begin VB.Label Label37
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "国籍："
Height = 285
Left = 330
TabIndex = 86
Top = 840
Width = 1455
End
Begin VB.Label Label38
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "民族："
Height = 285
Left = 330
TabIndex = 85
Top = 1320
Width = 1455
End
Begin VB.Label Label43
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "工作单位："
Height = 285
Left = 330
TabIndex = 84
Top = 1800
Width = 1455
End
Begin VB.Label Label53
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "职业："
Height = 285
Left = 330
TabIndex = 83
Top = 6090
Width = 1455
End
Begin VB.Label Label55
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "药物过敏史："
Height = 285
Left = 330
TabIndex = 82
Top = 2235
Width = 1455
End
Begin VB.Label Label56
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "体育锻炼情况："
Height = 285
Left = 330
TabIndex = 81
Top = 2715
Width = 1455
End
Begin VB.Label Label57
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "锻炼类型："
Height = 285
Left = 330
TabIndex = 80
Top = 3195
Width = 1455
End
Begin VB.Label Label58
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "锻炼时间："
Height = 285
Left = 330
TabIndex = 79
Top = 3675
Width = 1455
End
Begin VB.Label Label59
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "饮食习惯："
Height = 285
Left = 330
TabIndex = 78
Top = 4155
Width = 1455
End
Begin VB.Label Label60
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -