submain.bas

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

Attribute VB_Name = "Submain"
'*******************************说明*******************************************
'* 此部分处理启动对象                                                         *
'* 根据判断结果是否第一次运行系统来决定所执行的操作，如果是第一次运行本系统   *
'* 将会提示用户进行系统的初始化和窗口基本信息的初始化，如果不是第一次运行则   *
'* 直接进入登录界面                                                           *
'* 2004-04-15 dww pm16:25                                                     *
'******************************************************************************
'定义文本文件存放路径也既注册文本文件和受理号文本文件
Public txtiniFileDirectory As String
'定义报表和证书模板存放的路径
Public reportFileDirectory As String
'定义存放图标和动画的文件目录的全局变量
Public iconDirectory As String
Public Sub Main()
'---------------------------------------------------------------------------------
'以上两变量初始化使用当前路径
txtiniFileDirectory = App.Path + "\ShenPiTxt"
reportFileDirectory = App.Path + "\ShenPiRPX"
iconDirectory = App.Path + "\ShenPiIcon"
'---------------------------------------------------------------------------------
'测试时暂时用绝对路径以防止错误
'txtiniFileDirectory = "e:\LYEAMIS\EAMISclient\ShenPiTxt"
'reportFileDirectory = "e:\LYEAMIS\EAMISclient\ShenPiRPX"
'iconDirectory = "e:\LYEAMIS\EAMISclient\ShenPiIcon"
'---------------------------------------------------------------------------------
'判断注册文本文件所在的目录是否存在，如果不存在则创建这个目录
If Dir(txtiniFileDirectory) = "" Then
   Call CreateNewDirectory(txtiniFileDirectory)
End If
'---------------------------------------------------------------------------------
'判断存放受理号的文本文件是否存在，如果不存在则创建这个文本文件
If Dir(txtiniFileDirectory + "\TransactionLastNumber.txt") = "" Then
   Open txtiniFileDirectory + "\TransactionLastNumber.txt" For Append As #1
   Close #1
End If
'---------------------------------------------------------------------------------
If Dir(txtiniFileDirectory + "\zhuce.txt") = "" Then
       '--------------------------------------------------------------------------
       '注册信息界面显示
        frmRegister.Show
       '--------------------------------------------------------------------------
       '注册第3方组件和DLL
       'Call DllAndOcxRegister
Else
       '--------------------------------------------------------------------------
       '若初始化信息存在则显示登录界面
       frmLogOn.Show
End If
'---------------------------------------------------------------------------------
End Sub