📄 frmrecordedit.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{806F1F89-D431-4F37-A387-2868CC03DCA8}#48.0#0"; "GetData.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmRecordEdit
BackColor = &H00F1E7DA&
BorderStyle = 0 'None
Caption = "报告编辑"
ClientHeight = 10665
ClientLeft = 0
ClientTop = 0
ClientWidth = 15255
ClipControls = 0 'False
Icon = "frmRecordEdit.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 10665
ScaleWidth = 15255
WindowState = 2 'Maximized
Begin VB.Frame frmPatientInfo
BackColor = &H00E6DCBC&
Height = 2445
Left = 15
TabIndex = 0
Top = 30
Width = 15135
Begin GetData.XPB btnModifyParts
Height = 630
Left = 13785
TabIndex = 18
Top = 1440
Width = 1215
_ExtentX = 2143
_ExtentY = 1111
Caption = "修改部位"
FontColor = -2147483630
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.ComboBox cmbCheckPart1
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4920
Style = 2 'Dropdown List
TabIndex = 11
Top = 1335
Width = 2055
End
Begin VB.TextBox txtFee
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 11910
MaxLength = 19
TabIndex = 17
Top = 1860
Width = 1710
End
Begin VB.ComboBox cmbAgensName
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmRecordEdit.frx":6852
Left = 4905
List = "frmRecordEdit.frx":6859
TabIndex = 15
Top = 1890
Width = 2055
End
Begin VB.ComboBox cmbGosage
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmRecordEdit.frx":6868
Left = 8505
List = "frmRecordEdit.frx":686F
TabIndex = 16
Top = 1905
Width = 1935
End
Begin VB.ListBox lstCheck
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
ItemData = "frmRecordEdit.frx":687A
Left = 1350
List = "frmRecordEdit.frx":687C
Sorted = -1 'True
TabIndex = 10
Top = 1395
Width = 2250
End
Begin VB.ComboBox cmbAgeWeigh
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "frmRecordEdit.frx":687E
Left = 12855
List = "frmRecordEdit.frx":688B
Style = 2 'Dropdown List
TabIndex = 5
Top = 225
Width = 780
End
Begin VB.ComboBox cmbCheckMethod
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmRecordEdit.frx":689B
Left = 11910
List = "frmRecordEdit.frx":689D
TabIndex = 13
Top = 1305
Width = 1710
End
Begin VB.TextBox txtFilm_Number
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 11910
MaxLength = 19
TabIndex = 9
Top = 660
Width = 1710
End
Begin VB.TextBox txtBedNumber
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 8505
MaxLength = 4
TabIndex = 8
Top = 660
Width = 1935
End
Begin VB.ComboBox cmbCheckPart
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmRecordEdit.frx":689F
Left = 8520
List = "frmRecordEdit.frx":68A1
TabIndex = 12
Top = 1335
Width = 1935
End
Begin VB.ComboBox cmbApplyDepartment
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1350
TabIndex = 6
Text = "cmbApplyDepartment"
Top = 675
Width = 2250
End
Begin VB.ComboBox cmbApplyDoctorID
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 7050
TabIndex = 61
Text = "cmbApplyDoctorID"
Top = 675
Visible = 0 'False
Width = 615
End
Begin VB.ComboBox cmbApplyDoctorName
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4920
TabIndex = 7
Text = "cmbApplyDoctorName"
Top = 675
Width = 2055
End
Begin VB.ComboBox cmbApplyDepartmentID
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3315
TabIndex = 60
Text = "cmbApplyDepartmentID"
Top = 675
Visible = 0 'False
Width = 465
End
Begin VB.ComboBox cmbSex
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmRecordEdit.frx":68A3
Left = 8505
List = "frmRecordEdit.frx":68B0
Style = 2 'Dropdown List
TabIndex = 3
Top = 225
Width = 1935
End
Begin VB.TextBox txtPatientAge
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 11910
MaxLength = 50
TabIndex = 4
Top = 218
Width = 945
End
Begin VB.TextBox txtPatientName
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4920
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -