clsinterface.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 = "ClsInterFace"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'=====================================================================
'文件名：ClsInterface.cls
'说明：DLL入口点CLASS
'作者：刘辉
'时间：20090205
'=====================================================================

Option Explicit
Const INI_FILE = "htpacs.ini"
'----------------------------------------------------------------------------------------------------
'变量定义

'数据库连接字符串
Private ConnectionString As String
Public HIS_ConnectionString As String
'默认数据库配置文件
Const DefDbConfName As String = "db.conf"
'----------------------------------------------------------------------------------------------------
Private Const DefDbServer As String = "127.0.0.1"   '默认数据库服务器名
Const DefDbUserName As String = "COMM"
Const DefDbUserPwd As String = "pacs"           '需加密
Const DefDbName As String = "HTPACS2"
Private DbServerIp As String         '数据库服务器地址/名称
Private DbUserPwd As String         '数据库用户密码

'数据源类型及验证方式   方便数据库类型的移植
'Public Const DbType As String = "Provider=SQLOLEDB.1;Persist Security Info=False;"     'SQL Server

Const DbType As String = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;"     'ORACLE
'"Provider=OraOLEDB.Oracle.1;Persist Security Info=False;Server=192.168.0.13;"
'Database=HTPACS2;User ID=SYS;Password=change_on_install"
'----------------------------------------------------------------------------------------------------

'方法
'说明：DLL入口函数
'作者：刘辉
'时间：20090205
'p_strPatientID [IN]:患者ID
'返回值：无
Public Function InitHT_Clinic(ByVal p_strPatientID As String)
On Error GoTo ErrHandler
    If Not InitPacsConnRegEncrypt Then
        MsgBox "PACS数据库连接初始化出错,请配置连接, 请与系统管理员联系!", vbExclamation, "提示"
        Call ShellExecute(0, "open", "HT-CONFIG.exe", "", App.Path, vbHide)
        Exit Function
    End If
    
    Call SystemInit
    
    Load frmMain
    Call frmMain.I_Init(p_strPatientID)
    frmMain.Show vbModal
    Exit Function
ErrHandler:
    MsgBox Err.Description, vbExclamation, "提示"
End Function