modorgandescribe.bas

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

Attribute VB_Name = "modOrganDescribe"
Option Explicit
Public OrganChosen(200) As Integer                  '已选器官数组,用于病例中

Public Function VisceraDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    
    With frmTemplet
        
        If .cboA_Viscera.Text <> "" Then strTemp = strTemp & "腹部胀气明显,腹腔脏器显示" & _
            .cboA_Viscera.Text & "。" & vbCrLf

    End With
    
    VisceraDescribe = strTemp
    
End Function

Public Function LiverDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    
    With frmTemplet
    
        strTemp = "肝脏:"
        
        If .txtL_RDiameter.Text <> "" Then strTemp = strTemp & "右叶斜径" & .txtL_RDiameter.Text & "mm,"
        If .txtL_LLength.Text <> "" Then strTemp = strTemp & "左叶长" & .txtL_LLength.Text & "mm,"
        If .txtL_Thick.Text <> "" Then strTemp = strTemp & "厚" & .txtL_Thick.Text & "mm,"
        If .cboL_OutWall.Text <> "" Then strTemp = strTemp & "包膜" & .cboL_OutWall.Text & ","
        If .cboL_LightSpot.Text <> "" Then strTemp = strTemp & "肝区光点" & .cboL_LightSpot.Text & ","
        If .cboL_Echo.Text <> "" Then strTemp = strTemp & "回声分布" & .cboL_Echo.Text & ","
        If .cboL_Vein.Text <> "" Then strTemp = strTemp & "血管走行" & .cboL_Vein.Text & ","
        If .cboL_InLiver.Text <> "" Then strTemp = strTemp & "肝内" & .cboL_InLiver.Text & ","
        If .cboL_BileDuct.Text <> "" Then strTemp = strTemp & "肝内" & .cboL_RL.Text & "胆管" & .cboL_BileDuct.Text & ","
        If .txtL_NJ.Text <> "" Then strTemp = strTemp & "内径" & .txtL_NJ.Text & "mm,"
        If .txtL_PortalVein.Text <> "" Then strTemp = strTemp & "门静脉" & .txtL_PortalVein.Text & "mm,"
        If .txtL_DoorVein.Text <> "" Then strTemp = strTemp & "肝静脉" & .txtL_DoorVein.Text & "mm,"
        If .cboL_Place.Text <> "" And .cboL_See.Text <> "" Then
            strTemp = strTemp & "肝" & .cboL_Place.Text & "见" & .cboL_See.Text & ","
        End If
        If .cboL_Bigger.Text <> "" And (.txtL_Length.Text <> "" Or .txtL_Width.Text <> "" Or .txtL_Z.Text <> "") Then
            strTemp = strTemp & .cboL_Bigger.Text & LengthWideThick(.txtL_Length.Text, .txtL_Width.Text, .txtL_Z.Text) & "mm,"
            '& .txtL_Length.Text & "×" & .txtL_Width.Text & "×" & .txtL_Z.Text & "mm,"
        End If
        If .cboL_Boundary.Text <> "" Then strTemp = strTemp & "肿块边界" & .cboL_Boundary.Text & ","
        If .cboL_Envelope.Text <> "" Then strTemp = strTemp & .cboL_Envelope.Text & "包膜,"
        If .cboL_B.Text <> "" Then strTemp = strTemp & "内部血流分布" & .cboL_B.Text & "。"
        
        
        If strTemp = "肝脏:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If

    End With
    
    LiverDescribe = strTemp
    
End Function

