modorgandescribe.bas

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

        Next

        If Right$(KidneysTransplantDescribe, 3) = ("," & vbCrLf) Or Right$(KidneysTransplantDescribe, 3) = (";" & vbCrLf) _
            Then Mid$(KidneysTransplantDescribe, Len(KidneysTransplantDescribe) - 2) = "。" & vbCrLf

        '处理空值、结束符,并回车换行
        If KidneysTransplantDescribe = ("移植肾:" & vbCrLf) Then
            KidneysTransplantDescribe = "移植肾: 未见异常。" & vbCrLf
        End If

    End With

End Function

Public Function LowerLimbVeinDescribe(frmTemplet As Form) As String                                    '下肢静脉

    Dim strTemp As String
    Dim i As Integer
    
    With frmTemplet
    
        strTemp = "下肢静脉:"
        
        If .txtFemoral_L.Text <> "" Or .txtFemoral_R.Text <> "" Then
            strTemp = strTemp & "股动脉   "
            If .txtFemoral_L.Text <> "" Then strTemp = strTemp & "左:" & .txtFemoral_L.Text & "mm,"
            If .txtFemoral_R.Text <> "" Then
                strTemp = strTemp & "右:" & .txtFemoral_R.Text & "mm," & vbCrLf & "         "
            Else
                strTemp = strTemp & vbCrLf & "         "
            End If
        End If
        If .txtTV_L.Text <> "" Or .txtTV_R.Text <> "" Then
            strTemp = strTemp & "股静脉   "
            If .txtTV_L.Text <> "" Then strTemp = strTemp & "左:" & .txtTV_L.Text & "mm,"
            If .txtTV_R.Text <> "" Then
                strTemp = strTemp & "右:" & .txtTV_R.Text & "mm," & vbCrLf & "         "
            Else
                strTemp = strTemp & vbCrLf & "         "
            End If
        End If
        If .txtTSV_L.Text <> "" Or .txtTSV_R.Text <> "" Then
            strTemp = strTemp & "股浅静脉 "
            If .txtTSV_L.Text <> "" Then strTemp = strTemp & "左:" & .txtTSV_L.Text & "mm,"
            If .txtTSV_R.Text <> "" Then
                strTemp = strTemp & "右:" & .txtTSV_R.Text & "mm," & vbCrLf & "         "
            Else
                strTemp = strTemp & vbCrLf & "         "
            End If
        End If
        If .txtTDV_L.Text <> "" Or .txtTDV_R.Text <> "" Then
            strTemp = strTemp & "股深静脉 "
            If .txtTDV_L.Text <> "" Then strTemp = strTemp & "左:" & .txtTDV_L.Text & "mm,"
            If .txtTDV_R.Text <> "" Then
                strTemp = strTemp & "右:" & .txtTDV_R.Text & "mm," & vbCrLf & "         "
            Else
                strTemp = strTemp & vbCrLf & "         "
            End If
        End If
        If .txtLFV_L.Text <> "" Or .txtLFV_R.Text <> "" Then
            strTemp = strTemp & "胫前静脉 "
            If .txtLFV_L.Text <> "" Then strTemp = strTemp & "左:" & .txtLFV_L.Text & "mm,"
            If .txtLFV_R.Text <> "" Then
                strTemp = strTemp & "右:" & .txtLFV_R.Text & "mm," & vbCrLf & "         "
            Else
                strTemp = strTemp & vbCrLf & "         "
            End If
        End If
        If .txtLBV_L.Text <> "" Or .txtLBV_R.Text <> "" Then
            strTemp = strTemp & "胫后静脉 "
            If .txtLBV_L.Text <> "" Then strTemp = strTemp & "左:" & .txtLBV_L.Text & "mm,"
            If .txtLBV_R.Text <> "" Then
                strTemp = strTemp & "右:" & .txtLBV_R.Text & "mm," & vbCrLf & "         "
            Else
                strTemp = strTemp & vbCrLf & "         "
            End If
        End If
        If .txtArtery_L.Text <> "" Or .txtArtery_R.Text <> "" Then
            strTemp = strTemp & "动 脉    "
            If .txtArtery_L.Text <> "" Then strTemp = strTemp & "左:" & .txtArtery_L.Text & "mm,"
            If .txtArtery_R.Text <> "" Then
                strTemp = strTemp & "右:" & .txtArtery_R.Text & "mm," & vbCrLf & "         "
            Else
                strTemp = strTemp & vbCrLf & "         "
            End If
        End If
        If .txtVein_L.Text <> "" Or .txtVein_R.Text <> "" Then
            strTemp = strTemp & "静 脉    "
            If .txtVein_L.Text <> "" Then strTemp = strTemp & "左:" & .txtVein_L.Text & "mm,"
            If .txtVein_R.Text <> "" Then
                strTemp = strTemp & "右:" & .txtVein_R.Text & "mm," & vbCrLf & "         "
            Else
                strTemp = strTemp & vbCrLf & "         "
            End If
        End If
        If .txtFBA_L.Text <> "" Or .txtFBA_R.Text <> "" Then
            strTemp = strTemp & "足背动脉 "
            If .txtFBA_L.Text <> "" Then strTemp = strTemp & "左:" & .txtFBA_L.Text & "mm,"
            If .txtFBA_R.Text <> "" Then
                strTemp = strTemp & "右:" & .txtFBA_R.Text & "mm," & vbCrLf & "         "
            Else
                strTemp = strTemp & vbCrLf & "         "
            End If
        End If
        
        For i = 0 To 1
            
            If .cboLLV_Place(i).Text <> "" And .cboLLV_NM(i).Text <> "" Then _
                strTemp = strTemp & .cboLLV_Place(i).Text & "静脉内膜" & .cboLLV_NM(i).Text & ","
            If .cboLLV_Echo(i).Text <> "" Then strTemp = strTemp & .cboLLV_Echo(i).Text & "回声光团,"
            If .cboLLV_TC(i).Text <> "" And .cboLLV_BJ(i).Text <> "" Then strTemp = strTemp & "回声" & _
                .cboLLV_TC(i).Text & "管腔,边界" & .cboLLV_BJ(i).Text & ","
            If .cboLLV_GT(i).Text <> "" Then strTemp = strTemp & "光团" & .cboLLV_GT(i).Text & ","
            If .cboLLV_YN(i).Text <> "" Then strTemp = strTemp & "管腔" & .cboLLV_YN(i).Text & "压瘪,"
            If .cboLLV_VL(i).Text <> "" Then strTemp = strTemp & "静脉管径" & .cboLLV_VL(i).Text & "扩张,"
            If .cboLLV_PM(i).Text <> "" And .cboLLV_PH(i).Text <> "" Then strTemp = strTemp & "静脉瓣膜" & _
                .cboLLV_PM(i).Text & ",活动" & .cboLLV_PH(i).Text & ","
            If .cboLLV_CDFI(i).Text <> "" And .cboLLV_BloodSignal(i).Text <> "" Then strTemp = strTemp & _
                "CDFI示静脉内" & .cboLLV_CDFI(i).Text & .cboLLV_BloodSignal(i).Text & "血流信号,"
            If .cboLLF_CBlood(i).Text <> "" Then strTemp = strTemp & "其旁" & .cboLLF_CBlood(i).Text & ","
            If .cboLLV_BSC(i).Text <> "" Then strTemp = strTemp & "血流信号增强" & .cboLLV_BSC(i).Text & ","
            If .cboLLV_F(i).Text <> "" Then strTemp = strTemp & "乏氏反应" & .cboLLV_F(i).Text & ","
            If .cboLLV_BC(i).Text <> "" Then strTemp = strTemp & "血流速度随呼吸运动" & .cboLLV_BC(i).Text & ","
            If .txtLLV_C(i).Text <> "" Then
                strTemp = strTemp & "返流时间" & .txtLLV_C(i).Text & "秒。" & vbCrLf & "         "
            Else
                If strTemp <> "下肢静脉:" Then strTemp = strTemp & vbCrLf & "         "
            End If
                
            
        Next
        
        '处理空值、结束符,并回车换行
        If strTemp = "下肢静脉:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If
        
    End With
    
    LowerLimbVeinDescribe = strTemp
    
