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

MS_13.10.2015

Browse Source
This commit is contained in:
SchreiberM
2015-10-13 15:42:01 +02:00
parent b050f2d543
commit c74e5434b9
30 changed files with 6236 additions and 922 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -155,7 +155,6 @@ Public Class frmMain
Private Sub MenuItemClick(sender As Object, e As EventArgs)
Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
Dim formId As Integer = Integer.Parse(item.Tag)
Console.WriteLine(item.Tag)
Cursor = Cursors.WaitCursor
OpenFormInputFor(formId, 1)
@@ -164,7 +163,6 @@ Public Class frmMain
Private Sub MenuItem2Click(sender As Object, e As EventArgs)
Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
Dim formId As Integer = Integer.Parse(item.Tag)
Console.WriteLine(item.Tag)
Cursor = Cursors.WaitCursor
OpenFormConstructor(formId)
Cursor = Cursors.Default
@@ -227,67 +225,6 @@ Public Class frmMain
Dim splash As New frmSplash()
splash.ShowDialog()
'init
'ClassLogger.Init("", Environment.UserName)
' Status Labels setzen
'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
@@ -489,4 +426,7 @@ Public Class frmMain
frmTestvb.Show()
End Sub
Private Sub BarButtonItem17_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem17.ItemClick
OpenTemplatemanagement()
End Sub
End Class