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

12
app/DD-Record-Organizer/frmUserKonfig_AddUsers.vb
View File

@@ -23,7 +23,7 @@ Public Class frmUserKonfig_AddUsers
'Dim sql = "SELECT * FROM TBPMO_AD_GROUP_EXCLUSIVE"
'DT_GROUPS_EXCLUSIVE = ClassDatabase.Return_Datatable(sql)
'DT_GROUPS_EXCLUSIVE = MYDB_ECM.GetDatatable(sql)
GetGroups(USER_USERNAME)
Catch ex As Exception
MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -162,12 +162,12 @@ Public Class frmUserKonfig_AddUsers
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, LANGUAGE, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & oUSERNAME & "','" & oEmail & "','" &
USER_LANGUAGE & "','" & USER_USERNAME & "')"
_Step = 8
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
SQL = $"INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID,ADDED_WHO) VALUES
(SELECT MAX(GUID) FROM TBDD_USER),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
ClassDatabase.Execute_non_Query(SQL, False)
MYDB_ECM.ExecuteNonQuery(SQL)
_Step = 9
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER")
Dim ID = MYDB_ECM.GetScalarValue("SELECT MAX(GUID) FROM TBDD_USER")
Dim msg = String.Format("USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, oUSERNAME)
_Step = 10
LOGGER.Info(msg)
@@ -182,7 +182,7 @@ Public Class frmUserKonfig_AddUsers
INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID,ADDED_WHO) VALUES
(SELECT GUID FROM TBDD_USER WHERE USERNAME = '{oUSERNAME}'),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
_Step = 12
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
usersRefreshed += 1
End If
End If
@@ -212,7 +212,7 @@ Public Class frmUserKonfig_AddUsers
Private Function UserExists(username As String) As Boolean
Try
Dim SQL = "SELECT * FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')"
Dim result As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim result As DataTable = MYDB_ECM.GetDatatable(sql)
Select Case result.Rows.Count
Case 0