modorgandescribe.bas

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

        End If
        If .cboTG_L_Border.Text <> "" Then strTemp = strTemp & "肿块边界" & .cboTG_L_Border.Text & ","
        If .cboTG_L_Envelope.Text <> "" Then strTemp = strTemp & .cboTG_L_Envelope.Text & "包膜,"
        If .cboTG_L_B.Text <> "" Then strTemp = strTemp & "内部血流分布" & .cboTG_L_B.Text & ","
        strTemp = Change_End(strTemp)
        '
        If .cboTG_Place.Text <> "" And .cboTG_See.Text <> "" Then
            strTemp = strTemp & "甲状腺" & .cboTG_Place.Text & "见" & .cboTG_See.Text & ","
        End If
        strTemp = Change_End(strTemp)
        
        '处理空值、结束符,并回车换行
        If strTemp = ("甲状腺:" & vbCrLf) Then strTemp = strTemp & "甲状腺:未见异常。" & vbCrLf
        
    End With
    
    ThyroidGlandDescribe = strTemp
    
End Function

Public Function MammaryGlandDescribe(frmTemplet As Form) As String                                    '乳腺

    Dim strTemp As String
    Dim i As Integer
    
    With frmTemplet
    
        strTemp = "乳腺:"
        
        For i = 0 To 3
            If .cboMG_Part1(i).Text <> "" And .cboMG_BS(i).Text <> "" Then
                strTemp = strTemp & .cboMG_Part1(i).Text & "乳大小形态" & .cboMG_BS(i).Text & ","
            End If
            If .cboMG_Change(i).Text <> "" Then strTemp = strTemp & "乳腺组织" & .cboMG_Change(i).Text & ","
            If .cboMG_I_Eoch(i).Text <> "" Then strTemp = strTemp & "回声" & .cboMG_I_Eoch(i).Text & ","
            If .cboMG_Quadrant(i).Text <> "" And .cboMG_See(i).Text <> "" Then
                strTemp = strTemp & "乳腺" & .cboMG_Quadrant(i).Text & "象限见" & .cboMG_See(i).Text & ","
            End If
            If .txtMG_Length(i).Text <> "" Or .txtMG_Width(i).Text <> "" Or .txtMG_Z(i).Text <> "" Then
                strTemp = strTemp & "大小" & LengthWideThick(.txtMG_Length(i).Text, .txtMG_Width(i).Text, .txtMG_Z(i).Text) & "mm,"
                ' .txtMG_Length(i).Text & "×" & .txtMG_Width(i).Text & "×" & _
                .txtMG_Z(i).Text & "mm,"
            End If
            If .cboMG_Border(i).Text <> "" Then strTemp = strTemp & "边界" & .cboMG_Border(i).Text & ","
            If .cboMG_Echo(i).Text <> "" Then strTemp = strTemp & "内部回声" & .cboMG_Echo(i).Text & ","
            strTemp = Change_End(strTemp)
        Next
        
        For i = 0 To 1
            If .cboMG_Part2(i).Text <> "" Then strTemp = strTemp & "乳腺探测" & .cboMG_Part2(i).Text & "未见异常回声。"
        Next
        
        '处理空值、结束符,并回车换行
        If strTemp = "乳腺:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If
        
    End With
    
    MammaryGlandDescribe = strTemp
    
End Function

