|
|
Imports System
|
|
|
Imports System.Data
|
|
|
Imports System.Data.SqlTypes
|
|
|
Imports System.Data.SqlClient
|
|
|
Public Class frmMAEinstellung
|
|
|
|
|
|
#Region "Deklarationen"
|
|
|
Dim ma As New TKB.VV.DB.clsMitarbeitereinstellung
|
|
|
Dim data As New DataTable
|
|
|
Dim FormDataChanged As Boolean = False
|
|
|
Dim msg As New TKB.VV.Utils.MyMessage
|
|
|
Dim sec As New TKB.VV.Utils.MySecurity
|
|
|
Dim windowspositions As String = ""
|
|
|
#End Region
|
|
|
|
|
|
Private Sub frmMAEinstellung_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
|
ma.Dispose()
|
|
|
data.Dispose()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub frmMAEinstellung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
ma.cpMainConnectionProvider = Globals.conn
|
|
|
ma.iMitarbeiternr = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
data = ma.SelectAllWMitarbeiternrLogic()
|
|
|
|
|
|
If data.Rows.Count = 0 Then
|
|
|
Me.cboxVertragsuebersicht.Checked = False
|
|
|
Me.cboxPendenzen.Checked = False
|
|
|
Me.cboxAktivitaeten.Checked = False
|
|
|
Me.cboxApplikation.Checked = False
|
|
|
Me.cboxreporting.Checked = False
|
|
|
Me.cbboxVertragsuebersicht.Text = ""
|
|
|
Me.cbboxAktivitaeten.Text = ""
|
|
|
Me.cbboxPendenzen.Text = ""
|
|
|
Me.cbboxApplikationsverwaltung.Text = ""
|
|
|
Me.cbboxReporting.Text = ""
|
|
|
Else
|
|
|
ma.iMitarbeitereinstellungnr = New SqlInt32(CType(data.Rows(0).Item(0), Int32))
|
|
|
ma.SelectOne()
|
|
|
Me.cboxAktivitaeten.Checked = ma.bAktivitaeten.Value = True
|
|
|
Me.cboxApplikation.Checked = ma.bApplikationsuebersicht.Value = True
|
|
|
Me.cboxPendenzen.Checked = ma.bPendenzen.Value = True
|
|
|
Me.cboxVertragsuebersicht.Checked = ma.bVertragsuebersicht.Value = True
|
|
|
Me.cboxLizenzmanagement.Checked = ma.bLizenzmanagement.Value = True
|
|
|
Try
|
|
|
Me.cboxreporting.Checked = ma.bReporting.Value = True
|
|
|
Catch
|
|
|
Me.cboxreporting.Checked = False
|
|
|
End Try
|
|
|
Try
|
|
|
Me.cbboxVertragsuebersicht.Text = ma.iWPos1.ToString
|
|
|
If Me.cbboxVertragsuebersicht.Text = "0" Then Me.cbboxVertragsuebersicht.Text = ""
|
|
|
Catch ex As Exception
|
|
|
Me.cbboxVertragsuebersicht.Text = ""
|
|
|
End Try
|
|
|
Try
|
|
|
Me.cbboxAktivitaeten.Text = ma.iWPos2.ToString
|
|
|
If Me.cbboxAktivitaeten.Text = "0" Then Me.cbboxAktivitaeten.Text = ""
|
|
|
Catch ex As Exception
|
|
|
Me.cbboxAktivitaeten.Text = ""
|
|
|
End Try
|
|
|
Try
|
|
|
Me.cbboxPendenzen.Text = ma.iWPos3.ToString
|
|
|
If Me.cbboxPendenzen.Text = "0" Then Me.cbboxPendenzen.Text = ""
|
|
|
Catch ex As Exception
|
|
|
Me.cbboxPendenzen.Text = ""
|
|
|
End Try
|
|
|
Try
|
|
|
Me.cbboxApplikationsverwaltung.Text = ma.iWPos4.ToString
|
|
|
If Me.cbboxApplikationsverwaltung.Text = "0" Then Me.cbboxApplikationsverwaltung.Text = ""
|
|
|
Catch ex As Exception
|
|
|
Me.cbboxApplikationsverwaltung.Text = ""
|
|
|
End Try
|
|
|
Try
|
|
|
Me.cbboxReporting.Text = ma.iWPos5.ToString
|
|
|
If Me.cbboxReporting.Text = "0" Then Me.cbboxReporting.Text = ""
|
|
|
Catch ex As Exception
|
|
|
Me.cbboxReporting.Text = ""
|
|
|
End Try
|
|
|
Try
|
|
|
Me.cbboxLizenzmanagement.Text = ma.iWPos6.ToString
|
|
|
If Me.cbboxLizenzmanagement.Text = "0" Then Me.cbboxLizenzmanagement.Text = ""
|
|
|
Catch ex As Exception
|
|
|
|
|
|
End Try
|
|
|
End If
|
|
|
|
|
|
Me.sec.Set_Form_Security(Me)
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
|
|
|
save_data()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub save_data()
|
|
|
ma.cpMainConnectionProvider = Globals.conn
|
|
|
ma.iMitarbeiternr = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
ma.bAktivitaeten = New SqlBoolean(CType(Me.cboxAktivitaeten.Checked, Boolean))
|
|
|
ma.bApplikationsuebersicht = New SqlBoolean(CType(Me.cboxApplikation.Checked, Boolean))
|
|
|
ma.bPendenzen = New SqlBoolean(CType(Me.cboxPendenzen.Checked, Boolean))
|
|
|
ma.bVertragsuebersicht = New SqlBoolean(CType(Me.cboxVertragsuebersicht.Checked, Boolean))
|
|
|
ma.bReporting = New SqlBoolean(CType(Me.cboxreporting.Checked, Boolean))
|
|
|
ma.bLizenzmanagement = New SqlBoolean(CType(Me.cboxLizenzmanagement.Checked, Boolean))
|
|
|
If Me.cbboxVertragsuebersicht.Text = "" Then
|
|
|
ma.iWPos1 = New SqlInt32(CType(0, Int32))
|
|
|
Else
|
|
|
ma.iWPos1 = New SqlInt32(CType(Me.cbboxVertragsuebersicht.Text, Int32))
|
|
|
End If
|
|
|
If Me.cbboxAktivitaeten.Text = "" Then
|
|
|
ma.iWPos2 = New SqlInt32(CType(0, Int32))
|
|
|
Else
|
|
|
ma.iWPos2 = New SqlInt32(CType(Me.cbboxAktivitaeten.Text, Int32))
|
|
|
End If
|
|
|
If Me.cbboxPendenzen.Text = "" Then
|
|
|
ma.iWPos3 = New SqlInt32(CType(0, Int32))
|
|
|
Else
|
|
|
ma.iWPos3 = New SqlInt32(CType(Me.cbboxPendenzen.Text, Int32))
|
|
|
End If
|
|
|
If Me.cbboxApplikationsverwaltung.Text = "" Then
|
|
|
ma.iWPos4 = New SqlInt32(CType(0, Int32))
|
|
|
Else
|
|
|
ma.iWPos4 = New SqlInt32(CType(Me.cbboxApplikationsverwaltung.Text, Int32))
|
|
|
End If
|
|
|
If Me.cbboxReporting.Text = "" Then
|
|
|
ma.iWPos5 = New SqlInt32(CType(0, Int32))
|
|
|
Else
|
|
|
ma.iWPos5 = New SqlInt32(CType(Me.cbboxReporting.Text, Int32))
|
|
|
End If
|
|
|
If Me.cbboxLizenzmanagement.Text = "" Then
|
|
|
ma.iWPos6 = New SqlInt32(CType(0, Int32))
|
|
|
Else
|
|
|
ma.iWPos6 = New SqlInt32(CType(Me.cbboxLizenzmanagement.Text, Int32))
|
|
|
End If
|
|
|
If Me.windowspositions <> "" Then
|
|
|
ma.sWParam1 = New SqlString(CType(Me.windowspositions, String))
|
|
|
Else
|
|
|
ma.sWParam1 = New SqlString(CType("", String))
|
|
|
End If
|
|
|
|
|
|
Globals.conn.OpenConnection()
|
|
|
If data.Rows.Count = 0 Then
|
|
|
ma.Insert()
|
|
|
Else
|
|
|
ma.Update()
|
|
|
End If
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.FormDataChanged = False
|
|
|
End Sub
|
|
|
|
|
|
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
|
Me.Close()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
|
Me.Close()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub cboxAktivitaeten_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboxAktivitaeten.Click, cboxApplikation.Click, _
|
|
|
cboxPendenzen.Click, cboxVertragsuebersicht.Click
|
|
|
Me.FormDataChanged = True
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
#Region "Closing / Check_Changes"
|
|
|
|
|
|
''' <summary>
|
|
|
''' Schliessen des Formulars
|
|
|
''' </summary>
|
|
|
''' <param name="sender"></param>
|
|
|
''' <param name="e"></param>
|
|
|
''' <remarks></remarks>
|
|
|
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
|
If Check_Changes() = False Then e.Cancel = True
|
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
|
''' Pr<50>fung, ob Daten<65>nderungen vorgenommen wurden.
|
|
|
''' </summary>
|
|
|
''' <remarks></remarks>
|
|
|
Private Function Check_Changes() As Boolean
|
|
|
Dim msgres As MsgBoxResult
|
|
|
If Me.FormDataChanged Then
|
|
|
msgres = msg.Show_MessageYesNoCancel(3)
|
|
|
Select Case msgres
|
|
|
Case MsgBoxResult.Yes
|
|
|
Save_data()
|
|
|
Return True
|
|
|
Case MsgBoxResult.Cancel
|
|
|
Return False
|
|
|
Case MsgBoxResult.No
|
|
|
Return True
|
|
|
End Select
|
|
|
Else
|
|
|
Return True
|
|
|
End If
|
|
|
End Function
|
|
|
#End Region
|
|
|
|
|
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
|
Me.windowspositions = ""
|
|
|
Dim p As Form = Me.ParentForm
|
|
|
Dim s As String = ""
|
|
|
For Each windows As Form In p.MdiChildren
|
|
|
If windows.Name = "frmVertragsuebersicht" Or windows.Name = "FrmAktivitaetenListe" Or windows.Name = "frmPendenz<EFBFBD>bersicht" Or windows.Name = "frmApplikation" Or windows.Name = "FrmReportSelect" Or windows.Name = "frmLizenzverwaltung" Then
|
|
|
s = s + windows.Name + ";" + windows.Top.ToString + ";" + windows.Left.ToString + ";" + windows.Width.ToString + ";" + windows.Height.ToString + ":"
|
|
|
End If
|
|
|
Next
|
|
|
Me.windowspositions = s
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
|
Me.windowspositions = "-1"
|
|
|
End Sub
|
|
|
End Class |
