modoperationlog.bas

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

Attribute VB_Name = "modOperationLog"
Option Explicit

Const USER_ADMIN = "系统管理员"
Const USER_DEPARTMENT_LEADER = "科室主任"
Const USER_COMMON = "普通医师"

Public Function UploadOperation(ByVal strOperation As String) As Boolean
On Error GoTo ErrHandler
    Dim strSql As String
    If STATION_NAME = "" Then
        STATION_NAME = "影像工作站"
    End If
    
    Dim sOperation As String
    sOperation = strOperation
    If sOperation = "" Then
        sOperation = "未知操作"
    End If
    
    Dim strUserPower As String
    
    If USER_POWER = POWER_ADMIN Then
        strUserPower = USER_ADMIN
    ElseIf USER_POWER = POWER_DEPARTMENT_LEADER Then
        strUserPower = USER_DEPARTMENT_LEADER
    Else
        strUserPower = USER_COMMON
    End If
    
    
    strSql = "INSERT INTO HISTORYLOG (ID,MACHINEID,USERNAME,OPTIONS,NOWDATE,DEPARTMENT,USERPOWER) " _
        + " VALUES(HTPACS_SEQUENCE.NEXTVAL,'" + STATION_NAME + "','" + USER_NAME + "','" + sOperation _
        + "','" + CStr(Now) + "','" + DEPARTMENT_NAME + "','" + strUserPower + "' )"
        
    

    UploadOperation = ExecuteNonQuery(strSql)
    Exit Function
ErrHandler:
    UploadOperation = False
    
    
End Function