📄 frmquery_c.frm
字号:
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "总工龄"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 7
Text = "接害工龄"
Object.Width = 1940
EndProperty
End
Begin XPControls.XPCommandButton CmdZYBSDel
Height = 315
Left = 5640
TabIndex = 159
Top = 2730
Width = 795
_ExtentX = 1402
_ExtentY = 556
Enabled = 0 'False
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 CmdZYBSModify
Height = 315
Left = 4125
TabIndex = 160
Top = 2730
Width = 795
_ExtentX = 1402
_ExtentY = 556
Enabled = 0 'False
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 CmdZYBSAdd
Height = 315
Left = 2610
TabIndex = 161
Top = 2730
Width = 795
_ExtentX = 1402
_ExtentY = 556
Enabled = 0 'False
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
End
Begin VB.Frame fraHealth2
BackColor = &H00D3DABC&
Caption = "健康档案"
Height = 6945
Left = -74760
TabIndex = 96
Top = 450
Width = 9135
Begin VB.Frame Frame10
BackColor = &H00D3DABC&
Caption = "饮酒史"
Height = 1665
Left = 210
TabIndex = 152
Top = 5160
Width = 8715
Begin MSComctlLib.ListView lvwYJS
Height = 990
Left = 150
TabIndex = 153
Top = 240
Width = 8385
_ExtentX = 14790
_ExtentY = 1746
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
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
Begin XPControls.XPCommandButton cmdYJSDel
Height = 315
Left = 5490
TabIndex = 154
Top = 1290
Width = 795
_ExtentX = 1402
_ExtentY = 556
Enabled = 0 'False
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 = 315
Left = 3975
TabIndex = 155
Top = 1290
Width = 795
_ExtentX = 1402
_ExtentY = 556
Enabled = 0 'False
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 = 315
Left = 2460
TabIndex = 156
Top = 1290
Width = 795
_ExtentX = 1402
_ExtentY = 556
Enabled = 0 'False
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
End
Begin VB.Frame Frame11
BackColor = &H00D3DABC&
Caption = "吸烟史"
Height = 1605
Left = 210
TabIndex = 147
Top = 3450
Width = 8715
Begin MSComctlLib.ListView lvwXYS
Height = 915
Left = 180
TabIndex = 148
Top = 240
Width = 8355
_ExtentX = 14737
_ExtentY = 1614
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
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
Begin XPControls.XPCommandButton cmdXYSDel
Height = 315
Left = 5490
TabIndex = 149
Top = 1230
Width = 795
_ExtentX = 1402
_ExtentY = 556
Enabled = 0 'False
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 cmdXYSModify
Height = 315
Left = 3975
TabIndex = 150
Top = 1230
Width = 795
_ExtentX = 1402
_ExtentY = 556
Enabled = 0 'False
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 = 315
Left = 2460
TabIndex = 151
Top = 1230
Width = 795
_ExtentX = 1402
_ExtentY = 556
Enabled = 0 'False
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -