JJ 23.09.15

app/DD-Record-Organiser/frmConfiguration_Basic.vb

@@ -4,13 +4,21 @@
     Dim changes_Konfig As Boolean = False
     Private Sub frmConfiguration_Basic_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
-            Dim sql As String = "select * from TBDD_MODULES where NAME = 'Global-Indexer'"
+            Dim sql As String = "select * from TBDD_MODULES where NAME = 'Record-Organizer'"
             Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
             If Not dt Is Nothing Then
                 If dt.Rows.Count = 1 Then
                     Me.txtDelimiterVersion.Text = dt.Rows(0).Item("VERSION_DELIMITER")
                     Me.txtDelimiterFile.Text = dt.Rows(0).Item("FILE_DELIMITER")
                     Me.txtwddriveletter.Text = dt.Rows(0).Item("STRING1")
+                    Me.txtProductName.Text = dt.Rows(0).Item("PRODUCT_NAME1")
+
+                    ' Hintergrundbild unwandeln und anzeigen
+                    If Not IsDBNull(dt.Rows(0).Item("BACKGROUND_IMAGE")) Then
+                        Dim bimage() As Byte = dt.Rows(0).Item("BACKGROUND_IMAGE")
+                        Dim image = ByteArrayToBitmap(bimage)
+                        Me.pbBackground.Image = image
+                    End If
                 End If
             End If
             sql = "select * from TBPMO_KONFIGURATION where GUID = 1"
@@ -26,7 +34,7 @@
         loaded = True
     End Sub
 
-    Private Sub TextChanged_ModuleKonfig(sender As Object, e As EventArgs) Handles txtDelimiterFile.TextChanged, txtDelimiterVersion.TextChanged, txtwddriveletter.TextChanged
+    Private Sub TextChanged_ModuleKonfig(sender As Object, e As EventArgs) Handles txtDelimiterFile.TextChanged, txtDelimiterVersion.TextChanged, txtwddriveletter.TextChanged, txtProductName.TextChanged
         If loaded = True Then
             changes_ModuleKonfig = True
             btnsave.Enabled = True
@@ -43,12 +51,33 @@
     Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
         If changes_ModuleKonfig = True Then
             Try
-                Dim sql As String = "UPDATE TBDD_MODULES SET VERSION_DELIMITER = '" & Me.txtDelimiterVersion.Text & "',FILE_DELIMITER = '" & Me.txtDelimiterFile.Text & "',STRING1 = '" & Me.txtwddriveletter.Text & "',CHANGED_WHO = '" & Environment.UserName & "' where NAME = 'Global-Indexer'"
-                If ClassDatabase.Execute_non_Query(sql, True) = True Then
-                    lblSaveresult.Visible = True
+                ' Hintergrund speichern
+                Dim image As Bitmap = Nothing
+                Dim bimage() As Byte = Nothing
+
+                Dim sql As String = "UPDATE TBDD_MODULES SET VERSION_DELIMITER = @VERSION_DELIMITER, FILE_DELIMITER = @FILE_DELIMITER, STRING1 = @STRING1, BACKGROUND_IMAGE = @BACKGROUND_IMAGE, PRODUCT_NAME1 = @PRODUCT_NAME1, CHANGED_WHO = @CHANGED_WHO WHERE NAME = 'Record-Organizer'"
+                Dim conn As New SqlClient.SqlConnection(MyConnectionString)
+                Dim cmd As New SqlClient.SqlCommand(sql, conn)
+
+                If pbBackground.ImageLocation IsNot Nothing Then
+                    image = CType(Drawing.Image.FromFile(pbBackground.ImageLocation, True), Bitmap)
+                    bimage = BitmapToByteArray(image)
+                    cmd.Parameters.Add("@BACKGROUND_IMAGE", SqlDbType.VarBinary).Value = bimage
                 Else
-                    lblSaveresult.Visible = False
+                    cmd.Parameters.Add("@BACKGROUND_IMAGE", SqlDbType.VarBinary).Value = DBNull.Value
                 End If
+
+                cmd.Parameters.Add("@VERSION_DELIMITER", SqlDbType.Text).Value = txtDelimiterVersion.Text
+                cmd.Parameters.Add("@FILE_DELIMITER", SqlDbType.Text).Value = txtDelimiterFile.Text
+                cmd.Parameters.Add("@STRING1", SqlDbType.Text).Value = txtwddriveletter.Text
+                cmd.Parameters.Add("@CHANGED_WHO", SqlDbType.Text).Value = Environment.UserName
+                cmd.Parameters.Add("@PRODUCT_NAME1", SqlDbType.Text).Value = txtProductName.Text
+
+                conn.Open()
+                cmd.ExecuteNonQuery()
+                conn.Close()
+
+                lblSaveresult.Visible = True
             Catch ex As Exception
                 MsgBox("Error in Save ModuleConfig: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             End Try
@@ -72,8 +101,28 @@
 
     End Sub
 
-   
-    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
+    Private Sub chkChildWindow_CheckedChanged(sender As Object, e As EventArgs) Handles chkChildWindow.CheckedChanged
         My.Settings.Save()
     End Sub
+
+    Private Sub btnSelectBackground_Click(sender As Object, e As EventArgs) Handles btnSelectBackground.Click
+        OpenFileDialog1.Filter = "PNG Bilder|*.png"
+
+        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            Dim path As String = OpenFileDialog1.FileName
+            pbBackground.ImageLocation = path
+            btnsave.Enabled = True
+            changes_ModuleKonfig = True
+        End If
+    End Sub
+
+    Private Sub btnResetBackground_Click(sender As Object, e As EventArgs) Handles btnResetBackground.Click
+        If pbBackground.Image IsNot Nothing Then
+            btnsave.Enabled = True
+            changes_ModuleKonfig = True
+        End If
+
+        pbBackground.ImageLocation = Nothing
+        pbBackground.Image = Nothing
+    End Sub
 End Class