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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb
View File

@@ -8,7 +8,7 @@ Public Class frmRecOrgConfig_Basic
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')"
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
Me.txtDelimiterVersion.Text = dt.Rows(0).Item("VERSION_DELIMITER")
@@ -26,7 +26,7 @@ Public Class frmRecOrgConfig_Basic
End If
End If
sql = "select * from TBPMO_SERVICE_RIGHT_CONFIG where GUID = 1"
dt = ClassDatabase.Return_Datatable(sql)
dt = MYDB_ECM.GetDatatable(sql)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
Me.txtDomäne.Text = dt.Rows(0).Item("AD_DOMAIN")
@@ -38,14 +38,14 @@ Public Class frmRecOrgConfig_Basic
PWplainText = wrapper.DecryptData(dt.Rows(0).Item("AD_USER_PW"))
Me.txtPW.Text = PWplainText
Catch ex As Exception
DD_LIB_Standards.clsLogger.Add("- the Password '" & dt.Rows(0).Item("AD_USER_PW") & "' could not be decrypted", False)
LOGGER.Warn("- the Password '" & dt.Rows(0).Item("AD_USER_PW") & "' could not be decrypted")
Me.txtPW.Text = ""
End Try
Me.txtServername.Text = dt.Rows(0).Item("AD_SERVER")
End If
End If
sql = "select * from TBPMO_KONFIGURATION where GUID = 1"
dt = ClassDatabase.Return_Datatable(sql)
dt = MYDB_ECM.GetDatatable(sql)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
' Me.chkUnicode.Checked = dt.Rows(0).Item("WD_UNICODE")
@@ -115,7 +115,7 @@ Public Class frmRecOrgConfig_Basic
'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, USER_USERNAME, wduni)
If ClassDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
lblSaveresult.Visible = True
Else
lblSaveresult.Visible = False
@@ -130,7 +130,7 @@ Public Class frmRecOrgConfig_Basic
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, USER_USERNAME)
ClassDatabase.Execute_non_Query(upd, False)
MYDB_ECM.ExecuteNonQuery(upd)
btnsave.Enabled = False
End If
@@ -173,7 +173,7 @@ Public Class frmRecOrgConfig_Basic
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, USER_USERNAME)
ClassDatabase.Execute_non_Query(upd, False)
MYDB_ECM.ExecuteNonQuery(upd)
btnsave.Enabled = False
Else
MsgBox("The persionalized connection to windream could NOT be created." & vbNewLine & "Please check the User-Data!", MsgBoxStyle.Critical)
@@ -223,7 +223,7 @@ Public Class frmRecOrgConfig_Basic
Select Case TabControl1.SelectedIndex
Case 1
Dim sql = String.Format("SELECT * FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
Dim KONFIG_DT As DataTable = DD_LIB_Standards.clsDatabase.Return_Datatable(sql, True)
Dim KONFIG_DT As DataTable = MYDB_ECM.GetDatatable(sql)
If KONFIG_DT.Rows.Count = 1 Then
txtBoxUpdatePath.Text = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH")
End If
@@ -232,7 +232,7 @@ Public Class frmRecOrgConfig_Basic
Private Sub btnSaveUpdatePath_Click(sender As Object, e As EventArgs) Handles btnSaveUpdatePath.Click
Dim upd = String.Format("UPDATE TBDD_MODULES SET VERSION_UPATE_PATH = '{0}' WHERE UPPER(NAME) = UPPER('Record-Organizer')", txtBoxUpdatePath.Text)
If DD_LIB_Standards.clsDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
lblSave.Visible = True
Else
lblSave.Visible = False