modorgantip.bas

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

       If .cboF_See.Text <> "" Then strTemp = strTemp & "胎心" & .cboF_See.Text & ","
       Select Case Val(.txtF_Top.Text)
            Case 19
                strTemp = strTemp & "胎龄12周±7天,"
            Case 20
                strTemp = strTemp & "胎龄12周＋2天±7天,"
            Case 21
                strTemp = strTemp & "胎龄12周＋4天±7天,"
            Case 22
                strTemp = strTemp & "胎龄12周＋6天±7天,"
            Case 23
                strTemp = strTemp & "胎龄13周＋1天±7天,"
            Case 24
                strTemp = strTemp & "胎龄13周＋3天±7天,"
            Case 25
                strTemp = strTemp & "胎龄13周＋5天±7天,"
            Case 26
                strTemp = strTemp & "胎龄14周±7天,"
            Case 27
                strTemp = strTemp & "胎龄14周＋2天±7天,"
            Case 28
                strTemp = strTemp & "胎龄14周＋4天±7天,"
            Case 29
                strTemp = strTemp & "胎龄14周＋6天±8天,"
            Case 30
                strTemp = strTemp & "胎龄15周＋1天±8天,"
            Case 31
                strTemp = strTemp & "胎龄15周＋3天±8天,"
            Case 32
                strTemp = strTemp & "胎龄15周＋5天±8天,"
            Case 33
                strTemp = strTemp & "胎龄16周±8天,"
            Case 34
                strTemp = strTemp & "胎龄16周＋2天±8天,"
            Case 35
                strTemp = strTemp & "胎龄16周＋4天±8天,"
            Case 36
                strTemp = strTemp & "胎龄16周＋6天±8天,"
            Case 37
                strTemp = strTemp & "胎龄17周＋1天±9天,"
            Case 38
                strTemp = strTemp & "胎龄17周＋3天±9天,"
            Case 39
                strTemp = strTemp & "胎龄17周＋5天±9天,"
            Case 40
                strTemp = strTemp & "胎龄18周±9天,"
            Case 41
                strTemp = strTemp & "胎龄18周＋2天±9天,"
            Case 42
                strTemp = strTemp & "胎龄18周＋4天±9天,"
            Case 43
                strTemp = strTemp & "胎龄18周＋6天±10天,"
            Case 44
                strTemp = strTemp & "胎龄19周＋1天±10天,"
            Case 45
                strTemp = strTemp & "胎龄19周＋4天±10天,"
            Case 46
                strTemp = strTemp & "胎龄19周＋6天±10天,"
            Case 47
                strTemp = strTemp & "胎龄20周＋1天±11天,"
            Case 48
                strTemp = strTemp & "胎龄20周＋3天±11天,"
            Case 49
                strTemp = strTemp & "胎龄20周＋5天±11天,"
            Case 50
                strTemp = strTemp & "胎龄21周±11天,"
            Case 51
                strTemp = strTemp & "胎龄21周＋2天±11天,"
            Case 52
                strTemp = strTemp & "胎龄21周＋4天±12天,"
            Case 53
                strTemp = strTemp & "胎龄21周＋6天±12天,"
            Case 54
                strTemp = strTemp & "胎龄22周＋1天±12天,"
            Case 55
                strTemp = strTemp & "胎龄22周＋3天±13天,"
            Case 56
                strTemp = strTemp & "胎龄22周＋5天±13天,"
            Case 57
                strTemp = strTemp & "胎龄23周＋1天±13天,"
            Case 58
                strTemp = strTemp & "胎龄23周＋3天±14天,"
            Case 59
                strTemp = strTemp & "胎龄23周＋5天±14天,"
            Case 60
                strTemp = strTemp & "胎龄24周±14天,"
            Case 61
                strTemp = strTemp & "胎龄24周＋2天±15天,"
            Case 62
                strTemp = strTemp & "胎龄24周＋5天±15天,"
            Case 63
                strTemp = strTemp & "胎龄25周±15天,"
            Case 64
                strTemp = strTemp & "胎龄25周＋2天±15天,"
            Case 65
                strTemp = strTemp & "胎龄25周＋5天±16天,"
            Case 66
                strTemp = strTemp & "胎龄26周±16天,"
            Case 67
                strTemp = strTemp & "胎龄26周＋3天±16天,"
            Case 68
                strTemp = strTemp & "胎龄26周＋5天±16天,"
            Case 69
                strTemp = strTemp & "胎龄27周＋1天±18天,"
            Case 70
                strTemp = strTemp & "胎龄27周＋3天±18天,"
            Case 71
                strTemp = strTemp & "胎龄27周＋6天±18天,"
            Case 72
                strTemp = strTemp & "胎龄28周＋1天±18天,"
            Case 73
                strTemp = strTemp & "胎龄28周＋4天±19天,"
            Case 74
                strTemp = strTemp & "胎龄29周＋1天±19天,"
            Case 75
                strTemp = strTemp & "胎龄29周＋4天±20天,"
            Case 76
                strTemp = strTemp & "胎龄30周±20天,"
            Case 77
                strTemp = strTemp & "胎龄30周＋3天±20天,"
            Case 78
                strTemp = strTemp & "胎龄30周＋6天±21天,"
            Case 79
                strTemp = strTemp & "胎龄31周＋3天±21天,"
            Case 80
                strTemp = strTemp & "胎龄31周＋6天±21天,"
            Case 81
                strTemp = strTemp & "胎龄32周＋3天±22天,"
            Case 82
                strTemp = strTemp & "胎龄32周＋6天±22天,"
            Case 83
                strTemp = strTemp & "胎龄33周＋2天±23天,"
            Case 84
                strTemp = strTemp & "胎龄33周＋6天±23天,"
            Case 85
                strTemp = strTemp & "胎龄34周＋3天±23天,"
            Case 86
                strTemp = strTemp & "胎龄34周＋6天±24天,"
            Case 87
                strTemp = strTemp & "胎龄35周＋4天±24天,"
            Case 88
                strTemp = strTemp & "胎龄36周＋1天±24天,"
            Case 89
                strTemp = strTemp & "胎龄36周＋5天±24天,"
            Case 90
                strTemp = strTemp & "胎龄37周＋1天±25天,"
            Case 91
                strTemp = strTemp & "胎龄37周＋6天±25天,"
            Case 92
                strTemp = strTemp & "胎龄38周＋4天±25天,"
            Case 93
                strTemp = strTemp & "胎龄39周＋2天±25天,"
            Case 94
                strTemp = strTemp & "胎龄40周±25天,"
            Case Else
        End Select
        If .cboF_Ripeness.Text <> "" Then strTemp = strTemp & "胎盘成熟度:" & .cboF_Ripeness.Text & ","
        If .cboF_Cover.Text <> "" Then
            Select Case .cboF_Cover.Text
                Case "部分"
                    strTemp = strTemp & "部分性前置胎盘,"
                Case "完全"
                    strTemp = strTemp & "中央性前置胎盘,"
                Case Else
            End Select
        ElseIf .txtF_L.Text <> "" And Val(.txtF_L.Text) <= 40 Then
            strTemp = strTemp & "低置胎盘,"
        End If
        
        If .txtF_W_1.Text <> "" Or .txtF_W_2.Text <> "" Or .txtF_W_3.Text <> "" Or .txtF_W_4.Text <> "" Then
            Select Case Val(.txtF_W_1.Text) + Val(.txtF_W_2.Text) + Val(.txtF_W_3.Text) + Val(.txtF_W_4.Text)
                Case Is >= 200
                    strTemp = strTemp & "羊水过多,"
                Case Is < 50
                    strTemp = strTemp & "羊水过少,"
                Case Else
            End Select
        End If
