frmsetsickinfo.frm

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

            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   12
         Top             =   4680
         Width           =   1095
      End
      Begin VB.Label Label3 
         Caption         =   "最近更新日期："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3000
         TabIndex        =   11
         Top             =   4680
         Width           =   1695
      End
   End
   Begin VB.Frame Frame3 
      Height          =   1035
      Left            =   120
      TabIndex        =   2
      Top             =   180
      Width           =   915
      Begin VB.Image Image1 
         Height          =   480
         Left            =   180
         Picture         =   "frmSetSickInfo.frx":012A
         Top             =   240
         Width           =   480
      End
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "退出(&E)"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   7140
      TabIndex        =   1
      Top             =   7260
      Width           =   1215
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "保存(&S)"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5880
      TabIndex        =   0
      Top             =   7260
      Width           =   1215
   End
End
Attribute VB_Name = "frmSetSickInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public msStatus As String

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()
'添加一条新的记录
Dim rsTemp As ADODB.Recordset
Dim sSQL As String
Dim lSickID As Long
Dim sSickCode As String
Dim sSickName As String
Dim sSickClass As String
Dim sSickSex As String
Dim sSickUnit As String
Dim sSickFamily As String
Dim tSickBirth As Date
Dim tCheckDate As Date
Dim tModifyDate As Date

    If msStatus = "New" Then
        Set rsTemp = GDB.Execute("SELECT * FROM SICK_INFO WHERE SICK_NO = " & SingleQuote(txtSickCode.Text))
        If rsTemp.EOF = False Then
            MsgBox "您要添加的病人号已经存在，不能添加。请重新输入！", vbOKOnly + vbExclamation, "提示"
            txtSickCode.SetFocus
            Exit Sub
        End If
        
        sSickCode = txtSickCode.Text
        sSickName = txtSickName.Text
        sSickClass = cmbSickClass.Text
        sSickSex = cmbSickSex.Text
        tSickBirth = dtpSickBirth.Value
        sSickUnit = rtbSickUnit.Text
        sSickFamily = rtbSickFamily.Text
        tCheckDate = Format(Date, "YYYY-MM-DD")
        tModifyDate = Format(Date, "YYYY-MM-DD")
        
        lSickID = GetSerialID("Sick_Info")
        
        sSQL = "insert into Sick_info(sick_id,sick_no,sick_name,sick_sex,sick_birth,sick_class,sick_unit," & _
                                   " sick_family,checkDate,modifydate)" & _
                             "values(" & lSickID & ",'" & sSickCode & "','" & sSickName & "','" & sSickSex & "','" & tSickBirth & "'," & _
                                    "'" & sSickClass & "','" & sSickUnit & "','" & sSickFamily & "','" & tCheckDate & "','" & tModifyDate & "')"
                                       
        GDB.Execute sSQL
    End If
    
    '如果添加成功，则将所有的输入清空,并将输入位置移动到病人号码
    
    
'    Exit Sub

    
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
    
    If msStatus = "New" Then
        txtCheckDate.Text = Format(Date, "YYYY-MM-DD")
        txtModifyDate.Text = Format(Date, "YYYY-MM-DD")
    End If
        
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_ID = 27"
    Set rsTemp = GDB.Execute(strSQL)
    
    '如果记录数不为0,则
    cmbSickClass.Clear
    With rsTemp
        Do While Not .EOF
            cmbSickClass.AddItem rsTemp!ItemData
            .MoveNext
        Loop
    End With
    
    strSQL = "SELECT * FROM US_REPORT_ITEM_DETAIL WHERE CLASS_ID = 39"
    Set rsTemp = GDB.Execute(strSQL)
    
    '如果记录数不为0,则
    cmbSickSex.Clear
    With rsTemp
        Do While Not .EOF
            cmbSickSex.AddItem rsTemp!ItemData
            .MoveNext
        Loop
    End With
    
    '释放对象
    Set rsTemp = Nothing
    
End Sub