📄 formtjbzwh.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Begin VB.Form FormTJBZWH
BackColor = &H00D3DABC&
BorderStyle = 1 'Fixed Single
Caption = "体检标准维护"
ClientHeight = 7245
ClientLeft = 45
ClientTop = 330
ClientWidth = 9495
Icon = "FormTJBZWH.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7245
ScaleWidth = 9495
StartUpPosition = 2 '屏幕中心
Begin VB.Frame fraNumTyp
BackColor = &H00D3DABC&
Caption = "标准明细"
Height = 2415
Left = 855
TabIndex = 24
Top = 1260
Width = 5160
Begin VB.TextBox txtDW
Height = 300
Left = 645
TabIndex = 36
Top = 1980
Width = 765
End
Begin MSComctlLib.ListView LsvBZ
Height = 1320
Left = 75
TabIndex = 34
Top = 225
Width = 4980
_ExtentX = 8784
_ExtentY = 2328
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 = 0
End
Begin VB.TextBox txtXX
Enabled = 0 'False
Height = 270
Left = 675
MaxLength = 6
TabIndex = 30
Top = 1605
Width = 750
End
Begin VB.TextBox txtSX
Enabled = 0 'False
Height = 270
Left = 1875
MaxLength = 6
TabIndex = 29
Top = 1620
Width = 795
End
Begin VB.TextBox txtResult
Enabled = 0 'False
Height = 270
Left = 3270
MaxLength = 30
TabIndex = 28
Top = 1605
Width = 1740
End
Begin XPControls.XPCommandButton XPCmdAdd
Height = 330
Left = 1530
TabIndex = 25
Top = 1980
Width = 540
_ExtentX = 953
_ExtentY = 582
Caption = "添加"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton XPCmdEdit
Height = 330
Left = 2220
TabIndex = 26
Top = 1980
Width = 540
_ExtentX = 953
_ExtentY = 582
Caption = "修改"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton XPCmdSave
Height = 330
Left = 2880
TabIndex = 27
Top = 1980
Width = 540
_ExtentX = 953
_ExtentY = 582
Enabled = 0 'False
Caption = "确认"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton XPCmdDel
Height = 315
Left = 3495
TabIndex = 35
Top = 1980
Width = 540
_ExtentX = 953
_ExtentY = 556
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 CmdSet
Height = 315
Left = 4155
TabIndex = 50
ToolTipText = "设为正常值"
Top = 1980
Width = 870
_ExtentX = 1535
_ExtentY = 556
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 VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位："
Height = 195
Left = 135
TabIndex = 37
Top = 2025
Width = 540
End
Begin VB.Label Label5
BackColor = &H00D3DABC&
Caption = "下限"
Height = 195
Left = 150
TabIndex = 33
Top = 1650
Width = 510
End
Begin VB.Label Label4
BackColor = &H00D3DABC&
Caption = "上限"
Height = 195
Left = 1470
TabIndex = 32
Top = 1665
Width = 435
End
Begin VB.Label Label3
BackColor = &H00D3DABC&
Caption = "结果"
Height = 195
Left = 2745
TabIndex = 31
Top = 1665
Width = 480
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 3510
Top = 60
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame1
BackColor = &H00D3DABC&
Caption = "体检标准"
Height = 2415
Left = 3900
TabIndex = 8
Top = 360
Width = 5415
Begin VB.TextBox txtBZSM
Height = 855
Left = 750
TabIndex = 15
Top = 690
Width = 4545
End
Begin VB.ComboBox cmbBZMC
Height = 315
Left = 1530
TabIndex = 14
Top = 300
Width = 3765
End
Begin VB.Frame FrameCmd
BackColor = &H00D3DABC&
Caption = "操作"
Height = 765
Left = 120
TabIndex = 9
Top = 1560
Width = 5175
Begin XPControls.XPCommandButton cmdSave
Height = 315
Left = 2780
TabIndex = 10
Top = 270
Width = 855
_ExtentX = 1508
_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 cmdChange
Height = 315
Left = 1600
TabIndex = 11
Top = 270
Width = 855
_ExtentX = 1508
_ExtentY = 556
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 cmdDel
Height = 315
Left = 3960
TabIndex = 12
Top = 270
Width = 855
_ExtentX = 1508
_ExtentY = 556
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 cmdAdd
Height = 315
Left = 420
TabIndex = 13
Top = 270
Width = 855
_ExtentX = 1508
_ExtentY = 556
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.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "说明："
Height = 195
Left = 120
TabIndex = 17
Top = 690
Width = 540
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = "体检标准名称："
Height = 300
Left = 120
TabIndex = 16
Top = 330
Width = 1365
End
End
Begin VB.Frame fraInfo
BackColor = &H00D3DABC&
Caption = "标准信息"
Height = 4215
Left = 3900
TabIndex = 0
Top = 2850
Width = 5415
Begin VB.Frame fraSex
BackColor = &H00D3DABC&
Caption = "适用性别"
Height = 555
Left = 120
TabIndex = 20
Top = 270
Width = 5175
Begin VB.OptionButton optFemale
BackColor = &H00D3DABC&
Caption = "女"
Height = 255
Left = 3720
TabIndex = 23
Top = 210
Width = 885
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -