modstartup.bas

网路设备资产管理系统

Attribute VB_Name = "ModStartup"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/09/25
'描    述：江苏大学网络信息中心网络管理系统 - v1.0 Beta
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Sub Main()

On Error GoTo Handle_Error



Dim FileName As String
FileName = App.Path & "\config.ini"


    If Dir(FileName) = "" Then
      '文件不存在
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set a = fs.CreateTextFile("config.ini", True)
        a.Close
    End If

config_dbaddr = Trim(GetIni(FileName, "database", "dbaddr"))
config_dbusername = Trim(GetIni(FileName, "database", "dbusername"))
config_dbpassword = Trim(GetIni(FileName, "database", "dbpassword"))
config_dbname = Trim(GetIni(FileName, "database", "dbname"))

If config_dbaddr = "" Or config_dbusername = "" Or config_dbname = "" Then
        FrmConfig.Show vbModal
        
        
        If FrmConfig.result = False Then
           
           Exit Sub
        Else
          config_dbaddr = FrmConfig.txtdbaddr
          config_dbusername = FrmConfig.txtdbusername
          config_dbpassword = FrmConfig.txtdbpassword
          config_dbname = FrmConfig.txtdbname
        End If
        
        Unload FrmConfig

End If




ConnectString = "Driver={SQL Server};Server=" & config_dbaddr & ";Uid=" & config_dbusername & ";Pwd=" & config_dbpassword & ";Database=" & config_dbname

Connect



FrmLogin.Show vbModal

If FrmLogin.result = False Then
   Unload FrmLogin
Else
   Unload FrmLogin
   FrmMain.Show
   
   Load_Manufacturers
   Load_Devicetypes
   Load_Models
End If



Handle_Error:

If Err.Number <> 0 Then
  MsgBox "启动时发生错误:" & Err.Description, vbOKOnly + vbExclamation, "警告"
End If

End Sub