Initial commit
This commit is contained in:
761
SW/AssessmentMgmt/Vorgabe/clsVorgabe.vb
Normal file
761
SW/AssessmentMgmt/Vorgabe/clsVorgabe.vb
Normal file
@@ -0,0 +1,761 @@
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports DevComponents
|
||||
|
||||
Public Class clsVorgabe
|
||||
Inherits DB.clsVorgabe
|
||||
|
||||
|
||||
#Region "Deklarationen"
|
||||
Public daten As New DataTable
|
||||
Public Neuer_Datensatz As Boolean = False
|
||||
Public Mitarbeiterdaten As New DataTable
|
||||
|
||||
Dim stammdaten As New DB.clsStammdaten
|
||||
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||
|
||||
Dim mMutierer As String
|
||||
Property MutiererText() As String
|
||||
Get
|
||||
Return mMutierer
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
mMutierer = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
Sub New()
|
||||
MyBase.New()
|
||||
End Sub
|
||||
|
||||
Public Overloads Sub dispose()
|
||||
MyBase.Dispose()
|
||||
Try
|
||||
Me.stammdaten = Nothing
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Mutierer auslesen
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Get_Mutierer(ByVal nr As Integer) As String
|
||||
Try
|
||||
Dim ma As New DB.clsMitarbeiter
|
||||
Dim dt As New DataTable
|
||||
Dim Retvalue As String
|
||||
ma.cpMainConnectionProvider = Globals.conn
|
||||
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
|
||||
dt = ma.SelectOne()
|
||||
If dt.Rows.Count = 0 Then
|
||||
Retvalue = ("{" + nr.ToString + "}")
|
||||
Else
|
||||
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
|
||||
End If
|
||||
ma.Dispose()
|
||||
dt.Dispose()
|
||||
Return Retvalue
|
||||
Catch
|
||||
Return ""
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function Get_Data(ByVal Nr As Integer)
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.iVorgabeID = New SqlInt32(CType(Nr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.daten = Me.SelectOne()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Try
|
||||
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
|
||||
Catch ex As Exception
|
||||
Me.MutiererText = ""
|
||||
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Save_Data() As Integer
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Update()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = False
|
||||
End Function
|
||||
|
||||
Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
|
||||
If Basenr <> 0 Then
|
||||
Get_Data(Basenr)
|
||||
End If
|
||||
Dim db As New DB.clsMyKey_Tabelle
|
||||
db.cpMainConnectionProvider = Globals.conn
|
||||
Dim newkey = db.get_dbkey("Vorgabe")
|
||||
db.Dispose()
|
||||
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.iVorgabeID = New SqlInt32(CType(newkey, Int32))
|
||||
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Insert()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = True
|
||||
Return newkey
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Löschen eines Datensatzes erstellen.
|
||||
''' </summary>
|
||||
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
|
||||
If Basenr <> 0 Then
|
||||
Get_Data(Basenr)
|
||||
End If
|
||||
If bAktiv.Value = False Then Exit Function
|
||||
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Update()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = False
|
||||
End Function
|
||||
|
||||
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
|
||||
If Basenr <> 0 Then
|
||||
Get_Data(Basenr)
|
||||
End If
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Globals.conn.OpenConnection()
|
||||
MyBase.Delete()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = False
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Neue Person einfügen
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Add_New() As Integer
|
||||
Dim db As New DB.clsMyKey_Tabelle
|
||||
db.cpMainConnectionProvider = Globals.conn
|
||||
Dim newkey = db.get_dbkey("Vorgabe")
|
||||
db.Dispose()
|
||||
Me.iVorgabeID = New SqlInt32(CType(newkey, Int32))
|
||||
Me.iParentID = New SqlInt32(CType(0, Int32))
|
||||
Me.sBezeichnung = New SqlString(CType("", String))
|
||||
Me.sBeschreibung = New SqlString(CType("", String))
|
||||
Me.sKapitelNr = New SqlString(CType("", String))
|
||||
Me.sKapitelNr = New SqlString(CType("", String))
|
||||
Me.sDefinition = New SqlString(CType("", String))
|
||||
Me.sErgaenzungen = New SqlString(CType("", String))
|
||||
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Try
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Insert()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Me.Neuer_Datensatz = True
|
||||
Return Me.iVorgabeID.Value
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class clsVorgabeTree
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim treedata As New DataSet
|
||||
|
||||
Dim TreeaufbauSuche As Boolean = False
|
||||
Dim TreeaufbauNr As Integer = 0
|
||||
Dim FoundNode As Integer = 0
|
||||
Dim Searchstring As String = ""
|
||||
Public Treesearch As New AdvTree.AdvTree
|
||||
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||
|
||||
Dim m_imagelist As ImageList
|
||||
Property imagelist As ImageList
|
||||
Get
|
||||
Return m_imagelist
|
||||
End Get
|
||||
Set(value As ImageList)
|
||||
m_imagelist = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_pruefplannr As Integer
|
||||
Property Pruefplannr As Integer
|
||||
Get
|
||||
Return m_pruefplannr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_pruefplannr = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Tree_from_Pruefplan As Boolean = False
|
||||
Property Tree_From_Pruefplan As Boolean
|
||||
Get
|
||||
Return m_Tree_from_Pruefplan
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_Tree_from_Pruefplan = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_tree_from_massnahmeplan As Boolean = False
|
||||
Property Tree_from_Massnahmeplan As Boolean
|
||||
Get
|
||||
Return m_tree_from_massnahmeplan
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_tree_from_massnahmeplan = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Tree"
|
||||
|
||||
Public Sub Load_Treeview(ByRef tree As DevComponents.AdvTree.AdvTree)
|
||||
tree.Nodes.Clear()
|
||||
TreeaufbauNr = -1
|
||||
If Me.Tree_From_Pruefplan = True Then
|
||||
load_treedata_pruefplan
|
||||
Else
|
||||
If Me.Tree_from_Massnahmeplan = True Then
|
||||
Load_Treedata_Massnahmeplan()
|
||||
Else
|
||||
Load_Treedata("")
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
If Not (treedata Is Nothing) Then
|
||||
Dim oView As DataView = treedata.Tables(0).DefaultView
|
||||
Dim oTable As DataTable = oView.Table
|
||||
Dim oDS As DataSet = New DataSet()
|
||||
oDS.Tables.Add(oTable.Copy())
|
||||
|
||||
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
||||
oDS.Relations.Add("SelfRefenceRelation",
|
||||
oDS.Tables(0).Columns("id"),
|
||||
oDS.Tables(0).Columns("Parentid"))
|
||||
End If
|
||||
oTable.Dispose()
|
||||
oTable = Nothing
|
||||
|
||||
LoadTreeView(oDS, tree)
|
||||
oDS.Dispose()
|
||||
oDS = Nothing
|
||||
tree.ExpandAll()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub Search_Eintraege(ByRef tree As DevComponents.AdvTree.AdvTree, Searchstring As String)
|
||||
tree.Nodes.Clear()
|
||||
TreeaufbauNr = -1
|
||||
Load_Treedata(Searchstring)
|
||||
Try
|
||||
If Not (treedata Is Nothing) Then
|
||||
Dim oView As DataView = treedata.Tables(0).DefaultView
|
||||
Dim oTable As DataTable = oView.Table
|
||||
Dim oDS As DataSet = New DataSet()
|
||||
oDS.Tables.Add(oTable.Copy())
|
||||
|
||||
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
||||
oDS.Relations.Add("SelfRefenceRelation",
|
||||
oDS.Tables(0).Columns("id"),
|
||||
oDS.Tables(0).Columns("Parentid"))
|
||||
End If
|
||||
oTable.Dispose()
|
||||
oTable = Nothing
|
||||
|
||||
LoadTreeView(oDS, tree)
|
||||
oDS.Dispose()
|
||||
oDS = Nothing
|
||||
tree.ExpandAll()
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function Load_Treedata(ByVal datatype As String) As DataTable
|
||||
treedata.Tables.Clear()
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
|
||||
selectcommand.CommandText = "sp_get_vorgabetree"
|
||||
selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
|
||||
selectcommand.Parameters(0).Value = datatype
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = selectcommand
|
||||
da.Fill(treedata, "Tree")
|
||||
If treedata_for_search.Rows.Count < 1 Then
|
||||
For Each c As DataColumn In treedata.Tables(0).Columns
|
||||
If c.ColumnName = "ErweiterteSuche" Then
|
||||
Dim dc As New DataColumn
|
||||
dc.ColumnName = "ErweiterteSuche"
|
||||
dc.DataType = System.Type.GetType("System.String")
|
||||
dc.DefaultValue = " "
|
||||
Try
|
||||
Globals.treedata_for_search.Columns.Add(dc)
|
||||
Catch
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
Globals.treedata_for_search.Columns.Add(c.ColumnName)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
For Each row As DataRow In treedata.Tables(0).Rows
|
||||
Globals.treedata_for_search.ImportRow(row)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Load_Treedata_Pruefplan() As DataTable
|
||||
treedata.Tables.Clear()
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
|
||||
selectcommand.CommandText = "sp_get_vorgabetree_pruefplan"
|
||||
selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
|
||||
selectcommand.Parameters(0).Value = Me.Pruefplannr
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = selectcommand
|
||||
da.Fill(treedata, "Tree")
|
||||
If treedata_for_search.Rows.Count < 1 Then
|
||||
For Each c As DataColumn In treedata.Tables(0).Columns
|
||||
If c.ColumnName = "ErweiterteSuche" Then
|
||||
Dim dc As New DataColumn
|
||||
dc.ColumnName = "ErweiterteSuche"
|
||||
dc.DataType = System.Type.GetType("System.String")
|
||||
dc.DefaultValue = " "
|
||||
Try
|
||||
Globals.treedata_for_search.Columns.Add(dc)
|
||||
Catch
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
Globals.treedata_for_search.Columns.Add(c.ColumnName)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
For Each row As DataRow In treedata.Tables(0).Rows
|
||||
Globals.treedata_for_search.ImportRow(row)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Load_Treedata_Massnahmeplan() As DataTable
|
||||
treedata.Tables.Clear()
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
|
||||
selectcommand.CommandText = "sp_get_vorgabetree_massnahmeplan"
|
||||
selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
|
||||
selectcommand.Parameters(0).Value = Me.Pruefplannr
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = selectcommand
|
||||
da.Fill(treedata, "Tree")
|
||||
If treedata_for_search.Rows.Count < 1 Then
|
||||
For Each c As DataColumn In treedata.Tables(0).Columns
|
||||
If c.ColumnName = "ErweiterteSuche" Then
|
||||
Dim dc As New DataColumn
|
||||
dc.ColumnName = "ErweiterteSuche"
|
||||
dc.DataType = System.Type.GetType("System.String")
|
||||
dc.DefaultValue = " "
|
||||
Try
|
||||
Globals.treedata_for_search.Columns.Add(dc)
|
||||
Catch
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
Globals.treedata_for_search.Columns.Add(c.ColumnName)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
For Each row As DataRow In treedata.Tables(0).Rows
|
||||
Globals.treedata_for_search.ImportRow(row)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
Protected Function GetAllNodes(ByVal treestruktur As DevComponents.AdvTree.AdvTree) As List(Of TreeNode)
|
||||
|
||||
Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
|
||||
|
||||
' start recursion for each root node of the treeview
|
||||
For i As Integer = 0 To treestruktur.Nodes.Count - 1
|
||||
GetAllNodes(treestruktur.Nodes(i), allNodes)
|
||||
Next
|
||||
|
||||
Return allNodes
|
||||
|
||||
End Function
|
||||
|
||||
Protected Sub GetAllNodes(ByVal subRoot As DevComponents.AdvTree.Node, ByVal allNodes As List(Of TreeNode))
|
||||
|
||||
' check for null (this can be removed since within th
|
||||
If (subRoot Is Nothing) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' add subroot
|
||||
Dim r As DataRow
|
||||
r = treedata_for_search.NewRow
|
||||
r.Item(0) = subRoot.Tag
|
||||
Try
|
||||
r.Item(1) = subRoot.Parent.Tag
|
||||
Catch
|
||||
r.Item(1) = 0
|
||||
End Try
|
||||
|
||||
r.Item(2) = subRoot.Text
|
||||
r.Item(3) = subRoot.ImageIndex
|
||||
treedata_for_search.Rows.Add(r)
|
||||
'allNodes.Add(subRoot)
|
||||
' add all it's children
|
||||
For i As Integer = 0 To subRoot.Nodes.Count - 1
|
||||
GetAllNodes(subRoot.Nodes(i), allNodes)
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Tree aufbauen
|
||||
''' </summary>
|
||||
''' <param name="oDS"></param>
|
||||
''' <param name="oTreeview"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As DevComponents.AdvTree.AdvTree)
|
||||
'Dim oTreeView As TreeView = New TreeView()
|
||||
Dim oDataRow As DataRow
|
||||
For Each oDataRow In oDS.Tables(0).Rows
|
||||
If Not oDataRow.IsNull("Parentid") Then
|
||||
If oDataRow.Item("Parentid") = 0 Then
|
||||
'If oDataRow.IsNull("Parentid") Then
|
||||
Dim oNode As New DevComponents.AdvTree.Node
|
||||
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
|
||||
Try
|
||||
'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
|
||||
Catch
|
||||
End Try
|
||||
oNode.Tag = oDataRow("id").ToString
|
||||
oNode.ImageIndex = oDataRow("ImageIndex")
|
||||
oTreeview.Nodes.Add(oNode)
|
||||
RecursivelyLoadTree(oDataRow, oNode)
|
||||
End If
|
||||
End If
|
||||
Next oDataRow
|
||||
oDS.Dispose()
|
||||
oDS = Nothing
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Child-Nodes hinzufügen
|
||||
''' </summary>
|
||||
''' <param name="oDataRow"></param>
|
||||
''' <param name="oNode"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
|
||||
Dim oChildRow As DataRow
|
||||
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||
Dim oChildNode As New DevComponents.AdvTree.Node
|
||||
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
|
||||
oChildNode.Tag = oChildRow("id").ToString()
|
||||
oChildNode.ImageIndex = oChildRow("ImageIndex")
|
||||
|
||||
oNode.Nodes.Add(oChildNode)
|
||||
RecursivelyLoadTree(oChildRow, oChildNode)
|
||||
Next oChildRow
|
||||
End Sub
|
||||
Public Function FindNode(ByVal _nodeCollection As AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As AdvTree.Node
|
||||
Dim tmpNode As AdvTree.Node
|
||||
For Each _child As AdvTree.Node In _nodeCollection
|
||||
If _child.Tag = SearchVal Then
|
||||
|
||||
Return _child
|
||||
End If
|
||||
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
|
||||
' Return _child
|
||||
' End If
|
||||
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
|
||||
If Not tmpNode Is Nothing Then
|
||||
Return tmpNode
|
||||
End If
|
||||
Next
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Function Init_Search()
|
||||
FoundNode = 0
|
||||
Searchstring = ""
|
||||
Me.Treesearch.Nodes.Clear()
|
||||
End Function
|
||||
|
||||
Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
|
||||
'Return tree.FindNodeByCellText(SearchString)
|
||||
|
||||
Me.Treesearch.Nodes.Clear()
|
||||
Dim dv As New DataView(treedata_for_search, "", "id,sortkey", DataViewRowState.CurrentRows)
|
||||
For Each rowView As DataRowView In dv
|
||||
Dim dr As DataRow = rowView.Row
|
||||
'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
|
||||
If InStr(Trim(UCase(dr.Item("Bezeichnung"))), Trim(UCase(SearchString))) > 0 Then
|
||||
Dim tn As New AdvTree.Node
|
||||
tn.Text = dr.Item("Bezeichnung")
|
||||
tn.Tag = dr.Item("id")
|
||||
Treesearch.Nodes.Add(tn)
|
||||
End If
|
||||
Next
|
||||
Return FindFirst(tree)
|
||||
End Function
|
||||
|
||||
Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
|
||||
Try
|
||||
If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
|
||||
Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||
Try
|
||||
Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
|
||||
If Treesearch.SelectedNode Is Nothing Then
|
||||
Return FindFirst(tree)
|
||||
End If
|
||||
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||
Try
|
||||
Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
|
||||
If Treesearch.SelectedNode Is Nothing Then
|
||||
Return FindLastNode(tree)
|
||||
End If
|
||||
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||
Try
|
||||
Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
|
||||
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer)
|
||||
Try
|
||||
Dim ds As New DataSet
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
Dim sqlcmd As New SqlCommand
|
||||
|
||||
sqlcmd.CommandText = "sp_get_Vorgaben"
|
||||
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(ds, "Datatable1")
|
||||
c1daten.DataSource = Nothing
|
||||
c1daten.DataSource = ds.Tables(0)
|
||||
c1daten.DataMember = ds.Tables(0).TableName
|
||||
|
||||
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Vorgabe", ds.Tables(0))
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "ComboboxFilter"
|
||||
Public Sub Refresh_Filter(ByRef cbx As ToolStripComboBox)
|
||||
Dim s As String
|
||||
s = cbx.SelectedText.ToString
|
||||
cbx.Items.Clear()
|
||||
cbx.Items.Add("-- Alle --")
|
||||
For Each r As DataRow In treedata.Tables(0).Rows
|
||||
Try
|
||||
If r("Parentid") = 0 Then
|
||||
cbx.Items.Add(r("bezeichnung"))
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
|
||||
Next
|
||||
If s <> "" Then cbx.Text = s
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
'#Region "Suche"
|
||||
' Public Function Init_Search()
|
||||
' FoundNode = 0
|
||||
' Searchstring = ""
|
||||
' Me.Treesearch.Nodes.Clear()
|
||||
' End Function
|
||||
|
||||
' Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
|
||||
' 'Return tree.FindNodeByCellText(SearchString)
|
||||
|
||||
' Me.Treesearch.Nodes.Clear()
|
||||
' For Each dr As DataRow In treedata_for_search.Rows
|
||||
' 'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
|
||||
' If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
|
||||
' Dim tn As New AdvTree.Node
|
||||
' tn.Text = dr.Item("Bezeichnung")
|
||||
' tn.Tag = dr.Item("id")
|
||||
' Treesearch.Nodes.Add(tn)
|
||||
' End If
|
||||
' Next
|
||||
' Return FindFirst(tree)
|
||||
' End Function
|
||||
|
||||
' Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
|
||||
' Try
|
||||
' If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
|
||||
' Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||
' Catch
|
||||
' End Try
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
' Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||
' Try
|
||||
' Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
|
||||
' If Treesearch.SelectedNode Is Nothing Then
|
||||
' Return FindFirst(tree)
|
||||
' End If
|
||||
' Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
' End Function
|
||||
|
||||
' Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||
' Try
|
||||
' Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
|
||||
' If Treesearch.SelectedNode Is Nothing Then
|
||||
' Return FindLastNode(tree)
|
||||
' End If
|
||||
' Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||
' Catch ex As Exception
|
||||
' End Try
|
||||
' End Function
|
||||
|
||||
' Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||
' Try
|
||||
' Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
|
||||
' Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||
' Catch ex As Exception
|
||||
' End Try
|
||||
|
||||
' End Function
|
||||
|
||||
' Public Function Get_DBObjektname(ByVal type As Integer) As String
|
||||
' For Each dr As DataRow In Globals.Objekt.Rows
|
||||
' If dr.Item("Objektnr") = type Then
|
||||
' Return dr.Item("DBOBject")
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
'#End Region
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
212
SW/AssessmentMgmt/Vorgabe/clsVorgabeDefinition.vb
Normal file
212
SW/AssessmentMgmt/Vorgabe/clsVorgabeDefinition.vb
Normal file
@@ -0,0 +1,212 @@
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports DevComponents
|
||||
Public Class clsVorgabeDefinition
|
||||
Inherits DB.clsVorgabeDefinition
|
||||
|
||||
|
||||
|
||||
#Region "Deklarationen"
|
||||
Public daten As New DataTable
|
||||
Public Neuer_Datensatz As Boolean = False
|
||||
Public Mitarbeiterdaten As New DataTable
|
||||
|
||||
Dim stammdaten As New DB.clsStammdaten
|
||||
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||
|
||||
Dim mMutierer As String
|
||||
Property MutiererText() As String
|
||||
Get
|
||||
Return mMutierer
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
mMutierer = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
Sub New()
|
||||
MyBase.New()
|
||||
End Sub
|
||||
|
||||
Public Overloads Sub dispose()
|
||||
MyBase.Dispose()
|
||||
Try
|
||||
Me.stammdaten = Nothing
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Mutierer auslesen
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Get_Mutierer(ByVal nr As Integer) As String
|
||||
Try
|
||||
Dim ma As New DB.clsMitarbeiter
|
||||
Dim dt As New DataTable
|
||||
Dim Retvalue As String
|
||||
ma.cpMainConnectionProvider = Globals.conn
|
||||
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
|
||||
dt = ma.SelectOne()
|
||||
If dt.Rows.Count = 0 Then
|
||||
Retvalue = ("{" + nr.ToString + "}")
|
||||
Else
|
||||
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
|
||||
End If
|
||||
ma.Dispose()
|
||||
dt.Dispose()
|
||||
Return Retvalue
|
||||
Catch
|
||||
Return ""
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function Get_Data(ByVal Nr As Integer)
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.iVorgabeDefinitionNr = New SqlInt32(CType(Nr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.daten = Me.SelectOne()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Try
|
||||
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
|
||||
Catch ex As Exception
|
||||
Me.MutiererText = ""
|
||||
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Save_Data() As Integer
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Update()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = False
|
||||
End Function
|
||||
|
||||
Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
|
||||
If Basenr <> 0 Then
|
||||
Get_Data(Basenr)
|
||||
End If
|
||||
Dim db As New DB.clsMyKey_Tabelle
|
||||
db.cpMainConnectionProvider = Globals.conn
|
||||
Dim newkey = db.get_dbkey("VorgabeDefinition")
|
||||
db.Dispose()
|
||||
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.iVorgabeDefinitionNr = New SqlInt32(CType(newkey, Int32))
|
||||
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Insert()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = True
|
||||
Return newkey
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Löschen eines Datensatzes erstellen.
|
||||
''' </summary>
|
||||
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
|
||||
If Basenr <> 0 Then
|
||||
Get_Data(Basenr)
|
||||
End If
|
||||
If bAktiv.Value = False Then Exit Function
|
||||
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Update()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = False
|
||||
End Function
|
||||
|
||||
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
|
||||
If Basenr <> 0 Then
|
||||
Get_Data(Basenr)
|
||||
End If
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Globals.conn.OpenConnection()
|
||||
MyBase.Delete()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = False
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Neue Person einfügen
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Add_New() As Integer
|
||||
Dim db As New DB.clsMyKey_Tabelle
|
||||
db.cpMainConnectionProvider = Globals.conn
|
||||
Dim newkey = db.get_dbkey("Vorgabe")
|
||||
db.Dispose()
|
||||
Me.iVorgabeDefinitionNr = New SqlInt32(CType(newkey, Int32))
|
||||
Me.sDefinition = New SqlString(CType("", String))
|
||||
Me.iVorgabeNr = New SqlInt32(CType(0, Int32))
|
||||
Me.sBemerkungen = New SqlString(CType("", String))
|
||||
Me.daGueltig_bis = New SqlDateTime(CType("31.12.2099", DateTime))
|
||||
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Try
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Insert()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Me.Neuer_Datensatz = True
|
||||
Return Me.iVorgabeDefinitionNr.Value
|
||||
End Function
|
||||
|
||||
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer)
|
||||
Try
|
||||
Dim ds As New DataSet
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
Dim sqlcmd As New SqlCommand
|
||||
|
||||
sqlcmd.CommandText = "sp_get_VorgabeDefinitionen"
|
||||
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(ds, "Datatable1")
|
||||
c1daten.DataSource = Nothing
|
||||
c1daten.DataSource = ds.Tables(0)
|
||||
c1daten.DataMember = ds.Tables(0).TableName
|
||||
|
||||
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "VorgabeDefinition", ds.Tables(0))
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
248
SW/AssessmentMgmt/Vorgabe/frmNeuerVorgabeEintrag.Designer.vb
generated
Normal file
248
SW/AssessmentMgmt/Vorgabe/frmNeuerVorgabeEintrag.Designer.vb
generated
Normal file
@@ -0,0 +1,248 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmNeuerVorgabeEintrag
|
||||
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(frmNeuerVorgabeEintrag))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.TreeVorgabe = New DevComponents.AdvTree.AdvTree()
|
||||
Me.Node1 = New DevComponents.AdvTree.Node()
|
||||
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
|
||||
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
|
||||
Me.lblKapitelNr = New System.Windows.Forms.Label()
|
||||
Me.lblKapitel = New System.Windows.Forms.Label()
|
||||
Me.txtKapitelnr = New DevComponents.DotNetBar.Controls.TextBoxX()
|
||||
Me.txtKapitel = New DevComponents.DotNetBar.Controls.TextBoxX()
|
||||
Me.btnSave = New System.Windows.Forms.Button()
|
||||
Me.btnAbbruch = New System.Windows.Forms.Button()
|
||||
Me.dtGueltigbis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
CType(Me.TreeVorgabe, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(728, 25)
|
||||
Me.ToolStrip1.TabIndex = 6
|
||||
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 = "Fenster schliessen"
|
||||
'
|
||||
'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 = "ToolStripButton1"
|
||||
Me.ToolStripButton1.ToolTipText = "Neu"
|
||||
Me.ToolStripButton1.Visible = False
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.TreeVorgabe)
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(321, 308)
|
||||
Me.GroupBox1.TabIndex = 7
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Übergeordnetes Sturktur-Element"
|
||||
'
|
||||
'TreeVorgabe
|
||||
'
|
||||
Me.TreeVorgabe.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
|
||||
Me.TreeVorgabe.AllowDrop = True
|
||||
Me.TreeVorgabe.BackColor = System.Drawing.SystemColors.Window
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.TreeVorgabe.BackgroundStyle.Class = "TreeBorderKey"
|
||||
Me.TreeVorgabe.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.TreeVorgabe.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TreeVorgabe.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
|
||||
Me.TreeVorgabe.Location = New System.Drawing.Point(3, 16)
|
||||
Me.TreeVorgabe.Name = "TreeVorgabe"
|
||||
Me.TreeVorgabe.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
|
||||
Me.TreeVorgabe.NodesConnector = Me.NodeConnector1
|
||||
Me.TreeVorgabe.NodeStyle = Me.ElementStyle1
|
||||
Me.TreeVorgabe.PathSeparator = ";"
|
||||
Me.TreeVorgabe.Size = New System.Drawing.Size(315, 289)
|
||||
Me.TreeVorgabe.Styles.Add(Me.ElementStyle1)
|
||||
Me.TreeVorgabe.TabIndex = 1
|
||||
Me.TreeVorgabe.Text = "AdvTree1"
|
||||
'
|
||||
'Node1
|
||||
'
|
||||
Me.Node1.Expanded = True
|
||||
Me.Node1.Name = "Node1"
|
||||
Me.Node1.Text = "Node1"
|
||||
'
|
||||
'NodeConnector1
|
||||
'
|
||||
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
|
||||
'
|
||||
'ElementStyle1
|
||||
'
|
||||
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.ElementStyle1.Name = "ElementStyle1"
|
||||
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
|
||||
'
|
||||
'lblKapitelNr
|
||||
'
|
||||
Me.lblKapitelNr.AutoSize = True
|
||||
Me.lblKapitelNr.Location = New System.Drawing.Point(345, 41)
|
||||
Me.lblKapitelNr.Name = "lblKapitelNr"
|
||||
Me.lblKapitelNr.Size = New System.Drawing.Size(53, 13)
|
||||
Me.lblKapitelNr.TabIndex = 8
|
||||
Me.lblKapitelNr.Text = "Kapitel-Nr"
|
||||
'
|
||||
'lblKapitel
|
||||
'
|
||||
Me.lblKapitel.AutoSize = True
|
||||
Me.lblKapitel.Location = New System.Drawing.Point(345, 66)
|
||||
Me.lblKapitel.Name = "lblKapitel"
|
||||
Me.lblKapitel.Size = New System.Drawing.Size(39, 13)
|
||||
Me.lblKapitel.TabIndex = 9
|
||||
Me.lblKapitel.Text = "Kapitel"
|
||||
'
|
||||
'txtKapitelnr
|
||||
'
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.txtKapitelnr.Border.Class = "TextBoxBorder"
|
||||
Me.txtKapitelnr.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.txtKapitelnr.Location = New System.Drawing.Point(414, 39)
|
||||
Me.txtKapitelnr.Name = "txtKapitelnr"
|
||||
Me.txtKapitelnr.PreventEnterBeep = True
|
||||
Me.txtKapitelnr.Size = New System.Drawing.Size(100, 20)
|
||||
Me.txtKapitelnr.TabIndex = 10
|
||||
'
|
||||
'txtKapitel
|
||||
'
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.txtKapitel.Border.Class = "TextBoxBorder"
|
||||
Me.txtKapitel.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.txtKapitel.Location = New System.Drawing.Point(414, 64)
|
||||
Me.txtKapitel.Name = "txtKapitel"
|
||||
Me.txtKapitel.PreventEnterBeep = True
|
||||
Me.txtKapitel.Size = New System.Drawing.Size(291, 20)
|
||||
Me.txtKapitel.TabIndex = 11
|
||||
'
|
||||
'btnSave
|
||||
'
|
||||
Me.btnSave.Location = New System.Drawing.Point(348, 298)
|
||||
Me.btnSave.Name = "btnSave"
|
||||
Me.btnSave.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnSave.TabIndex = 12
|
||||
Me.btnSave.Text = "Speichern"
|
||||
Me.btnSave.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnAbbruch
|
||||
'
|
||||
Me.btnAbbruch.Location = New System.Drawing.Point(630, 298)
|
||||
Me.btnAbbruch.Name = "btnAbbruch"
|
||||
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnAbbruch.TabIndex = 13
|
||||
Me.btnAbbruch.Text = "Abbruch"
|
||||
Me.btnAbbruch.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dtGueltigbis
|
||||
'
|
||||
Me.dtGueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtGueltigbis.Location = New System.Drawing.Point(414, 90)
|
||||
Me.dtGueltigbis.Name = "dtGueltigbis"
|
||||
Me.dtGueltigbis.Size = New System.Drawing.Size(100, 20)
|
||||
Me.dtGueltigbis.TabIndex = 14
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(345, 96)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(50, 13)
|
||||
Me.Label1.TabIndex = 15
|
||||
Me.Label1.Text = "Gültig bis"
|
||||
'
|
||||
'frmNeuerVorgabeEintrag
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(728, 333)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.dtGueltigbis)
|
||||
Me.Controls.Add(Me.btnAbbruch)
|
||||
Me.Controls.Add(Me.btnSave)
|
||||
Me.Controls.Add(Me.txtKapitel)
|
||||
Me.Controls.Add(Me.txtKapitelnr)
|
||||
Me.Controls.Add(Me.lblKapitel)
|
||||
Me.Controls.Add(Me.lblKapitelNr)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmNeuerVorgabeEintrag"
|
||||
Me.Text = "Vorgabe bearbeiten"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
CType(Me.TreeVorgabe, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents TreeVorgabe As DevComponents.AdvTree.AdvTree
|
||||
Friend WithEvents Node1 As DevComponents.AdvTree.Node
|
||||
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
|
||||
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
|
||||
Friend WithEvents lblKapitelNr As System.Windows.Forms.Label
|
||||
Friend WithEvents lblKapitel As System.Windows.Forms.Label
|
||||
Friend WithEvents txtKapitelnr As DevComponents.DotNetBar.Controls.TextBoxX
|
||||
Friend WithEvents txtKapitel As DevComponents.DotNetBar.Controls.TextBoxX
|
||||
Friend WithEvents btnSave As System.Windows.Forms.Button
|
||||
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
|
||||
Friend WithEvents dtGueltigbis As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
End Class
|
||||
3503
SW/AssessmentMgmt/Vorgabe/frmNeuerVorgabeEintrag.resx
Normal file
3503
SW/AssessmentMgmt/Vorgabe/frmNeuerVorgabeEintrag.resx
Normal file
File diff suppressed because it is too large
Load Diff
117
SW/AssessmentMgmt/Vorgabe/frmNeuerVorgabeEintrag.vb
Normal file
117
SW/AssessmentMgmt/Vorgabe/frmNeuerVorgabeEintrag.vb
Normal file
@@ -0,0 +1,117 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlDbType
|
||||
|
||||
Public Class frmNeuerVorgabeEintrag
|
||||
|
||||
Dim vorgabe As New clsVorgabe
|
||||
|
||||
Dim mKey As Integer
|
||||
Property Key As Integer
|
||||
Get
|
||||
Return mKey
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
mKey = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_tree As New DevComponents.AdvTree.AdvTree
|
||||
Property Tree As DevComponents.AdvTree.AdvTree
|
||||
Get
|
||||
Return m_tree
|
||||
End Get
|
||||
Set(value As DevComponents.AdvTree.AdvTree)
|
||||
m_tree = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_selectednode As DevComponents.AdvTree.Node
|
||||
Property SelectedNode As DevComponents.AdvTree.Node
|
||||
Get
|
||||
Return m_selectednode
|
||||
|
||||
End Get
|
||||
Set(value As DevComponents.AdvTree.Node)
|
||||
m_selectednode = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_parentnode As DevComponents.AdvTree.Node
|
||||
Property Parentnode As DevComponents.AdvTree.Node
|
||||
Get
|
||||
Return m_parentnode
|
||||
End Get
|
||||
Set(value As DevComponents.AdvTree.Node)
|
||||
m_parentnode = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New()
|
||||
InitializeComponent()
|
||||
Me.TreeVorgabe.ImageList = Globals.GueltigImages
|
||||
End Sub
|
||||
|
||||
Private Sub frmNeuerVorgabeintrag_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.TreeVorgabe.Nodes.Clear()
|
||||
For i As Integer = 0 To Me.Tree.Nodes.Count - 1
|
||||
Me.TreeVorgabe.Nodes.Add(Me.Tree.Nodes(i))
|
||||
Next i
|
||||
Me.TreeVorgabe.SelectedNode = Me.SelectedNode
|
||||
If Me.Key > -1 Then
|
||||
Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.SelectedNode.Parent
|
||||
End If
|
||||
If m_parentnode IsNot Nothing Then
|
||||
Me.TreeVorgabe.SelectedNode = Me.Parentnode
|
||||
End If
|
||||
If Me.TreeVorgabe.SelectedNode Is Nothing Then
|
||||
Me.txtKapitelnr.Enabled = False
|
||||
End If
|
||||
Me.dtGueltigbis.Value = "31.12.2099"
|
||||
Me.txtKapitelnr.Focus()
|
||||
If Me.Key > -1 Then
|
||||
vorgabe.Get_Data(Me.Key)
|
||||
Me.txtKapitelnr.Text = vorgabe.sKapitelNr.Value.ToString
|
||||
Me.txtKapitel.Text = vorgabe.sKapitel.Value.ToString
|
||||
Try
|
||||
Me.dtGueltigbis.Value = vorgabe.daGueltig_Bis.Value
|
||||
Catch
|
||||
Me.dtGueltigbis.Value = "31.12.2099"
|
||||
End Try
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||
|
||||
|
||||
If Me.Key = -1 Then
|
||||
vorgabe.Add_New()
|
||||
Me.Key = vorgabe.iVorgabeID.Value
|
||||
Else
|
||||
vorgabe.Get_Data(Me.Key)
|
||||
If Me.Key = Me.TreeVorgabe.SelectedNode.Tag Then
|
||||
MsgBox("Das übergeordnete Element ist ungültig. Bitte korrigieren.", vbExclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
Me.DialogResult = DialogResult.OK
|
||||
vorgabe.sKapitel = New SqlTypes.SqlString(CType(Me.txtKapitel.Text, String))
|
||||
vorgabe.sKapitelNr = New SqlTypes.SqlString(CType(Me.txtKapitelnr.Text, String))
|
||||
vorgabe.daGueltig_Bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigbis.Value, DateTime))
|
||||
If Me.txtKapitelnr.Enabled = False Then
|
||||
Else
|
||||
vorgabe.iParentID = New SqlTypes.SqlInt32(CType(Me.TreeVorgabe.SelectedNode.Tag, Int32))
|
||||
End If
|
||||
vorgabe.Save_Data()
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
|
||||
Me.DialogResult = DialogResult.Abort
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||
btnAbbruch_Click(sender, e)
|
||||
End Sub
|
||||
End Class
|
||||
803
SW/AssessmentMgmt/Vorgabe/frmVorgabe.Designer.vb
generated
Normal file
803
SW/AssessmentMgmt/Vorgabe/frmVorgabe.Designer.vb
generated
Normal file
@@ -0,0 +1,803 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmVorgabe
|
||||
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()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVorgabe))
|
||||
Me.ToolStripMain = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.lblSearchStruktur_Definition = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsBtnSearchStruktur_Definition = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsTxtSearchStruktur_Definition = New System.Windows.Forms.ToolStripTextBox()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.NeuAnmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.TreeVorgabe = New DevComponents.AdvTree.AdvTree()
|
||||
Me.CtxMenuTree = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.NeuerEintragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EintragBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.NeueVorgabeErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.Node1 = New DevComponents.AdvTree.Node()
|
||||
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
|
||||
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
|
||||
Me.ToolStripTree = New System.Windows.Forms.ToolStrip()
|
||||
Me.tslabelFilter = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.tsCbxFilter = New System.Windows.Forms.ToolStripComboBox()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.lblSuche = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.tstxtSuche = New System.Windows.Forms.ToolStripTextBox()
|
||||
Me.TSBtnSuche = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnFilterAufheben = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnFirst = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnPrevious = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnNext = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnLast = New System.Windows.Forms.ToolStripButton()
|
||||
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
|
||||
Me.GrpVorgaben = New System.Windows.Forms.GroupBox()
|
||||
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ctxMenuVorgabe = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuVorgabeNeu = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuVorgabeEdit = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuVorgabeDelete = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripStruktur = New System.Windows.Forms.ToolStrip()
|
||||
Me.TsBtnAddNewStruktur = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnEditStruktur = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnDeleteStruktur = New System.Windows.Forms.ToolStripButton()
|
||||
Me.GrpDokumente = New System.Windows.Forms.GroupBox()
|
||||
Me.DokumenteAllgemein = New ThemenDokumente.Dokumente()
|
||||
Me.GrpDefinitionen = New System.Windows.Forms.GroupBox()
|
||||
Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
|
||||
Me.C2Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ctxMenuDefinition = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.NeuerEintragToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EintragBearbeitenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EintragLöschenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripDefinition = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnAddNewDefinition = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnEditDefinition = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnDeleteDefinition = New System.Windows.Forms.ToolStripButton()
|
||||
Me.DokumenteDefinition = New ThemenDokumente.Dokumente()
|
||||
Me.ToolStripMain.SuspendLayout()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
CType(Me.TreeVorgabe, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.CtxMenuTree.SuspendLayout()
|
||||
Me.ToolStripTree.SuspendLayout()
|
||||
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer2.Panel1.SuspendLayout()
|
||||
Me.SplitContainer2.Panel2.SuspendLayout()
|
||||
Me.SplitContainer2.SuspendLayout()
|
||||
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer3.Panel1.SuspendLayout()
|
||||
Me.SplitContainer3.Panel2.SuspendLayout()
|
||||
Me.SplitContainer3.SuspendLayout()
|
||||
Me.GrpVorgaben.SuspendLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ctxMenuVorgabe.SuspendLayout()
|
||||
Me.ToolStripStruktur.SuspendLayout()
|
||||
Me.GrpDokumente.SuspendLayout()
|
||||
Me.GrpDefinitionen.SuspendLayout()
|
||||
CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer4.Panel1.SuspendLayout()
|
||||
Me.SplitContainer4.Panel2.SuspendLayout()
|
||||
Me.SplitContainer4.SuspendLayout()
|
||||
CType(Me.C2Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ctxMenuDefinition.SuspendLayout()
|
||||
Me.ToolStripDefinition.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStripMain
|
||||
'
|
||||
Me.ToolStripMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.lblSearchStruktur_Definition, Me.ToolStripButton2, Me.tsBtnSearchStruktur_Definition, Me.tsTxtSearchStruktur_Definition, Me.ToolStripButton1})
|
||||
Me.ToolStripMain.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStripMain.Name = "ToolStripMain"
|
||||
Me.ToolStripMain.Size = New System.Drawing.Size(1249, 25)
|
||||
Me.ToolStripMain.TabIndex = 7
|
||||
Me.ToolStripMain.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 = "Fenster schliessen"
|
||||
'
|
||||
'lblSearchStruktur_Definition
|
||||
'
|
||||
Me.lblSearchStruktur_Definition.Name = "lblSearchStruktur_Definition"
|
||||
Me.lblSearchStruktur_Definition.Size = New System.Drawing.Size(46, 22)
|
||||
Me.lblSearchStruktur_Definition.Text = "Suchen"
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton2.Text = "Filter aufheben"
|
||||
'
|
||||
'tsBtnSearchStruktur_Definition
|
||||
'
|
||||
Me.tsBtnSearchStruktur_Definition.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsBtnSearchStruktur_Definition.Image = CType(resources.GetObject("tsBtnSearchStruktur_Definition.Image"), System.Drawing.Image)
|
||||
Me.tsBtnSearchStruktur_Definition.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsBtnSearchStruktur_Definition.Name = "tsBtnSearchStruktur_Definition"
|
||||
Me.tsBtnSearchStruktur_Definition.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsBtnSearchStruktur_Definition.Text = "Suchen"
|
||||
'
|
||||
'tsTxtSearchStruktur_Definition
|
||||
'
|
||||
Me.tsTxtSearchStruktur_Definition.Name = "tsTxtSearchStruktur_Definition"
|
||||
Me.tsTxtSearchStruktur_Definition.Size = New System.Drawing.Size(100, 25)
|
||||
'
|
||||
'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 = "ToolStripButton1"
|
||||
Me.ToolStripButton1.ToolTipText = "Neu"
|
||||
Me.ToolStripButton1.Visible = False
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(32, 32)
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(1249, 24)
|
||||
Me.MenuStrip1.TabIndex = 6
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem, Me.NeuAnmeldenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'NeuAnmeldenToolStripMenuItem
|
||||
'
|
||||
Me.NeuAnmeldenToolStripMenuItem.Name = "NeuAnmeldenToolStripMenuItem"
|
||||
Me.NeuAnmeldenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.NeuAnmeldenToolStripMenuItem.Text = "&Neu anmelden"
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 49)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.TreeVorgabe)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStripTree)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainer2)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(1249, 557)
|
||||
Me.SplitContainer1.SplitterDistance = 478
|
||||
Me.SplitContainer1.TabIndex = 8
|
||||
'
|
||||
'TreeVorgabe
|
||||
'
|
||||
Me.TreeVorgabe.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
|
||||
Me.TreeVorgabe.AllowDrop = True
|
||||
Me.TreeVorgabe.AllowExternalDrop = False
|
||||
Me.TreeVorgabe.AllowUserToResizeColumns = False
|
||||
Me.TreeVorgabe.BackColor = System.Drawing.SystemColors.Window
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.TreeVorgabe.BackgroundStyle.Class = "TreeBorderKey"
|
||||
Me.TreeVorgabe.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.TreeVorgabe.ContextMenuStrip = Me.CtxMenuTree
|
||||
Me.TreeVorgabe.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TreeVorgabe.DragDropEnabled = False
|
||||
Me.TreeVorgabe.DragDropNodeCopyEnabled = False
|
||||
Me.TreeVorgabe.ImageList = Me.ImageList1
|
||||
Me.TreeVorgabe.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
|
||||
Me.TreeVorgabe.Location = New System.Drawing.Point(0, 25)
|
||||
Me.TreeVorgabe.Name = "TreeVorgabe"
|
||||
Me.TreeVorgabe.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
|
||||
Me.TreeVorgabe.NodesConnector = Me.NodeConnector1
|
||||
Me.TreeVorgabe.NodeStyle = Me.ElementStyle1
|
||||
Me.TreeVorgabe.PathSeparator = ";"
|
||||
Me.TreeVorgabe.Size = New System.Drawing.Size(478, 532)
|
||||
Me.TreeVorgabe.Styles.Add(Me.ElementStyle1)
|
||||
Me.TreeVorgabe.TabIndex = 0
|
||||
Me.TreeVorgabe.Text = "AdvTree1"
|
||||
'
|
||||
'CtxMenuTree
|
||||
'
|
||||
Me.CtxMenuTree.ImageScalingSize = New System.Drawing.Size(32, 32)
|
||||
Me.CtxMenuTree.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerEintragToolStripMenuItem, Me.EintragLöschenToolStripMenuItem, Me.EintragBearbeitenToolStripMenuItem, Me.ToolStripMenuItem1, Me.NeueVorgabeErstellenToolStripMenuItem})
|
||||
Me.CtxMenuTree.Name = "CtxMenuTree"
|
||||
Me.CtxMenuTree.Size = New System.Drawing.Size(196, 98)
|
||||
'
|
||||
'NeuerEintragToolStripMenuItem
|
||||
'
|
||||
Me.NeuerEintragToolStripMenuItem.Name = "NeuerEintragToolStripMenuItem"
|
||||
Me.NeuerEintragToolStripMenuItem.Size = New System.Drawing.Size(195, 22)
|
||||
Me.NeuerEintragToolStripMenuItem.Text = "Neuer Eintrag"
|
||||
'
|
||||
'EintragLöschenToolStripMenuItem
|
||||
'
|
||||
Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem"
|
||||
Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(195, 22)
|
||||
Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen"
|
||||
'
|
||||
'EintragBearbeitenToolStripMenuItem
|
||||
'
|
||||
Me.EintragBearbeitenToolStripMenuItem.Name = "EintragBearbeitenToolStripMenuItem"
|
||||
Me.EintragBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(195, 22)
|
||||
Me.EintragBearbeitenToolStripMenuItem.Text = "Eintrag bearbeiten"
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(192, 6)
|
||||
'
|
||||
'NeueVorgabeErstellenToolStripMenuItem
|
||||
'
|
||||
Me.NeueVorgabeErstellenToolStripMenuItem.Name = "NeueVorgabeErstellenToolStripMenuItem"
|
||||
Me.NeueVorgabeErstellenToolStripMenuItem.Size = New System.Drawing.Size(195, 22)
|
||||
Me.NeueVorgabeErstellenToolStripMenuItem.Text = "Neue Vorgabe erstellen"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
||||
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'Node1
|
||||
'
|
||||
Me.Node1.Expanded = True
|
||||
Me.Node1.Name = "Node1"
|
||||
Me.Node1.Text = "Node1"
|
||||
'
|
||||
'NodeConnector1
|
||||
'
|
||||
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
|
||||
'
|
||||
'ElementStyle1
|
||||
'
|
||||
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.ElementStyle1.Name = "ElementStyle1"
|
||||
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
|
||||
'
|
||||
'ToolStripTree
|
||||
'
|
||||
Me.ToolStripTree.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslabelFilter, Me.tsCbxFilter, Me.ToolStripSeparator1, Me.lblSuche, Me.tstxtSuche, Me.TSBtnSuche, Me.TSBtnFilterAufheben, Me.TSBtnFirst, Me.TSBtnPrevious, Me.TSBtnNext, Me.TSBtnLast})
|
||||
Me.ToolStripTree.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStripTree.Name = "ToolStripTree"
|
||||
Me.ToolStripTree.Size = New System.Drawing.Size(478, 25)
|
||||
Me.ToolStripTree.TabIndex = 1
|
||||
Me.ToolStripTree.Text = "ToolStrip2"
|
||||
'
|
||||
'tslabelFilter
|
||||
'
|
||||
Me.tslabelFilter.Name = "tslabelFilter"
|
||||
Me.tslabelFilter.Size = New System.Drawing.Size(33, 22)
|
||||
Me.tslabelFilter.Text = "Filter"
|
||||
'
|
||||
'tsCbxFilter
|
||||
'
|
||||
Me.tsCbxFilter.Name = "tsCbxFilter"
|
||||
Me.tsCbxFilter.Size = New System.Drawing.Size(121, 25)
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'lblSuche
|
||||
'
|
||||
Me.lblSuche.Name = "lblSuche"
|
||||
Me.lblSuche.Size = New System.Drawing.Size(46, 22)
|
||||
Me.lblSuche.Text = "Suchen"
|
||||
'
|
||||
'tstxtSuche
|
||||
'
|
||||
Me.tstxtSuche.Name = "tstxtSuche"
|
||||
Me.tstxtSuche.Size = New System.Drawing.Size(100, 25)
|
||||
'
|
||||
'TSBtnSuche
|
||||
'
|
||||
Me.TSBtnSuche.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnSuche.Image = CType(resources.GetObject("TSBtnSuche.Image"), System.Drawing.Image)
|
||||
Me.TSBtnSuche.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnSuche.Name = "TSBtnSuche"
|
||||
Me.TSBtnSuche.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnSuche.Text = "Suchen"
|
||||
'
|
||||
'TSBtnFilterAufheben
|
||||
'
|
||||
Me.TSBtnFilterAufheben.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnFilterAufheben.Image = CType(resources.GetObject("TSBtnFilterAufheben.Image"), System.Drawing.Image)
|
||||
Me.TSBtnFilterAufheben.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnFilterAufheben.Name = "TSBtnFilterAufheben"
|
||||
Me.TSBtnFilterAufheben.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnFilterAufheben.Text = "Filter aufheben"
|
||||
'
|
||||
'TSBtnFirst
|
||||
'
|
||||
Me.TSBtnFirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnFirst.Image = CType(resources.GetObject("TSBtnFirst.Image"), System.Drawing.Image)
|
||||
Me.TSBtnFirst.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnFirst.Name = "TSBtnFirst"
|
||||
Me.TSBtnFirst.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnFirst.Text = "Erster Datensatz"
|
||||
'
|
||||
'TSBtnPrevious
|
||||
'
|
||||
Me.TSBtnPrevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnPrevious.Image = CType(resources.GetObject("TSBtnPrevious.Image"), System.Drawing.Image)
|
||||
Me.TSBtnPrevious.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnPrevious.Name = "TSBtnPrevious"
|
||||
Me.TSBtnPrevious.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnPrevious.Text = "Vorheriger Datensatz"
|
||||
'
|
||||
'TSBtnNext
|
||||
'
|
||||
Me.TSBtnNext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnNext.Image = CType(resources.GetObject("TSBtnNext.Image"), System.Drawing.Image)
|
||||
Me.TSBtnNext.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnNext.Name = "TSBtnNext"
|
||||
Me.TSBtnNext.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnNext.Text = "Nächster Datensatz"
|
||||
'
|
||||
'TSBtnLast
|
||||
'
|
||||
Me.TSBtnLast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnLast.Image = CType(resources.GetObject("TSBtnLast.Image"), System.Drawing.Image)
|
||||
Me.TSBtnLast.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnLast.Name = "TSBtnLast"
|
||||
Me.TSBtnLast.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnLast.Text = "Letzter Datensatz"
|
||||
'
|
||||
'SplitContainer2
|
||||
'
|
||||
Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer2.Name = "SplitContainer2"
|
||||
Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer2.Panel1
|
||||
'
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.SplitContainer3)
|
||||
'
|
||||
'SplitContainer2.Panel2
|
||||
'
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GrpDefinitionen)
|
||||
Me.SplitContainer2.Size = New System.Drawing.Size(767, 557)
|
||||
Me.SplitContainer2.SplitterDistance = 235
|
||||
Me.SplitContainer2.TabIndex = 0
|
||||
'
|
||||
'SplitContainer3
|
||||
'
|
||||
Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer3.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer3.Name = "SplitContainer3"
|
||||
'
|
||||
'SplitContainer3.Panel1
|
||||
'
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.GrpVorgaben)
|
||||
'
|
||||
'SplitContainer3.Panel2
|
||||
'
|
||||
Me.SplitContainer3.Panel2.Controls.Add(Me.GrpDokumente)
|
||||
Me.SplitContainer3.Size = New System.Drawing.Size(767, 235)
|
||||
Me.SplitContainer3.SplitterDistance = 415
|
||||
Me.SplitContainer3.TabIndex = 0
|
||||
'
|
||||
'GrpVorgaben
|
||||
'
|
||||
Me.GrpVorgaben.Controls.Add(Me.C1Daten)
|
||||
Me.GrpVorgaben.Controls.Add(Me.ToolStripStruktur)
|
||||
Me.GrpVorgaben.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GrpVorgaben.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GrpVorgaben.Name = "GrpVorgaben"
|
||||
Me.GrpVorgaben.Size = New System.Drawing.Size(415, 235)
|
||||
Me.GrpVorgaben.TabIndex = 10
|
||||
Me.GrpVorgaben.TabStop = False
|
||||
Me.GrpVorgaben.Text = "Vorgaben"
|
||||
'
|
||||
'C1Daten
|
||||
'
|
||||
Me.C1Daten.AllowUpdate = False
|
||||
Me.C1Daten.AlternatingRows = True
|
||||
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
|
||||
Me.C1Daten.ContextMenuStrip = Me.ctxMenuVorgabe
|
||||
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C1Daten.FilterBar = True
|
||||
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||
Me.C1Daten.Location = New System.Drawing.Point(3, 41)
|
||||
Me.C1Daten.Name = "C1Daten"
|
||||
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1Daten.Size = New System.Drawing.Size(409, 191)
|
||||
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.C1Daten.TabIndex = 9
|
||||
Me.C1Daten.Text = "C1TrueDBGrid1"
|
||||
Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
|
||||
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||
'
|
||||
'ctxMenuVorgabe
|
||||
'
|
||||
Me.ctxMenuVorgabe.ImageScalingSize = New System.Drawing.Size(32, 32)
|
||||
Me.ctxMenuVorgabe.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuVorgabeNeu, Me.ToolStripMenuVorgabeEdit, Me.ToolStripMenuVorgabeDelete})
|
||||
Me.ctxMenuVorgabe.Name = "ctxMenuDefinition"
|
||||
Me.ctxMenuVorgabe.Size = New System.Drawing.Size(171, 70)
|
||||
'
|
||||
'ToolStripMenuVorgabeNeu
|
||||
'
|
||||
Me.ToolStripMenuVorgabeNeu.Name = "ToolStripMenuVorgabeNeu"
|
||||
Me.ToolStripMenuVorgabeNeu.Size = New System.Drawing.Size(170, 22)
|
||||
Me.ToolStripMenuVorgabeNeu.Text = "Neuer Eintrag"
|
||||
'
|
||||
'ToolStripMenuVorgabeEdit
|
||||
'
|
||||
Me.ToolStripMenuVorgabeEdit.Name = "ToolStripMenuVorgabeEdit"
|
||||
Me.ToolStripMenuVorgabeEdit.Size = New System.Drawing.Size(170, 22)
|
||||
Me.ToolStripMenuVorgabeEdit.Text = "Eintrag bearbeiten"
|
||||
'
|
||||
'ToolStripMenuVorgabeDelete
|
||||
'
|
||||
Me.ToolStripMenuVorgabeDelete.Name = "ToolStripMenuVorgabeDelete"
|
||||
Me.ToolStripMenuVorgabeDelete.Size = New System.Drawing.Size(170, 22)
|
||||
Me.ToolStripMenuVorgabeDelete.Text = "Eintrag löschen"
|
||||
'
|
||||
'ToolStripStruktur
|
||||
'
|
||||
Me.ToolStripStruktur.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnAddNewStruktur, Me.TsBtnEditStruktur, Me.TsBtnDeleteStruktur})
|
||||
Me.ToolStripStruktur.Location = New System.Drawing.Point(3, 16)
|
||||
Me.ToolStripStruktur.Name = "ToolStripStruktur"
|
||||
Me.ToolStripStruktur.Size = New System.Drawing.Size(409, 25)
|
||||
Me.ToolStripStruktur.TabIndex = 13
|
||||
Me.ToolStripStruktur.Text = "ToolStrip3"
|
||||
'
|
||||
'TsBtnAddNewStruktur
|
||||
'
|
||||
Me.TsBtnAddNewStruktur.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TsBtnAddNewStruktur.Image = CType(resources.GetObject("TsBtnAddNewStruktur.Image"), System.Drawing.Image)
|
||||
Me.TsBtnAddNewStruktur.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnAddNewStruktur.Name = "TsBtnAddNewStruktur"
|
||||
Me.TsBtnAddNewStruktur.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TsBtnAddNewStruktur.Text = "Neu"
|
||||
'
|
||||
'TsBtnEditStruktur
|
||||
'
|
||||
Me.TsBtnEditStruktur.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TsBtnEditStruktur.Image = CType(resources.GetObject("TsBtnEditStruktur.Image"), System.Drawing.Image)
|
||||
Me.TsBtnEditStruktur.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnEditStruktur.Name = "TsBtnEditStruktur"
|
||||
Me.TsBtnEditStruktur.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TsBtnEditStruktur.Text = "ToolStripButton2"
|
||||
'
|
||||
'TsBtnDeleteStruktur
|
||||
'
|
||||
Me.TsBtnDeleteStruktur.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TsBtnDeleteStruktur.Image = CType(resources.GetObject("TsBtnDeleteStruktur.Image"), System.Drawing.Image)
|
||||
Me.TsBtnDeleteStruktur.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnDeleteStruktur.Name = "TsBtnDeleteStruktur"
|
||||
Me.TsBtnDeleteStruktur.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TsBtnDeleteStruktur.Text = "Löschen"
|
||||
'
|
||||
'GrpDokumente
|
||||
'
|
||||
Me.GrpDokumente.Controls.Add(Me.DokumenteAllgemein)
|
||||
Me.GrpDokumente.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GrpDokumente.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GrpDokumente.Name = "GrpDokumente"
|
||||
Me.GrpDokumente.Size = New System.Drawing.Size(348, 235)
|
||||
Me.GrpDokumente.TabIndex = 68
|
||||
Me.GrpDokumente.TabStop = False
|
||||
Me.GrpDokumente.Text = "Dokumente"
|
||||
'
|
||||
'DokumenteAllgemein
|
||||
'
|
||||
Me.DokumenteAllgemein.ConnectionString = Nothing
|
||||
Me.DokumenteAllgemein.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DokumenteAllgemein.Doktype = 0
|
||||
Me.DokumenteAllgemein.Location = New System.Drawing.Point(3, 16)
|
||||
Me.DokumenteAllgemein.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
|
||||
Me.DokumenteAllgemein.Mitarbeiternr = 0
|
||||
Me.DokumenteAllgemein.Name = "DokumenteAllgemein"
|
||||
Me.DokumenteAllgemein.Pruefschrittnr = 0
|
||||
Me.DokumenteAllgemein.Size = New System.Drawing.Size(342, 216)
|
||||
Me.DokumenteAllgemein.TabIndex = 32
|
||||
Me.DokumenteAllgemein.TempFilePath = Nothing
|
||||
Me.DokumenteAllgemein.ThemaNr = 0
|
||||
'
|
||||
'GrpDefinitionen
|
||||
'
|
||||
Me.GrpDefinitionen.Controls.Add(Me.SplitContainer4)
|
||||
Me.GrpDefinitionen.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GrpDefinitionen.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GrpDefinitionen.Name = "GrpDefinitionen"
|
||||
Me.GrpDefinitionen.Size = New System.Drawing.Size(767, 318)
|
||||
Me.GrpDefinitionen.TabIndex = 0
|
||||
Me.GrpDefinitionen.TabStop = False
|
||||
Me.GrpDefinitionen.Text = "Definitionen"
|
||||
'
|
||||
'SplitContainer4
|
||||
'
|
||||
Me.SplitContainer4.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer4.Location = New System.Drawing.Point(3, 16)
|
||||
Me.SplitContainer4.Name = "SplitContainer4"
|
||||
'
|
||||
'SplitContainer4.Panel1
|
||||
'
|
||||
Me.SplitContainer4.Panel1.Controls.Add(Me.C2Daten)
|
||||
Me.SplitContainer4.Panel1.Controls.Add(Me.ToolStripDefinition)
|
||||
'
|
||||
'SplitContainer4.Panel2
|
||||
'
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.DokumenteDefinition)
|
||||
Me.SplitContainer4.Size = New System.Drawing.Size(761, 299)
|
||||
Me.SplitContainer4.SplitterDistance = 415
|
||||
Me.SplitContainer4.TabIndex = 0
|
||||
'
|
||||
'C2Daten
|
||||
'
|
||||
Me.C2Daten.AllowUpdate = False
|
||||
Me.C2Daten.AlternatingRows = True
|
||||
Me.C2Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
|
||||
Me.C2Daten.ContextMenuStrip = Me.ctxMenuDefinition
|
||||
Me.C2Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C2Daten.FilterBar = True
|
||||
Me.C2Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C2Daten.Images.Add(CType(resources.GetObject("C2Daten.Images"), System.Drawing.Image))
|
||||
Me.C2Daten.Location = New System.Drawing.Point(0, 25)
|
||||
Me.C2Daten.Name = "C2Daten"
|
||||
Me.C2Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C2Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C2Daten.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.C2Daten.PrintInfo.PageSettings = CType(resources.GetObject("C2Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C2Daten.Size = New System.Drawing.Size(415, 274)
|
||||
Me.C2Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.C2Daten.TabIndex = 11
|
||||
Me.C2Daten.Text = "C1TrueDBGrid1"
|
||||
Me.C2Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
|
||||
Me.C2Daten.PropBag = resources.GetString("C2Daten.PropBag")
|
||||
'
|
||||
'ctxMenuDefinition
|
||||
'
|
||||
Me.ctxMenuDefinition.ImageScalingSize = New System.Drawing.Size(32, 32)
|
||||
Me.ctxMenuDefinition.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerEintragToolStripMenuItem1, Me.EintragBearbeitenToolStripMenuItem1, Me.EintragLöschenToolStripMenuItem1})
|
||||
Me.ctxMenuDefinition.Name = "ctxMenuDefinition"
|
||||
Me.ctxMenuDefinition.Size = New System.Drawing.Size(171, 70)
|
||||
'
|
||||
'NeuerEintragToolStripMenuItem1
|
||||
'
|
||||
Me.NeuerEintragToolStripMenuItem1.Name = "NeuerEintragToolStripMenuItem1"
|
||||
Me.NeuerEintragToolStripMenuItem1.Size = New System.Drawing.Size(170, 22)
|
||||
Me.NeuerEintragToolStripMenuItem1.Text = "Neuer Eintrag"
|
||||
'
|
||||
'EintragBearbeitenToolStripMenuItem1
|
||||
'
|
||||
Me.EintragBearbeitenToolStripMenuItem1.Name = "EintragBearbeitenToolStripMenuItem1"
|
||||
Me.EintragBearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(170, 22)
|
||||
Me.EintragBearbeitenToolStripMenuItem1.Text = "Eintrag bearbeiten"
|
||||
'
|
||||
'EintragLöschenToolStripMenuItem1
|
||||
'
|
||||
Me.EintragLöschenToolStripMenuItem1.Name = "EintragLöschenToolStripMenuItem1"
|
||||
Me.EintragLöschenToolStripMenuItem1.Size = New System.Drawing.Size(170, 22)
|
||||
Me.EintragLöschenToolStripMenuItem1.Text = "Eintrag löschen"
|
||||
'
|
||||
'ToolStripDefinition
|
||||
'
|
||||
Me.ToolStripDefinition.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnAddNewDefinition, Me.TsBtnEditDefinition, Me.TsBtnDeleteDefinition})
|
||||
Me.ToolStripDefinition.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStripDefinition.Name = "ToolStripDefinition"
|
||||
Me.ToolStripDefinition.Size = New System.Drawing.Size(415, 25)
|
||||
Me.ToolStripDefinition.TabIndex = 12
|
||||
Me.ToolStripDefinition.Text = "ToolStrip3"
|
||||
'
|
||||
'TSBtnAddNewDefinition
|
||||
'
|
||||
Me.TSBtnAddNewDefinition.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnAddNewDefinition.Image = CType(resources.GetObject("TSBtnAddNewDefinition.Image"), System.Drawing.Image)
|
||||
Me.TSBtnAddNewDefinition.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnAddNewDefinition.Name = "TSBtnAddNewDefinition"
|
||||
Me.TSBtnAddNewDefinition.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnAddNewDefinition.Text = "Neu"
|
||||
'
|
||||
'TsBtnEditDefinition
|
||||
'
|
||||
Me.TsBtnEditDefinition.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TsBtnEditDefinition.Image = CType(resources.GetObject("TsBtnEditDefinition.Image"), System.Drawing.Image)
|
||||
Me.TsBtnEditDefinition.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnEditDefinition.Name = "TsBtnEditDefinition"
|
||||
Me.TsBtnEditDefinition.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TsBtnEditDefinition.Text = "ToolStripButton2"
|
||||
'
|
||||
'TsBtnDeleteDefinition
|
||||
'
|
||||
Me.TsBtnDeleteDefinition.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TsBtnDeleteDefinition.Image = CType(resources.GetObject("TsBtnDeleteDefinition.Image"), System.Drawing.Image)
|
||||
Me.TsBtnDeleteDefinition.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnDeleteDefinition.Name = "TsBtnDeleteDefinition"
|
||||
Me.TsBtnDeleteDefinition.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TsBtnDeleteDefinition.Text = "Löschen"
|
||||
'
|
||||
'DokumenteDefinition
|
||||
'
|
||||
Me.DokumenteDefinition.ConnectionString = Nothing
|
||||
Me.DokumenteDefinition.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DokumenteDefinition.Doktype = 0
|
||||
Me.DokumenteDefinition.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DokumenteDefinition.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
|
||||
Me.DokumenteDefinition.Mitarbeiternr = 0
|
||||
Me.DokumenteDefinition.Name = "DokumenteDefinition"
|
||||
Me.DokumenteDefinition.Pruefschrittnr = 0
|
||||
Me.DokumenteDefinition.Size = New System.Drawing.Size(342, 299)
|
||||
Me.DokumenteDefinition.TabIndex = 33
|
||||
Me.DokumenteDefinition.TempFilePath = Nothing
|
||||
Me.DokumenteDefinition.ThemaNr = 0
|
||||
'
|
||||
'frmVorgabe
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1249, 606)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Controls.Add(Me.ToolStripMain)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmVorgabe"
|
||||
Me.Text = "Vorgaben und Definitionen"
|
||||
Me.ToolStripMain.ResumeLayout(False)
|
||||
Me.ToolStripMain.PerformLayout()
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel1.PerformLayout()
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
CType(Me.TreeVorgabe, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.CtxMenuTree.ResumeLayout(False)
|
||||
Me.ToolStripTree.ResumeLayout(False)
|
||||
Me.ToolStripTree.PerformLayout()
|
||||
Me.SplitContainer2.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer2.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer2.ResumeLayout(False)
|
||||
Me.SplitContainer3.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer3.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer3.ResumeLayout(False)
|
||||
Me.GrpVorgaben.ResumeLayout(False)
|
||||
Me.GrpVorgaben.PerformLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ctxMenuVorgabe.ResumeLayout(False)
|
||||
Me.ToolStripStruktur.ResumeLayout(False)
|
||||
Me.ToolStripStruktur.PerformLayout()
|
||||
Me.GrpDokumente.ResumeLayout(False)
|
||||
Me.GrpDefinitionen.ResumeLayout(False)
|
||||
Me.SplitContainer4.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer4.Panel1.PerformLayout()
|
||||
Me.SplitContainer4.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer4.ResumeLayout(False)
|
||||
CType(Me.C2Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ctxMenuDefinition.ResumeLayout(False)
|
||||
Me.ToolStripDefinition.ResumeLayout(False)
|
||||
Me.ToolStripDefinition.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents NeuAnmeldenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents TreeVorgabe As DevComponents.AdvTree.AdvTree
|
||||
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents SplitContainer2 As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents SplitContainer3 As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents GrpDokumente As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents DokumenteAllgemein As ThemenDokumente.Dokumente
|
||||
Friend WithEvents GrpVorgaben As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents GrpDefinitionen As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents CtxMenuTree As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents NeuerEintragToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents EintragLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents EintragBearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents NeueVorgabeErstellenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStripTree As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents tslabelFilter As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents tsCbxFilter As System.Windows.Forms.ToolStripComboBox
|
||||
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
|
||||
Friend WithEvents lblSuche As ToolStripLabel
|
||||
Friend WithEvents tstxtSuche As ToolStripTextBox
|
||||
Friend WithEvents TSBtnSuche As ToolStripButton
|
||||
Friend WithEvents TSBtnFilterAufheben As ToolStripButton
|
||||
Friend WithEvents TSBtnFirst As ToolStripButton
|
||||
Friend WithEvents TSBtnPrevious As ToolStripButton
|
||||
Friend WithEvents TSBtnNext As ToolStripButton
|
||||
Friend WithEvents TSBtnLast As ToolStripButton
|
||||
Friend WithEvents SplitContainer4 As SplitContainer
|
||||
Friend WithEvents ToolStripDefinition As ToolStrip
|
||||
Friend WithEvents TSBtnAddNewDefinition As ToolStripButton
|
||||
Friend WithEvents TsBtnEditDefinition As ToolStripButton
|
||||
Friend WithEvents TsBtnDeleteDefinition As ToolStripButton
|
||||
Friend WithEvents C2Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents DokumenteDefinition As ThemenDokumente.Dokumente
|
||||
Friend WithEvents ToolStripStruktur As ToolStrip
|
||||
Friend WithEvents TsBtnAddNewStruktur As ToolStripButton
|
||||
Friend WithEvents TsBtnEditStruktur As ToolStripButton
|
||||
Friend WithEvents TsBtnDeleteStruktur As ToolStripButton
|
||||
Friend WithEvents ctxMenuDefinition As ContextMenuStrip
|
||||
Friend WithEvents NeuerEintragToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents EintragBearbeitenToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents EintragLöschenToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents ctxMenuVorgabe As ContextMenuStrip
|
||||
Friend WithEvents ToolStripMenuVorgabeNeu As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuVorgabeEdit As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuVorgabeDelete As ToolStripMenuItem
|
||||
|
||||
Private WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
|
||||
Private WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
|
||||
Private WithEvents Node1 As DevComponents.AdvTree.Node
|
||||
Friend WithEvents lblSearchStruktur_Definition As ToolStripLabel
|
||||
Friend WithEvents tsTxtSearchStruktur_Definition As ToolStripTextBox
|
||||
Friend WithEvents tsBtnSearchStruktur_Definition As ToolStripButton
|
||||
Private WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents ToolStripButton2 As ToolStripButton
|
||||
Friend WithEvents ToolStripMain As ToolStrip
|
||||
End Class
|
||||
3808
SW/AssessmentMgmt/Vorgabe/frmVorgabe.resx
Normal file
3808
SW/AssessmentMgmt/Vorgabe/frmVorgabe.resx
Normal file
File diff suppressed because it is too large
Load Diff
645
SW/AssessmentMgmt/Vorgabe/frmVorgabe.vb
Normal file
645
SW/AssessmentMgmt/Vorgabe/frmVorgabe.vb
Normal file
@@ -0,0 +1,645 @@
|
||||
Public Class frmVorgabe
|
||||
|
||||
#Region "Deklarationen"
|
||||
Dim sec As New Utils.MySecurity
|
||||
Dim msg As New Utils.MyMessage
|
||||
Dim FormReadonly As Boolean = False
|
||||
Dim FormDataChanged As Boolean = False
|
||||
Private Anzeige As Boolean = False
|
||||
|
||||
Dim Vorgabe As New clsVorgabe
|
||||
Dim VorgabeTree As New clsVorgabeTree
|
||||
Dim VorgabeDefinition As New clsVorgabeDefinition
|
||||
Dim OnGetData As Boolean
|
||||
|
||||
Dim Pruefplannr As Integer = 0
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#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
|
||||
Me.FormReadonly = True
|
||||
If Me.FormReadonly = True Then Exit Sub
|
||||
If Check_Changes() = False Then
|
||||
e.Cancel = True
|
||||
Else
|
||||
Vorgabe.dispose()
|
||||
Me.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Prüfung, ob Datenänderungen vorgenommen wurden.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Function Check_Changes() As Boolean
|
||||
If Me.FormReadonly Then
|
||||
Return True
|
||||
Exit Function
|
||||
End If
|
||||
Dim msgres As MsgBoxResult
|
||||
If Me.FormDataChanged Then
|
||||
msgres = msg.Show_MessageYesNoCancel(3)
|
||||
Select Case msgres
|
||||
Case MsgBoxResult.Yes
|
||||
Return True
|
||||
Case MsgBoxResult.Cancel
|
||||
Return False
|
||||
Case MsgBoxResult.No
|
||||
Me.FormDataChanged = False
|
||||
Return True
|
||||
End Select
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Eventhandler ChangeEreignisse"
|
||||
''' <summary>
|
||||
''' Allg Eventhandler für Chanage-Ereignise festlegen
|
||||
''' </summary>
|
||||
''' <param name="Container"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub AddChanges(ByVal Container As Control)
|
||||
Dim l As New List(Of Control)
|
||||
Me.GetControl(Me, "*", l)
|
||||
Dim evh As EventHandler = AddressOf ChangesMade
|
||||
For Each c As Control In l
|
||||
If TypeOf c Is TextBox Then
|
||||
Dim ctl As TextBox = c
|
||||
AddHandler ctl.TextChanged, evh
|
||||
End If
|
||||
If TypeOf c Is MaskedTextBox Then
|
||||
Dim ctl As MaskedTextBox = c
|
||||
AddHandler ctl.TextChanged, evh
|
||||
End If
|
||||
If TypeOf c Is ComboBox Then
|
||||
Dim ctl As ComboBox = c
|
||||
AddHandler ctl.SelectedValueChanged, evh
|
||||
End If
|
||||
If TypeOf c Is RichTextBox Then
|
||||
Dim ctl As RichTextBox = c
|
||||
AddHandler ctl.TextChanged, evh
|
||||
End If
|
||||
If TypeOf c Is CheckBox Then
|
||||
If c.Name <> "cboxNurAktive" Then
|
||||
Dim ctl As CheckBox = c
|
||||
AddHandler ctl.CheckedChanged, evh
|
||||
End If
|
||||
End If
|
||||
If TypeOf c Is CheckedListBox Then
|
||||
Dim ctl As CheckedListBox = c
|
||||
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Envent-Handler für Change-Ereignisse
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
Me.FormDataChanged = True
|
||||
Dim objtype As System.Type = sender.GetType
|
||||
If objtype.Name = "MaskedTextBox" Then
|
||||
Dim o As MaskedTextBox = sender
|
||||
If o.Text = "01.01.1900" Then o.Text = " . . "
|
||||
End If
|
||||
End Sub
|
||||
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
|
||||
Me.FormDataChanged = True
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
|
||||
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
|
||||
''' </summary>
|
||||
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
|
||||
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
|
||||
''' <param name="L">Liste der gefundenen Objekte</param>
|
||||
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
|
||||
''' </returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
|
||||
If L Is Nothing Then L = New List(Of Control)
|
||||
Dim Gut As Boolean
|
||||
Dim ReturnFlag As Boolean = False
|
||||
If Key IsNot Nothing Then Key = Key.ToLower
|
||||
|
||||
If BaseControl.HasChildren = True Then
|
||||
For Each ctl As Control In BaseControl.Controls
|
||||
Gut = False
|
||||
If Key Is Nothing Then
|
||||
Gut = True
|
||||
Else
|
||||
If ctl.Name.Length >= Key.Length Then
|
||||
Key = Key.ToLower
|
||||
If Key.StartsWith("*") Then
|
||||
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
|
||||
ElseIf Key.EndsWith("*") Then
|
||||
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
|
||||
Else
|
||||
If Key = ctl.Name.ToLower Then Gut = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Gut = True Then
|
||||
L.Add(ctl)
|
||||
If ReturnAtFirstElement = True Then ReturnFlag = True
|
||||
End If
|
||||
If ReturnFlag = False Then
|
||||
Call GetControl(ctl, Key, L)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If L.Count - 1 > -1 Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Formular"
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.ImageList1 = Globals.GueltigImages
|
||||
Me.TreeVorgabe.ImageList = Me.ImageList1
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(ByVal Pruefplannr As Integer, Optional from_Massnahme As Boolean = False)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.ImageList1 = Globals.GueltigImages
|
||||
Me.Pruefplannr = Pruefplannr
|
||||
Me.VorgabeTree.Pruefplannr = Me.Pruefplannr
|
||||
Me.VorgabeTree.Tree_From_Pruefplan = True
|
||||
If from_Massnahme = True Then
|
||||
Me.VorgabeTree.Tree_from_Massnahmeplan = True
|
||||
Me.VorgabeTree.Tree_From_Pruefplan = False
|
||||
End If
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
Private Sub frmVorgabe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
|
||||
VorgabeTree.Refresh_Filter(Me.tsCbxFilter)
|
||||
Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
|
||||
AddChanges(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Tree"
|
||||
Private Sub TreeVorgabe_AfterNodeSelect(sender As Object, e As DevComponents.AdvTree.AdvTreeNodeEventArgs) Handles TreeVorgabe.AfterNodeSelect
|
||||
Me.OnGetData = True
|
||||
Try
|
||||
VorgabeTree.Get_Eintraege(Me.C1Daten, Me.TreeVorgabe.SelectedNode.Tag)
|
||||
If Me.C1Daten.Splits(0).DisplayColumns.Count < 1 Then Me.ToolStripDefinition.Enabled = False Else Me.ToolStripDefinition.Enabled = True
|
||||
Dim bmp0 As New Bitmap(Me.ImageList1.Images(0))
|
||||
Dim bmp1 As New Bitmap(Me.ImageList1.Images(1))
|
||||
Dim bmp2 As New Bitmap(Me.ImageList1.Images(2))
|
||||
Dim bmp3 As New Bitmap(Me.ImageList1.Images(3))
|
||||
|
||||
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
|
||||
v0.DisplayValue = bmp0
|
||||
v0.Value = 0
|
||||
|
||||
v1.DisplayValue = bmp1
|
||||
v1.Value = 1
|
||||
|
||||
v2.DisplayValue = bmp2
|
||||
v2.Value = 2
|
||||
|
||||
v3.DisplayValue = bmp3
|
||||
v3.Value = 3
|
||||
|
||||
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v0)
|
||||
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v1)
|
||||
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v2)
|
||||
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v3)
|
||||
Me.C1Daten.Columns("Icon").ValueItems.Translate = True
|
||||
Me.C1Daten.Splits(0).DisplayColumns("icon").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
|
||||
Catch
|
||||
End Try
|
||||
Refresh_Details()
|
||||
Me.OnGetData = False
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub NeuerEintragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem.Click
|
||||
Dim f As New frmNeuerVorgabeEintrag
|
||||
f.SelectedNode = Me.TreeVorgabe.SelectedNode
|
||||
f.Tree = Me.TreeVorgabe
|
||||
f.Key = -1
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = Windows.Forms.DialogResult.OK Then
|
||||
Me.TreeVorgabe.Nodes.Clear()
|
||||
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
|
||||
If Me.tsCbxFilter.Text <> "" Then
|
||||
Me.tsCbxFilter_SelectedIndexChanged(sender, e)
|
||||
End If
|
||||
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNode(Me.TreeVorgabe.Nodes, f.Key, f.Key.ToString)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
|
||||
Dim f As New frmNeuerVorgabeEintrag
|
||||
f.SelectedNode = Me.TreeVorgabe.SelectedNode
|
||||
f.Tree = Me.TreeVorgabe
|
||||
f.Key = Me.TreeVorgabe.SelectedNode.Tag
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = Windows.Forms.DialogResult.OK Then
|
||||
Me.TreeVorgabe.Nodes.Clear()
|
||||
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
|
||||
If Me.tsCbxFilter.Text <> "" Then
|
||||
Me.tsCbxFilter_SelectedIndexChanged(sender, e)
|
||||
End If
|
||||
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNode(Me.TreeVorgabe.Nodes, f.Key, f.Key.ToString)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub NeueVorgabeErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueVorgabeErstellenToolStripMenuItem.Click
|
||||
Dim s As String
|
||||
s = InputBox("Titel der neuen Vorgabe", "Titel der neuen Vorgabe")
|
||||
If s <> "" Then
|
||||
Vorgabe.Add_New()
|
||||
Dim key As Integer = Vorgabe.iVorgabeID.Value
|
||||
Vorgabe.iParentID = New SqlTypes.SqlInt32(CType(0, Int32))
|
||||
Vorgabe.sKapitelNr = New SqlTypes.SqlString(CType("", String))
|
||||
Vorgabe.sKapitel = New SqlTypes.SqlString(CType(s, String))
|
||||
Vorgabe.Save_Data()
|
||||
Me.TreeVorgabe.Nodes.Clear()
|
||||
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
|
||||
VorgabeTree.Refresh_Filter(Me.tsCbxFilter)
|
||||
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNode(Me.TreeVorgabe.Nodes, key, key.ToString)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tsCbxFilter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tsCbxFilter.SelectedIndexChanged
|
||||
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
|
||||
If tsCbxFilter.Text = "-- Alle --" Then Exit Sub
|
||||
Try
|
||||
For Each n As DevComponents.AdvTree.Node In Me.TreeVorgabe.Nodes
|
||||
If Trim(n.Text) <> Trim(tsCbxFilter.Text) Then
|
||||
n.Remove()
|
||||
End If
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnFilterAufheben_Click(sender As Object, e As EventArgs) Handles TSBtnFilterAufheben.Click
|
||||
Me.tstxtSuche.Text = ""
|
||||
Me.VorgabeTree.Init_Search()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnSuche_Click(sender As Object, e As EventArgs) Handles TSBtnSuche.Click
|
||||
Me.VorgabeTree.Init_Search()
|
||||
Me.TreeVorgabe.SelectedNode = VorgabeTree.SearchNode(Me.TreeVorgabe, Trim(Me.tstxtSuche.Text))
|
||||
Try
|
||||
Me.TreeVorgabe.SelectedNode.EnsureVisible()
|
||||
Catch
|
||||
MsgBox("Der Suchbegriff wurde nicht gefunden.", vbInformation)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
|
||||
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindFirst(Me.TreeVorgabe)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
|
||||
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindPrevNode(Me.TreeVorgabe)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
|
||||
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNextNode(Me.TreeVorgabe)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
|
||||
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindLastNode(Me.TreeVorgabe)
|
||||
End Sub
|
||||
|
||||
Private Sub tstxtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtSuche.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then TSBtnSuche_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
|
||||
Try
|
||||
If C1Daten.Splits(0).Rows.Count > 0 Then
|
||||
If MsgBox("Struktureintragwirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
|
||||
Me.Vorgabe.Get_Data(Me.C1Daten.Columns("Vorgabeid").Value)
|
||||
Dim selnode As DevComponents.AdvTree.Node
|
||||
selnode = Me.TreeVorgabe.SelectedNode.Parent
|
||||
Me.Vorgabe.Get_Data(Me.TreeVorgabe.SelectedNode.Tag)
|
||||
Me.Vorgabe.Delete_Data()
|
||||
|
||||
Me.TreeVorgabe.Nodes.Clear()
|
||||
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
|
||||
Try
|
||||
Me.TreeVorgabe.SelectedNode = selnode
|
||||
Catch ex As Exception
|
||||
Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
|
||||
End Try
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "C1Daten"
|
||||
Private Sub C1Daten_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Daten.RowColChange
|
||||
If Me.OnGetData Then Exit Sub
|
||||
Refresh_Details()
|
||||
Refresh_C2Daten()
|
||||
End Sub
|
||||
|
||||
Sub Refresh_Details()
|
||||
Me.DokumenteAllgemein.Show_Toolbar = True
|
||||
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteAllgemein.Doktype = 1
|
||||
Me.DokumenteAllgemein.ThemaNr = C1Daten.Columns("vorgabeid").Value
|
||||
Me.DokumenteAllgemein.Refresh()
|
||||
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
|
||||
Refresh_C2Daten()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
|
||||
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TsBtnAddNewStruktur_Click(sender As Object, e As EventArgs) Handles TsBtnAddNewStruktur.Click
|
||||
NeuerEintragToolStripMenuItem_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub TsBtnEditStruktur_Click(sender As Object, e As EventArgs) Handles TsBtnEditStruktur.Click
|
||||
Try
|
||||
Dim bookamark
|
||||
Dim selnode As DevComponents.AdvTree.Node
|
||||
selnode = Me.TreeVorgabe.SelectedNode
|
||||
bookamark = C1Daten.Bookmark
|
||||
Dim f As New frmNeuerVorgabeEintrag
|
||||
f.SelectedNode = Me.TreeVorgabe.SelectedNode
|
||||
f.Parentnode = Me.TreeVorgabe.SelectedNode.Parent
|
||||
f.Tree = Me.TreeVorgabe
|
||||
f.Key = Me.C1Daten.Columns("Vorgabeid").Value
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = Windows.Forms.DialogResult.OK Then
|
||||
Me.TreeVorgabe.Nodes.Clear()
|
||||
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
|
||||
If Me.tsCbxFilter.Text <> "" Then
|
||||
Me.tsCbxFilter_SelectedIndexChanged(sender, e)
|
||||
End If
|
||||
Me.TreeVorgabe.SelectedNode = selnode
|
||||
Me.C1Daten.Bookmark = bookamark
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TsBtnDeleteStruktur_Click(sender As Object, e As EventArgs) Handles TsBtnDeleteStruktur.Click
|
||||
|
||||
Try
|
||||
If C1Daten.Splits(0).Rows.Count > 0 Then
|
||||
If MsgBox("Struktureintragwirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
|
||||
Me.Vorgabe.Get_Data(Me.C1Daten.Columns("Vorgabeid").Value)
|
||||
Dim selnode As DevComponents.AdvTree.Node
|
||||
selnode = Me.TreeVorgabe.SelectedNode
|
||||
Me.Vorgabe.Get_Data(Me.C1Daten.Columns("Vorgabeid").Value)
|
||||
Me.Vorgabe.Delete_Data()
|
||||
|
||||
Me.TreeVorgabe.Nodes.Clear()
|
||||
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
|
||||
Try
|
||||
Me.TreeVorgabe.SelectedNode = selnode
|
||||
Catch ex As Exception
|
||||
Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
|
||||
End Try
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuVorgabeNeu_Click(sender As Object, e As EventArgs) Handles ToolStripMenuVorgabeNeu.Click
|
||||
TsBtnAddNewStruktur_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuVorgabeEdit_Click(sender As Object, e As EventArgs) Handles ToolStripMenuVorgabeEdit.Click
|
||||
TsBtnEditStruktur_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuVorgabeDelete_Click(sender As Object, e As EventArgs) Handles ToolStripMenuVorgabeDelete.Click
|
||||
TsBtnDeleteStruktur_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
|
||||
Try
|
||||
ToolStripMenuVorgabeEdit_Click(sender, e)
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "C2Daten"
|
||||
Private Sub C2Daten_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C2Daten.RowColChange
|
||||
If Me.OnGetData Then Exit Sub
|
||||
Refresh_DetailsDefinition()
|
||||
End Sub
|
||||
|
||||
Sub Refresh_C2Daten()
|
||||
VorgabeDefinition.Get_Eintraege(Me.C2Daten, Me.C1Daten.Columns("vorgabeid").Value)
|
||||
Dim bmp0 As New Bitmap(Me.ImageList1.Images(0))
|
||||
Dim bmp1 As New Bitmap(Me.ImageList1.Images(1))
|
||||
Dim bmp2 As New Bitmap(Me.ImageList1.Images(2))
|
||||
Dim bmp3 As New Bitmap(Me.ImageList1.Images(3))
|
||||
|
||||
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
|
||||
v0.DisplayValue = bmp0
|
||||
v0.Value = 0
|
||||
|
||||
v1.DisplayValue = bmp1
|
||||
v1.Value = 1
|
||||
|
||||
v2.DisplayValue = bmp2
|
||||
v2.Value = 2
|
||||
|
||||
v3.DisplayValue = bmp3
|
||||
v3.Value = 3
|
||||
|
||||
Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v0)
|
||||
Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v1)
|
||||
Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v2)
|
||||
Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v3)
|
||||
Me.C2Daten.Columns("Icon").ValueItems.Translate = True
|
||||
Me.C2Daten.Splits(0).DisplayColumns("icon").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
|
||||
Refresh_DetailsDefinition()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub C2Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C2Daten.MouseDown
|
||||
Me.C2Daten.Bookmark = Me.C2Daten.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Sub Refresh_DetailsDefinition()
|
||||
Try
|
||||
Me.DokumenteDefinition.Show_Toolbar = True
|
||||
Me.DokumenteDefinition.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteDefinition.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteDefinition.Doktype = 2
|
||||
Try
|
||||
Me.DokumenteDefinition.ThemaNr = C2Daten.Columns("VorgabeDefinitionNr").Value
|
||||
Catch
|
||||
Me.DokumenteDefinition.ThemaNr = -1
|
||||
End Try
|
||||
|
||||
Me.DokumenteDefinition.Refresh()
|
||||
Me.DokumenteDefinition.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnAddNewDefinition_Click(sender As Object, e As EventArgs) Handles TSBtnAddNewDefinition.Click
|
||||
Try
|
||||
Dim f As New frmVorgabeDefinition
|
||||
f.Key = -1
|
||||
f.VorgabeID = Me.C1Daten.Columns("VorgabeID").Value
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then Refresh_C2Daten()
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TsBtnEditDefinition_Click(sender As Object, e As EventArgs) Handles TsBtnEditDefinition.Click
|
||||
Try
|
||||
Dim f As New frmVorgabeDefinition
|
||||
f.Key = Me.C2Daten.Columns("VorgabeDefinitionNr").Value
|
||||
f.VorgabeID = Me.C1Daten.Columns("VorgabeID").Value
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then Refresh_C2Daten()
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TsBtnDeleteDefinition_Click(sender As Object, e As EventArgs) Handles TsBtnDeleteDefinition.Click
|
||||
Try
|
||||
If C2Daten.Splits(0).Rows.Count > 0 Then
|
||||
If MsgBox("Definition wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
|
||||
Dim vorgabedefinition As New clsVorgabeDefinition
|
||||
vorgabedefinition.Get_Data(Me.C2Daten.Columns("VorgabeDefinitionNr").Value)
|
||||
vorgabedefinition.Delete_Data()
|
||||
Me.Refresh_C2Daten()
|
||||
vorgabedefinition = Nothing
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub NeuerEintragToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem1.Click
|
||||
Me.TSBtnAddNewDefinition_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub EintragBearbeitenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem1.Click
|
||||
TsBtnEditDefinition_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub EintragLöschenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem1.Click
|
||||
TsBtnDeleteDefinition_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub C2Daten_DoubleClick(sender As Object, e As EventArgs) Handles C2Daten.DoubleClick
|
||||
Try
|
||||
TsBtnEditDefinition_Click(sender, e)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar Form"
|
||||
Private Sub tsBtnSearchStruktur_Definition_Click(sender As Object, e As EventArgs) Handles tsBtnSearchStruktur_Definition.Click
|
||||
VorgabeTree.search_Eintraege(Me.TreeVorgabe, Me.tsTxtSearchStruktur_Definition.Text)
|
||||
End Sub
|
||||
|
||||
Private Sub tsTxtSearchStruktur_Definition_KeyDown(sender As Object, e As KeyEventArgs) Handles tsTxtSearchStruktur_Definition.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then tsBtnSearchStruktur_Definition_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
||||
tsTxtSearchStruktur_Definition.Text = ""
|
||||
tsBtnSearchStruktur_Definition_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub TreeVorgabe_Click(sender As Object, e As EventArgs) Handles TreeVorgabe.Click
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
225
SW/AssessmentMgmt/Vorgabe/frmVorgabeDefinition.Designer.vb
generated
Normal file
225
SW/AssessmentMgmt/Vorgabe/frmVorgabeDefinition.Designer.vb
generated
Normal file
@@ -0,0 +1,225 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmVorgabeDefinition
|
||||
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(frmVorgabeDefinition))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.lblDefinitioin = New System.Windows.Forms.Label()
|
||||
Me.lblBemerkung = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.dtGueltigbis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.txtDefinition = New System.Windows.Forms.TextBox()
|
||||
Me.txtBemerkung = New System.Windows.Forms.TextBox()
|
||||
Me.btnAbbruch = New System.Windows.Forms.Button()
|
||||
Me.btnSave = New System.Windows.Forms.Button()
|
||||
Me.cbaktiv = New System.Windows.Forms.CheckBox()
|
||||
Me.lblAktiv = New System.Windows.Forms.Label()
|
||||
Me.lblBezeichnung = New System.Windows.Forms.Label()
|
||||
Me.txtBezeichnung = New DevComponents.DotNetBar.Controls.TextBoxX()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(709, 25)
|
||||
Me.ToolStrip1.TabIndex = 7
|
||||
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 = "Fenster schliessen"
|
||||
'
|
||||
'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 = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Visible = False
|
||||
'
|
||||
'lblDefinitioin
|
||||
'
|
||||
Me.lblDefinitioin.AutoSize = True
|
||||
Me.lblDefinitioin.Location = New System.Drawing.Point(13, 71)
|
||||
Me.lblDefinitioin.Name = "lblDefinitioin"
|
||||
Me.lblDefinitioin.Size = New System.Drawing.Size(51, 13)
|
||||
Me.lblDefinitioin.TabIndex = 18
|
||||
Me.lblDefinitioin.Text = "Definition"
|
||||
'
|
||||
'lblBemerkung
|
||||
'
|
||||
Me.lblBemerkung.AutoSize = True
|
||||
Me.lblBemerkung.Location = New System.Drawing.Point(13, 176)
|
||||
Me.lblBemerkung.Name = "lblBemerkung"
|
||||
Me.lblBemerkung.Size = New System.Drawing.Size(61, 13)
|
||||
Me.lblBemerkung.TabIndex = 19
|
||||
Me.lblBemerkung.Text = "Bemerkung"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(14, 277)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(50, 13)
|
||||
Me.Label1.TabIndex = 21
|
||||
Me.Label1.Text = "Gültig bis"
|
||||
'
|
||||
'dtGueltigbis
|
||||
'
|
||||
Me.dtGueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtGueltigbis.Location = New System.Drawing.Point(83, 277)
|
||||
Me.dtGueltigbis.Name = "dtGueltigbis"
|
||||
Me.dtGueltigbis.Size = New System.Drawing.Size(100, 20)
|
||||
Me.dtGueltigbis.TabIndex = 3
|
||||
'
|
||||
'txtDefinition
|
||||
'
|
||||
Me.txtDefinition.Location = New System.Drawing.Point(83, 68)
|
||||
Me.txtDefinition.Multiline = True
|
||||
Me.txtDefinition.Name = "txtDefinition"
|
||||
Me.txtDefinition.Size = New System.Drawing.Size(605, 97)
|
||||
Me.txtDefinition.TabIndex = 1
|
||||
'
|
||||
'txtBemerkung
|
||||
'
|
||||
Me.txtBemerkung.Location = New System.Drawing.Point(83, 176)
|
||||
Me.txtBemerkung.Multiline = True
|
||||
Me.txtBemerkung.Name = "txtBemerkung"
|
||||
Me.txtBemerkung.Size = New System.Drawing.Size(605, 97)
|
||||
Me.txtBemerkung.TabIndex = 2
|
||||
'
|
||||
'btnAbbruch
|
||||
'
|
||||
Me.btnAbbruch.Location = New System.Drawing.Point(616, 335)
|
||||
Me.btnAbbruch.Name = "btnAbbruch"
|
||||
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnAbbruch.TabIndex = 6
|
||||
Me.btnAbbruch.Text = "Abbruch"
|
||||
Me.btnAbbruch.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSave
|
||||
'
|
||||
Me.btnSave.Location = New System.Drawing.Point(16, 335)
|
||||
Me.btnSave.Name = "btnSave"
|
||||
Me.btnSave.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnSave.TabIndex = 5
|
||||
Me.btnSave.Text = "Speichern"
|
||||
Me.btnSave.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbaktiv
|
||||
'
|
||||
Me.cbaktiv.AutoSize = True
|
||||
Me.cbaktiv.Location = New System.Drawing.Point(83, 303)
|
||||
Me.cbaktiv.Name = "cbaktiv"
|
||||
Me.cbaktiv.Size = New System.Drawing.Size(15, 14)
|
||||
Me.cbaktiv.TabIndex = 4
|
||||
Me.cbaktiv.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblAktiv
|
||||
'
|
||||
Me.lblAktiv.AutoSize = True
|
||||
Me.lblAktiv.Location = New System.Drawing.Point(13, 304)
|
||||
Me.lblAktiv.Name = "lblAktiv"
|
||||
Me.lblAktiv.Size = New System.Drawing.Size(31, 13)
|
||||
Me.lblAktiv.TabIndex = 27
|
||||
Me.lblAktiv.Text = "Aktiv"
|
||||
'
|
||||
'lblBezeichnung
|
||||
'
|
||||
Me.lblBezeichnung.AutoSize = True
|
||||
Me.lblBezeichnung.Location = New System.Drawing.Point(14, 44)
|
||||
Me.lblBezeichnung.Name = "lblBezeichnung"
|
||||
Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblBezeichnung.TabIndex = 28
|
||||
Me.lblBezeichnung.Text = "Bezeichnung"
|
||||
'
|
||||
'txtBezeichnung
|
||||
'
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.txtBezeichnung.Border.Class = "TextBoxBorder"
|
||||
Me.txtBezeichnung.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.txtBezeichnung.Location = New System.Drawing.Point(83, 42)
|
||||
Me.txtBezeichnung.Name = "txtBezeichnung"
|
||||
Me.txtBezeichnung.PreventEnterBeep = True
|
||||
Me.txtBezeichnung.Size = New System.Drawing.Size(591, 20)
|
||||
Me.txtBezeichnung.TabIndex = 0
|
||||
'
|
||||
'frmVorgabeDefinition
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(709, 364)
|
||||
Me.Controls.Add(Me.txtBezeichnung)
|
||||
Me.Controls.Add(Me.lblBezeichnung)
|
||||
Me.Controls.Add(Me.lblAktiv)
|
||||
Me.Controls.Add(Me.cbaktiv)
|
||||
Me.Controls.Add(Me.btnAbbruch)
|
||||
Me.Controls.Add(Me.btnSave)
|
||||
Me.Controls.Add(Me.txtBemerkung)
|
||||
Me.Controls.Add(Me.txtDefinition)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.dtGueltigbis)
|
||||
Me.Controls.Add(Me.lblBemerkung)
|
||||
Me.Controls.Add(Me.lblDefinitioin)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmVorgabeDefinition"
|
||||
Me.Text = "Vorgabe-Definition"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
Friend WithEvents TSBtnQuit As ToolStripButton
|
||||
Friend WithEvents ToolStripButton1 As ToolStripButton
|
||||
Friend WithEvents lblDefinitioin As Label
|
||||
Friend WithEvents lblBemerkung As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents dtGueltigbis As DateTimePicker
|
||||
Friend WithEvents txtDefinition As TextBox
|
||||
Friend WithEvents txtBemerkung As TextBox
|
||||
Friend WithEvents btnAbbruch As Button
|
||||
Friend WithEvents btnSave As Button
|
||||
Friend WithEvents cbaktiv As CheckBox
|
||||
Friend WithEvents lblAktiv As Label
|
||||
Friend WithEvents lblBezeichnung As Label
|
||||
Friend WithEvents txtBezeichnung As DevComponents.DotNetBar.Controls.TextBoxX
|
||||
End Class
|
||||
3682
SW/AssessmentMgmt/Vorgabe/frmVorgabeDefinition.resx
Normal file
3682
SW/AssessmentMgmt/Vorgabe/frmVorgabeDefinition.resx
Normal file
File diff suppressed because it is too large
Load Diff
64
SW/AssessmentMgmt/Vorgabe/frmVorgabeDefinition.vb
Normal file
64
SW/AssessmentMgmt/Vorgabe/frmVorgabeDefinition.vb
Normal file
@@ -0,0 +1,64 @@
|
||||
Public Class frmVorgabeDefinition
|
||||
|
||||
Dim Vorgabedefinition As New clsVorgabeDefinition
|
||||
|
||||
Dim mKey As Integer
|
||||
Property Key As Integer
|
||||
Get
|
||||
Return mKey
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
mKey = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_VorgabeID As Integer
|
||||
Property VorgabeID As Integer
|
||||
Get
|
||||
Return m_VorgabeID
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_VorgabeID = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
|
||||
Me.DialogResult = DialogResult.Abort
|
||||
End Sub
|
||||
|
||||
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||
Me.DialogResult = DialogResult.OK
|
||||
If Me.Key = -1 Then
|
||||
Vorgabedefinition.Add_New()
|
||||
Me.Key = Vorgabedefinition.iVorgabeDefinitionNr
|
||||
Else
|
||||
Vorgabedefinition.Get_Data(Me.Key)
|
||||
End If
|
||||
Vorgabedefinition.sDefinition = New SqlTypes.SqlString(CType(Me.txtDefinition.Text, String))
|
||||
Vorgabedefinition.sBemerkungen = New SqlTypes.SqlString(CType(Me.txtBemerkung.Text, String))
|
||||
Vorgabedefinition.daGueltig_bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigbis.Value, DateTime))
|
||||
Vorgabedefinition.iVorgabeNr = New SqlTypes.SqlInt32(CType(Me.VorgabeID, Int16))
|
||||
Vorgabedefinition.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
|
||||
Vorgabedefinition.sBezeichnung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
|
||||
Vorgabedefinition.Save_Data()
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmVorgabeDefinition_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
If Me.Key > 0 Then
|
||||
Vorgabedefinition.Get_Data(Me.Key)
|
||||
Me.txtDefinition.Text = Vorgabedefinition.sDefinition.Value.ToString
|
||||
Me.txtBemerkung.Text = Vorgabedefinition.sBemerkungen.Value.ToString
|
||||
Me.dtGueltigbis.Value = Vorgabedefinition.daGueltig_bis.Value
|
||||
Me.cbaktiv.Checked = Vorgabedefinition.bAktiv.Value = True
|
||||
Me.txtBezeichnung.Text = Vorgabedefinition.sBezeichnung.Value.ToString
|
||||
Else
|
||||
Me.cbaktiv.Checked = True
|
||||
Me.dtGueltigbis.Value = "31.12.2099"
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user