project name record_organizer

2015-07-27 15:55:21 +02:00
commit aa525e08b8
351 changed files with 454129 additions and 0 deletions
--- a/app/DD-Record-Organiser/frmConfiguration_Basic.vb
+++ b/app/DD-Record-Organiser/frmConfiguration_Basic.vb
@@ -0,0 +1,79 @@
+Public Class frmConfiguration_Basic
+    Dim loaded As Boolean = False
+    Dim changes_ModuleKonfig As Boolean = False
+    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 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")
+                End If
+            End If
+            sql = "select * from TBPMO_KONFIGURATION where GUID = 1"
+            dt = ClassDatabase.Return_Datatable(sql)
+            If Not dt Is Nothing Then
+                If dt.Rows.Count = 1 Then
+                    Me.chkUnicode.Checked = dt.Rows(0).Item("WD_UNICODE")
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Form Load: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+        loaded = True
+    End Sub
+
+    Private Sub TextChanged_ModuleKonfig(sender As Object, e As EventArgs) Handles txtDelimiterFile.TextChanged, txtDelimiterVersion.TextChanged, txtwddriveletter.TextChanged
+        If loaded = True Then
+            changes_ModuleKonfig = True
+            btnsave.Enabled = True
+        End If
+    End Sub
+   
+    Private Sub chkUnicode_CheckedChanged(sender As Object, e As EventArgs) Handles chkUnicode.CheckedChanged
+        If loaded = True Then
+            changes_Konfig = True
+            btnsave.Enabled = True
+        End If
+    End Sub
+
+    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
+                Else
+                    lblSaveresult.Visible = False
+                End If
+            Catch ex As Exception
+                MsgBox("Error in Save ModuleConfig: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            End Try
+        End If
+        If changes_Konfig = True Then
+            Try
+                Dim wduni As Integer = 0
+                If chkUnicode.Checked Then
+                    wduni = 1
+                End If
+                Dim sql As String = "UPDATE TBPMO_KONFIGURATION SET WD_UNICODE = " & wduni & ",CHANGED_WHO = '" & Environment.UserName & "' where GUID = 1"
+                If ClassDatabase.Execute_non_Query(sql, True) = True Then
+                    lblSaveresult.Visible = True
+                Else
+                    lblSaveresult.Visible = False
+                End If
+            Catch ex As Exception
+                MsgBox("Error in Save Config: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            End Try
+        End If
+
+    End Sub
+
+   
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
+        My.Settings.Save()
+    End Sub
+End Class