mdlglobalpara.bas

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

Attribute VB_Name = "mdlGlobalPara"
'#################################################
'名称：mdlGlobalPara
'类型：全局
'说明：全局模块
'#################################################
Option Explicit

'当前数据库连接
'-------------------------------------------------
Global GDB               As ADODB.Connection  '主体数据库连接

Global Const CST_MsgBoxTitle = "恒合超声影像"
'*************************************************
'>>常量<<
'*************************************************
'-------------------------------------------------
'注册信息
'-------------------------------------------------
'主题：软件
Global Const gsREGISTRY_SECTION_APP = "Software\US"

'主题：数据库
Global Const gsREGISTRY_SECTION_DATABASE = gsREGISTRY_SECTION_APP & "\Database"
'主体数据库服务器
Global Const gsREGISTRY_KEY_SERVER = "SERVER"
'主体数据库名称
Global Const gsREGISTRY_KEY_DATABASE = "DATABASE"
'主体数据库口令
Global Const gsREGISTRY_KEY_PWD = "PWD"

'-------------------------------------------------
Public glClerkID As Long
Public gsClerkCode As String
Public gsClerkName As String