79 lines
3.5 KiB
VB.net
79 lines
3.5 KiB
VB.net
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 |