Public Function ArteriaVertebralisDescribe(frmTemplet As Form) As String                                    '椎动脉

    Dim strTemp As String, Temp_Str As String
    Dim i As Integer
    
    With frmTemplet
    
        strTemp = "椎动脉:"

        If InPutArray(0) = True Then Temp_Str = Temp_Str & arrayin(90, 0, 13, 2, .txtAV, " ", "  ", 4, "  椎动脉:", "")
        For i = 0 To 9
            InPutArray(0) = False
        Next
        
        If Temp_Str <> "" Then
            strTemp = "           内径(mm)  内膜厚(mm)  S(cm/s)    D(cm/s)      MN         RI         PI" & vbCrLf _
                & "           左   右    左   右    左   右    左   右    左   右    左   右    左   右" & vbCrLf & Temp_Str & strTemp & vbCrLf
            Temp_Str = ""
        End If

        For i = 0 To 1
            
            If .cboAV_Place(i).Text <> "" And .cboAV_Membrane(i).Text <> "" Then _
                strTemp = strTemp & .cboAV_Place(i).Text & "侧椎动脉内膜" & .cboAV_Membrane(i).Text & ","
            If .cboAV_Echo(i).Text <> "" Then strTemp = strTemp & .cboAV_Place(i).Text & _
                "侧椎动脉内见" & .cboAV_Echo(i).Text & "回声斑块,"
            If .txtAV_X(i).Text <> "" Or .txtAV_Y(i).Text <> "" Or .txtAV_Z(i).Text <> "" Then
                strTemp = strTemp & "大小约" & LengthWideThick(.txtAV_X(i).Text, .txtAV_Y(i).Text, .txtAV_Z(i).Text) & "Cm,"
                '.txtAV_X(i).Text & "×" & .txtAV_Y(i).Text & "×" & .txtAV_Z(i).Text & "Cm,"
            End If
            If .txtAV_Reduce(i).Text <> "" Then strTemp = strTemp & "内径减少" & .txtAV_Reduce(i).Text & "%,"
            If .cboAV_Narrow(i).Text <> "" Then strTemp = strTemp & "属" & .cboAV_Narrow(i).Text & "狭窄,"
            If .cboAV_CDFI(i).Text <> "" Then strTemp = strTemp & "CDFI示" & .cboAV_CDFI(i).Text & ","
            If .cboAV_BloodStream(i).Text <> "" Then strTemp = strTemp & "狭窄处血流束" & _
                .cboAV_BloodStream(i).Text & "变细,"
            If .cboAV_CBloodStream(i).Text <> "" Then strTemp = strTemp & "彩色血流" & .cboAV_CBloodStream(i).Text & ","
            If .cboAV_Spectrum(i).Text <> "" Then strTemp = strTemp & "频谱" & .cboAV_Spectrum(i).Text & ","
            If .txtAV_PW(i).Text <> "" Then strTemp = strTemp & "PW峰值流速" & .txtAV_PW(i).Text & "Cm/s,"
            If .txtAV_DiadtoticPhase(i).Text <> "" Then strTemp = strTemp & "舒张期流速" & _
                .txtAV_DiadtoticPhase(i).Text & "Cm/s。"
            
        Next
        
        '处理空值、结束符,并回车换行
        If strTemp = "椎动脉:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If
        
    End With
    
    ArteriaVertebralisDescribe = strTemp
    
End Function

