modstartup.bas

设备管理系统包含设备管理

Attribute VB_Name = "ModStartup"


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