NEU
This commit is contained in:
198
UID/frmMain.vb
Normal file
198
UID/frmMain.vb
Normal file
@@ -0,0 +1,198 @@
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmMain
|
||||
Public Shared ConnStr As String
|
||||
Public Shared ConnStrInfo As String
|
||||
Private Grid_aktiv As Boolean = False
|
||||
Private Anzahl As Integer
|
||||
Private locZeilen As Integer = -1
|
||||
Private Suche_freigegeben As Boolean = False
|
||||
Private DISPO As New cOptionenDAL
|
||||
' Public Shared rowId As Integer
|
||||
Private hSQL As String
|
||||
Private nochange As Boolean = False
|
||||
|
||||
|
||||
|
||||
Private Sub frmMain_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
|
||||
frmLogin.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Main_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not frmLogin.USRNAME = "Andreas Luxbauer" Then btnHomepage.Visible = False
|
||||
' If frmLogin.USRBER > 5 Then btnMitarbeiter.Enabled = False : btnProgramme.Enabled = False
|
||||
Grid_aktiv = True
|
||||
btnMitarbeiter.Enabled = False
|
||||
btnProgramme.Enabled = False
|
||||
btnSchulungen.Enabled = False
|
||||
btnDienstplan.Enabled = False
|
||||
Button1.Enabled = False
|
||||
btnHomepage.Enabled = False
|
||||
Button6.Enabled = False
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
|
||||
btnDienstplan.Enabled = True
|
||||
btnDienstplan.PerformClick()
|
||||
End If
|
||||
|
||||
' Me.berechtigung = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMINFUNCTIONS", 1)
|
||||
' If Me.berechtigung = 99 Then Me.Close() : Exit Sub
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMINFUNCTIONS", 1) = 0 Then
|
||||
btnMitarbeiter.Enabled = True
|
||||
btnProgramme.Enabled = True
|
||||
btnSchulungen.Enabled = True
|
||||
btnDienstplan.Enabled = True
|
||||
Button1.Enabled = True
|
||||
btnHomepage.Enabled = True
|
||||
Button6.Enabled = True
|
||||
End If
|
||||
|
||||
' If frmLogin.USRBER >= 5 Then
|
||||
'btnDienstplan.Enabled = True
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
|
||||
Dim usrCntl As New usrCntlWelcome
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnMitarbeiter.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrCntlMitarbeiter
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
button_Click(sender)
|
||||
End Sub
|
||||
Private Sub clrPnlMain()
|
||||
While pnlMain.HasChildren
|
||||
pnlMain.Controls.RemoveAt(0)
|
||||
End While
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrCntlWelcome
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
End Sub
|
||||
|
||||
Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnProgramme.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrCntlProgramme
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
button_Click(sender)
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnDienstplan.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrCntlDienstplan
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
button_Click(sender)
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnSchulungen.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrCntlSeminare
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
button_Click(sender)
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrctlBuergschaft
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
button_Click(sender)
|
||||
End Sub
|
||||
|
||||
Private Sub btnHomepage_Click_1(sender As Object, e As EventArgs) Handles btnHomepage.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrcntlHomepage
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
button_Click(sender)
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
'frmTest.Show()
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrctlProcedures
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
button_Click(sender)
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
|
||||
frmLogin.UpdateADMIN()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub button_Click(sender As Object)
|
||||
Button6.BackColor = Color.White : Button6.ForeColor = SystemColors.ControlText
|
||||
Button1.BackColor = Color.White : Button1.ForeColor = SystemColors.ControlText
|
||||
btnSchulungen.BackColor = Color.White : btnSchulungen.ForeColor = SystemColors.ControlText
|
||||
btnDienstplan.BackColor = Color.White : btnDienstplan.ForeColor = SystemColors.ControlText
|
||||
btnProgramme.BackColor = Color.White : btnProgramme.ForeColor = SystemColors.ControlText
|
||||
btnMitarbeiter.BackColor = Color.White : btnMitarbeiter.ForeColor = SystemColors.ControlText
|
||||
|
||||
sender.BackColor = System.Drawing.Color.FromArgb(0, 54, 128) 'Color.RoyalBlue
|
||||
sender.ForeColor = Color.White
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
Dim c As New cProgramFunctions
|
||||
c.screenshot()
|
||||
End Sub
|
||||
|
||||
Private WithEvents T As New Timers.Timer With {.Interval = 500, .Enabled = True, .AutoReset = True}
|
||||
Private FormCount As Integer = 1
|
||||
Private Sub SomeForm_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
|
||||
If e.KeyData = Keys.Escape Then
|
||||
Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form)
|
||||
If Not TheForm Is Nothing Then
|
||||
TheForm.Close()
|
||||
End If
|
||||
End If
|
||||
If e.KeyData = Keys.PrintScreen Then
|
||||
Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form)
|
||||
If Not TheForm Is Nothing Then
|
||||
Dim c As New cProgramFunctions
|
||||
c.screenshot()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub HookControls(ByVal f As Control)
|
||||
For Each Control As Control In f.Controls
|
||||
AddHandler Control.KeyUp, AddressOf SomeForm_KeyUp
|
||||
If Control.Controls.Count <> 0 Then
|
||||
HookControls(Control)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
Private Sub T_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles T.Elapsed
|
||||
If FormCount = 0 Then FormCount = 1
|
||||
Dim FormOpened As Integer = My.Application.OpenForms.Count
|
||||
If FormCount <> FormOpened Then
|
||||
If FormOpened > FormCount Then
|
||||
For x As Integer = 1 To (FormOpened - FormCount)
|
||||
Dim F As Form = My.Application.OpenForms.Item(FormOpened - x)
|
||||
AddHandler F.KeyDown, AddressOf SomeForm_KeyUp
|
||||
HookControls(F)
|
||||
FormCount = My.Application.OpenForms.Count
|
||||
Next
|
||||
Else
|
||||
FormCount = My.Application.OpenForms.Count
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user