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

ms

Browse Source
This commit is contained in:
SchreiberM
2015-09-22 10:32:30 +02:00
parent b7bdf56ef5
commit 45d0cab0c1
4 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD-Record-Organiser/ClassInit.vb
View File

@@ -55,11 +55,16 @@ Public Class ClassInit
'Me.Close()
Else
'Am System anmelden
sql = sql_User_Login
sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
sql = sql.Replace("@LogInOut", 1)
sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
sql = sql.Replace("@user", Environment.UserName)
ClassDatabase.Execute_non_Query(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'"
If ClassDatabase.Execute_non_Query(sql, True) = True Then
End If
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_GUID & ",'RECORD_ORGANIZER')"
ClassDatabase.Execute_non_Query(sql)
sql = "SELECT RECORD_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"

1
app/DD-Record-Organiser/ModuleMySettings.vb
View File

@@ -27,7 +27,6 @@ Module ModuleMySettings
Public USERS_LOGGED_IN = 0
Public USER_GUID = 0
Public sql_User_Login As String = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
Public sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
Dim rowresult As String = ""

2
app/DD-Record-Organiser/frmMain.vb
View File

@@ -13,7 +13,7 @@ Public Class frmMain
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
Dim sql = sql_User_Login
Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
sql = sql.Replace("@LogInOut", 0)
sql = sql.Replace("@ANGEMELDETWO", "''")
sql = sql.Replace("@user", Environment.UserName)

8
app/DD-Record-Organiser/frmSplash.vb
View File

@@ -58,22 +58,22 @@ Public NotInheritable Class frmSplash
bw.ReportProgress(CalcProgress(1), "Initialisiere Logger")
Init.InitLogger()
System.Threading.Thread.Sleep(500)
System.Threading.Thread.Sleep(600)
bw.ReportProgress(CalcProgress(2), "Initialisiere Datenbank")
Init.InitDatabase()
System.Threading.Thread.Sleep(500)
System.Threading.Thread.Sleep(600)
bw.ReportProgress(CalcProgress(3), "Initialisiere Windream-Einstellungen")
Init.InitWindream()
System.Threading.Thread.Sleep(500)
System.Threading.Thread.Sleep(600)
bw.ReportProgress(CalcProgress(4), "Initialisiere Benutzer")
Init.InitUserLogin()
System.Threading.Thread.Sleep(300)
System.Threading.Thread.Sleep(500)
End Sub
Private Sub bw_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs)