modorgandescribe.bas

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

Public Function KidneysDescribe(frmTemplet As Form) As String

    Dim strTemp  As String
    Dim Temp_Str As String
    Dim i As Integer
    
    With frmTemplet
        Temp_Str = ""
        strTemp = "双肾:" & vbCrLf
        For i = 0 To 1
            If .txtK_B_Length(i).Text <> "" Then Temp_Str = Temp_Str & "上下径" & .txtK_B_Length(i).Text & "mm,"
            If .txtK_B_Width(i).Text <> "" Then Temp_Str = Temp_Str & "左右径" & .txtK_B_Width(i).Text & "mm,"
            If .txtK_FB(i).Text <> "" Then Temp_Str = Temp_Str & "前后径" & .txtK_FB(i).Text & "mm,"
            If .txtK_B_Thick(i).Text <> "" Then Temp_Str = Temp_Str & "实质厚" & .txtK_B_Thick(i).Text & "mm,"
            If .txtK_B_Apart(i).Text <> "" Then Temp_Str = Temp_Str & "肾窦厚度" & .txtK_B_Apart(i).Text & "mm,"
            If Temp_Str <> "" Then
                If i = 0 Then
                    strTemp = strTemp & "右肾" & Change_End(Temp_Str)
                    Temp_Str = ""
                Else
                    strTemp = strTemp & "左肾" & Change_End(Temp_Str)
                    Temp_Str = ""
                End If
            End If
        Next
        
        For i = 0 To 1
            If .cboK_Part1(i).Text <> "" And .cboK_Shape(i).Text <> "" Then
                strTemp = strTemp & .cboK_Part1(i).Text & "肾大小形态" & .cboK_Shape(i).Text & ","
            End If
            If .cboK_BM(i).Text <> "" Then strTemp = strTemp & "肾包膜" & .cboK_BM(i).Text & ","
            If .cboK_I_J(i).Text <> "" Then strTemp = strTemp & "肾内结构" & .cboK_I_J(i).Text & ","
            If .cboK_P_S(i).Text <> "" Then strTemp = strTemp & "皮质髓质分界" & .cboK_P_S(i).Text & ","
            If .cboK_KIB(i).Text <> "" Then strTemp = strTemp & "肾内血管分布" & .cboK_KIB(i).Text & ","
            If .cboK_Calculus(i).Text <> "" Then strTemp = strTemp & .cboK_Part1(i).Text & "肾" & _
                .cboK_Calculus(i).Text & "结石,"
            If .cboK_Hydrops(i).Text <> "" Then strTemp = strTemp & .cboK_Part1(i).Text & "肾" & _
                .cboK_Hydrops(i).Text & "积水,"
            If .txtK_Apart(i).Text <> "" Then strTemp = strTemp & "肾盂分离" & .txtK_Apart(i).Text & "mm,"
            If .cboK_Affection(i).Text <> "" Then strTemp = strTemp & .cboK_Part1(i).Text & "肾" & _
                .cboK_Affection(i).Text & "占位性病变,"
            strTemp = Change_End(strTemp)
            If .cboK_KD(i).Text <> "" Then strTemp = strTemp & "肾门处" & .cboK_KD(i).Text & "肿大淋巴结,"
            If .cboK_RS(i).Text <> "" Then strTemp = strTemp & "肾静脉内" & .cboK_RS(i).Text & "癌栓回声,"
            strTemp = Change_End(strTemp)
            If .cboK_Part2(i).Text <> "" And .cboK_Place(i).Text <> "" And .cboK_See(i).Text <> "" Then
                strTemp = strTemp & .cboK_Part2(i).Text & "肾" & .cboK_Place(i).Text & "见" & .cboK_See(i).Text & ","
            End If
            If .cboK_Bigger(i).Text <> "" And (.txtK_Length(i).Text <> "" Or .txtK_Width(i).Text <> "" Or .txtK_Z(i).Text <> "") Then
                strTemp = strTemp & .cboK_Bigger(i).Text & LengthWideThick(.txtK_Length(i).Text, .txtK_Width(i).Text, .txtK_Z(i).Text) & "mm,"
                '.txtK_Length(i).Text & "×" & .txtK_Width(i).Text & "×" & .txtK_Z(i).Text & "mm,"
            End If
            If .cboK_T_Shape(i).Text <> "" Then strTemp = strTemp & "肿块形态" & .cboK_T_Shape(i).Text & ","
            If .cboK_Boundary(i).Text <> "" Then strTemp = strTemp & "边缘" & .cboK_Boundary(i).Text & ","
            If .cboK_Envelope(i).Text <> "" Then strTemp = strTemp & "内部回声" & .cboK_Envelope(i).Text & ","
            If .cboK_B(i).Text <> "" Then strTemp = strTemp & "肿块内部" & .cboK_B(i).Text & ","
            If .txtK_RI(i).Text <> "" Then strTemp = strTemp & "测量肿块内部动脉血管阻力指数(RI)" & .txtK_RI(i).Text & ","
            If .txtK_PI(i).Text <> "" Then strTemp = strTemp & "搏动指数(PI)" & .txtK_PI(i).Text & ","
            strTemp = Change_End(strTemp)
        Next
        strTemp = Change_End(strTemp)
        '处理空值、结束符,并回车换行
        If strTemp = ("双肾:" & vbCrLf) Then strTemp = "双肾: 未见异常" & vbCrLf

    End With
    
    KidneysDescribe = strTemp
    
