moduserinfo.bas

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

Attribute VB_Name = "modUserInfo"
'----------------------------------------------------------------------------------------------------
'文件：modUserInfo.bas
'作者：冷家锋
'时间：2008-5-8
'说明：登录用户信息
'----------------------------------------------------------------------------------------------------



Option Explicit







Public Const USER_INFO = "USERINFO"
Public Const DEPT_ID = "DEPARTMENT_ID"
Public Const DEPT_NAME = "DEPARTMENT_NAME"
Public Const DEPT_POWER = "DEPARTMENT_POWER"
Public Const USERS_ID = "USER_ID"
Public Const USERS_NAME = "USER_NAME"
Public Const USERS_POWER = "USER_POWER"


Public USER_ID As String
Public USER_NAME As String
Public USER_DISPLAY_NAME As String '医生的真实姓名


'院长，系统管理员为0，部门领导为5，审核医生7，普通用户为10
Public USER_POWER As Long


Public DEPARTMENT_ID As Long
Public DEPARTMENT_NAME As String
'院长，系统管理员为0，影像科室为5，普通科室为10
Public DEPARTMENT_POWER As Long


Public Const POWER_ADMIN = 0
Public Const POWER_DEPARTMENT_LEADER = 5
Public Const POWER_AUDITING_DOCT = 7
Public Const POWER_COMMON_USER = 10

Public Const POWERNAME_ADMIN = "系统管理员"
Public Const POWERNAME_DEPARTMENT_LEADER = "科室主任"
Public Const POWERNAME_AUDITING_DOCT = "审核医师"
Public Const POWERNAME_COMMON_USER = "普通医师"


Public LOCAL_STATION_NAME As String
Public LOCAL_STATION_ID As String


Public IF_LOGON As Boolean



'=保存用户信息========================================================
Public Function SETUSER_INFO(ByVal strDepartments As String)
On Error GoTo ErrHandler

        Dim nRet As Long
        nRet = WritePrivateProfileString(USER_INFO, DEPT_ID, DEPARTMENT_ID, App.Path + "\" + LOGIN_USERINFO)
        If nRet = 0 Then
            MsgBox "用户信息保存失败, 请与系统管理", vbExclamation, "提示"
            Exit Function
        End If
        
        nRet = WritePrivateProfileString(USER_INFO, DEPT_NAME, strDepartments, App.Path + "\" + LOGIN_USERINFO)
        If nRet = 0 Then
            MsgBox "用户信息保存失败, 请与系统管理", vbExclamation, "提示"
            Exit Function
        End If
        
        nRet = WritePrivateProfileString(USER_INFO, DEPT_POWER, DEPARTMENT_POWER, App.Path + "\" + LOGIN_USERINFO)
        If nRet = 0 Then
            MsgBox "用户信息保存失败, 请与系统管理", vbExclamation, "提示"
            Exit Function
        End If
        
        nRet = WritePrivateProfileString(USER_INFO, USERS_ID, USER_ID, App.Path + "\" + LOGIN_USERINFO)
        If nRet = 0 Then
            MsgBox "用户信息保存失败, 请与系统管理", vbExclamation, "提示"
            Exit Function
        End If
        
        nRet = WritePrivateProfileString(USER_INFO, USERS_NAME, USER_NAME, App.Path + "\" + LOGIN_USERINFO)
        If nRet = 0 Then
            MsgBox "用户信息保存失败, 请与系统管理", vbExclamation, "提示"
            Exit Function
        End If
        
        nRet = WritePrivateProfileString(USER_INFO, USERS_POWER, USER_POWER, App.Path + "\" + LOGIN_USERINFO)
        If nRet = 0 Then
            MsgBox "用户信息保存失败, 请与系统管理", vbExclamation, "提示"
            Exit Function
        End If
         
        Exit Function
ErrHandler:
    MsgBox Err.Description, vbExclamation, "提示"
End Function