Imports EgtUILib

Module DbControllers

   Friend m_SupervisorId As String = "1"

   Public m_ProjController As DataLayer.Controllers.ProjController
   Public m_ProdController As DataLayer.Controllers.ProdController
   Public m_MachGroupController As DataLayer.Controllers.MachGroupController

   Sub New()

      ' se demo--> server = db.steamware.net, nKey e sKey come le hai...

      Dim sKey = "", sUser = "", sPwd = ""

      EgtGetKeyInfo(sKey)
      sKey = sKey.Replace(" ", "")
      If Not IsNothing(sKey) AndAlso sKey.Length > 11 Then
         sUser = sKey.Substring(3, 6)
         sPwd = sKey.Substring(10, sKey.Length - 10).Replace("(", "").Replace(")", "")
      End If
      DataLayer.DbConfig.InitDb("127.0.0.1", sUser, sPwd)
      DataLayer.DbConfig.CheckUser(sUser, sPwd)

      m_ProjController = New DataLayer.Controllers.ProjController
      m_ProdController = New DataLayer.Controllers.ProdController
      m_MachGroupController = New DataLayer.Controllers.MachGroupController
   End Sub

End Module