frmchecklist.frm

1、以DLL形式提供医生工作站 2、 根据【检查项目】

    txtPatientName.Text = ""
    cmbPatientSex.ListIndex = -1
    txtPatientAge.Text = ""
    txtCheck.Text = ""
    cmbAgeWeigh.ListIndex = -1
    cmbCheckPartName.Text = ""
    cmbState.ListIndex = -1
    cmbCheckDoctorName.Text = ""
    Exit Sub
ErrHandler:
    MsgBox Err.Description + "001", vbExclamation, "提示"
End Sub


Private Sub cmdSelect1_Click()
On Error GoTo ErrHandler
    
    'CHECK_LIST_SQL = SQL_CHECKLIST + " WHERE A.MACHINE_NAME = '" _
    + STATION_NAME + "'" + " AND A.PHOTO_DEPT_ID  ='" + CStr(DEPARTMENT_ID) + "' "
    
    CHECK_LIST_SQL = SQL_CHECKLIST + " WHERE " _
        + " APPLY_DEPT_ID  ='" + CStr(DEPARTMENT_ID) + "' "
    
    
    If chkRegisterDate.Value = 1 Then
        Dim nStart As Long
        Dim nEnd As Long
        Dim strRegStart As String
        Dim strRegEnd As String
    
        nStart = InStr(dtRegisterStart.Value, " ")     '第1个空格位置
        If nStart <= 0 Then
            MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
            Exit Sub
        End If
    
        strRegStart = left(dtRegisterStart.Value, nStart - 1) + CStr(" 00:00:00")
        
        
        nEnd = InStr(dtRegisterEnd.Value, " ")      '第1个空格位置
        If nEnd <= 0 Then
            MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
            Exit Sub
        End If
    
        strRegEnd = left(dtRegisterEnd.Value, nEnd - 1) + CStr(" 23:59:59")
        
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and REG_DATE >= '" + strRegStart + "'"
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and REG_DATE <= '" + strRegEnd + "'"
        
    End If
    
    If chkCheckDate.Value = 1 Then
        Dim strStartDate As String
        Dim strEndDate As String
    
        nStart = InStr(dtStartDate.Value, " ")     '第1个空格位置
            If nStart <= 0 Then
                MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
                Exit Sub
            End If
    
        strStartDate = left(dtStartDate.Value, nStart - 1) + CStr(" 00:00:00")
    
    
        nEnd = InStr(dtEndDate.Value, " ")     '第1个空格位置
            If nEnd <= 0 Then
                MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
                Exit Sub
            End If
    
        strEndDate = left(dtEndDate.Value, nEnd - 1) + CStr(" 23:59:59")
        
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and CHECK_DATE >= '" + strStartDate + "'"
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and CHECK_DATE <= '" + strEndDate + "'"
    End If
    
    If btnDiagnosed.Value = True Then
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_CHECKED = '是'"
    End If
    If btnNoDiagnosed.Value = True Then
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_CHECKED = '否'"
    End If
    
    If btnHavePhoto.Value = True Then
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_PHOTO_PRINTED = '是'"
    End If
    
    If btnNoPhoto.Value = True Then
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_PHOTO_PRINTED = '否'"
    End If
    
    CHECK_LIST_SQL = CHECK_LIST_SQL + modCheckList.CHECK_LIST_ORDER
    
    
    
    'If dgResult.Rows <= 1 Then
    '    CHECK_LIST_TAB_INDEX = tabCheckCondition.Tab
    
    '    Unload Me
    '    frmCheckList.SetFocus
    'Else
    '    Call Activate
    'End If
    If myDgCheckList.Rows <= 1 Then
        Controls.Remove ("mydgCreate")
        Set myDgCheckList = Controls.Add("MSHierarchicalFlexGridLib.MSHFlexGrid", "mydgCreate", famDataResult)

        myDgCheckList.Visible = True
        myDgCheckList.SelectionMode = flexSelectionByRow
    End If
       
       
    'CHECK_LIST_SQL = "SELECT  A.ID, A.PATIENT_ID AS 编号,to_char(A.MACHINE_NAME) || A.FILM_NO AS 设备检查序号, A.PATIENT_NAME AS 姓名, A.PATIENT_NAME_PHONETIC AS 姓名拼音, A.PATIENT_SEX AS 性别, to_char(A.PATIENT_AGE) || A.AGE_WEIGHT as 年龄, A.ALL_CHECK_PART as 拍片部位,A.STATE AS 状态, A.HOSPITAL_NUM AS 住院号,   A.REG_DATE AS 登记日期, A.CHECK_DOCT_ID as 检查医生 ,  A.IS_CHECKED AS 已写报告,'  ' AS 已印报告,  ' ' AS 提请审核,' ' AS 已审核,  ' ' AS 审核医生,A.CHECK_DATE AS  报告日期    From CHECK_LIST  A   WHERE A.MACHINE_NAME = 'CT' AND A.PHOTO_DEPT_ID  ='4'  and REG_DATE >= '2008-9-12 00:00:00' and REG_DATE <= '2008-9-12 23:59:59'  ORDER BY  登记日期 DESC "
    