End Function

Public Function RingDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    
    With frmTemplet
        
        If .cboR_Ring.Text <> "" Then strTemp = strTemp & "宫内节育环" & .cboR_Ring.Text & "。" & vbCrLf

    End With
    
    RingDescribe = strTemp
    
End Function

Public Function KidneysPunctureDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    
    With frmTemplet
    
        strTemp = "双肾穿刺定位:"
        '右肾穿刺定位
        If .txtKP_R_X.Text <> "" Then strTemp = strTemp & "右肾上下径" & .txtKP_R_X.Text & "mm,"
        If .txtKP_R_Y.Text <> "" Then strTemp = strTemp & "右肾前后径" & .txtKP_R_Y.Text & "mm,"
        If .txtKP_R_Z.Text <> "" Then strTemp = strTemp & "右肾左右径" & .txtKP_R_Z.Text & "mm,"
        If .txtKP_R_Thick.Text <> "" Then strTemp = strTemp & "右肾实质厚度" & .txtKP_R_Thick.Text & "mm,"
        If .txtKP_R_Distance.Text <> "" Then strTemp = strTemp & "右肾包膜至表皮距离约" & .txtKP_R_Distance.Text & "mm。"
        '左肾穿刺定位
        If .txtKP_L_X.Text <> "" Then strTemp = strTemp & "左肾上下径" & .txtKP_L_X.Text & "mm,"
        If .txtKP_L_Y.Text <> "" Then strTemp = strTemp & "左肾前后径" & .txtKP_L_Y.Text & "mm,"
        If .txtKP_L_Z.Text <> "" Then strTemp = strTemp & "左肾左右径" & .txtKP_L_Z.Text & "mm,"
        If .txtKP_L_Thick.Text <> "" Then strTemp = strTemp & "左肾实质厚度" & .txtKP_L_Thick.Text & "mm,"
        If .txtKP_L_Distance.Text <> "" Then strTemp = strTemp & "左肾包膜至表皮距离约" & .txtKP_L_Distance.Text & "mm。"
        
        If .cboKP_Part.Text <> "" Then strTemp = strTemp & .cboKP_Part.Text & "肾穿刺已定位。"
        '处理空值、结束符,并回车换行
        If strTemp = "双肾穿刺定位:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If
        
    End With
    
    KidneysPunctureDescribe = strTemp
    
End Function

