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

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-07-26 11:09:38 +02:00
parent 0f8f8ddf65
commit 3ae24fe471
35 changed files with 59894 additions and 1899 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,4 +1,5 @@
Imports DD_Rights
Imports DD_LIB_Standards
Public Class frmRecOrgConfig_Basic
Dim loaded As Boolean = False
Dim changes_ModuleKonfig As Boolean = False
@@ -36,7 +37,7 @@ Public Class frmRecOrgConfig_Basic
PWplainText = wrapper.DecryptData(dt.Rows(0).Item("AD_USER_PW"))
Me.txtPW.Text = PWplainText
Catch ex As Exception
clsLogger.Add("- the Password '" & dt.Rows(0).Item("AD_USER_PW") & "' could not be decrypted", False)
DD_LIB_Standards.clsLogger.Add("- the Password '" & dt.Rows(0).Item("AD_USER_PW") & "' could not be decrypted", False)
Me.txtPW.Text = ""
End Try
Me.txtServername.Text = dt.Rows(0).Item("AD_SERVER")
@@ -215,4 +216,25 @@ Public Class frmRecOrgConfig_Basic
btnsave.Enabled = True
End If
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
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)
If KONFIG_DT.Rows.Count = 1 Then
txtBoxUpdatePath.Text = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH")
End If
End Select
End Sub
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
lblSave.Visible = True
Else
lblSave.Visible = False
End If
End Sub
End Class