frmtempk_a.frm

VB6.0编写的医院影像系统

               TabIndex        =   50
               Tag             =   "大小"
               Text            =   "cboK_Bigger"
               Top             =   3720
               Width           =   735
            End
            Begin VB.ComboBox cboK_See 
               Height          =   300
               Index           =   1
               Left            =   3480
               TabIndex        =   49
               Tag             =   "所见声像图"
               Text            =   "cboK_See"
               Top             =   3720
               Width           =   2235
            End
            Begin VB.ComboBox cboK_Place 
               Height          =   300
               Index           =   1
               Left            =   2040
               TabIndex        =   48
               Tag             =   "位置"
               Text            =   "cboK_Place"
               Top             =   3720
               Width           =   1095
            End
            Begin VB.ComboBox cboK_Part2 
               Height          =   300
               Index           =   1
               Left            =   900
               TabIndex        =   47
               Tag             =   "肾部位"
               Text            =   "cboK_Part2"
               Top             =   3720
               Width           =   735
            End
            Begin VB.ComboBox cboK_Shape 
               Height          =   300
               Index           =   1
               Left            =   1920
               TabIndex        =   36
               Tag             =   "大小形态"
               Text            =   "cboK_Shape"
               Top             =   3000
               Width           =   1095
            End
            Begin VB.ComboBox cboK_Part1 
               Height          =   300
               Index           =   1
               Left            =   180
               TabIndex        =   35
               Tag             =   "肾部位"
               Text            =   "cboK_Part1"
               Top             =   3000
               Width           =   735
            End
            Begin VB.ComboBox cboK_Calculus 
               Height          =   300
               Index           =   1
               Left            =   180
               TabIndex        =   41
               Tag             =   "结石"
               Text            =   "cboK_Calculus"
               Top             =   3360
               Width           =   735
            End
            Begin VB.ComboBox cboK_Hydrops 
               Height          =   300
               Index           =   1
               Left            =   1440
               TabIndex        =   42
               Tag             =   "积水"
               Text            =   "cboK_Hydrops"
               Top             =   3360
               Width           =   735
            End
            Begin VB.ComboBox cboK_Affection 
               Height          =   300
               Index           =   1
               Left            =   4440
               TabIndex        =   44
               Tag             =   "占位性病变"
               Text            =   "cboK_Affection"
               Top             =   3360
               Width           =   735
            End
            Begin VB.TextBox txtK_Z 
               Height          =   270
               Index           =   1
               Left            =   8400
               TabIndex        =   53
               Text            =   "txtK_Z"
               Top             =   3735
               Width           =   495
            End
            Begin VB.ComboBox cboK_Envelope 
               Height          =   300
               Index           =   1
               Left            =   6060
               TabIndex        =   56
               Tag             =   "肿块内部回声"
               Text            =   "cboK_Envelope"
               Top             =   4080
               Width           =   1635
            End
            Begin VB.ComboBox cboK_B 
               Height          =   300
               Index           =   1
               Left            =   8940
               TabIndex        =   57
               Tag             =   "肿块内部血流"
               Text            =   "cboK_B"
               Top             =   4080
               Width           =   1995
            End
            Begin VB.ComboBox cboK_Boundary 
               Height          =   300
               Index           =   1
               Left            =   3480
               TabIndex        =   55
               Tag             =   "肿块边缘"
               Text            =   "cboK_Boundary"
               Top             =   4080
               Width           =   1575
            End
            Begin VB.TextBox txtK_PI 
               Height          =   270
               Index           =   0
               Left            =   6060
               TabIndex        =   34
               Text            =   "txtK_PI"
               Top             =   2535
               Width           =   495
            End
            Begin VB.TextBox txtK_RI 
               Height          =   270
               Index           =   0
               Left            =   3900
               TabIndex        =   33
               Text            =   "txtK_RI"
               Top             =   2535
               Width           =   495
            End
            Begin VB.ComboBox cboK_T_Shape 
               Height          =   300
               Index           =   0
               Left            =   1680
               TabIndex        =   29
               Tag             =   "肿块形态"
               Text            =   "cboK_T_Shape"
               Top             =   2160
               Width           =   1095
            End
            Begin VB.ComboBox cboK_BM 
               Height          =   300
               Index           =   0
               Left            =   3900
               TabIndex        =   12
               Tag             =   "包膜"
               Text            =   "cboK_BM"
               Top             =   1080
               Width           =   1095
            End
            Begin VB.TextBox txtK_Apart 
               Height          =   270
               Index           =   0
               Left            =   3540
               TabIndex        =   18
               Text            =   "txtK_Apart"
               Top             =   1455
               Width           =   495
            End
            Begin VB.TextBox txtK_FB 
               Height          =   270
               Index           =   1
               Left            =   4500
               TabIndex        =   7
               Text            =   "txtK_FB"
               Top             =   675
               Width           =   495
            End
            Begin VB.TextBox txtK_FB 
               Height          =   270
               Index           =   0
               Left            =   4500
               TabIndex        =   2
               Text            =   "txtK_FB"
               Top             =   345
               Width           =   495
            End
            Begin VB.ComboBox cboK_Boundary 
               Height          =   300
               Index           =   0
               Left            =   3480
               TabIndex        =   30
               Tag             =   "肿块边缘"
               Text            =   "cboK_Boundary"
               Top             =   2160
               Width           =   1575
            End
            Begin VB.ComboBox cboK_B 
               Height          =   300
               Index           =   0
               Left            =   8940
               TabIndex        =   32
               Tag             =   "肿块内部血流"
               Text            =   "cboK_B"
               Top             =   2160
               Width           =   1995
            End
            Begin VB.ComboBox cboK_Envelope 
               Height          =   300
               Index           =   0
               Left            =   6060
               TabIndex        =   31
               Tag             =   "肿块内部回声"
               Text            =   "cboK_Envelope"
               Top             =   2160
               Width           =   1635
            End
            Begin VB.TextBox txtK_Z 
               Height          =   270
               Index           =   0
               Left            =   8400
               TabIndex        =   28
               Text            =   "txtK_Z"
               Top             =   1815
               Width           =   495
            End
            Begin VB.ComboBox cboK_Affection 
               Height          =   300
               Index           =   0
               Left            =   4440
               TabIndex        =   19
               Tag             =   "占位性病变"
               Text            =   "cboK_Affection"
               Top             =   1440
               Width           =   735
            End
            Begin VB.ComboBox cboK_Hydrops 
               Height          =   300
               Index           =   0
               Left            =   1440
               TabIndex        =   17
               Tag             =   "积水"
               Text            =   "cboK_Hydrops"
               Top             =   1440
               Width           =   735
            End
            Begin VB.ComboBox cboK_Calculus 
               Height          =   300
               Index           =   0
               Left            =   180
               TabIndex        =   16
               Tag             =   "结石"
               Text            =   "cboK_Calculus"
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtK_B_Length 
               Height          =   270
               Index           =   0
               Left            =   1140
               TabIndex        =   0
               Text            =   "txtK_B_Length"
               Top             =   345
               Width           =   495
            End
            Begin VB.TextBox txtK_B_Width 
               Height          =   270
               Index           =   0
               Left            =   2820
               TabIndex        =   1
               Text            =   "txtK_B_Width"
               Top             =   345
               Width           =   495
            End
            Begin VB.TextBox txtK_B_Thick 
               Height          =   270
               Index           =   0
               Left            =   6420
               TabIndex        =   3
               Text            =   "txtK_B_Thick"
               Top             =   330
               Width           =   495
            End
            Begin VB.TextBox txtK_B_Apart 
               Height          =   270
               Index           =   0
               Left            =   8640
               TabIndex        =   4
               Text            =   "txtK_B_Apart"
               Top             =   330
               Width           =   495
            End
            Begin VB.TextBox txtK_B_Width 
               Height          =   270
               Index           =   1
               Left            =   2820
               TabIndex        =   6
               Text            =   "txtK_B_Width"
               Top             =   675
               Width           =   495
            End
            Begin VB.TextBox txtK_B_Length 
               Height          =   270
               Index           =   1
               Left            =   1140
               TabIndex        =   5
               Text            =   "txtK_B_Length"
               Top             =   675
               Width           =   495
            End
            Begin VB.TextBox txtK_B_Thick 
               Height          =   270
               Index           =   1
               Left            =   6420
               TabIndex        =   8
               Text            =   "txtK_B_Thick"
               Top             =   660
               Width           =   495
            End
            Begin VB.TextBox txtK_B_Apart 
               Height          =   270
               Index           =   1
               Left            =   8640
               TabIndex        =   9
               Text            =   "txtK_B_Apart"
               Top             =   660
               Width           =   495
            End
            Begin VB.ComboBox cboK_Part1 
               Height          =   300
               Index           =   0
               Left            =   180
               TabIndex        =   10
               Tag             =   "肾部位"
               Text            =   "cboK_Part1"
               Top             =   1080
               Width           =   735
            End
            Begin VB.ComboBox cboK_Shape