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

Add First Pass of UserManager

Browse Source
This commit is contained in:
Jonathan Jenne
2019-02-19 16:58:01 +01:00
parent 79c2d6c344
commit 6131182d64
22 changed files with 1514 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SERVICES/DDEDM_NetworkService/Request.vb
View File

@@ -1,6 +1,9 @@
Imports DigitalData.Modules.Database
Imports FirebirdSql.Data.FirebirdClient
''' <summary>
''' TODO: BRAUCHEN WIR DAS ÜBERHAUPT?
''' </summary>
Public Class Request
Public Name As String
Public Username As String
@@ -17,21 +20,20 @@ Public Class Request
Me.Database = Database
Me.Debug = Debug
Dim oSql = $"INSERT INTO TBEDM_REQUEST_USER (REQUEST_GUID, USER_NAME) VALUES ('{RequestId}', '{Username}')"
Database.ExecuteNonQueryWithConnection(oSql, Connection)
'Dim oSql = $"INSERT INTO TBEDM_REQUEST_USER (REQUEST_GUID, USER_NAME) VALUES ('{RequestId}', '{Username}')"
'Database.ExecuteNonQueryWithConnection(oSql, Connection)
End Sub
Public Sub LogDebug(Message As String)
If Debug Then
Dim oSqlCommand = $"INSERT INTO TBEDM_REQUEST_LOG (REQUEST_GUID, LOG_MSG, DEBUG) VALUES ('{RequestId}','{Message}', True)"
Database.ExecuteNonQueryWithConnection(oSqlCommand, Connection)
End If
'If Debug Then
' Dim oSqlCommand = $"INSERT INTO TBEDM_REQUEST_LOG (REQUEST_GUID, LOG_MSG, DEBUG) VALUES ('{RequestId}','{Message}', True)"
' Database.ExecuteNonQueryWithConnection(oSqlCommand, Connection)
'End If
End Sub
Public Sub LogError(Message As String)
Dim oSqlCommand = $"INSERT INTO TBEDM_REQUEST_LOG (REQUEST_GUID, LOG_MSG, ERROR) VALUES ('{RequestId}','{Message}', True)"
Database.ExecuteNonQueryWithConnection(oSqlCommand, Connection)
'Dim oSqlCommand = $"INSERT INTO TBEDM_REQUEST_LOG (REQUEST_GUID, LOG_MSG, ERROR) VALUES ('{RequestId}','{Message}', True)"
'Database.ExecuteNonQueryWithConnection(oSqlCommand, Connection)
End Sub
Public Overrides Function ToString() As String

2
SERVICES/DDEDM_NetworkService/WindowsService.vb
View File

@@ -30,6 +30,8 @@ Public Class WindowsService
AppConfig.Load()
_logConfig = New LogConfig(LogConfig.PathType.CustomPath, "E:\EDMService")
_logConfig.Debug = True
_logger = _logConfig.GetLogger()
_logger.Info("Service {0} is starting", SERVICE_DISPLAY_NAME)