initilize.bas

金水区行政审批服务软件窗口系统

Attribute VB_Name = "Initilize"
'********************************说明*********************************************************
'*此模块定义常量字符串                                                                       *
'*常量字符串包括：数据源常量，项目表存储名常量，单位表存储名以及工作                         *
'*人员表存储名,原来采用数据源进行数据库连接，现在该用数据库连接字符串                        *
'*进行数据库连接，连接字符串中已经包括：数据库服务器名，数据库登录用户                       *
'*名以及数据库登录密码，数据库名称。只要用户注册以后连接字符串信息就被                       *
'*保存在文本文件中，在通过登录界面生成连接字符串后在传递到收件层，使用                       *
'*数据源需要第一次运行时用户创建一个数据源，这种办法较烦琐                                   *
'*2003-08-01 dww pm18:22                                                                     *
'*********************************************************************************************
Option Explicit
Public Const gsItemStorageName As String = "TblItem"

Public Const gsDepartmentStorageName As String = "TblDepartment"

Public Const gsWorkerTblStorageName As String = "WorkerTbl"

Public Const gsAppTabIndexStorageName As String = "TblAppTabIndex"

'============================================================================================
'注册第三方组件和动态连接库
'输入参数：无输入参数
'输出参数：无输出参数
'详细描述：因为在程序调用了第三方组件如：AniGif.ocx,axpicker.ocx和动态连接库DLL如：ExAppUiSvr.dll
'这些第三方组件和Dll在使用时必须在进行注册方可使用，程序第一次运行时要调该函数进行注册
'编写时间：2003-06-20 dww pm17:23
'更新时间：2003-07-26 dww pm15:55
'============================================================================================
Public Sub DllAndOcxRegister()
'以下代码实现程序发布时在目标计算机上运行时注册注册第三方组件和Dll
If Len(App.Path) <> 3 Then
Shell "Regsvr32.exe " + App.Path + "\axpicker.ocx /s"
Shell "Regsvr32.exe " + App.Path + "\AniGIF.ocx /s"
Shell "Regsvr32.exe " + App.Path + "\arview2.ocx /s"
Shell "Regsvr32.exe " + App.Path + "\XPVScroll.ocx /s"
Else
Shell "Regsvr32.exe " + App.Path + "axpicker.ocx/s"
Shell "Regsvr32.exe " + App.Path + "AniGIF.ocx/s"
Shell "Regsvr32.exe " + App.Path + "arview2.ocx /s"
Shell "Regsvr32.exe " + App.Path + "XPVScroll.ocx  /s"
End If
End Sub