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

MS TBPM_USER

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-03-08 16:25:18 +01:00
parent 65ddd4ae22
commit 3fed2d8551
21 changed files with 487 additions and 931 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb
View File

@@ -15,7 +15,6 @@ Public Class frmUserKonfig_AddUsers
Catch ex As Exception
MsgBox("Error in SaveGrid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -162,16 +161,17 @@ Public Class frmUserKonfig_AddUsers
End Try
Dim SQL
If Not UserExists(USERNAME) Then
SQL = "INSERT INTO TBPM_USER(PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "','" & USER_USERNAME & "')"
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 TBPM_USER", MyConnectionString)
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", MyConnectionString)
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME)
ClassLogger.Add(msg, False)
SQL = String.Format("INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES ({0},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'PM'))'", ID)
ClassDatabase.Execute_non_Query(SQL, False)
usersAdded = usersAdded + 1
End If
Else
SQL = String.Format("UPDATE TBPM_USER SET PRENAME = '{0}', NAME = '{1}', EMAIL = '{2}' WHERE UPPER(USERNAME) = UPPER('{3}')", PRENAME, NAME, email, USERNAME)
SQL = String.Format("UPDATE TBDD_USER SET PRENAME = '{0}', NAME = '{1}', EMAIL = '{2}' WHERE UPPER(USERNAME) = UPPER('{3}')", PRENAME, NAME, email, USERNAME)
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
usersAdded = usersAdded + 1
End If
@@ -195,7 +195,7 @@ Public Class frmUserKonfig_AddUsers
Private Function UserExists(username As String) As Boolean
Try
Dim SQL = "SELECT GUID FROM TBPM_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')"
Dim SQL = "SELECT GUID FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')"
If ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) = Nothing Then
Return False
Else