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

42
app/DD-Record-Organizer/frmUserKonfig.vb
View File

@@ -27,7 +27,7 @@ Public Class frmUserKonfig
Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
Dim sql = "select GUID, CLIENT_NAME FROM TBDD_CLIENT order by Client_Name"
Dim DT_CLIENT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT_CLIENT As DataTable = MYDB_ECM.GetDatatable(sql)
Catch ex As Exception
MsgBox("Error in frmUserKonfig_Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -101,14 +101,14 @@ Public Class frmUserKonfig
Dim SQL = String.Format("SELECT GUID FROM TBDD_GROUPS_USER WHERE USER_ID = {0} AND GROUP_ID = {1}", userID, groupID)
Dim userInGroup = ClassDatabase.Execute_Scalar(SQL)
Dim userInGroup = MYDB_ECM.GetScalarValue(SQL)
If Not IsNothing(userInGroup) Then
MsgBox(String.Format("Der Benutzer {0} ist bereits Mitglied der Gruppe {1}", USERNAMETextBox.Text, groupName), MsgBoxStyle.Exclamation)
Exit Sub
Else
SQL = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", userID, groupID, USER_USERNAME)
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
LoadGroupsForSelectedUser()
Else
MsgBox(String.Format("Fehler beim Hinzufügen des Benutzers {0} zur Gruppe {1}", USERNAMETextBox.Text, groupName))
@@ -138,7 +138,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT GROUP_NAME FROM VWPMO_USERS_GROUPS WHERE USER_ID = {0}", userID)
Try
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
lbGroups.Items.Clear()
For Each row As DataRow In dt.Rows
@@ -160,7 +160,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT T.GUID, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T, TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = {0} ORDEr BY T1.CLIENT_NAME", userID)
Try
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
lstbxUserMandant.Items.Clear()
For Each row As DataRow In dt.Rows
@@ -185,7 +185,7 @@ Public Class frmUserKonfig
' Gruppen ID über Name auslesen
Dim SQL = String.Format("SELECT GUID FROM TBDD_USER_GROUPS WHERE NAME = '{0}'", group)
Dim groupID As Integer = ClassDatabase.Execute_Scalar(SQL)
Dim groupID As Integer = MYDB_ECM.GetScalarValue(SQL)
' Keine Gruppe ausgewählt
If IsNothing(group) Then
@@ -194,7 +194,7 @@ Public Class frmUserKonfig
End If
SQL = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE USER_ID = {0} AND GROUP_ID = {1}", userID, groupID)
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
LoadGroupsForSelectedUser()
Else
Throw New Exception(String.Format("Fehler beim Löschen der Gruppe {0} für Benutzer {1}", group, USERNAMETextBox.Text))
@@ -248,7 +248,7 @@ Public Class frmUserKonfig
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_USER_MODULES T1 where T.GUID = T1.USER_ID AND T1.MODULE_ID = 1 ORDER BY T.USERNAME")
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
@@ -309,7 +309,7 @@ Public Class frmUserKonfig
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN (SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = {0})) ORDER BY T.USERNAME", USER_GUID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
@@ -351,9 +351,9 @@ Public Class frmUserKonfig
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBDD_GROUPS_USER Where user_id = " & row.Item(5) & " AND GROUP_ID = " & cmbGroups_Group2User.SelectedValue
If ClassDatabase.Execute_Scalar(sql) = 0 Then
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
sql = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbGroups_Group2User.SelectedValue, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql, False) = False Then
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
MsgBox(String.Format("Error in Adding User {0} to Group {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If
End If
@@ -381,7 +381,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_GROUPS_USER T1 WHERE T1.USER_ID = T.GUID AND T1.GROUP_ID = {0} ORDER BY T.USERNAME", cmbGroups_Group2User.SelectedValue)
lblUserforGroup.Text = "Users for Group " & cmbGroups_Group2User.Text
Try
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
@@ -415,7 +415,7 @@ Public Class frmUserKonfig
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", row.Item(5))
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from Group", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -460,7 +460,7 @@ Public Class frmUserKonfig
Try
DD_ECMAdmin.TBWH_Users2.Clear()
Dim sql = String.Format("SELECT T.GUID, T.USERNAME,T.EMAIL FROM TBDD_USER T WHERE T.GUID NOT IN (SELECT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID = {0}) ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users2Row
newUserRow = DD_ECMAdmin.TBWH_Users2.NewTBWH_Users2Row
@@ -486,9 +486,9 @@ Public Class frmUserKonfig
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBDD_CLIENT_USER Where user_id = " & row.Item(5) & " AND CLIENT_ID = " & cmbClientsforUser.SelectedValue
If ClassDatabase.Execute_Scalar(sql) = 0 Then
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
sql = String.Format("INSERT INTO TBDD_CLIENT_USER (USER_ID, CLIENT_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbClientsforUser.SelectedValue, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql, False) = False Then
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
MsgBox(String.Format("Error in Adding User {0} to Client {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If
End If
@@ -513,7 +513,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CLIENT_ID = {0} ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue)
Try
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
@@ -545,7 +545,7 @@ Public Class frmUserKonfig
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBDD_CLIENT_USER WHERE GUID = {0}", row.Item(5))
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from Client", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -594,7 +594,7 @@ Public Class frmUserKonfig
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Dim del = "EXEC [dbo].[PRPMO_DELETE_USER] " & USER_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del) = True Then
If MYDB_ECM.ExecuteNonQuery(del) = True Then
Load_User()
Else
MsgBox("Unexpected Error while deleting User.", MsgBoxStyle.Exclamation)
@@ -614,12 +614,12 @@ Public Class frmUserKonfig
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBDD_VERSION_USER_UPDATE_PATH Where USER_ID = " & row.Item(5) & " AND UPPER(MODULE_NAME) = 'RECORD-ORGANIZER'"
If clsDatabase.Execute_Scalar(sql) = 0 Then
If MYDB_ECM.GetScalarValue(sql) = 0 Then
sql = String.Format("INSERT INTO TBDD_VERSION_USER_UPDATE_PATH (USER_ID,MODULE_NAME,UPDATE_PATH) VALUES ( ({0}, {1}, '{2}'))", row.Item(5), "RECORD-ORGANIZER", txtPath.Text)
Else
sql = String.Format("UPDATE TBDD_VERSION_USER_UPDATE_PATH SET UPDATE_PATH = '{0}' WHERE USER_ID = {1} AND UPPER(MODULE_NAME) = 'RECORD-ORGANIZER'", txtPath.Text, row.Item(5))
End If
If ClassDatabase.Execute_non_Query(sql, False) = False Then
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
msg &= vbNewLine & String.Format("for User '{0}'", row.Item(1))
End If
End If