RenzoL
55 lines
2.0 KiB
VB.net
55 lines
2.0 KiB
VB.net
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
|