Public Function EyesDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    
    With frmTemplet
    
        strTemp = "眼睛:"
        '右眼
        If .txtE_R_A.Text <> "" Then strTemp = strTemp & "右眼长轴" & .txtE_R_A.Text & "mm,"
        If .txtE_R_Thick.Text <> "" Then strTemp = strTemp & "右眼晶状体厚度" & .txtE_R_Thick.Text & "mm,"
        If .cboE_R_VitreousBody.Text <> "" Then strTemp = strTemp & "右眼玻璃体内" & .cboE_R_VitreousBody.Text & ","
        If .txtE_R_Length.Text <> "" Or .txtE_R_Width.Text <> "" Or .txtE_R_Z.Text <> "" Then
            strTemp = strTemp & "右眼大小" & LengthWideThick(.txtE_R_Length.Text, .txtE_R_Width.Text, .txtE_R_Z.Text) & "mm,"
            '.txtE_R_Length.Text & "×" & .txtE_R_Width.Text & "×" & .txtE_R_Z.Text & "mm,"
        End If
        If .cboE_R_Eyeground.Text <> "" Then strTemp = strTemp & "右眼眼底" & .cboE_R_Eyeground.Text & ","
        If .txtE_R_Apart.Text <> "" Then strTemp = strTemp & "右眼分离" & .txtE_R_Apart.Text & "mm。"
        '左眼
        If .txtE_L_A.Text <> "" Then strTemp = strTemp & "左眼长轴" & .txtE_L_A.Text & "mm,"
        If .txtE_L_Thick.Text <> "" Then strTemp = strTemp & "左眼晶状体厚度" & .txtE_L_Thick.Text & "mm,"
        If .cboE_L_VitreousBody.Text <> "" Then strTemp = strTemp & "左眼玻璃体内" & .cboE_L_VitreousBody.Text & ","
        If .txtE_L_Length.Text <> "" Or .txtE_L_Width.Text <> "" Or .txtE_L_Z.Text <> "" Then
            strTemp = strTemp & "左眼大小" & LengthWideThick(.txtE_L_Length.Text, .txtE_L_Width.Text, .txtE_L_Z.Text) & "mm,"
            ' .txtE_L_Length.Text & "×" & .txtE_L_Width.Text & "×" & .txtE_L_Z.Text & "mm,"
        End If
        If .cboE_L_Eyeground.Text <> "" Then strTemp = strTemp & "左眼眼底" & .cboE_L_Eyeground.Text & ","
        If .txtE_L_Apart.Text <> "" Then strTemp = strTemp & "左眼分离" & .txtE_L_Apart.Text & "mm。"
        '处理空值、结束符,并回车换行
        If strTemp = "眼睛:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If
        
    End With
    
    EyesDescribe = strTemp
    
End Function

Public Function AdrensDescribe(frmTemplet As Form) As String                                    '双肾上腺

    Dim strTemp As String
    Dim i As Integer
    
    With frmTemplet
    
        strTemp = "双肾上腺:" & vbCrLf
        
        For i = 0 To 1
            If .cboA_Part1(i).Text <> "" And .cboA_Echo(i).Text <> "" Then
                strTemp = strTemp & .cboA_Part1(i).Text & "侧肾上腺内部回声" & .cboA_Echo(i).Text & ","
            End If
            If .cboA_Probe(i).Text <> "" Then
                strTemp = strTemp & .cboA_Part1(i).Text & "侧肾上腺区域探测" & .cboA_Probe(i).Text & ","
            End If
            If .txtA_Length1(i).Text <> "" Or .txtA_Width1(i).Text <> "" Or .txtA_Z1(i).Text <> "" Then
                strTemp = strTemp & "大小" & LengthWideThick(.txtA_Length1(i).Text, .txtA_Width1(i).Text, .txtA_Z1(i).Text) & "mm。"
                ' .txtA_Length1(i).Text & "×" & .txtA_Width1(i).Text & "×" & .txtA_Z1(i).Text & "mm。"
            End If
        Next
        If .cboA_Part2.Text <> "" And .cboA_See.Text <> "" Then
            strTemp = strTemp & .cboA_Part2.Text & "侧肾上腺" & .cboA_See.Text & ","
        End If
        If .cboA_Bigger.Text <> "" And (.txtA_Length2.Text <> "" Or .txtA_Width2.Text <> "" Or .txtA_Z2.Text <> "") Then
            strTemp = strTemp & .cboA_Bigger.Text & LengthWideThick(.txtA_Length2.Text, .txtA_Width2.Text, .txtA_Z2.Text) & "mm,"
            ' .txtA_Length2.Text & "×" & .txtA_Width2.Text & "×" & .txtA_Z2.Text & "mm,"
        If .cboA_Boundary.Text <> "" Then strTemp = strTemp & "肿块边界" & .cboA_Boundary.Text & ","
        If .cboA_Envelope.Text <> "" Then strTemp = strTemp & .cboA_Envelope.Text & "包膜,"
        If .cboA_B.Text <> "" Then strTemp = strTemp & "内部血流分布" & .cboA_B.Text & "。"
        End If
        
        '处理空值、结束符,并回车换行
        If strTemp = "双肾上腺:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If
        
    End With
    
    AdrensDescribe = strTemp
    
End Function

