JJ 23.09.15

app/DD-Record-Organiser/ClassInit.vb

@@ -6,7 +6,6 @@ Public Class ClassInit
 
     Public Sub InitLogger()
         ClassLogger.Init("", Environment.UserName)
-        'Throw New Exception("Dummy Fehler!")
     End Sub
 
     Public Sub InitDatabase()
@@ -34,6 +33,34 @@ Public Class ClassInit
         End If
     End Sub
 
+
+
+    Public Sub InitInterface(mainForm As frmMain)
+
+        Dim SQL As String = "SELECT BACKGROUND_IMAGE, PRODUCT_NAME1 FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'"
+        Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
+
+        If dt.Rows.Count > 0 Then
+
+            Dim row As DataRow = dt.Rows(0)
+
+            If Not IsDBNull(row.Item("BACKGROUND_IMAGE")) Then
+                Dim bimage() As Byte = CType(row.Item("BACKGROUND_IMAGE"), Byte())
+                Dim image As Bitmap = ByteArrayToBitmap(bimage)
+
+                mainForm.SetWindowBackground(image)
+            End If
+
+            If Not IsDBNull(row.Item("PRODUCT_NAME1")) Then
+                Dim title As String = row.Item("PRODUCT_NAME1")
+
+                mainForm.SetWindowTitle(title)
+            End If
+
+        End If
+
+    End Sub
+
     Public Sub InitUserLogin()
         Dim sql = sql_UserID
         sql = sql.Replace("@user", Environment.UserName)