AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

2.4.1.7 Logging SQL from Task, replacing '

Browse Source
This commit is contained in:
SchreiberM
2020-06-05 13:49:20 +02:00
parent fcf3ad53a4
commit 386e3b62b5
25 changed files with 892 additions and 473 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb
View File

@@ -172,7 +172,7 @@ Public Class frmUserKonfig_AddUsers
If Not UserExists(USERNAME) Then
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "','" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", CONNECTION_STRING)
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", CONNECTION_STRING, "btnAddUsers_Click")
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME)
LOGGER.Info(msg)
SQL = String.Format("INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES ({0},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'PM'))", ID)
@@ -207,7 +207,7 @@ Public Class frmUserKonfig_AddUsers
Private Function UserExists(username As String) As Boolean
Try
Dim SQL = "SELECT GUID FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')"
If ClassDatabase.Execute_Scalar(SQL, CONNECTION_STRING, True) = Nothing Then
If ClassDatabase.Execute_Scalar(SQL, CONNECTION_STRING, "UserExists") = Nothing Then
Return False
Else
Return True