Rename Shared to Common

MultiTool.Common/BaseClass.vb

@@ -0,0 +1,17 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+
+Public Class BaseClass
+    Inherits DigitalData.Modules.Base.BaseClass
+
+    Friend Database As MSSQLServer
+
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+    End Sub
+
+    Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
+        MyBase.New(pLogConfig)
+        Database = pDatabase
+    End Sub
+End Class