frmsicksearch.frm

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

         Left            =   180
         Picture         =   "frmSickSearch.frx":012A
         Top             =   240
         Width           =   480
      End
   End
   Begin VB.CommandButton cmdAddtoReport 
      Caption         =   "加入报告"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3720
      TabIndex        =   0
      Top             =   7260
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "关闭"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6300
      TabIndex        =   2
      Top             =   7260
      Width           =   1215
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5040
      TabIndex        =   1
      Top             =   7260
      Width           =   1215
   End
End
Attribute VB_Name = "frmSickSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cboSICK_CLASS_Click()
    
    '----------------------------
    '如果选择了动态查询则立即查询
    '----------------------------
    
    If chkSearchDynamic Then BeginSearch

End Sub


Private Sub cboSICK_SEX_Click()
    
    '----------------------------
    '如果选择了动态查询则立即查询
    '----------------------------
    
    If chkSearchDynamic Then BeginSearch

End Sub

Private Sub chkSearch_Click()
    BeginSearch
End Sub

Private Sub chkSearchDynamic_Click()
    BeginSearch
End Sub

Private Sub cmdAdd_Click()
    
    '----------------------
    '添加一条新的记录
    '----------------------
    On Error GoTo ErrHandle
    
    Dim rsTemp As ADODB.Recordset
    Set rsTemp = OpenRSClient("SELECT * FROM SICK_INFO WHERE SICK_NO = " & SingleQuote(txtSearchNo.Text))
    If rsTemp.EOF = False Then
        MsgBox "您要添加的病人号已经存在，不能添加。请重新输入！", vbOKOnly + vbExclamation, "提示"
        txtSearchNo.SetFocus
        Exit Sub
    End If
    
    With rsSickInfo
        .AddNew
        !sick_name = txtSearchName.Text
        !sick_no = txtSearchNo.Text
        !sick_class = cboSICK_CLASS.Text
        !sick_birth = dtpSICK_BIRTH.Value
        !sick_sex = cboSICK_SEX.Text
        !sick_unit = txtSICK_UNIT.Text
        !sick_family = txtSICK_FAMILY.Text
        .Update
    End With
    
    '如果添加成功，则将所有的输入清空,并将输入位置移动到病人号码
    If Not frmReport.Loaded Then
        txtSearchName.Text = vbNullString
        txtSearchNo.Text = vbNullString
        cboSICK_CLASS.ListIndex = -1
        cboSICK_SEX.ListIndex = -1
        txtSICK_UNIT.Text = vbNullString
        txtSICK_FAMILY.Text = vbNullString
        txtSearchNo.SetFocus
    End If
    
    '重新查询
    rsSickInfo.Requery
    
    Exit Sub

ErrHandle:
    MsgBox "保存记录时发生错误:" & vbCrLf & vbCrLf & err.Description, vbInformation + vbOKOnly, "添加错误"
    rsSickInfo.CancelUpdate

    
End Sub

Private Sub cmdAddtoReport_Click()
    
    '-------------------------
    '将当前查询结果作为报告的
    '病人信息来源
    '-------------------------
    With frmReport
        If .Loaded And rsSickInfo.RecordCount > 0 Then
            .txtSickNo = rsSickInfo!sick_no
            .txtSickName = rsSickInfo!sick_name
            .cboSickSex = rsSickInfo!sick_sex
            .txtSickBirth.Value = rsSickInfo!sick_birth
            .cboSickClass = rsSickInfo!sick_class & vbNullString
            .txtUnit = rsSickInfo!sick_unit & vbNullString
            .txtFamily = rsSickInfo!sick_family & vbNullString
        '当病人信息不在库中选加入报告
        Else
            .txtSickNo = frmSickSearch.txtSearchNo
            .txtSickName = frmSickSearch.txtSearchName
            .cboSickSex = frmSickSearch.cboSICK_SEX
            .txtSickBirth.Value = frmSickSearch.dtpSICK_BIRTH
            .cboSickClass = frmSickSearch.cboSICK_CLASS & vbNullString
            .txtUnit = frmSickSearch.txtSICK_UNIT & vbNullString
            .txtFamily = frmSickSearch.txtSICK_FAMILY & vbNullString

        End If
    End With
    
    Unload Me
    frmReport.txtSickNo.SetFocus        '设置焦点
        
End Sub

Private Sub cmdOK_Click()
'确定并退出
    
    Unload Me
    
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
    '--------------------------
    '如果是回车，则跳到下一个控件
    '--------------------------
    
    If KeyCode = vbKeyReturn Then
        SendKeys "{TAB}"
    End If
    
End Sub

Private Sub Form_Load()
    
    '---------------------
    '窗体加载过程
    '---------------------
    
    '设置初始的过滤以及绑定
    rsSickInfo.Filter = " SICK_NAME <> '' "
    Set dbgSickInfo.DataSource = rsSickInfo
    
    '如果报告窗体没有加载，则不显示“加入报告”按钮
    cmdAddtoReport.Visible = frmReport.Loaded
    
    
    SetComboItems
    
End Sub

Private Sub txtSearchName_Change()
    
    '----------------------------
    '如果选择了动态查询则立即查询
    '----------------------------
    
    If chkSearchDynamic Then BeginSearch
    
End Sub

Private Sub txtSearchNo_Change()
    
    '----------------------------
    '如果选择了动态查询则立即查询
    '----------------------------
    
    If chkSearchDynamic Then BeginSearch
    
End Sub

Private Sub txtSICK_FAMILY_Change()
    
    '----------------------------
    '如果选择了动态查询则立即查询
    '----------------------------
    
    If chkSearchDynamic Then BeginSearch
    
End Sub

Private Sub txtSICK_UNIT_Change()
    
    '----------------------------
    '如果选择了动态查询则立即查询
    '----------------------------
    
    If chkSearchDynamic Then BeginSearch
    
End Sub

Private Sub SetComboItems()
    
    '---------------------
    '填写病人类别的下拉信息
    '---------------------
    
    Dim strSQL As String
    Dim rsTemp As ADODB.Recordset
    
    strSQL = "SELECT * FROM US_REPORT_ITEM_DETAIL WHERE CLASS_NAME = '病人分类'"
    Set rsTemp = OpenRSClient(strSQL)
    
    '如果记录数不为0,则
    If rsTemp.RecordCount > 0 Then
        cboSICK_CLASS.Clear
        With rsTemp
            Do While Not .EOF
                cboSICK_CLASS.AddItem rsTemp!ItemData
                .MoveNext
            Loop
        End With
    End If
    
    strSQL = "SELECT * FROM US_REPORT_ITEM_DETAIL WHERE CLASS_NAME = '病人性别'"
    Set rsTemp = OpenRSClient(strSQL)
    
    '如果记录数不为0,则
    If rsTemp.RecordCount > 0 Then
        cboSICK_SEX.Clear
        With rsTemp
            Do While Not .EOF
                cboSICK_SEX.AddItem rsTemp!ItemData
                .MoveNext
            Loop
        End With
    End If
    
    '释放对象
    Set rsTemp = Nothing
    
End Sub