Public Function GallBladderDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    
    With frmTemplet
    
        strTemp = "胆囊:"
        
        If .cboGB_Plentiful.Text <> "" Then strTemp = strTemp & .cboGB_Plentiful.Text & ","
        If .txtGB_Length.Text <> "" Or .txtGB_Width.Text <> "" Then
            strTemp = strTemp & "大小" & .txtGB_Length.Text & "×" & .txtGB_Width.Text & "mm,"
        End If
        If .txtGB_WallThick.Text <> "" Then strTemp = strTemp & "囊壁厚" & .txtGB_WallThick.Text & "mm,"
        If .cboGB_Wall.Text <> "" Then strTemp = strTemp & "囊壁" & .cboGB_Wall.Text & ","
        If .cboGB_GW.Text <> "" Then strTemp = strTemp & "胆汁透声" & .cboGB_GW.Text & ","
        If .cboGB_Place.Text <> "" And .cboGB_InWall.Text <> "" Then
            strTemp = strTemp & "囊内" & .cboGB_Place.Text & "见" & .cboGB_InWall.Text & ","
        ElseIf .cboGB_InWall.Text <> "" Then
            strTemp = strTemp & "囊内" & .cboGB_InWall.Text & ","
        End If
        If .cboGB_In_Bigger.Text <> "" And (.txtGB_In_Length.Text <> "" Or .txtGB_In_Width.Text <> "" Or .txtGB_In_Z.Text <> "") Then
            strTemp = strTemp & .cboGB_In_Bigger.Text & LengthWideThick(.txtGB_In_Length.Text, .txtGB_In_Width.Text, .txtGB_In_Z.Text) & "mm,"
            ' .txtGB_In_Length.Text & "×" & .txtGB_In_Width.Text & "×" & .txtGB_In_Z.Text & "mm,"
        End If
        If .txtGB_CBD.Text <> "" Then strTemp = strTemp & "总胆管" & .cboGB_CBD.Text & .txtGB_CBD.Text & "mm,"
        If .cboGB_TG.Text <> "" Then strTemp = strTemp & "内见" & .cboGB_TG.Text & ","
        If .txtGB_X.Text <> "" Or .txtGB_Y.Text <> "" Or .txtGB_Z.Text <> "" Then
            strTemp = strTemp & LengthWideThick(.txtGB_X.Text, .txtGB_Y.Text, .txtGB_Z.Text) & "mm,"
            '.txtGB_X.Text & "×" & .txtGB_Y.Text & "×" & .txtGB_Z.Text & "mm,"
        End If
        strTemp = Change_End(strTemp)
        
        If strTemp = "胆囊:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If

    End With
    
    GallBladderDescribe = strTemp
    
End Function

Public Function PancreasDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    
    With frmTemplet
    
        strTemp = "胰腺:"
        
        If .cboP_XT.Text <> "" Then strTemp = strTemp & "大小形态" & .cboP_XT.Text & ","
        If .txtP_Caput.Text <> "" Then strTemp = strTemp & "头" & .txtP_Caput.Text & "mm,"
        If .txtP_Body.Text <> "" Then strTemp = strTemp & "体" & .txtP_Body.Text & "mm,"
        If .txtP_Cauda.Text <> "" Then strTemp = strTemp & "尾" & .txtP_Cauda.Text & "mm,"
        If .cboP_Echo.Text <> "" Then strTemp = strTemp & "内部回声" & .cboP_Echo.Text & ","
        If .cboP_Canal.Text <> "" Then strTemp = strTemp & "主胰管" & .cboP_Canal.Text & ","
        If .txtP_IDiameter.Text <> "" Then strTemp = strTemp & "内径" & .txtP_IDiameter.Text & "mm,"
        If .cboP_Place.Text <> "" And .cboP_See.Text <> "" Then
            strTemp = strTemp & "胰" & .cboP_Place.Text & "见" & .cboP_See.Text & "。"
        End If
        If .txtP_Length.Text <> "" Or .txtP_Width.Text <> "" Or .txtP_Z.Text <> "" Then
            strTemp = strTemp & "大小" & LengthWideThick(.txtP_Length.Text, .txtP_Width.Text, .txtP_Z.Text) & "mm,"
            '& .txtP_Length.Text & "×" & .txtP_Width.Text & "×" & .txtP_Z.Text & "mm,"
        End If
        If .cboP_Boundary.Text <> "" Then strTemp = strTemp & "肿块边界" & .cboP_Boundary.Text & ","
        If .cboP_Envelope.Text <> "" Then strTemp = strTemp & .cboP_Envelope.Text & "包膜,"
        If .cboP_B.Text <> "" Then strTemp = strTemp & "内部血流分布" & .cboP_B.Text & "。"
               
        If strTemp = "胰腺:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If


    End With
    
    PancreasDescribe = strTemp
    
End Function

Public Function SpleenDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    
    With frmTemplet
    
        strTemp = "脾脏:"

        If .cboS_XT.Text <> "" Then strTemp = strTemp & "大小形态" & .cboS_XT.Text & ","
        If .txtS_BLength.Text <> "" Or .txtS_BWidth.Text <> "" Then
            strTemp = strTemp & "脾脏大小" & .txtS_BLength.Text & "×" & .txtS_BWidth.Text & "mm,"
        End If
        If .txtS_H.Text <> "" Then strTemp = strTemp & "厚" & .txtS_H.Text & "mm,"
        If .txtS_LD.Text <> "" Then strTemp = strTemp & "肋下" & .txtS_LD.Text & "mm,"
        If .cboS_OutWall.Text <> "" Then strTemp = strTemp & "包膜" & .cboS_OutWall.Text & ","
        If .cboS_Echo.Text <> "" Then strTemp = strTemp & "内部回声" & .cboS_Echo.Text & ","
        strTemp = Change_End(strTemp)
        If .cboS_See.Text <> "" Then strTemp = strTemp & "脾内见" & .cboS_See.Text & ","
        If .txtS_Length.Text <> "" Or .txtS_Width.Text <> "" Then
            strTemp = strTemp & "大小" & .txtS_Length.Text & "×" & .txtS_Width.Text & "mm,"
        End If
        If .cboS_Boundary.Text <> "" Then strTemp = strTemp & "肿块边界" & .cboS_Boundary.Text & ","
        If .cboS_Envelope.Text <> "" Then strTemp = strTemp & .cboS_Envelope.Text & "包膜,"
        If .cboS_B.Text <> "" Then strTemp = strTemp & "内部血流分布" & .cboS_B.Text & ","
        strTemp = Change_End(strTemp)
        
        If strTemp = "脾脏:" Then
            strTemp = strTemp & "未见异常。" & vbCrLf
        Else
            If Right$(strTemp, 1) = "," Then Mid$(strTemp, Len(strTemp)) = "。"
            strTemp = strTemp & vbCrLf
        End If

    End With
    
    SpleenDescribe = strTemp
    
End Function

Public Function BackPeritoneumDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    
    With frmTemplet
    
        strTemp = "后腹膜:"
        
        If .cboBP_LymphNode.Text <> "" Then strTemp = strTemp & "腹主动脉旁" & .cboBP_LymphNode.Text & "肿大淋巴结,"
        If .cboBP_Bigger.Text <> "" And (.txtBP_Length.Text <> "" Or .txtBP_Width.Text <> "" Or .txtBP_Z.Text <> "") Then
            strTemp = strTemp & .cboBP_Bigger.Text & LengthWideThick(.txtBP_Length.Text, .txtBP_Width.Text, .txtBP_Z.Text) & "mm。"
            '.txtBP_Length.Text & "×" & .txtBP_Width.Text & "×" & .txtBP_Z.Text & "mm。"
        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
    
    BackPeritoneumDescribe = strTemp
    
End Function

Public Function PelvicCavityDescribe(frmTemplet As Form) As String

    Dim strTemp As String
    Dim i As Integer
    
    With frmTemplet

        For i = 0 To 1
            Select Case i
                Case 0
                    If .cboA_VenterPlace.Text <> "" Or .cboA_See(i).Text <> "" Then
                        strTemp = strTemp & "腹腔" & .cboA_VenterPlace.Text & "见" & .cboA_See(i).Text & "。"
                    End If
                Case 1
                    If .cboA_PelvicPlace.Text <> "" Or .cboA_See(i).Text <> "" Then
                        strTemp = strTemp & "盆腔" & .cboA_PelvicPlace.Text & "见" & .cboA_See(i).Text & "。"
                    End If
                Case Else
            End Select
            If .txtA_S1(i).Text <> "" Or .txtA_S2(i).Text <> "" Or .txtA_S3(i).Text <> "" Then
                strTemp = strTemp & .cboA_Bigger(i).Text & LengthWideThick(.txtA_S1(i).Text, .txtA_S2(i).Text, .txtA_S3(i).Text) & "mm。" & vbCrLf
                '.txtA_S1(i).Text & "×" & .txtA_S2(i).Text & "×" & .txtA_S3(i).Text & "mm。" & vbCrLf
            End If
        Next
        If .cboA_YW.Text <> "" Then strTemp = strTemp & "肝肾隐窝脾肾隐窝" & .cboA_YW.Text & "。" & vbCrLf
        If .cboA_PelvicCavity.Text <> "" Then strTemp = strTemp & "腹腔盆腔" & .cboA_PelvicCavity.Text & "。" & vbCrLf

    End With
    
    PelvicCavityDescribe = strTemp
    
End Function