📄 frmbrowser.frm
字号:
VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "resize32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmBrowser
BackColor = &H00D3DABC&
Caption = "体检结果录入"
ClientHeight = 9405
ClientLeft = 60
ClientTop = 450
ClientWidth = 14925
Icon = "frmBrowser.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 9405
ScaleWidth = 14925
WindowState = 2 'Maximized
Begin VB.TextBox TxtQuerySelfBH
Height = 285
Left = 2700
TabIndex = 1
ToolTipText = "请输入用户名或健康号"
Top = 8340
Width = 1305
End
Begin VB.ComboBox CmbPXFC
Height = 315
ItemData = "frmBrowser.frx":1982
Left = 1050
List = "frmBrowser.frx":1995
Style = 2 'Dropdown List
TabIndex = 356
Top = 90
Width = 3015
End
Begin VB.TextBox TxtQueryTJXH
Height = 285
Left = 2700
TabIndex = 3
ToolTipText = "请输入用户名或健康号"
Top = 9000
Width = 1305
End
Begin VB.Frame Frame4
BackColor = &H00D3DABC&
Height = 675
Left = 7170
TabIndex = 185
Top = 8625
Width = 7635
Begin XPControls.XPCommandButton cmdXJie
Height = 360
Left = 90
TabIndex = 186
Top = 210
Width = 930
_ExtentX = 1640
_ExtentY = 635
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 cmdDelete
Height = 360
Left = 5585
TabIndex = 187
Top = 210
Width = 930
_ExtentX = 1640
_ExtentY = 635
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 cmdSave
Height = 360
Left = 2420
TabIndex = 188
Top = 210
Width = 930
_ExtentX = 1640
_ExtentY = 635
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 cmdExit
Height = 360
Left = 6600
TabIndex = 189
Top = 210
Width = 930
_ExtentX = 1640
_ExtentY = 635
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 CmdGetLis
Height = 360
Left = 3435
TabIndex = 190
Top = 210
Width = 990
_ExtentX = 1746
_ExtentY = 635
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 cmdGetNormal
Height = 360
Left = 1245
TabIndex = 191
Top = 210
Width = 930
_ExtentX = 1640
_ExtentY = 635
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 cmdTiJiao
Height = 360
Left = 4510
TabIndex = 192
Top = 210
Width = 990
_ExtentX = 1746
_ExtentY = 635
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 cmdLookArchive
Height = 360
Left = 1105
TabIndex = 447
Top = 210
Visible = 0 'False
Width = 1230
_ExtentX = 2170
_ExtentY = 635
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 MSComCtl2.FlatScrollBar fsbVertical
Height = 5685
Left = 14580
TabIndex = 20
Top = 840
Visible = 0 'False
Width = 285
_ExtentX = 503
_ExtentY = 10028
_Version = 393216
Orientation = 1245184
End
Begin VB.Frame Frame2
BackColor = &H00D3DABC&
Caption = "科室小结"
Height = 1995
Left = 7170
TabIndex = 18
Top = 6600
Width = 7635
Begin VB.TextBox txtXJie
Height = 1695
Left = 120
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 19
Top = 210
Width = 7395
End
End
Begin VB.Frame frmKShi
BackColor = &H00D3DABC&
Caption = "Frame2"
Height = 8535
Left = 4140
TabIndex = 16
Top = 750
Width = 2955
Begin MSComctlLib.TreeView tvwKShi
Height = 8115
Left = 105
TabIndex = 24
Top = 270
Width = 2775
_ExtentX = 4895
_ExtentY = 14314
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Style = 7
Appearance = 1
End
End
Begin VB.Frame Frame1
BackColor = &H00D3DABC&
Height = 615
Left = 4140
TabIndex = 7
Top = 60
Width = 10695
Begin VB.TextBox txtPersonUnit
BackColor = &H8000000F&
Height = 285
Left = 7650
Locked = -1 'True
TabIndex = 365
Top = 210
Width = 2925
End
Begin VB.TextBox txtAge
BackColor = &H8000000F&
Height = 285
Left = 6690
Locked = -1 'True
TabIndex = 362
Top = 210
Width = 345
End
Begin VB.TextBox txtSex
BackColor = &H8000000F&
Height = 285
Left = 5670
Locked = -1 'True
TabIndex = 15
Top = 210
Width = 345
End
Begin VB.TextBox txtName
BackColor = &H8000000F&
Height = 285
Left = 4080
Locked = -1 'True
TabIndex = 13
Top = 210
Width = 975
End
Begin VB.TextBox txtTJSerialNum
BackColor = &H8000000F&
Height = 285
Left = 3060
Locked = -1 'True
TabIndex = 11
Top = 210
Width = 375
End
Begin VB.TextBox txtHealthID
BackColor = &H8000000F&
Height = 285
Left = 930
Locked = -1 'True
TabIndex = 9
Top = 210
Width = 1455
End
Begin VB.Label lblPersonUnit
BackStyle = 0 'Transparent
Caption = "单位："
Height = 195
Left = 7080
TabIndex = 364
Top = 240
Width = 570
End
Begin VB.Label lblAge
BackStyle = 0 'Transparent
Caption = "年龄："
Height = 315
Left = 6060
TabIndex = 363
Top = 240
Width = 585
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "性别："
Height = 315
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -