modcheckreport.bas

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

Attribute VB_Name = "modCheckReport"
'----------------------------------------------------------------------------------------------------
'文件：modCheckReport.bas
'作者：冷家锋
'时间：2008-5-9
'说明：检查报告单
'----------------------------------------------------------------------------------------------------

Option Explicit

Public Const STATE_ZC = "正常"
Public Const STATE_YC = "异常"

Public Const STATE_NEGATIVE = "阴性"
Public Const STATE_POSITIVE = "阳性"

Public Const STATE_JZ = "急诊"
Public Const STATE_MZ = "门诊"

Public Const REPORT_LIST_FIELDS = " CHECK_REPORT.PATIENT_ID as 编号,PATIENT_NAME 姓名,PATIENT_SEX  性别,  " + " cast(PATIENT_AGE as varchar(200)) + AGE_WEIGHT as 年龄," + "State 状态,HOSPITAL_NUM 住院号, REG_DATE as 登记日期, CHECK_REPORT.CHECK_DATE 报告日期,  " + " CHECK_REPORT.CHECK_PART as 拍片部位,DOCTOR.NAME as 检查医生 ," + " PHOTO_DESCRIPTION as 影象所见, IMPRESSION as 印象结果 ,CHECK_REPORT.ID "
    
Public Const REPORT_LIST_TABLES = " CHECK_LIST ,CHECK_REPORT ,DOCTOR "

Public Const CHECK_REPORT_ORDER = "  ORDER BY  检查日期 DESC "

'Public CURRENT_REPORT_ID As String
Public REPORT_RETURN_FLAG As String
'Public REPORT_LIST_SQL As String


Public Function SAVA_FILM_NO()
On Error GoTo ErrHandler
    Dim strSql As String
    Dim myConn As New ADODB.Connection
    Dim rsMachine As New ADODB.Recordset
    strSql = "UPDATE MACHINE  ,TYPE FROM MACHINE WHERE DEPARTMENTID = '" + CStr(DEPARTMENT_ID) + "'" _
        + " AND NAME = '" + Trim(STATION_NAME) + "'"
    If rsMachine.STATE = adStateOpen Then
        rsMachine.Close
    End If
    
    myConn.CursorLocation = adUseClient
    If myConn.STATE = adStateClosed Then
        myConn.Open modGlobalDbConnect.GetConnectionString
    End If
    If myConn.STATE = adStateClosed Then
        MsgBox "数据库连接错误，请查看网络状态！", vbExclamation, "提示"
        Exit Function
    End If
    
    strSql = "update MACHINE SET "
        strSql = strSql + " FILM_NO ='" & Trim(frmReportEdit.image_Number) & "'"
        strSql = strSql + " WHERE DEPARTMENTID = '" + CStr(Trim(DEPARTMENT_ID)) + "'"
        strSql = strSql + " AND NAME = '" + STATION_NAME + "'"
    
    
    rsMachine.Open strSql, myConn
    Exit Function
ErrHandler:
    MsgBox Err.Description, vbExclamation, "提示"
End Function