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