frmtempkidneyspuncture.frm

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

               Left            =   5400
               TabIndex        =   29
               Top             =   975
               Width           =   315
            End
            Begin VB.Label Label5 
               Caption         =   "左右径"
               Height          =   195
               Left            =   4200
               TabIndex        =   28
               Top             =   975
               Width           =   915
            End
            Begin VB.Label Label4 
               Caption         =   "mm。"
               Height          =   195
               Left            =   10440
               TabIndex        =   27
               Top             =   435
               Width           =   315
            End
            Begin VB.Label Label3 
               Caption         =   "肾包膜至表皮距离约"
               Height          =   195
               Left            =   8160
               TabIndex        =   26
               Top             =   435
               Width           =   1935
            End
            Begin VB.Label Label2 
               Caption         =   "mm,"
               Height          =   195
               Left            =   7560
               TabIndex        =   25
               Top             =   435
               Width           =   315
            End
            Begin VB.Label Label1 
               Caption         =   "肾实质厚度"
               Height          =   195
               Left            =   6000
               TabIndex        =   24
               Top             =   435
               Width           =   975
            End
            Begin VB.Label Label76 
               Caption         =   "肾穿刺已定位。"
               Height          =   195
               Index           =   0
               Left            =   1020
               TabIndex        =   23
               Top             =   1553
               Width           =   1335
            End
            Begin VB.Label Label67 
               Caption         =   "左右径"
               Height          =   195
               Left            =   4200
               TabIndex        =   22
               Top             =   435
               Width           =   915
            End
            Begin VB.Label Label66 
               Caption         =   "mm,"
               Height          =   195
               Left            =   5400
               TabIndex        =   21
               Top             =   435
               Width           =   315
            End
            Begin VB.Label Label65 
               Caption         =   "前后径"
               Height          =   195
               Left            =   2280
               TabIndex        =   20
               Top             =   435
               Width           =   735
            End
            Begin VB.Label Label59 
               Caption         =   "mm,"
               Height          =   195
               Left            =   3480
               TabIndex        =   19
               Top             =   435
               Width           =   315
            End
            Begin VB.Label Label58 
               Caption         =   "右肾上下径"
               Height          =   195
               Left            =   180
               TabIndex        =   18
               Top             =   435
               Width           =   975
            End
            Begin VB.Label Label57 
               Caption         =   "mm,"
               Height          =   195
               Left            =   1740
               TabIndex        =   17
               Top             =   435
               Width           =   315
            End
         End
      End
   End
End
Attribute VB_Name = "frmTempKidneysPuncture"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public strDescribe As String
Public strTip As String
Public Loaded As Boolean        '窗体是否加载
Private CurrentTempOrderNumber As Integer


Private Sub cmdAdd_Click()

    strDescribe = strDescribe & KidneysPunctureDescribe(Me)
    strTip = KidneysPunctureTip(Me)
    AddTip strTip
    
    AddDescribe strDescribe
    
    Unload Me
    
    With frmReport
'        If .txtUSTip(0).Text = "" Then .txtUSTip(0).Text = "未见异常。"
        .txtDescribe.SetFocus
    End With
    
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdCover_Click()
    
    CleanTip
    
    strDescribe = strDescribe & KidneysPunctureDescribe(Me)
    strTip = KidneysPunctureTip(Me)
    AddTip strTip
    
    CoverDescribe strDescribe
    
    Unload Me
    
    With frmReport
'        If .txtUSTip(0).Text = "" Then .txtUSTip(0).Text = "未见异常。"
        .txtDescribe.SetFocus
    End With
    
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode
        Case US_KEY_ADD
            cmdAdd_Click
        Case US_KEY_COVER
            cmdCover_Click
        Case US_KEY_CANCEL
            cmdCancel_Click
        Case vbKeyReturn
            SendKeys "{TAB}"
        Case Else
        
    End Select
    
End Sub

Private Sub Form_Load()
    strDescribe = ""
    strTip = ""
    
    Me.Loaded = True
    CurrentTempOrderNumber = modCommon.TempOrderNumber
    modCommon.TempLoadFlag(CurrentTempOrderNumber) = Me.Loaded
    modCommon.OldTempLoadFlag(CurrentTempOrderNumber) = Me.Loaded
    
    TempletINI Me
    Screen.MousePointer = vbDefault
    
End Sub

Private Sub Form_Terminate()
    Me.Loaded = False
    modCommon.TempLoadFlag(CurrentTempOrderNumber) = Me.Loaded
    If modCommon.LastTempNumber <> CurrentTempOrderNumber Then modCommon.PopOrganTemp (modCommon.OrganModelNameChosen)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set frmTempKidneysPuncture = Nothing
End Sub

Private Sub txtKP_R_Distance_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_R_Distance)
End Sub

Private Sub txtKP_R_Thick_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_R_Thick)
End Sub

Private Sub txtKP_R_X_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_R_X)
End Sub

Private Sub txtKP_R_Y_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_R_Y)
End Sub

Private Sub txtKP_R_Z_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_R_Z)
End Sub

Private Sub txtKP_L_Distance_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_L_Distance)
End Sub

Private Sub txtKP_L_Thick_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_L_Thick)
End Sub

Private Sub txtKP_L_X_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_L_X)
End Sub

Private Sub txtKP_L_Y_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_L_Y)
End Sub

Private Sub txtKP_L_Z_Validate(Cancel As Boolean)
    Cancel = ValidatePositiveNum(txtKP_L_Z)
End Sub