Attribute VB_Name = "ModStartup"
'****************************************************************************
'人人為我，我為人人
'枕善居收藏整理
'發布日期：2007/09/25
'描    述：江蘇大學網絡信息中心網絡管理系統 - v1.0 Beta
'網    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'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