'        If .cboF_other.Text <> "" Then strTemp = strTemp & .cboF_other.Text & ","
    End With
            
    strTemp = Change_End(strTemp)
    If strTemp <> "" Then
        If frmReport.txtUSTip(0).Text = "" Then
            FoetusTip = "单胎" & strTemp
        ElseIf frmReport.txtUSTip(1).Text = "" Then
            FoetusTip = "双胎" & strTemp
'        ElseIf frmReport.txtUSTip(2).Text = "" Then
'            FoetusTip = "叁胎" & strTemp
'        ElseIf frmReport.txtUSTip(3).Text = "" Then
'            FoetusTip = "肆胎" & strTemp
        End If
    End If
End Function

Public Function U_BTip(frmTemplet As Form) As String                             '输尿管,膀胱
    Dim strTemp As String
    Dim i As Integer
    
    With frmTemplet
        
        For i = 0 To 1
            If .cboU_Part(i).Text <> "" And .cboU_Inn(i).Text <> "" Then
                strTemp = strTemp & .cboU_Part(i).Text & "输尿管" & .cboU_Inn(i).Text & ","
            End If
        Next
'        If .cboB_Wa.Text = "" Then strTemp = strTemp & "膀胱壁" & .cboB_Wa.Text
        If .cboB_I1.Text <> "" And (.txtB_B1.Text <> "" Or .txtB_B2.Text <> "" Or .txtB_B3.Text <> "") Then
            strTemp = strTemp & "膀胱内" & .cboB_I1.Text & "结石," & .cboB_Big.Text & .txtB_B1.Text & "×" & .txtB_B2.Text & "×" & .txtB_B3.Text & "mm,"
        ElseIf .cboB_I1.Text <> "" Then
            strTemp = strTemp & "膀胱内" & .cboB_I1.Text & "结石,"
        End If
        If .cboK_Look.Text = "见肿大淋巴结" Or .cboK_Look.Text = "见多个肿大淋巴结" Then
            strTemp = strTemp & .cboK_D.Text & "肾门" & .cboK_Look.Text & ","
        End If

    End With
    
    If Right$(strTemp, 1) = "," Then
        Mid$(strTemp, Len(strTemp)) = "。"
    Else
        strTemp = "输尿管膀胱未见异常。"
    End If
    U_BTip = strTemp
    