'    CHECK_LIST_SQL = "SELECT  A.ID, A.PATIENT_ID AS 编号,to_char(A.MACHINE_NAME) || A.FILM_NO AS 设备检查序号, A.PATIENT_NAME AS 姓名, A.PATIENT_NAME_PHONETIC AS 姓名拼音, A.PATIENT_SEX AS 性别, to_char(A.PATIENT_AGE) || A.AGE_WEIGHT as 年龄, " _
'        + " A.ALL_CHECK_PART as 拍片部位,A.STATE AS 状态, A.HOSPITAL_NUM AS 住院号,   A.REG_DATE AS 登记日期, A.CHECK_DOCT_ID as 检查医生 ,  A.IS_CHECKED AS 已写报告, A.CHECK_DATE AS  报告日期 " _
'        + " From CHECK_LIST  A   WHERE A.MACHINE_NAME = 'CT' AND A.PHOTO_DEPT_ID  ='4'  and REG_DATE >= '2008-9-12 00:00:00' and REG_DATE <= '2008-9-12 23:59:59'  ORDER BY  登记日期 DESC "
    Call Activate(CHECK_LIST_SQL)
    tmrCheckPart.Enabled = False
    
    Exit Sub
ErrHandler:
    MsgBox Err.Description + "002", vbExclamation, "提示"
End Sub


Private Sub cmdSelect2_Click()
    On Error GoTo ErrHandler
    'CHECK_LIST_SELECT = True
    CHECK_LIST_SQL = SQL_CHECKLIST + "WHERE " _
        + " APPLY_DEPT_ID ='" + CStr(DEPARTMENT_ID) + "' "
    
    
    If stringCheck(Trim(txtCheckNumber.Text)) = False Then
        Exit Sub
    End If
    
    If Len(Trim(txtCheckNumber.Text)) > 0 Then
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and PATIENT_ID = '" + Trim(txtCheckNumber.Text) + "'"
    End If
    
    If stringCheck(Trim(txtPatientName.Text)) = False Then
        Exit Sub
    End If
    
    If Len(Trim(txtPatientName.Text)) > 0 Then
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and PATIENT_NAME = '" + Trim(txtPatientName.Text) + "'"
    End If
    
    If Len(Trim(cmbPatientSex.Text)) > 0 Then
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and PATIENT_SEX = '" + Trim(cmbPatientSex.Text) + "'"
    End If
    
    If Len(Trim(txtPatientAge.Text)) > 0 And Len(Trim(cmbAgeWeigh.Text)) > 0 Then
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and PATIENT_AGE = '" + Trim(txtPatientAge.Text) + "' and AGE_WEIGHT = '" + Trim(cmbAgeWeigh.Text) + "'"
    End If
    
    If Len(Trim(cmbState.Text)) > 0 Then
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and STATE = '" + Trim(cmbState.Text) + "'"
    End If
    
    '拍片部位
    'If Len(Trim(cmbCheckPartName.Text)) > 0 Then
    '    CHECK_LIST_SQL = CHECK_LIST_SQL + "and 拍片部位 = '" + Trim(cmbCheckPartName.Text) + "'"
    'End If
    
    'If Len(Trim(cmbCheckDoctorName.Text)) > 0 Then
    '   CHECK_LIST_SQL = CHECK_LIST_SQL + "and 检查医生 = '" + Trim(cmbCheckDoctorName.Text) + "'"
    'End If
    
    'myConn.CursorLocation = adUseClient
    'If myConn.State = 0 Then
    '    myConn.Open modGlobalDbConnect.GetConnectionString
    'End If

    'If rsRegister.State = 1 Then
    '     rsRegister.Close
    'End If
    '
    CHECK_LIST_SQL = CHECK_LIST_SQL + modCheckList.CHECK_LIST_ORDER
    'rsRegister.Open CHECK_LIST_SQL, myConn
    'Set frmCheckList.dgResult.DataSource = rsRegister
    
    'Dim i As Integer
    'Dim colcount As Integer
    'Dim wid As Long
    'colcount = frmCheckList.dgResult.Columns.Count
    'wid = Me.Width / (colcount + 1)
    'For i = 0 To colcount - 1
    'frmCheckList.dgResult.Columns(i).Width = wid
    'Next i
    'Call Activate
    
     
    'If dgResult.Rows <= 1 Then
    '    CHECK_LIST_TAB_INDEX = tabCheckCondition.Tab
    '    Unload Me
    '    frmCheckList.SetFocus
    'Else
    '    Call Activate
    'End If
    If myDgCheckList.Rows <= 1 Then
        Controls.Remove ("mydgCreate")
        Set myDgCheckList = Controls.Add("MSHierarchicalFlexGridLib.MSHFlexGrid", "mydgCreate", famDataResult)

        myDgCheckList.Visible = True
        myDgCheckList.SelectionMode = flexSelectionByRow
    End If
    
    Call Activate(CHECK_LIST_SQL)
    tmrCheckPart.Enabled = False
    
    
    
    Exit Sub
ErrHandler:
    MsgBox Err.Description + "003", vbExclamation, "提示"
End Sub




Private Sub cmdSelect3_Click()
On Error GoTo ErrHandler
    
    'CHECK_LIST_SQL = SQL_CHECKLIST + " WHERE A.MACHINE_NAME = '" _
    + STATION_NAME + "'" + " AND A.PHOTO_DEPT_ID  ='" + CStr(DEPARTMENT_ID) + "' "
    
    CHECK_LIST_SQL = SQL_CHECKLIST + " WHERE " _
        + " APPLY_DEPT_ID  ='" + CStr(DEPARTMENT_ID) + "' AND APPLY_DOCT_ID ='" + Trim(cmbUsers.Text) + "'"
    
    
    If chkRegisterDate3.Value = 1 Then
        Dim nStart As Long
        Dim nEnd As Long
        Dim strRegStart As String
        Dim strRegEnd As String
    
        nStart = InStr(dtRegisterStart3.Value, " ")     '第1个空格位置
        If nStart <= 0 Then
            MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
            Exit Sub
        End If
    
        strRegStart = left(dtRegisterStart3.Value, nStart - 1) + CStr(" 00:00:00")
        
        
        nEnd = InStr(dtRegisterEnd3.Value, " ")      '第1个空格位置
        If nEnd <= 0 Then
            MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
            Exit Sub
        End If
    
        strRegEnd = left(dtRegisterEnd3.Value, nEnd - 1) + CStr(" 23:59:59")
        
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and REG_DATE >= '" + strRegStart + "'"
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and REG_DATE <= '" + strRegEnd + "'"
        
    End If
    
    If chkCheckDate.Value = 1 Then
        Dim strStartDate As String
        Dim strEndDate As String
    
        nStart = InStr(dtStartDate3.Value, " ")     '第1个空格位置
            If nStart <= 0 Then
                MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
                Exit Sub
            End If
    
        strStartDate = left(dtStartDate3.Value, nStart - 1) + CStr(" 00:00:00")
    
    
        nEnd = InStr(dtEndDate3.Value, " ")     '第1个空格位置
            If nEnd <= 0 Then
                MsgBox "日期错误，请与管理员联系!", vbExclamation, "提示"
                Exit Sub
            End If
    
        strEndDate = left(dtEndDate3.Value, nEnd - 1) + CStr(" 23:59:59")
        
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and CHECK_DATE >= '" + strStartDate + "'"
        CHECK_LIST_SQL = CHECK_LIST_SQL + " and CHECK_DATE <= '" + strEndDate + "'"
    End If
    
'    If btnDiagnosed.Value = True Then
'        CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_CHECKED = '是'"
'    End If
'    If btnNoDiagnosed.Value = True Then
'        CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_CHECKED = '否'"
'    End If
'
'    If btnHavePhoto.Value = True Then
'        CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_PHOTO_PRINTED = '是'"
'    End If
'
'    If btnNoPhoto.Value = True Then
'        CHECK_LIST_SQL = CHECK_LIST_SQL + " and IS_PHOTO_PRINTED = '否'"
'    End If
    
    CHECK_LIST_SQL = CHECK_LIST_SQL + modCheckList.CHECK_LIST_ORDER
    
    
    
    'If dgResult.Rows <= 1 Then
    '    CHECK_LIST_TAB_INDEX = tabCheckCondition.Tab
    
    '    Unload Me
    '    frmCheckList.SetFocus
    'Else
    '    Call Activate
    'End If
    If myDgCheckList.Rows <= 1 Then
        Controls.Remove ("mydgCreate")
        Set myDgCheckList = Controls.Add("MSHierarchicalFlexGridLib.MSHFlexGrid", "mydgCreate", famDataResult)

        myDgCheckList.Visible = True
        myDgCheckList.SelectionMode = flexSelectionByRow
    End If
       
       
    'CHECK_LIST_SQL = "SELECT  A.ID, A.PATIENT_ID AS 编号,to_char(A.MACHINE_NAME) || A.FILM_NO AS 设备检查序号, A.PATIENT_NAME AS 姓名, A.PATIENT_NAME_PHONETIC AS 姓名拼音, A.PATIENT_SEX AS 性别, to_char(A.PATIENT_AGE) || A.AGE_WEIGHT as 年龄, A.ALL_CHECK_PART as 拍片部位,A.STATE AS 状态, A.HOSPITAL_NUM AS 住院号,   A.REG_DATE AS 登记日期, A.CHECK_DOCT_ID as 检查医生 ,  A.IS_CHECKED AS 已写报告,'  ' AS 已印报告,  ' ' AS 提请审核,' ' AS 已审核,  ' ' AS 审核医生,A.CHECK_DATE AS  报告日期    From CHECK_LIST  A   WHERE A.MACHINE_NAME = 'CT' AND A.PHOTO_DEPT_ID  ='4'  and REG_DATE >= '2008-9-12 00:00:00' and REG_DATE <= '2008-9-12 23:59:59'  ORDER BY  登记日期 DESC "
    
'    CHECK_LIST_SQL = "SELECT  A.ID, A.PATIENT_ID AS 编号,to_char(A.MACHINE_NAME) || A.FILM_NO AS 设备检查序号, A.PATIENT_NAME AS 姓名, A.PATIENT_NAME_PHONETIC AS 姓名拼音, A.PATIENT_SEX AS 性别, to_char(A.PATIENT_AGE) || A.AGE_WEIGHT as 年龄, " _
'        + " A.ALL_CHECK_PART as 拍片部位,A.STATE AS 状态, A.HOSPITAL_NUM AS 住院号,   A.REG_DATE AS 登记日期, A.CHECK_DOCT_ID as 检查医生 ,  A.IS_CHECKED AS 已写报告, A.CHECK_DATE AS  报告日期 " _
'        + " From CHECK_LIST  A   WHERE A.MACHINE_NAME = 'CT' AND A.PHOTO_DEPT_ID  ='4'  and REG_DATE >= '2008-9-12 00:00:00' and REG_DATE <= '2008-9-12 23