Imports EgtUILib

Public 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
   Public m_StatusMapController As DataLayer.Controllers.StatusMapController

   Sub Init()

      '   ' 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
      '   m_StatusMapController = New DataLayer.Controllers.StatusMapController
   End Sub

   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
      m_StatusMapController = New DataLayer.Controllers.StatusMapController
   End Sub

End Module