📄 frmbzb_input.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"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form FrmBZB_Input
BackColor = &H00D3DABC&
Caption = "体检录入"
ClientHeight = 9495
ClientLeft = 60
ClientTop = 345
ClientWidth = 14640
Icon = "FrmBZB_Input.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 9495
ScaleWidth = 14640
WindowState = 2 'Maximized
Begin VB.TextBox TxtQuerySelfBH
Height = 285
Left = 2775
TabIndex = 1
ToolTipText = "请输入档案号然后回车"
Top = 8700
Width = 1245
End
Begin VB.Frame Frame11
BackColor = &H00D3DABC&
Caption = "登记列表"
Height = 8175
Left = 75
TabIndex = 116
Top = 90
Width = 3930
Begin VB.ComboBox CmbPXFC
Height = 315
ItemData = "FrmBZB_Input.frx":1982
Left = 1020
List = "FrmBZB_Input.frx":1998
Style = 2 'Dropdown List
TabIndex = 471
Top = 210
Width = 2805
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Height = 7485
Left = 60
TabIndex = 117
Top = 600
Width = 3765
_ExtentX = 6641
_ExtentY = 13203
_Version = 393216
BackColor = 16777215
Cols = 7
BackColorBkg = 12773886
TextStyleFixed = 1
SelectionMode = 1
AllowUserResizing= 3
RowSizingMode = 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
_NumberOfBands = 1
_Band(0).Cols = 7
End
Begin VB.Label Label10
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "排序方式："
Height = 285
Left = -90
TabIndex = 472
Top = 270
Width = 1080
End
End
Begin VB.TextBox txtNumber
Height = 285
Left = 2775
TabIndex = 0
Text = "7"
ToolTipText = "请输入你想要显示的天数（0表示显示所有记录）"
Top = 8385
Width = 1245
End
Begin VB.TextBox txtQuery
Height = 285
Left = 2775
TabIndex = 2
ToolTipText = "请输入用户名然后回车"
Top = 9015
Width = 1245
End
Begin TabDlg.SSTab sstInfo
Height = 9165
Left = 4110
TabIndex = 24
Top = 120
Width = 10470
_ExtentX = 18468
_ExtentY = 16166
_Version = 393216
Tab = 1
TabsPerRow = 4
TabHeight = 520
BackColor = 13884092
TabCaption(0) = "个人信息"
TabPicture(0) = "FrmBZB_Input.frx":19CC
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame3"
Tab(0).Control(1)= "fraGRen"
Tab(0).ControlCount= 2
TabCaption(1) = "体检结果录入"
TabPicture(1) = "FrmBZB_Input.frx":19E8
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "fraDoctor(0)"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Frame10"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Frame6"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "frmKShi"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Frame4"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "picParent"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).ControlCount= 6
TabCaption(2) = "体检结论和建议"
TabPicture(2) = "FrmBZB_Input.frx":1A04
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "FraZJJY"
Tab(2).Control(1)= "Frame9"
Tab(2).Control(2)= "Frame8"
Tab(2).Control(3)= "Frame2"
Tab(2).Control(4)= "fraDoctor(1)"
Tab(2).ControlCount= 5
Begin VB.PictureBox picParent
AutoRedraw = -1 'True
BackColor = &H80000018&
Height = 5775
Left = 3240
ScaleHeight = 5715
ScaleWidth = 6720
TabIndex = 120
Top = 420
Width = 6780
Begin VB.PictureBox picChild
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00D3DABC&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 5625
Left = 0
ScaleHeight = 5625
ScaleMode = 0 'User
ScaleWidth = 6605.964
TabIndex = 121
Top = 0
Width = 6660
Begin VB.CommandButton CmdMB
Height = 315
Index = 80
Left = 390
Picture = "FrmBZB_Input.frx":1A20
Style = 1 'Graphical
TabIndex = 469
Top = 540
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 79
Left = 0
Picture = "FrmBZB_Input.frx":41C2
Style = 1 'Graphical
TabIndex = 468
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 78
Left = 0
Picture = "FrmBZB_Input.frx":6964
Style = 1 'Graphical
TabIndex = 467
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 77
Left = 0
Picture = "FrmBZB_Input.frx":9106
Style = 1 'Graphical
TabIndex = 466
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 76
Left = 0
Picture = "FrmBZB_Input.frx":B8A8
Style = 1 'Graphical
TabIndex = 465
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 75
Left = 0
Picture = "FrmBZB_Input.frx":E04A
Style = 1 'Graphical
TabIndex = 464
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 74
Left = 0
Picture = "FrmBZB_Input.frx":107EC
Style = 1 'Graphical
TabIndex = 463
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 73
Left = 0
Picture = "FrmBZB_Input.frx":12F8E
Style = 1 'Graphical
TabIndex = 462
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 72
Left = 0
Picture = "FrmBZB_Input.frx":15730
Style = 1 'Graphical
TabIndex = 461
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 71
Left = 0
Picture = "FrmBZB_Input.frx":17ED2
Style = 1 'Graphical
TabIndex = 460
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 70
Left = 0
Picture = "FrmBZB_Input.frx":1A674
Style = 1 'Graphical
TabIndex = 459
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 69
Left = 0
Picture = "FrmBZB_Input.frx":1CE16
Style = 1 'Graphical
TabIndex = 458
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 68
Left = 0
Picture = "FrmBZB_Input.frx":1F5B8
Style = 1 'Graphical
TabIndex = 457
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 67
Left = 0
Picture = "FrmBZB_Input.frx":21D5A
Style = 1 'Graphical
TabIndex = 456
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 66
Left = 0
Picture = "FrmBZB_Input.frx":244FC
Style = 1 'Graphical
TabIndex = 455
Top = 0
Width = 285
End
Begin VB.CommandButton CmdMB
Height = 315
Index = 65
Left = 0
Picture = "FrmBZB_Input.frx":26C9E
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -