usversion.cls

VB6.0编写的医院影像系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "USVersion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_Version As USVersionConstants
Private m_UtilizeType As USUtilizeTypeConstants

Public AllowReport As Boolean       '是否允许报告
Public AllowSickInfo As Boolean     '是否允许病人信息
Public AllowShowImage As Boolean    '是否允许显示图像
Public AllowEditImage As Boolean    '是否允许图像编辑
Public AllowStatImage As Boolean    '是否允许图像查询
Public AllowPrintImage As Boolean   '是否允许打印图片
Public AllowShowVideo As Boolean    '是否允许显示视频
Public AllowEditVideo As Boolean    '是否允许视频编辑
Public AllowCapture As Boolean      '是否允许采集
Public AllowAudio As Boolean        '是否允许配音
Public AllowOrganTemplate As Boolean '是否允许器官模版
Public AllowSickCase As Boolean     '是否允许病历
Public AllowViewVideo As Boolean    '是否允许视频回放
Public AllowSaveVideo As Boolean    '是否允许保存视频

Public AllowUpload As Boolean       '是否允许上传文件
Public AllowBackup As Boolean       '是否允许备份数据

Public VersionString As String      '表示版本的字符串

Public Property Get Version() As USVersionConstants
    
    Version = m_Version
    
End Property

Public Property Let Version(NewValue As USVersionConstants)
    
    m_Version = NewValue
    SetLimits
    
End Property


Public Property Get UtilizeType() As USUtilizeTypeConstants
    
    UtilizeType = m_UtilizeType
    
End Property

Public Property Let UtilizeType(NewValue As USUtilizeTypeConstants)
    
    m_UtilizeType = NewValue
    SetLimits
    
End Property

Public Sub SetLimits()
    
    '---------------------------------------
    '设置各项操作的权限,所有的权限设定在此过程
    '此后仅作判断
    '---------------------------------------
    
    Select Case m_Version
        
        Case USReport
            AllowReport = True
            AllowSickInfo = True
            AllowCapture = False
            AllowShowImage = False
            AllowEditImage = False
            AllowStatImage = False
            AllowPrintImage = False
            AllowShowVideo = False
            AllowEditVideo = False
            AllowAudio = False
            AllowOrganTemplate = True
            AllowSickCase = True
            AllowViewVideo = False
            AllowSaveVideo = False
            VersionString = "报告版"
            
        Case USStandard
            AllowReport = True
            AllowSickInfo = True
            AllowCapture = True
            AllowShowImage = True
            AllowEditImage = False
            AllowStatImage = True
            AllowPrintImage = False
            AllowShowVideo = True
            AllowEditVideo = False
            AllowAudio = False
            AllowOrganTemplate = True
            AllowSickCase = True
            AllowViewVideo = False
            AllowSaveVideo = False
            VersionString = "标准版"
                    
        Case USPro
            AllowReport = True
            AllowSickInfo = True
            AllowCapture = True
            AllowShowImage = True
            AllowPrintImage = True
            AllowEditImage = False
            AllowStatImage = True
            AllowShowVideo = True
            AllowEditVideo = True
            AllowAudio = False
            AllowOrganTemplate = True
            AllowSickCase = True
            AllowViewVideo = True
            AllowSaveVideo = True
            VersionString = "专业版"
            
        Case USImage
            AllowReport = True
            AllowSickInfo = True
            AllowCapture = True
            AllowShowImage = True
            AllowEditImage = True
            AllowStatImage = True
            AllowPrintImage = True
            AllowShowVideo = True
            AllowEditVideo = True
            AllowAudio = False
            AllowOrganTemplate = False
            AllowSickCase = False
            AllowViewVideo = True
            AllowSaveVideo = True
            VersionString = "影像版"
            
        Case USFull
            AllowReport = True
            AllowSickInfo = True
            AllowCapture = True
            AllowShowImage = True
            AllowEditImage = True
            AllowStatImage = True
            AllowPrintImage = True
            AllowShowVideo = True
            AllowEditVideo = True
            AllowAudio = True
            AllowOrganTemplate = True
            AllowSickCase = True
            AllowViewVideo = True
            AllowSaveVideo = True
            VersionString = "完全版"
            
    End Select
    
    
    Select Case m_UtilizeType
        Case USClient
            Me.AllowUpload = True
            Me.AllowBackup = False
            
        Case USServer
            Me.AllowUpload = False
            Me.AllowBackup = True
        
        Case USAll
            Me.AllowUpload = True
            Me.AllowBackup = True
    
    End Select
    
End Sub