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

JJ 21.09.15 Splashscreen

Browse Source
This commit is contained in:
JenneJ
2015-09-21 15:53:44 +02:00
parent c00d0f9b6a
commit b7bdf56ef5
8 changed files with 386 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,10 +5,12 @@ Imports System.ComponentModel
Public Class frmMain
Dim sql_User_Login As String = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
Dim sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
'Ausgelagert in ModuleMySettings.vb
'Dim sql_User_Login As String = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
'Dim sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
'Private USER_GUID
Private USER_GUID
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
Dim sql = sql_User_Login
@@ -73,6 +75,7 @@ Public Class frmMain
Dim itemTitle As String = subRow.Item("MENU_ENTRY")
Dim tag As String = subRow.Item("FORM_ID")
Dim item As New BarButtonItem(ribbonMain.Manager, itemTitle)
Dim subimage As Bitmap = LoadImage(subRow.Item("ICON_PATH"))
item.RibbonStyle = RibbonItemStyles.SmallWithText
@@ -196,67 +199,83 @@ Public Class frmMain
LabelUser.Caption = Environment.UserName
LabelMachine.Caption = My.Computer.Name
ClassLogger.Init("", Environment.UserName)
SetBackground()
Dim splash As New frmSplash()
splash.ShowDialog()
'init
'ClassLogger.Init("", Environment.UserName)
' Status Labels setzen
SetBackground()
MySettings_Load()
If MyConnectionString <> String.Empty Then
ClassDatabase.Init()
Else
frmConfig_Basic.ShowDialog()
ClassDatabase.Init()
'init
'MySettings_Load()
'init
'If MyConnectionString <> String.Empty Then
' ClassDatabase.Init()
'Else
' frmConfig_Basic.ShowDialog()
' ClassDatabase.Init()
'End If
'init
'Settings_LoadBasicConfig()
'init
'Dim sql = sql_UserID
'sql = sql.Replace("@user", Environment.UserName)
'ClassLogger.Add(">> Username: " & Environment.UserName, False)
'USER_GUID = ClassDatabase.Execute_Scalar(sql)
'If USER_GUID Is Nothing Then
' ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt!", False)
' MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
' Me.Close()
'Else
' sql = "SELECT MODULE_RECORD_ORG FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
' sql = sql.Replace("@user", Environment.UserName)
' If ClassDatabase.Execute_Scalar(sql) = False Then
' ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
' MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
' Me.Close()
' Else
' 'Am System anmelden
' sql = sql_User_Login
' sql = sql.Replace("@LogInOut", 1)
' sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
' sql = sql.Replace("@user", Environment.UserName)
' ClassDatabase.Execute_non_Query(sql)
' 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'))"
' sql = sql.Replace("@user", Environment.UserName)
' USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql)
' If USER_IS_ADMIN = True Then
' 'Admin
' pageAdmin.Visible = True
' End If
' sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'RECORD_ORGANIZER'"
' Dim anzahl = ClassDatabase.Execute_Scalar(sql)
' 'tslblUserLoggedin.Text = "Anzahl Angemeldete User: " & anzahl.ToString
' LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
' End If
'End If
If USER_IS_ADMIN = True Then
pageAdmin.Visible = True
End If
Settings_LoadBasicConfig()
LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
Dim sql = sql_UserID
sql = sql.Replace("@user", Environment.UserName)
ClassLogger.Add(">> Username: " & Environment.UserName, False)
USER_GUID = ClassDatabase.Execute_Scalar(sql)
If USER_GUID Is Nothing Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt!", False)
MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close()
Else
sql = "SELECT MODULE_RECORD_ORG FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
sql = sql.Replace("@user", Environment.UserName)
If ClassDatabase.Execute_Scalar(sql) = False Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close()
Else
'Am System anmelden
sql = sql_User_Login
sql = sql.Replace("@LogInOut", 1)
sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
sql = sql.Replace("@user", Environment.UserName)
ClassDatabase.Execute_non_Query(sql)
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'))"
sql = sql.Replace("@user", Environment.UserName)
USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql)
If USER_IS_ADMIN = True Then
'Admin
pageAdmin.Visible = True
End If
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'RECORD_ORGANIZER'"
Dim anzahl = ClassDatabase.Execute_Scalar(sql)
'tslblUserLoggedin.Text = "Anzahl Angemeldete User: " & anzahl.ToString
LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
End If
End If
'LoadMenuItems()
LoadMenuItems2()
LoadQuickStartItems()
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try