61 lines
2.3 KiB
VB.net
61 lines
2.3 KiB
VB.net
Public Class frmMainV2
|
|
|
|
|
|
Private Sub UserPanelSwitcher_Click(sender As Button, e As EventArgs) Handles btnFirmen.Click, btnAuftraege.Click, btnFrachtkosten.Click
|
|
|
|
btnFirmen.BackColor = Color.White
|
|
btnAuftraege.BackColor = Color.White
|
|
btnFrachtkosten.BackColor = Color.White
|
|
'btnTrips.BackColor = Color.White
|
|
|
|
sender.BackColor = Color.RoyalBlue
|
|
|
|
PanMain.Controls.Clear()
|
|
If sender Is btnAuftraege Then Dim usrcntrl As New usrcntlAuftraege : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
|
|
If sender Is btnFirmen Then Dim usrcntrl As New usrcntlFirmen : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
|
|
If sender Is btnFrachtkosten Then Dim usrcntrl As New usrcntlFrachtkosten : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
|
|
' If sender Is btnTrips Then Dim usrcntrl As New usrcntlTrips : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
|
|
|
|
End Sub
|
|
|
|
Private Sub frmMain_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
|
|
frmLogin.Close()
|
|
End Sub
|
|
|
|
Private Sub btnCMR_Click(sender As Object, e As EventArgs) Handles btnCMR.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim eh As New SDL.frmCMR()
|
|
eh.Show()
|
|
Me.Cursor = Cursors.Default
|
|
' End If
|
|
|
|
Exit Sub
|
|
frmCMR.Show()
|
|
End Sub
|
|
|
|
Private Sub btnKasse_Click(sender As Object, e As EventArgs) Handles btnKasse.Click
|
|
Dim s As New SDL.frmSecureLoginKassenbuch
|
|
s.openKB = True
|
|
s.disableCBO = False
|
|
s.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub btnVollmacht_Click(sender As Object, e As EventArgs) Handles btnVollmacht.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VERAG_EXPORT, -1, , True)
|
|
End Sub
|
|
|
|
Private Sub frmMainV2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
lblVersion.Text = "Version: " & My.Resources.Version
|
|
btnAuftraege.PerformClick()
|
|
End Sub
|
|
|
|
Private Sub btnSchliessen_Click(sender As Object, e As EventArgs) Handles btnSchliessen.Click
|
|
Application.Exit()
|
|
End Sub
|
|
|
|
Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
|
|
frmLogin.UpdateDISPO()
|
|
End Sub
|
|
|
|
|
|
End Class |