Initial commit
This commit is contained in:
@@ -0,0 +1,177 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmMain
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TehemnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.PendenzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ExtrasToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SystemAdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnVertragsuebersicht = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnMonitoring = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnApplikationen = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.TehemnToolStripMenuItem, Me.PendenzenToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.ExtrasToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(990, 24)
|
||||
Me.MenuStrip1.TabIndex = 1
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'TehemnToolStripMenuItem
|
||||
'
|
||||
Me.TehemnToolStripMenuItem.Name = "TehemnToolStripMenuItem"
|
||||
Me.TehemnToolStripMenuItem.Size = New System.Drawing.Size(63, 20)
|
||||
Me.TehemnToolStripMenuItem.Text = "&Themen"
|
||||
'
|
||||
'PendenzenToolStripMenuItem
|
||||
'
|
||||
Me.PendenzenToolStripMenuItem.Name = "PendenzenToolStripMenuItem"
|
||||
Me.PendenzenToolStripMenuItem.Size = New System.Drawing.Size(77, 20)
|
||||
Me.PendenzenToolStripMenuItem.Text = "&Pendenzen"
|
||||
'
|
||||
'AuswertungenToolStripMenuItem
|
||||
'
|
||||
Me.AuswertungenToolStripMenuItem.Name = "AuswertungenToolStripMenuItem"
|
||||
Me.AuswertungenToolStripMenuItem.Size = New System.Drawing.Size(96, 20)
|
||||
Me.AuswertungenToolStripMenuItem.Text = "&Auswertungen"
|
||||
'
|
||||
'ExtrasToolStripMenuItem
|
||||
'
|
||||
Me.ExtrasToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SystemAdministrationToolStripMenuItem})
|
||||
Me.ExtrasToolStripMenuItem.Name = "ExtrasToolStripMenuItem"
|
||||
Me.ExtrasToolStripMenuItem.Size = New System.Drawing.Size(49, 20)
|
||||
Me.ExtrasToolStripMenuItem.Text = "&Extras"
|
||||
'
|
||||
'SystemAdministrationToolStripMenuItem
|
||||
'
|
||||
Me.SystemAdministrationToolStripMenuItem.Name = "SystemAdministrationToolStripMenuItem"
|
||||
Me.SystemAdministrationToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
|
||||
Me.SystemAdministrationToolStripMenuItem.Text = "&System-Administration"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnVertragsuebersicht, Me.TSBtnMonitoring, Me.TSBtnApplikationen, Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(990, 25)
|
||||
Me.ToolStrip1.TabIndex = 2
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'TSBtnQuit
|
||||
'
|
||||
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||
Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
|
||||
'
|
||||
'TSBtnVertragsuebersicht
|
||||
'
|
||||
Me.TSBtnVertragsuebersicht.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnVertragsuebersicht.Image = CType(resources.GetObject("TSBtnVertragsuebersicht.Image"), System.Drawing.Image)
|
||||
Me.TSBtnVertragsuebersicht.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnVertragsuebersicht.Name = "TSBtnVertragsuebersicht"
|
||||
Me.TSBtnVertragsuebersicht.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnVertragsuebersicht.Text = "Vertragsübersicht"
|
||||
'
|
||||
'TSBtnMonitoring
|
||||
'
|
||||
Me.TSBtnMonitoring.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnMonitoring.Image = CType(resources.GetObject("TSBtnMonitoring.Image"), System.Drawing.Image)
|
||||
Me.TSBtnMonitoring.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnMonitoring.Name = "TSBtnMonitoring"
|
||||
Me.TSBtnMonitoring.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnMonitoring.Text = "ToolStripButton3"
|
||||
Me.TSBtnMonitoring.ToolTipText = "Monitoring"
|
||||
'
|
||||
'TSBtnApplikationen
|
||||
'
|
||||
Me.TSBtnApplikationen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnApplikationen.Image = CType(resources.GetObject("TSBtnApplikationen.Image"), System.Drawing.Image)
|
||||
Me.TSBtnApplikationen.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnApplikationen.Name = "TSBtnApplikationen"
|
||||
Me.TSBtnApplikationen.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnApplikationen.Text = "Applikationsverwaltung"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton1.Text = "Lizenzmanagement"
|
||||
'
|
||||
'frmMain
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(990, 518)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.IsMdiContainer = True
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "frmMain"
|
||||
Me.Text = "Themen-/Issue-Management TKB"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents TehemnToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents PendenzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents AuswertungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ExtrasToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents SystemAdministrationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnVertragsuebersicht As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnMonitoring As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnApplikationen As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
End Class
|
||||
@@ -0,0 +1,113 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace db
|
||||
|
||||
Public Class clsMySysadminfunkion
|
||||
Inherits clsSysadminfunktion
|
||||
|
||||
#Region "Select Hierarchy"
|
||||
Public Function SelectHierarchy() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
'scmCmdToExecute.CommandText = "dbo.[sp_sysadminfunktion_hierarchie]"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_get_sysadmin_tree]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("sysadminfunktion")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iroot", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMandantnr.Value))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(db.LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSysadminfunktion::SelectAll::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "LoadTreeMenu"
|
||||
Public Sub LoadTreeMenu(ByVal otv As TreeView)
|
||||
Dim menueintraege As New clsMySysadminfunkion()
|
||||
Dim menudata As DataTable
|
||||
Dim i As Integer
|
||||
Dim m_collDeletedNodes As Collection
|
||||
Dim collNodeKeys As New Collection()
|
||||
Dim tnNew As TreeNode
|
||||
Dim tnParent As TreeNode
|
||||
|
||||
m_collDeletedNodes = Nothing
|
||||
m_collDeletedNodes = New Collection()
|
||||
|
||||
menueintraege.cpMainConnectionProvider = conn
|
||||
menudata = menueintraege.SelectHierarchy
|
||||
|
||||
For i = 0 To menudata.Rows.Count - 1
|
||||
If menudata.Rows(i).Item("ParentID") = 0 Then
|
||||
tnNew = otv.Nodes.Add(menudata.Rows(i).Item("bezeichnung"))
|
||||
With tnNew
|
||||
.Tag() = menudata.Rows(i).Item("sysadminfnktnr")
|
||||
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
||||
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
||||
End With
|
||||
Try
|
||||
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("sysadminfnktnr"), String))
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
tnParent = CType(collNodeKeys.Item(CType(menudata.Rows(i).Item("ParentID"), String)), TreeNode)
|
||||
tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("bezeichnung"), String))
|
||||
With tnNew
|
||||
.Tag() = CType(menudata.Rows(i).Item("sysadminfnktnr"), String)
|
||||
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
||||
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
||||
End With
|
||||
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("sysadminfnktnr"), String))
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
Binary file not shown.
Reference in New Issue
Block a user