Public Function WombDescribe(frmTemplet As Form) As String                                    '子宫

    Dim strTemp As String
    Dim i As Integer
        
    With frmTemplet
    
        strTemp = "子宫: "
    
        If .cboW_Part.Text <> "" Then strTemp = strTemp & .cboW_Part.Text & ","
        If .txtW_X.Text <> "" Then strTemp = strTemp & "上下径" & .txtW_X.Text & "mm,"
        If .txtW_Z.Text <> "" Then strTemp = strTemp & "左右径" & .txtW_Z.Text & "mm,"
        If .txtW_Y.Text <> "" Then strTemp = strTemp & "前后径" & .txtW_Y.Text & "mm,"
        If .cboW_Shape.Text <> "" Then strTemp = strTemp & "形态" & .cboW_Shape.Text & ","
        If .cboW_Echo.Text <> "" Then strTemp = strTemp & "宫内回声" & .cboW_Echo.Text & ","
        strTemp = Change_End(strTemp)
        If .cboW_In_See.Text <> "" Then strTemp = strTemp & "宫内见" & .cboW_In_See.Text & ","
        If .cboW_Big.Text <> "" And (.txtW_In_Length.Text <> "" Or .txtW_In_Width.Text <> "" Or .txtW_In_Large.Text <> "") Then
            strTemp = strTemp & .cboW_Big.Text & LengthWideThick(.txtW_In_Length.Text, .txtW_In_Width.Text, .txtW_In_Large.Text) & "mm,"
            ' .txtW_In_Length.Text & "×" & .txtW_In_Width.Text & "×" & .txtW_In_Large.Text & "mm,"
        End If
        If .cboW_Membrane.Text <> "" Then strTemp = strTemp & "内膜" & .cboW_Membrane.Text & ","
        If .txtW_Thick.Text <> "" Then strTemp = strTemp & "内膜厚度" & .txtW_Thick.Text & "mm,"
        If .cboW_PX.Text <> "" Then strTemp = strTemp & "前后壁比例" & .cboW_PX.Text & ","
        strTemp = Change_End(strTemp)
        For i = 0 To 3
            If .cboW_See(i).Text <> "" Then
                strTemp = strTemp & "子宫" & .cboW_Place(i).Text & "见" & .cboW_See(i).Text & ","
            End If
            If .txtW_Length(i).Text <> "" Or .txtW_Width(i).Text <> "" Or .txtW_Large(i).Text <> "" Then
                strTemp = strTemp & "大小" & LengthWideThick(.txtW_Length(i).Text, .txtW_Width(i).Text, .txtW_Large(i).Text) & "mm,"
                ' .txtW_Length(i).Text & "×" & .txtW_Width(i).Text & "×" & .txtW_Large(i).Text & "mm,"
            End If
            If .cboW_Envelope(i).Text <> "" And .cboW_Puff(i).Text <> "" Then
                strTemp = strTemp & .cboW_Envelope(i).Text & "包膜," & .cboW_Puff(i).Text & ","
            End If
            strTemp = Change_End(strTemp)
        Next
        If .cboW_WN_See.Text <> "" Then strTemp = strTemp & "宫颈内见" & .cboW_WN_See.Text & ","
        If .txtW_WN_L.Text <> "" Or .txtW_WN_W.Text <> "" Or .txtW_WN_Large.Text <> "" Then strTemp = strTemp & LengthWideThick(.txtW_WN_L.Text, .txtW_WN_W.Text, .txtW_WN_Large.Text) & ","
        ' .txtW_WN_L.Text & "×" & .txtW_WN_W.Text & "×" & .txtW_WN_Large.Text & ","
        If .cboW_WN_E.Text <> "" Then strTemp = strTemp & .cboW_WN_E.Text & "包膜,"
        strTemp = Change_End(strTemp)

        '处理空值、结束符,并回车换行
        If strTemp = "子宫: " Then strTemp = strTemp & "未见异常。" & vbCrLf
    End With
    WombDescribe = strTemp
    
End Function