Public Function ThyroidGlandDescribe(frmTemplet As Form) As String                                    '甲状腺

    Dim strTemp As String
    
    With frmTemplet
    
        strTemp = "甲状腺:" & vbCrLf
        
        '测量大小
        If .cboTG_R_Leaf.Text <> "" Then strTemp = strTemp & "右侧叶" & .cboTG_R_Leaf.Text & ","
        If .txtTG_R_Length1.Text <> "" Or .txtTG_R_Width1.Text <> "" Or .txtTG_R_Z1.Text <> "" Then
            strTemp = strTemp & "大小" & LengthWideThick(.txtTG_R_Length1.Text, .txtTG_R_Width1.Text, .txtTG_R_Z1.Text) & "mm,"
            '.txtTG_R_Length1.Text & "×" & .txtTG_R_Width1.Text & "×" & .txtTG_R_Z1.Text & "mm,"
        End If
        If .cboTG_L_Leaf.Text <> "" Then strTemp = strTemp & "左侧叶" & .cboTG_L_Leaf.Text & ","
        If .txtTG_L_Length1.Text <> "" Or .txtTG_L_Width1.Text <> "" Or .txtTG_L_Z1.Text <> "" Then
            strTemp = strTemp & "大小" & LengthWideThick(.txtTG_L_Length1.Text, .txtTG_L_Width1.Text, .txtTG_L_Z1.Text) & "mm,"
            ' .txtTG_L_Length1.Text & "×" & .txtTG_L_Width1.Text & "×" & .txtTG_L_Z1.Text & "mm,"
        End If
        If .txtTG_Thick.Text <> "" Then strTemp = strTemp & "峡部厚度" & .txtTG_Thick.Text & "mm,"
        strTemp = Change_End(strTemp)
        '右叶状态
        If .cboTG_R_Shape.Text <> "" Then strTemp = strTemp & "右侧叶形态" & .cboTG_R_Shape.Text & ","
        If .cboTG_R_Echo.Text <> "" Then strTemp = strTemp & "内部回声" & .cboTG_R_Echo.Text & ","
        If .cboTG_R_BloodStream.Text <> "" Then strTemp = strTemp & "血流分布" & .cboTG_R_BloodStream.Text & ","
        If .cboTG_R_Tumour.Text <> "" Then strTemp = strTemp & "内见" & .cboTG_R_Tumour.Text & ","
        If .txtTG_R_Length2.Text <> "" Or .txtTG_R_Width2.Text <> "" Or .txtTG_R_Z2.Text <> "" Then
            strTemp = strTemp & "肿块大小" & LengthWideThick(.txtTG_R_Length2.Text, .txtTG_R_Width2.Text, .txtTG_R_Z2.Text) & "mm,"
            '.txtTG_R_Length2.Text & "×" & .txtTG_R_Width2.Text & "×" & .txtTG_R_Z2.Text & "mm,"
        End If
        If .cboTG_R_Border.Text <> "" Then strTemp = strTemp & "肿块边界" & .cboTG_R_Border.Text & ","
        If .cboTG_R_Envelope.Text <> "" Then strTemp = strTemp & .cboTG_R_Envelope.Text & "包膜,"
        If .cboTG_R_B.Text <> "" Then strTemp = strTemp & "内部血流分布" & .cboTG_R_B.Text & ","
        strTemp = Change_End(strTemp)
        '左叶状态
        If .cboTG_L_Shape.Text <> "" Then strTemp = strTemp & "左侧叶形态" & .cboTG_L_Shape.Text & ","
        If .cboTG_L_Echo.Text <> "" Then strTemp = strTemp & "内部回声" & .cboTG_L_Echo.Text & ","
        If .cboTG_L_BloodStream.Text <> "" Then strTemp = strTemp & "血流分布" & .cboTG_L_BloodStream.Text & ","
        If .cboTG_L_Tumour.Text <> "" Then strTemp = strTemp & "内见" & .cboTG_L_Tumour.Text & ","
        If .txtTG_L_Length2.Text <> "" Or .txtTG_L_Width2.Text <> "" Or .txtTG_L_Z2.Text <> "" Then
            strTemp = strTemp & "肿块大小" & LengthWideThick(.txtTG_L_Length2.Text, .txtTG_L_Width2.Text, .txtTG_L_Z2.Text) & "mm,"
            ' .txtTG_L_Length2.Text & "×" & .txtTG_L_Width2.Text & "×" & .txtTG_L_Z2.Text & "mm,"