End Function

Public Function Prostatetip(frmTemplet As Form) As String                       '前列腺
    
    Dim strTemp As String
    Dim i As Integer
    
    With frmTemplet
        If Val(.txtP_A.Text) >= 45 And Val(.txtP_FB.Text) >= 35 And Val(.txtP_Fl.Text) >= 25 Then
            Select Case .cboP_Con.Text
                Case "饱满"
                    If .cboP_IOEcho.Text = "见有" Then
                        strTemp = strTemp & "前列腺增生伴结石,"
                    Else
                        strTemp = strTemp & "前列腺增生症,"
                    End If
                Case "不规则"
                    If .cboP_IEcho.Text = "不均匀" Then strTemp = strTemp & "前列腺肿大,"
                Case Else
            End Select
        End If
    End With
    If Right$(strTemp, 1) = "," Then
        Mid$(strTemp, Len(strTemp)) = "。"
    Else
        strTemp = "前列腺未见异常。"
    End If
    Prostatetip = strTemp
End Function

Public Function StomachTip(frmTemplet As Form) As String                       '胃
    
    Dim strTemp As String
    Dim i As Integer
    
    With frmTemplet
        If Val(.txtS_A.Text) > 0 Then strTemp = strTemp & "胃下垂,"
        If InStr(.cboS_NianMo.Text, "毛糙") > 0 Then strTemp = strTemp & "胃炎,"
    End With
    If Right$(strTemp, 1) = "," Then
        Mid$(strTemp, Len(strTemp)) = "。"
    Else
        strTemp = "胃未见异常。"
    End If
    StomachTip = strTemp
End Function

Public Function AppendixTip(frmTemplet As Form) As String                       '阑尾
    
    Dim strTemp As String
    
    With frmTemplet
        If Val(.txtA_Breadth.Text) > 0 Then strTemp = strTemp & "阑尾炎,"
    End With
    If strTemp <> "" Then
        Mid$(strTemp, Len(strTemp)) = "。"
    Else
        strTemp = "阑尾未见异常。"
    End If
    AppendixTip = strTemp
End Function

Public Function ThoraxTip(frmTemplet As Form) As String
    Dim strTemp As String
    
    With frmTemplet
    
    End With
End Function

Public Sub AddTip(strAdd As String)

    If IniUS.GetString("USReport", "AutoTip") = 1 Then
        With frmReport
            If .txtUSTip(0).Text = "" Or .txtUSTip(0).Text = "未见异常。" Then
                .txtUSTip(0).Text = strAdd
            ElseIf .txtUSTip(1).Text = "" Then
                .txtUSTip(1).Text = strAdd
            ElseIf .txtUSTip(2).Text = "" Then
                .txtUSTip(2).Text = strAdd
            ElseIf .txtUSTip(3).Text = "" Then
                .txtUSTip(3).Text = strAdd
            ElseIf .txtUSTip(4).Text = "" Then
                .txtUSTip(4).Text = strAdd
            ElseIf .txtUSTip(5).Text = "" Then
                .txtUSTip(5).Text = strAdd
            ElseIf .txtUSTip(6).Text = "" Then
                .txtUSTip(6).Text = strAdd
            Else
                .txtUSTip(7).Text = .txtUSTip(7).Text & strAdd
            End If
        End With
    End If
    
End Sub

Public Sub CleanTip()

    Dim i As Integer
    
    With frmReport
        For i = 0 To 7
            .txtUSTip(i).Text = ""
        Next
    End With
    
End Sub