Public Function AdnexaDescribe(frmTemplet As Form) As String                                    '附件
    Dim strTemp As String
        
    With frmTemplet
    
        strTemp = "卵巢: "
        
        If .cboW_R_Ovary.Text <> "" And (.txtW_RO_Width.Text <> "" Or .txtW_RO_Length.Text <> "") Then
            strTemp = strTemp & "右卵巢" & LengthWideThick(.cboW_R_Ovary.Text, .txtW_RO_Width.Text, .txtW_RO_Length.Text) & "mm,"
            ' .cboW_R_Ovary.Text & "×" & .txtW_RO_Width.Text & "×" & .txtW_RO_Length.Text & "mm,"
        ElseIf .cboW_R_Ovary.Text <> "" And (.txtW_RO_Width.Text = "" And .txtW_RO_Length.Text = "") Then
            strTemp = strTemp & "右卵巢" & .cboW_R_Ovary.Text & ","
        End If
        If .cboW_RSI.Text <> "" Then strTemp = strTemp & "右卵巢内见" & .cboW_RSI.Text & ","
        If .txtW_RSI1.Text <> "" Or .txtW_RSI2.Text <> "" Or .txtW_RSI3.Text <> "" Then
            strTemp = strTemp & "大小" & LengthWideThick(.txtW_RSI1.Text, .txtW_RSI2.Text, .txtW_RSI3.Text) & "mm,"
            ' .txtW_RSI1.Text & "×" & .txtW_RSI2.Text & "×" & .txtW_RSI3.Text & "mm,"
        End If
        If .cboW_RSO.Text <> "" Then strTemp = strTemp & "右卵巢旁见" & .cboW_RSO.Text & "。" & vbCrLf
        If .txtW_RSO1.Text <> "" Or .txtW_RSO2.Text <> "" Or .txtW_RSO3.Text <> "" Then
            strTemp = strTemp & "大小" & LengthWideThick(.txtW_RSO1.Text, .txtW_RSO2.Text, .txtW_RSO3.Text) & "mm,"
            ' .txtW_RSO1.Text & "×" & .txtW_RSO2.Text & "×" & .txtW_RSO3.Text & "mm,"
        End If
        strTemp = Change_End(strTemp)
        
        If .cboW_L_Ovary.Text <> "" And (.txtW_LO_Width.Text <> "" Or .txtW_LO_Length.Text <> "") Then
            strTemp = strTemp & "左卵巢" & LengthWideThick(.cboW_L_Ovary.Text, .txtW_LO_Width.Text, .txtW_LO_Length.Text) & "mm,"
            ' .cboW_L_Ovary.Text & "×" & .txtW_LO_Width.Text & "×" & .txtW_LO_Length.Text & "mm,"
        ElseIf .cboW_L_Ovary.Text <> "" And (.txtW_LO_Width.Text = "" Or .txtW_LO_Length.Text = "") Then
            strTemp = strTemp & "左卵巢" & .cboW_L_Ovary.Text & ","
        End If
        If .cboW_LSI.Text <> "" Then strTemp = strTemp & "左卵巢内见" & .cboW_LSI.Text & ","
        If .txtW_LSI1.Text <> "" Or .txtW_LSI2.Text <> "" Or .txtW_LSI3.Text <> "" Then
            strTemp = strTemp & "大小" & LengthWideThick(.txtW_LSI1.Text, .txtW_LSI2.Text, .txtW_LSI3.Text) & "mm,"
            ' .txtW_LSI1.Text & "×" & .txtW_LSI2.Text & "×" & .txtW_LSI3.Text & "mm,"
        End If
        If .cboW_LSO.Text <> "" Then strTemp = strTemp & "左卵巢旁见" & .cboW_LSO.Text & "。" & vbCrLf
        If .txtW_LSO1.Text <> "" Or .txtW_LSO2.Text <> "" Or .txtW_LSO3.Text <> "" Then
            strTemp = strTemp & "大小" & LengthWideThick(.txtW_LSO1.Text, .txtW_LSO2.Text, .txtW_LSO3.Text) & "mm,"
            '.txtW_LSO1.Text & "×" & .txtW_LSO2.Text & "×" & .txtW_LSO3.Text & "mm,"
        End If
        strTemp = Change_End(strTemp)
        
        '处理空值、结束符,并回车换行
        If strTemp = "卵巢: " Then strTemp = strTemp & "未见异常。" & vbCrLf
        
        AdnexaDescribe = AdnexaDescribe & strTemp
        
        strTemp = ""
        
        If .cboW_Bladder.Text <> "" Then strTemp = strTemp & "膀胱: " & .cboW_Bladder.Text & "。" & vbCrLf
        
        If .cboW_PelvicCavity.Text <> "" Then strTemp = strTemp & "盆腔: " & .cboW_PelvicCavity.Text & "积液,"
        If .txtW_P.Text <> "" Then strTemp = strTemp & "深" & .txtW_P.Text & "mm,"
        strTemp = Change_End(strTemp)
        
        If .cboW_Adnexa.Text <> "" And .cboW_A_See.Text <> "" Then
            strTemp = strTemp & .cboW_Adnexa.Text & "见" & .cboW_A_See.Text & ","
        End If
        If .txtW_A_Length.Text <> "" Or .txtW_A_Width.Text <> "" Or .txtW_A_Large.Text <> "" Then
            strTemp = strTemp & "大小" & LengthWideThick(.txtW_A_Length.Text, .txtW_A_Width.Text, .txtW_A_Large.Text) & "mm,"
            ' .txtW_A_Length.Text & "×" & .txtW_A_Width.Text & "×" & .txtW_A_Large.Text & "mm,"
        End If
        If .cboW_Boundary.Text <> "" Then strTemp = strTemp & "肿块边界" & .cboW_Boundary.Text & ","
        If .cboW_Envelope1.Text <> "" Then strTemp = strTemp & .cboW_Envelope1.Text & "包膜。"
        If .cboW_B.Text <> "" Then strTemp = strTemp & "内部血流分布" & .cboW_B.Text & "。"
        If .cboW_A_Echo.Text <> "" Then strTemp = strTemp & "内部回声" & .cboW_A_Echo.Text & ","
        If .cboW_InA_See.Text <> "" Then strTemp = strTemp & "内见" & .cboW_InA_See.Text & ","
        
        '处理结束符,并回车换行
        strTemp = Change_End(strTemp)

    End With