MS - 21.09
This commit is contained in:
SchreiberM
@@ -1,8 +1,10 @@
|
||||
Imports DevExpress.XtraNavBar
|
||||
Imports DevExpress.XtraBars.Ribbon
|
||||
Imports DevExpress.XtraBars
|
||||
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'))"
|
||||
|
||||
@@ -122,85 +124,7 @@ Public Class frmMain
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Public Sub LoadMenuItems()
|
||||
' Dim items As ToolStripItemCollection = BearbeitenToolStripMenuItem.DropDownItems
|
||||
' Dim subitem As ToolStripMenuItem
|
||||
' Dim SQL As String = "SELECT * FROM TBPMO_MENU_FORM"
|
||||
' Dim dtRootMenu As DataTable = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
' Try
|
||||
' items.Clear()
|
||||
|
||||
' If dtRootMenu.Rows.Count <> 0 Then
|
||||
' For Each row As DataRow In dtRootMenu.Rows
|
||||
' Dim image As Bitmap = LoadImage(row.Item("ICON_PATH"))
|
||||
' subitem = New ToolStripMenuItem(row.Item("MENU_ENTRY"), image)
|
||||
' items.Insert(0, subitem)
|
||||
' Dim dtSubMenu As DataTable
|
||||
' Dim MenuID As Integer = row.Item("GUID")
|
||||
' Sql = "SELECT * FROM TBPMO_MENU_FORM_ENTRIES WHERE MENU_FORM_ID = " & MenuID
|
||||
' dtSubMenu = ClassDatabase.Return_Datatable(Sql)
|
||||
|
||||
' If dtSubMenu.Rows.Count <> 0 Then
|
||||
|
||||
' For Each subRow As DataRow In dtSubMenu.Rows
|
||||
' Dim subimage As Bitmap = LoadImage(subRow.Item("ICON_PATH"))
|
||||
|
||||
' Dim formTitle As String = subRow.Item("MENU_ENTRY")
|
||||
' Dim newItem As ToolStripMenuItem = New ToolStripMenuItem(formTitle, subimage, AddressOf MenuItemClick)
|
||||
' newItem.Tag = subRow.Item("FORM_ID")
|
||||
' subitem.DropDownItems.Add(newItem)
|
||||
' Next 'subrow
|
||||
' End If 'subrow count
|
||||
' Next 'row
|
||||
|
||||
' End If ' row count
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Error in LoadMenuItems 1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
' End Try
|
||||
|
||||
' Try
|
||||
' Dim SQL2 As String = "SELECT * FROM TBPMO_FORM_CONSTRUCTOR ORDER BY SEQUENCE_MENU"
|
||||
' Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
|
||||
' Dim image2 As Bitmap = LoadNoImage()
|
||||
|
||||
' If dt.Rows.Count <> 0 Then
|
||||
' tstripQuick.Items.Clear()
|
||||
' If Sett_ShowQuickMenue = True Then
|
||||
' tstripQuick.Visible = True
|
||||
' Else
|
||||
' tstripQuick.Visible = False
|
||||
' ClassLogger.Add(">> Sett_ShowQuickMenue = False", False)
|
||||
' End If
|
||||
' For Each row As DataRow In dt.Rows
|
||||
' If Not IsDBNull(row.Item("MENU_IMG")) Then
|
||||
' Dim bimg() As Byte = row.Item("MENU_IMG")
|
||||
' Dim bitmap As Bitmap = ByteArrayToBitmap(bimg)
|
||||
' image2 = bitmap
|
||||
' End If
|
||||
' ' Kombinierte Bewegungsdaten in QuickAccess Menu laden
|
||||
' Dim btn As New ToolStripButton(row.Item("FORM_TITLE"), image2, AddressOf QuickAccessClick)
|
||||
' Dim index As Integer = row.Item("SEQUENCE_MENU")
|
||||
' btn.Tag = row.Item("GUID")
|
||||
' btn.TextAlign = ContentAlignment.MiddleLeft
|
||||
' btn.ImageAlign = ContentAlignment.MiddleLeft
|
||||
' tstripQuick.Items.Insert(index, btn)
|
||||
' Next
|
||||
' Else
|
||||
' ClassLogger.Add(">> Keine FormConstructorMenüs vorhanden!", False)
|
||||
' End If
|
||||
|
||||
' 'Calender add
|
||||
' Dim calitem As New ToolStripMenuItem("Kalender", My.Resources.calendar)
|
||||
' items.Add(New ToolStripSeparator())
|
||||
' items.Add(calitem)
|
||||
' AddHandler subitem.Click, AddressOf Calender_open
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Error in LoadMenuItems 2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
' End Try
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
Private Sub BarButtonItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
|
||||
Dim formId As Integer = Integer.Parse(e.Item.Tag)
|
||||
|
||||
@@ -263,22 +187,20 @@ Public Class frmMain
|
||||
End Try
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
' Form Titel setzen
|
||||
ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
|
||||
Me.Text = Application.ProductName
|
||||
|
||||
' Logger initialisieren
|
||||
ClassLogger.Init("", Environment.UserName)
|
||||
|
||||
' Status Labels setzen
|
||||
LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString)
|
||||
LabelUser.Caption = Environment.UserName
|
||||
LabelMachine.Caption = My.Computer.Name
|
||||
|
||||
ClassLogger.Init("", Environment.UserName)
|
||||
|
||||
' Status Labels setzen
|
||||
SetBackground()
|
||||
Settings_Load()
|
||||
MySettings_Load()
|
||||
If MyConnectionString <> String.Empty Then
|
||||
ClassDatabase.Init()
|
||||
Else
|
||||
@@ -288,8 +210,6 @@ Public Class frmMain
|
||||
|
||||
Settings_LoadBasicConfig()
|
||||
|
||||
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
|
||||
Dim sql = sql_UserID
|
||||
sql = sql.Replace("@user", Environment.UserName)
|
||||
@@ -318,7 +238,6 @@ Public Class frmMain
|
||||
ClassDatabase.Execute_non_Query(sql)
|
||||
sql = "SELECT RECORD_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
|
||||
sql = sql.Replace("@user", Environment.UserName)
|
||||
Console.WriteLine(ClassDatabase.Execute_Scalar(sql))
|
||||
USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql)
|
||||
If USER_IS_ADMIN = True Then
|
||||
'Admin
|
||||
@@ -334,15 +253,15 @@ Public Class frmMain
|
||||
'LoadMenuItems()
|
||||
LoadMenuItems2()
|
||||
LoadQuickStartItems()
|
||||
ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
|
||||
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
|
||||
|
||||
' ToolStripManager.LoadSettings(Me)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Refresh_TaskReminder()
|
||||
Try
|
||||
Me.VWPMO_WF_USER_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE, Environment.UserName)
|
||||
@@ -399,6 +318,11 @@ Public Class frmMain
|
||||
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
Refresh_TaskReminder()
|
||||
Timer1.Start()
|
||||
If Sett_ConstructorStart <> 0 Then
|
||||
Cursor = Cursors.WaitCursor
|
||||
OpenFormConstructor(Sett_ConstructorStart)
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Workflow_Taskmanagement_Click(sender As Object, e As EventArgs) Handles NotifyIcon1.Click
|
||||
|
||||
Reference in New Issue
Block a user