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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-11-23 10:24:21 +01:00
parent a1d1b2a88e
commit fc9f391307
79 changed files with 7388 additions and 4524 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -92,7 +92,7 @@ Public Class frmRecOrgConfig_Basic
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("@CHANGED_WHO", SqlDbType.Text).Value = USER_USERNAME
cmd.Parameters.Add("@PRODUCT_NAME1", SqlDbType.Text).Value = txtProductName.Text
conn.Open()
@@ -110,7 +110,7 @@ Public Class frmRecOrgConfig_Basic
'If chkUnicode.Checked Then
' wduni = 1
'End If
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)
Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET WIKI_STRING = '{0}', CHANGED_WHO = '{1}', WD_UNICODE = {2} WHERE GUID = 1", Me.txtWiki.Text, USER_USERNAME, wduni)
If ClassDatabase.Execute_non_Query(upd, True) = True Then
lblSaveresult.Visible = True
@@ -126,7 +126,7 @@ Public Class frmRecOrgConfig_Basic
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)
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, USER_USERNAME)
ClassDatabase.Execute_non_Query(upd)
btnsave.Enabled = False
@@ -161,7 +161,7 @@ Public Class frmRecOrgConfig_Basic
Private Sub btnTest_Anmeldung_Click(sender As Object, e As EventArgs) Handles btnTest_Anmeldung.Click
Try
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", USER_USERNAME)
Dim session = DD_Rights.ClassRights.GetWMSessionAsUser(Me.txtDomäne.Text, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text)
If Not IsNothing(session) Then
MsgBox("The persionalized connection to windream was created successfully!", MsgBoxStyle.Information)
@@ -169,7 +169,7 @@ Public Class frmRecOrgConfig_Basic
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)
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, USER_USERNAME)
ClassDatabase.Execute_non_Query(upd)
btnsave.Enabled = False
Else