cuserinfo.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CUserInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'文件:CUserInfo.cls
'说明:登录用户类
'作者:冷家锋
'时间：2008-11-29
'
Option Explicit

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




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

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

'//用户的基本信息////////////////////////////////////////////////////////////////////////////////////////////////////
Private mvarUSER_ID As String                '医生在数据库中的ID
Private mvarUSER_NAME As String           '医生在数据库中的用户名
Private mvarUSER_WORK_NUMBER As String                      '医生的工号, 目前为空，将参照天健HIS数据库
Private mvarUSER_DISPLAY_NAME As String '医生的真实姓名
Private mvarUSER_POWER As Long          '用户权限               '院长，系统管理员为0，部门领导为5，审核医生7，普通用户为10

'//用户的部门信息////////////////////////////////////////////////////////////////////////////////////////////////////
Private mvarDEPARTMENT_ID As Long
Private mvarDEPARTMENT_NAME As String
Private mvarDEPARTMENT_POWER As Long    '部门权限   院长，系统管理员为0，影像科室为5，普通科室为10
'//////////////////////////////////////////////////////////////////////////////////////////////////////


Public Property Let USER_ID(ByVal vData As String)
    mvarUSER_ID = vData
End Property


Public Property Get USER_ID() As String
    USER_ID = mvarUSER_ID
End Property


Public Property Let USER_NAME(ByVal vData As String)
    mvarUSER_NAME = vData
End Property

Public Property Get USER_NAME() As String
    USER_NAME = mvarUSER_NAME
End Property


Public Property Let USER_WORK_NUMBER(ByVal vData As String)
    mvarUSER_WORK_NUMBER = vData
End Property

Public Property Get USER_WORK_NUMBER() As String
    USER_WORK_NUMBER = mvarUSER_WORK_NUMBER
End Property



Public Property Let USER_DISPLAY_NAME(ByVal vData As String)
    mvarUSER_DISPLAY_NAME = vData
End Property

Public Property Get USER_DISPLAY_NAME() As String
    USER_DISPLAY_NAME = mvarUSER_DISPLAY_NAME
End Property


Public Property Let USER_POWER(ByVal vData As String)
    mvarUSER_POWER = vData
End Property

Public Property Get USER_POWER() As String
    USER_POWER = mvarUSER_POWER
End Property




'//部门属性GET，LET////////////////////////////////////////////////////////////////////////
Public Property Let DEPARTMENT_ID(ByVal vData As String)
    mvarDEPARTMENT_ID = vData
End Property

Public Property Get DEPARTMENT_ID() As String
    DEPARTMENT_ID = mvarDEPARTMENT_ID
End Property


Public Property Let DEPARTMENT_NAME(ByVal vData As String)
    mvarDEPARTMENT_NAME = vData
End Property

Public Property Get DEPARTMENT_NAME() As String
    DEPARTMENT_NAME = mvarDEPARTMENT_NAME
End Property


Public Property Let DEPARTMENT_POWER(ByVal vData As String)
    mvarDEPARTMENT_POWER = vData
End Property

Public Property Get DEPARTMENT_POWER() As String
    DEPARTMENT_POWER = mvarDEPARTMENT_POWER
End Property