frmtempchest_heartp_abdomen.txt

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

Public Function ChestDescribe(frmTemplet As Form) As String                                     '胸腔
    Dim strTemp As String
    Dim i As Integer
    
    With frmTemplet
        For i = 0 To 1
            If .TxtC_Number(i).Text <> "" Then strTemp = strTemp & "第" & .TxtC_Number(i).Text & "肋间,"
            If .TxtC_L(i).Text <> "" Or .TxtC_W(i).Text <> "" Then
                strTemp = strTemp & "探及" & .TxtC_L(i).Text & "×" & .TxtC_W(i).Text & "mm的" & .comC_Part(i).Text & ","
            ElseIf .comC_Part(i).Text <> "" Then
                strTemp = strTemp & "探及" & .comC_Part(i).Text & ","
            End If
            If .comC_See(i).Text <> "" Then
                strTemp = strTemp & "内见" & .comC_See(i).Text & ","
            End If
            If i = 0 And strTemp <> "" Then ChestDescribe = ChestDescribe & "左侧胸腔" & Change_End(strTemp)
            If i = 1 And strTemp <> "" Then ChestDescribe = ChestDescribe & "右侧胸腔" & Change_End(strTemp)
            strTemp = ""
        Next
    End With

    If ChestDescribe <> "" Then
        ChestDescribe = "胸腔:" & vbCrLf & ChestDescribe & vbCrLf
    Else
        ChestDescribe = "胸腔: 未见异常" & vbCrLf
    End If
End Function

Public Function HeartPDescribe(frmTemplet As Form) As String                                     '心包
    Dim strTemp As String
    
    With frmTemplet
        If .TxtH_Q.Text <> "" Then strTemp = strTemp & "前壁" & .TxtH_Q.Text & "mm;"
        If .TxtH_H.Text <> "" Then strTemp = strTemp & "后壁" & .TxtH_H.Text & "mm;"
        If .TxtH_J.Text <> "" Then strTemp = strTemp & "心尖" & .TxtH_J.Text & "mm;"
        strTemp = Change_End(strTemp)
    End With
    If strTemp <> "" Then
        HeartPDescribe = "心包:" & vbCrLf & strTemp
    Else
        HeartPDescribe = "心包: 未见异常" & vbCrLf
    End If
End Function

Public Function AbdomenDescribe(frmTemplet As Form) As String                                     '腹腔
    Dim strTemp As String
    Dim i As Integer
    
    With frmTemplet
        For i = 0 To 7
            If .txtF_L(i).Text <> "" Or .TxtF_W(i).Text <> "" Then
                strTemp = strTemp & "见" & .txtF_L(i).Text & "×" & .TxtF_W(i).Text & "mm" & .comF_Part(i).Text & ";" & vbCrLf
            ElseIf .comF_Part(i).Text <> "" Then
                strTemp = strTemp & "见" & .comF_Part(i).Text & ";"
            End If
            If i = 0 And strTemp <> "" Then AbdomenDescribe = AbdomenDescribe & "肝肾隐窝," & Change_End(strTemp)
            If i = 1 And strTemp <> "" Then AbdomenDescribe = AbdomenDescribe & "脾肾隐窝," & Change_End(strTemp)
            If i = 2 And strTemp <> "" Then AbdomenDescribe = AbdomenDescribe & "肝前," & Change_End(strTemp)
            If i = 3 And strTemp <> "" Then AbdomenDescribe = AbdomenDescribe & "脐" & .comF_Position.Text & "侧," & Change_End(strTemp)
            If i = 4 And strTemp <> "" Then AbdomenDescribe = AbdomenDescribe & "右上腹," & Change_End(strTemp)
            If i = 5 And strTemp <> "" Then AbdomenDescribe = AbdomenDescribe & "右下腹," & Change_End(strTemp)
            If i = 6 And strTemp <> "" Then AbdomenDescribe = AbdomenDescribe & "左上腹," & Change_End(strTemp)
            If i = 7 And strTemp <> "" Then AbdomenDescribe = AbdomenDescribe & "左下腹," & Change_End(strTemp)
            strTemp = ""
        Next
    End With

    If AbdomenDescribe <> "" Then
        AbdomenDescribe = "腹腔:" & vbCrLf & AbdomenDescribe
    Else
        AbdomenDescribe = "腹腔: 未见异常" & vbCrLf
    End If
End Function