📄 frmreportedit.frm
字号:
TabIndex = 12
Top = 1185
Visible = 0 'False
Width = 1710
End
Begin VB.ComboBox cmbAgeWeigh
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "frmReportEdit.frx":686C
Left = 13770
List = "frmReportEdit.frx":686E
Locked = -1 'True
Style = 2 'Dropdown List
TabIndex = 9
Top = 315
Width = 600
End
Begin VB.TextBox txtBedNumber
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
IMEMode = 2 'OFF
Left = 13320
Locked = -1 'True
MaxLength = 20
TabIndex = 11
Top = 705
Width = 1905
End
Begin VB.ComboBox cmbApplyDoctorName
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4455
Locked = -1 'True
Style = 2 'Dropdown List
TabIndex = 10
Top = 690
Width = 2040
End
Begin VB.ComboBox cmbApplyDepartmentID
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2700
TabIndex = 18
Top = 600
Visible = 0 'False
Width = 750
End
Begin VB.ComboBox cmbSex
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "frmReportEdit.frx":6870
Left = 10575
List = "frmReportEdit.frx":687D
Locked = -1 'True
Style = 2 'Dropdown List
TabIndex = 7
Top = 300
Width = 1710
End
Begin VB.TextBox txtPatientAge
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
IMEMode = 2 'OFF
Left = 13320
Locked = -1 'True
MaxLength = 50
TabIndex = 8
Top = 315
Width = 465
End
Begin VB.TextBox txtPatientName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
IMEMode = 1 'ON
Left = 4455
Locked = -1 'True
MaxLength = 50
TabIndex = 6
Top = 315
Width = 2040
End
Begin VB.Label Label4
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "状 态"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 6705
TabIndex = 29
Top = 750
Width = 885
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "住 院 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 5
Left = 9630
TabIndex = 28
Top = 750
Width = 840
End
Begin VB.Label Label2
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "姓名拼音"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 6705
TabIndex = 26
Top = 360
Width = 840
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "费用/元"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 3
Left = 9630
TabIndex = 24
Top = 1110
Width = 750
End
Begin VB.Label lblGosageFee
BackStyle = 0 'Transparent
Caption = "剂量费用"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 16800
TabIndex = 23
Top = 1275
Visible = 0 'False
Width = 975
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "病 床 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 7
Left = 12465
TabIndex = 22
Top = 750
Width = 855
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "部位信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 135
TabIndex = 21
Top = 1110
Width = 870
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "申请医生"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 2
Left = 3555
TabIndex = 20
Top = 750
Width = 855
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "申请科室"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 4
Left = 135
TabIndex = 19
Top = 750
Width = 870
End
Begin VB.Label lblCheckNumber
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 330
Left = 1035
TabIndex = 5
Top = 315
Width = 2295
End
Begin VB.Label lblCNumber
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "编 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 135
TabIndex = 17
Top = 360
Width = 915
End
Begin VB.Label lblPName
BackColor = &H00E0E0E0&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -