AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS3

Browse Source
This commit is contained in:
SchreiberM
2016-09-27 14:19:08 +02:00
parent 506694b78b
commit da72cc1e5a
7 changed files with 839 additions and 745 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
app/DD-Record-Organiser/frmRecOrgConfig_Basic.vb
View File

@@ -2,7 +2,8 @@
Public Class frmRecOrgConfig_Basic
Dim loaded As Boolean = False
Dim changes_ModuleKonfig As Boolean = False
Dim changes_Konfig As Boolean = False
Dim changes_RightService As Boolean = False
Dim changes_PMOKonfig 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 UPPER(NAME) = UPPER('Record-Organizer')"
@@ -46,6 +47,7 @@ Public Class frmRecOrgConfig_Basic
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
Me.chkUnicode.Checked = dt.Rows(0).Item("WD_UNICODE")
Me.txtWiki.Text = dt.Rows(0).Item("WIKI_STRING")
End If
End If
Catch ex As Exception
@@ -63,7 +65,7 @@ Public Class frmRecOrgConfig_Basic
Private Sub chkUnicode_CheckedChanged(sender As Object, e As EventArgs) Handles chkUnicode.CheckedChanged
If loaded = True Then
changes_Konfig = True
changes_PMOKonfig = True
btnsave.Enabled = True
End If
End Sub
@@ -102,13 +104,13 @@ Public Class frmRecOrgConfig_Basic
MsgBox("Error in Save ModuleConfig: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
If changes_Konfig = True Then
If changes_PMOKonfig = True Then
Try
Dim wduni As Integer = 0
If chkUnicode.Checked Then
wduni = 1
End If
Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}',WD_UNICODE = {5} WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, Me.txtPW.Text, Me.txtServername.Text, Environment.UserName, wduni)
Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET WIKI_STRING = '{0}', CHANGED_WHO = '{1}', WD_UNICODE = {2} WHERE GUID = 1", Me.txtWiki.Text, Environment.UserName, wduni)
If ClassDatabase.Execute_non_Query(upd, True) = True Then
lblSaveresult.Visible = True
@@ -119,6 +121,16 @@ Public Class frmRecOrgConfig_Basic
MsgBox("Error in Save Config: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
If changes_RightService = True Then
Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text)
Dim pw As String = cipherText
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, Environment.UserName)
ClassDatabase.Execute_non_Query(upd)
btnsave.Enabled = False
End If
End Sub
@@ -171,28 +183,35 @@ Public Class frmRecOrgConfig_Basic
Private Sub txtDomäne_TextChanged(sender As Object, e As EventArgs) Handles txtDomäne.TextChanged
If loaded = True Then
changes_Konfig = True
changes_RightService = True
btnsave.Enabled = True
End If
End Sub
Private Sub txtUser_TextChanged(sender As Object, e As EventArgs) Handles txtUser.TextChanged
If loaded = True Then
changes_Konfig = True
changes_RightService = True
btnsave.Enabled = True
End If
End Sub
Private Sub txtPW_TextChanged(sender As Object, e As EventArgs) Handles txtPW.TextChanged
If loaded = True Then
changes_Konfig = True
changes_RightService = True
btnsave.Enabled = True
End If
End Sub
Private Sub txtServername_TextChanged(sender As Object, e As EventArgs) Handles txtServername.TextChanged
If loaded = True Then
changes_Konfig = True
changes_RightService = True
btnsave.Enabled = True
End If
End Sub
Private Sub txtWiki_TextChanged(sender As Object, e As EventArgs) Handles txtWiki.TextChanged
If loaded = True Then
changes_PMOKonfig = True
btnsave.Enabled = True
End If
End Sub