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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-09-27 13:23:30 +02:00
parent 8f3122c24b
commit 51bd2cdb1d
27 changed files with 2750 additions and 1921 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb
View File

@@ -119,9 +119,19 @@ Public Class frmUserKonfig_AddUsers
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim USERNAME As String = row.Item(1)
Dim PRENAME As String = row.Item(2)
Dim PRENAME As String
Try
PRENAME = row.Item(2)
Catch ex As Exception
PRENAME = ""
End Try
Dim NAME As String = row.Item(3)
Try
NAME = row.Item(3)
Catch ex As Exception
NAME = ""
End Try
Dim email As String
Try
email = row.Item(4)
@@ -130,7 +140,7 @@ Public Class frmUserKonfig_AddUsers
End Try
Dim SQL
If Not UserExists(USERNAME) Then
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_RECORD_ORG,LANGUAGE) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & USER_LANGUAGE & "')"
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_RECORD_ORG,LANGUAGE, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & USER_LANGUAGE & "','" & Environment.UserName & "')"
If ClassDatabase.Execute_non_Query(SQL) = True Then
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER")
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME)
@@ -139,7 +149,7 @@ Public Class frmUserKonfig_AddUsers
usersAdded = usersAdded + 1
End If
Else
SQL = "UPDATE TBDD_USER SET MODULE_RECORD_ORG = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')"
SQL = String.Format("UPDATE TBDD_USER SET MODULE_RECORD_ORG = 1,PRENAME = '{0}', NAME = '{1}', EMAIL = '{2}' WHERE UPPER(USERNAME) = UPPER('{3}')", PRENAME, NAME, email, USERNAME)
If ClassDatabase.Execute_non_Query(SQL) = True Then
usersAdded = usersAdded + 1
End If
@@ -156,11 +166,10 @@ Public Class frmUserKonfig_AddUsers
' Dim SQL
'Next
If usersAdded = 1 Then
MsgBox(usersAdded & " neuer Benutzer hinzugefügt", MsgBoxStyle.Information)
If USER_LANGUAGE = "de-DE" Then
MsgBox(usersAdded & " Benutzer hinzugefügt/upgedatet!", MsgBoxStyle.Information)
Else
MsgBox(usersAdded & " neue Benutzer hinzugefügt", MsgBoxStyle.Information)
MsgBox(usersAdded & " User added/updatet!", MsgBoxStyle.Information)
End If
End Sub