15 lines
373 B
VB.net
15 lines
373 B
VB.net
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public MustInherit Class BaseModel
|
|
Protected Database As MSSQLServer
|
|
Protected Logger As Logger
|
|
Protected State As State
|
|
|
|
Public Sub New(pState As State)
|
|
Logger = pState.LogConfig.GetLogger()
|
|
Database = pState.Database
|
|
State = pState
|
|
End Sub
|
|
End Class
|