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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-09-21 16:15:47 +02:00
parent 2cc5835380
commit 7c9da92dcd
13 changed files with 1037 additions and 565 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -132,6 +132,10 @@ Public Class frmUserKonfig_AddUsers
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 & "')"
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)
ClassLogger.Add(msg, False)
ClassHelper.InsertEssential_Log(ID, "USER-ID", msg.Replace(">> ", ""))
usersAdded = usersAdded + 1
End If
Else
@@ -158,7 +162,6 @@ Public Class frmUserKonfig_AddUsers
Else
MsgBox(usersAdded & " neue Benutzer hinzugefügt", MsgBoxStyle.Information)
End If
End Sub
Private Function UserExists(username As String) As Boolean