You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
668 lines
25 KiB
668 lines
25 KiB
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)
|
|
sec.Set_Form_Security(Me)
|
|
If Me.ToolStripStruktur.Visible = False Then
|
|
Me.DokumenteAllgemein.Show_Toolbar = False
|
|
' Me.DokumenteAllgemein.Set_ShowToolbar()
|
|
Me.DokumenteDefinition.Show_Toolbar = False
|
|
' Me.DokumenteDefinition.Set_ShowToolbar()
|
|
End If
|
|
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
|
|
If Me.EintragBearbeitenToolStripMenuItem.Enabled = False Then
|
|
f.btnSave.Enabled = False
|
|
f.TreeVorgabe.AllowDrop = False
|
|
End If
|
|
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
|
|
If Me.EintragBearbeitenToolStripMenuItem.Enabled = False Then
|
|
f.btnSave.Enabled = False
|
|
|
|
End If
|
|
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
|
|
|
|
Private Sub EintragAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragAnzeigenToolStripMenuItem.Click
|
|
TsBtnEditStruktur_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub EintragAnzeigenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragAnzeigenToolStripMenuItem1.Click
|
|
TsBtnEditDefinition_Click(sender, e)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
End Class |