End Function

Public Function HeartDescribe(frmTemplet As Form) As String             '心脏
    
    '---------------------
    '生成心脏的描述
    '---------------------

    Dim strTemp As String
    Dim i As Integer
        
    With frmTemplet
            
        strTemp = "心脏:" & vbCrLf
        
        If .txtH_AORD.Text <> "" Then strTemp = strTemp & "主动脉根部内径(AORD＜37)- - - " & .txtH_AORD.Text & "mm,"
        If .txtH_RVFW.Text <> "" Then
            strTemp = strTemp & "右室前壁厚度( 4 ) - - - - - - " & .txtH_RVFW.Text & "mm," & vbCrLf
        ElseIf .txtH_RVFW.Text <> "" Then
            strTemp = strTemp & vbCrLf
        End If

        If .txtH_LVDD.Text <> "" Then strTemp = strTemp & "左室舒张末期内径(LVDD ＜55) - " & .txtH_LVDD.Text & "mm,"
        If .txtH_RVD.Text <> "" Then
            strTemp = strTemp & "右室内径(RVD ＜22)- - - - - - " & .txtH_RVD.Text & "mm," & vbCrLf
        ElseIf .txtH_RVD.Text <> "" Then
            strTemp = strTemp & vbCrLf
        End If

        If .txtH_LVDS.Text <> "" Then strTemp = strTemp & "左室收缩末期内径(LVDS)- - - - " & .txtH_LVDS.Text & "mm,"
        If .txtH_LL.Text <> "" Then
            strTemp = strTemp & "右室流出道内径(＞30)- - - - - " & .txtH_LL.Text & "mm," & vbCrLf
        ElseIf .txtH_LL.Text <> "" Then
            strTemp = strTemp & vbCrLf
        End If

        If .txtH_LAD.Text <> "" Then strTemp = strTemp & "左房内径(LAD＜35) - - - - - - " & .txtH_LAD.Text & "mm,"
        If .txtH_EF.Text <> "" Then
            strTemp = strTemp & "射血分数(EF 66.08±10.66%)- - " & .txtH_EF.Text & "％," & vbCrLf
        ElseIf .txtH_EF.Text <> "" Then
            strTemp = strTemp & vbCrLf
        End If

        If .txtH_IVST.Text <> "" Then strTemp = strTemp & "室间隔厚度(IVST ＜12) - - - - " & .txtH_IVST.Text & "mm,"
        If .txtH_FS.Text <> "" Then
            strTemp = strTemp & "短轴缩短率(FS)- - - - - - - - " & .txtH_FS.Text & "％," & vbCrLf
        ElseIf .txtH_FS.Text <> "" Then
            strTemp = strTemp & vbCrLf
        End If

        If .txtH_LVPW.Text <> "" Then strTemp = strTemp & "左室后壁厚度(LVPW ＜12) - - - " & .txtH_LVPW.Text & "mm,"
        If .txtH_SV.Text <> "" Then
            strTemp = strTemp & "每搏输出量(SV)- - - - - - - - " & .txtH_SV.Text & "ml," & vbCrLf
        ElseIf .txtH_SV.Text <> "" Then
            strTemp = strTemp & vbCrLf
        End If
        
        If .txtH_RL.Text <> "" Then strTemp = strTemp & "左室流出道内径(＞20)- - - - - " & .txtH_RL.Text & "mm,"
        If .txtH_CO.Text <> "" Then
            strTemp = strTemp & "每分输出量(CO)- - - - - - - - " & .txtH_CO.Text & "L/Min," & vbCrLf
        ElseIf .txtH_CO.Text <> "" Then
            strTemp = strTemp & vbCrLf
        End If
        
        If .txtH_HR.Text <> "" Then strTemp = strTemp & "HR - - - - - - " & .txtH_HR.Text & "次/分。" & vbCrLf
        
        If Mid(strTemp, Len(strTemp) - 2) = ("," & vbCrLf) Then strTemp = Left(strTemp, Len(strTemp) - 1)
        HeartDescribe = HeartDescribe & Change_End(strTemp)
        strTemp = ""
        
        If .txtH_E_F.Text <> "" Then strTemp = strTemp & "E峰" & .txtH_E_F.Text & "cm/S,"
        If .txtH_E_A.Text <> "" Then strTemp = strTemp & "A峰" & .txtH_E_A.Text & "cm/S,"
        If .cboH_EA.Text <> "" Then strTemp = strTemp & "E/A" & .cboH_EA.Text & "1,"
        
        HeartDescribe = HeartDescribe & Change_End(strTemp)
        strTemp = ""
        
        If .txtH_L_A.Text <> "" Then strTemp = strTemp & "肺动脉血流" & .txtH_L_A.Text & "cm/S,"
        If .txtH_M_A.Text <> "" Then strTemp = strTemp & "主动脉血流" & .txtH_M_A.Text & "cm/S,"
        
        HeartDescribe = HeartDescribe & Change_End(strTemp)
        strTemp = ""

        For i = 0 To 3
            If .cboH_Atrium(i).Text <> "" Then
                strTemp = strTemp & "    " & .cboH_Atrium(i).Text
                If .txtH_A1(i).Text <> "" And .txtH_A2(i).Text <> "" Then
                    strTemp = strTemp & "内径" & .txtH_A1(i).Text & "×" & .txtH_A2(i).Text & "mm,"
                ElseIf .txtH_A1(i).Text <> "" Or .txtH_A2(i).Text <> "" Then
                    strTemp = strTemp & "内径" & .txtH_A1(i).Text & .txtH_A2(i).Text & "mm,"
                End If
                If .cboH_State(i).Text <> "" Then strTemp = strTemp & .cboH_State(i).Text
                strTemp = Change_End(strTemp)
            End If
        Next
        If .cboH_LI.Text <> "" Then strTemp = strTemp & "    左室后壁与室间隔" & .cboH_LI.Text & ", "
        If .cboH_ME.Text <> "" Then strTemp = strTemp & "活动幅度" & .cboH_ME.Text & ", "
        If .cboH_LI.Text <> "" Or .cboH_ME.Text <> "" Then strTemp = strTemp & vbCrLf
        
        For i = 0 To 4
            If .cboH_L_Space(i).Text <> "" Then
                strTemp = strTemp & "        " & .cboH_L_Space(i).Text & "见节段运动异常" & .cboH_M(i).Text & ","
                If .txtH_G1(i).Text <> "" And .txtH_G2(i).Text <> "" Then
                    strTemp =