📄 frmreport.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmReport
Caption = "超声检查报告"
ClientHeight = 7275
ClientLeft = 60
ClientTop = 345
ClientWidth = 10740
HelpContextID = 120
Icon = "frmReport.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 7275
ScaleWidth = 10740
Begin VB.CommandButton cmdSelOrganTemp
Caption = "脏器组合..."
Height = 300
Left = 4065
TabIndex = 77
Top = 3225
Width = 1185
End
Begin VB.ComboBox cboINS_FRE
Height = 300
Left = 6660
TabIndex = 27
Top = 3225
Width = 3675
End
Begin VB.ComboBox cboAgeUnit
Height = 300
Left = 7155
TabIndex = 8
Top = 375
Width = 795
End
Begin VB.TextBox txtSickAge
Height = 300
Left = 6660
TabIndex = 7
Top = 375
Width = 495
End
Begin VB.TextBox txtREC_NO
Height = 270
Left = 9165
TabIndex = 26
Top = 2880
Width = 1185
End
Begin VB.ComboBox cboImageQuality
DataField = "SEND_DOCTOR"
Height = 300
Left = 9165
TabIndex = 24
Top = 2505
Width = 1185
End
Begin VB.TextBox txtUSTip
DataField = "US_TIP4"
Height = 315
Index = 7
Left = 6720
TabIndex = 36
Top = 6870
Width = 3660
End
Begin VB.TextBox txtUSTip
DataField = "US_TIP3"
Height = 315
Index = 6
Left = 1440
TabIndex = 35
Top = 6870
Width = 3930
End
Begin VB.TextBox txtUSTip
DataField = "US_TIP2"
Height = 315
Index = 5
Left = 6720
TabIndex = 34
Top = 6480
Width = 3660
End
Begin VB.TextBox txtUSTip
DataField = "US_TIP1"
Height = 315
Index = 4
Left = 1440
TabIndex = 33
Top = 6480
Width = 3930
End
Begin VB.ComboBox cboRecDoctor
DataField = "REC_DOCTOR"
Height = 300
Left = 6660
TabIndex = 25
Top = 2865
Width = 1305
End
Begin MSComCtl2.DTPicker txtSickBirth
Height = 315
Left = 9060
TabIndex = 9
Top = 375
Width = 1290
_ExtentX = 2275
_ExtentY = 556
_Version = 393216
Format = 51642369
CurrentDate = 29221
End
Begin VB.TextBox txtBedNo
DataField = "SICK_BEDNO"
Height = 300
Left = 1440
TabIndex = 4
Top = 1095
Width = 1095
End
Begin VB.ComboBox cboWard
DataField = "SICK_WARD"
Height = 300
Left = 3600
TabIndex = 3
Top = 735
Width = 1650
End
Begin VB.ComboBox cboBelongSec
DataField = "SICK_BELONG_SEC"
Height = 300
Left = 1440
TabIndex = 2
Top = 735
Width = 1110
End
Begin VB.TextBox txtSickNo
DataField = "SICK_NO"
Height = 300
Left = 3600
TabIndex = 1
Top = 375
Width = 1635
End
Begin VB.ComboBox cboSickType
Appearance = 0 'Flat
DataField = "SICK_TYPE"
Height = 300
Left = 1440
TabIndex = 0
Tag = "病人类型"
Top = 375
Width = 1110
End
Begin VB.TextBox txtSickName
DataField = "SICK_NAME"
Height = 300
Left = 1440
TabIndex = 5
Top = 1455
Width = 1110
End
Begin VB.ComboBox cboSickSex
BackColor = &H00FFFFFF&
Height = 300
Left = 3600
TabIndex = 6
Tag = "病人性别"
Top = 1455
Width = 1650
End
Begin VB.ComboBox cboSickClass
Height = 300
Left = 6660
TabIndex = 10
Top = 735
Width = 3690
End
Begin VB.TextBox txtUnit
DataField = "SICK_UNIT"
Height = 300
Left = 6660
TabIndex = 11
Top = 1095
Width = 3690
End
Begin VB.TextBox txtFamily
DataField = "SICK_FAMILY"
Height = 300
Left = 6660
TabIndex = 12
Top = 1455
Width = 3690
End
Begin VB.TextBox txtDescribe
DataField = "DESCRIBE"
Height = 1635
Left = 1440
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 28
Top = 3945
Width = 8925
End
Begin VB.TextBox txtUSNo
BackColor = &H80000004&
DataField = "US_NO"
Height = 300
Left = 3600
Locked = -1 'True
TabIndex = 14
TabStop = 0 'False
Top = 2145
Width = 1635
End
Begin VB.ComboBox cboUSStyle
DataField = "US_TYPE"
Height = 300
Left = 1440
Style = 2 'Dropdown List
TabIndex = 13
Top = 2145
Width = 1155
End
Begin VB.ComboBox cboOrganName
DataField = "ORGAN_NAME"
Height = 300
Left = 1440
TabIndex = 18
Top = 3225
Width = 2610
End
Begin VB.ComboBox cboClinic
DataField = "CLINIC"
Height = 300
Left = 1440
TabIndex = 17
Top = 2865
Width = 3810
End
Begin VB.TextBox txtCharge
DataField = "CHARGE"
BeginProperty DataFormat
Type = 0
Format = """￥""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
Height = 300
Left = 3600
TabIndex = 20
Text = "0.00"
Top = 3585
Width = 1635
End
Begin VB.TextBox txtOrganNum
DataField = "ORGAN_NUM"
Height = 300
Left = 1440
TabIndex = 19
Text = "0"
Top = 3585
Width = 1110
End
Begin VB.ComboBox cboDDoctor
DataField = "DIAG_DOCTOR"
Height = 300
Left = 1440
TabIndex = 15
Top = 2505
Width = 1155
End
Begin VB.ComboBox cboSDoctor
DataField = "SEND_DOCTOR"
Height = 300
Left = 6660
TabIndex = 23
Top = 2505
Width = 1305
End
Begin VB.ComboBox cboSSection
DataField = "SEND_SECTION"
Height = 300
Left = 9180
TabIndex = 22
Top = 2145
Width = 1170
End
Begin VB.TextBox txtUSTip
DataField = "US_TIP1"
Height = 315
Index = 0
Left = 1440
TabIndex = 29
Top = 5685
Width = 3930
End
Begin VB.TextBox txtUSTip
DataField = "US_TIP2"
Height = 315
Index = 1
Left = 6720
TabIndex = 30
Top = 5685
Width = 3660
End
Begin VB.TextBox txtUSTip
DataField = "US_TIP3"
Height = 315
Index = 2
Left = 1440
TabIndex = 31
Top = 6075
Width = 3930
End
Begin VB.TextBox txtUSTip
DataField = "US_TIP4"
Height = 315
Index = 3
Left = 6720
TabIndex = 32
Top = 6075
Width = 3660
End
Begin VB.ComboBox cboHospital
DataField = "SEND_HOSPITAL"
Height = 300
Left = 6660
TabIndex = 21
Top = 2145
Width = 1305
End
Begin VB.Frame Frame2
Height = 45
Left = 1065
TabIndex = 39
Top = 1920
Width = 9495
End
Begin VB.Frame Frame1
Height = 45
Left = 1050
TabIndex = 38
Top = 165
Width = 9465
End
Begin MSComCtl2.DTPicker txtDiagDay
Height = 300
Left = 3600
TabIndex = 16
Top = 2505
Width = 1635
_ExtentX = 2884
_ExtentY = 529
_Version = 393216
Format = 23789569
CurrentDate = 36016
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "仪器/频率:"
Height = 195
Left = 5520
TabIndex = 76
Top = 3285
Width = 855
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "年龄:"
Height = 195
Left = 5520
TabIndex = 75
Top = 435
Width = 795
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "像带号:"
Height = 195
Left = 8205
TabIndex = 74
Top = 2925
Width = 795
End
Begin VB.Label lblImageQuality
BackStyle = 0 'Transparent
Caption = "图像质量:"
Height = 255
Left = 8205
TabIndex = 73
Top = 2535
Width = 900
End
Begin VB.Label lblUSTip
BackStyle = 0 'Transparent
Caption = "超声提示8:"
ForeColor = &H00000000&
Height = 255
Index = 7
Left = 5520
TabIndex = 72
Top = 6930
Width = 1035
End
Begin VB.Label lblUSTip
BackStyle = 0 'Transparent
Caption = "超声提示7:"
ForeColor = &H00000000&
Height = 255
Index = 6
Left = 345
TabIndex = 71
Top = 6930
Width = 1035
End
Begin VB.Label lblUSTip
BackStyle = 0 'Transparent
Caption = "超声提示6:"
ForeColor = &H00000000&
Height = 270
Index = 5
Left = 5520
TabIndex = 70
Top = 6540
Width = 1035
End
Begin VB.Label lblUSTip
BackStyle = 0 'Transparent
Caption = "超声提示5:"
ForeColor = &H00000000&
Height = 255
Index = 4
Left = 345
TabIndex = 69
Top = 6540
Width = 1035
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "记录者:"
Height = 255
Left = 5520
TabIndex = 68
Top = 2895
Width = 1095
End
Begin VB.Label lblBedNo
BackStyle = 0 'Transparent
Caption = "床位号:"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -