Initial commit
This commit is contained in:
@@ -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
|
||||
@@ -0,0 +1,548 @@
|
||||
Public Class frmPruefplanDetail
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim m_pruefplanhandler As Integer
|
||||
Property PruefplanHandler As Integer
|
||||
Get
|
||||
Return m_pruefplanhandler
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_pruefplanhandler = 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 WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
|
||||
Dim sec As New Utils.MySecurity
|
||||
Dim msg As New Utils.MyMessage
|
||||
Dim FormReadonly As Boolean = False
|
||||
Dim FormDataChanged As Boolean = False
|
||||
Dim Pruefplan As New clspruefplan
|
||||
Dim PruefPlanStruktur As New clsPlanTree
|
||||
|
||||
|
||||
#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
|
||||
|
||||
If Me.FormReadonly = True Then Exit Sub
|
||||
If Check_Changes() = False Then
|
||||
e.Cancel = True
|
||||
Else
|
||||
Pruefplan.dispose()
|
||||
evh.Pruefplandetail_close(Me.PruefplanHandler, Me.Pruefplannr)
|
||||
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
|
||||
Save_data()
|
||||
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
|
||||
If TypeOf c Is DateTimePicker Then
|
||||
Dim ctl As DateTimePicker = c
|
||||
AddHandler ctl.ValueChanged, evh
|
||||
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
|
||||
|
||||
Private Sub generalhandler()
|
||||
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.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
|
||||
Me.ImageList1 = Globals.GueltigImages
|
||||
Me.TreeStruktur.ImageList = Globals.GueltigImages
|
||||
Me.TreeZuordnung.ImageList = Globals.GueltigImages
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub frmPruefplanDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteAllgemein.Doktype = 3
|
||||
Me.DokumenteAllgemein.ThemaNr = Me.Pruefplannr
|
||||
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
Me.DokumenteAllgemein.Refresh()
|
||||
|
||||
Me.cbboxPrioritaet.DataSource = Pruefplan.Prioritaet
|
||||
Me.cbboxPrioritaet.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxPrioritaet.ValueMember = "Prioritaetnr"
|
||||
|
||||
Me.cbboxPeriodizitaet.DataSource = Pruefplan.Periodizitaet
|
||||
Me.cbboxPeriodizitaet.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxPeriodizitaet.ValueMember = "PeriodizitaetNr"
|
||||
|
||||
Me.cbboxZeitpunkt.DataSource = Pruefplan.Zeitpunkt
|
||||
Me.cbboxZeitpunkt.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxZeitpunkt.ValueMember = "Zeitpunktnr"
|
||||
|
||||
Me.cbboxVerantwortungKontrolle.DataSource = Pruefplan.VerantwortungISI
|
||||
Me.cbboxVerantwortungKontrolle.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxVerantwortungKontrolle.ValueMember = "VerantwortungISINr"
|
||||
|
||||
Me.cbboxVerantwortungPlan.DataSource = Pruefplan.VerantwortungPlan
|
||||
Me.cbboxVerantwortungPlan.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxVerantwortungPlan.ValueMember = "VerantwortungISINr"
|
||||
|
||||
Me.cbboxVerantwortungDurchführung.DataSource = Pruefplan.Verantwortung
|
||||
Me.cbboxVerantwortungDurchführung.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxVerantwortungDurchführung.ValueMember = "Verantwortungnr"
|
||||
|
||||
Me.cbboxTerminierung.DataSource = Pruefplan.Terminierung
|
||||
Me.cbboxTerminierung.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxTerminierung.ValueMember = "id"
|
||||
If Pruefplannr > 0 Then
|
||||
Pruefplan.Get_Definition_Pruefplan(Me.Pruefplannr, Me.TreeZuordnung)
|
||||
|
||||
get_data()
|
||||
Else
|
||||
Pruefplan.Get_Definition_Pruefplan(Me.Pruefplannr, Me.TreeZuordnung)
|
||||
Me.dtGueltigBis.Value = "31.12.2099"
|
||||
End If
|
||||
Me.txtBezeichnung.SelectAll()
|
||||
Me.txtBezeichnung.Focus()
|
||||
AddChanges(Me)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub get_data()
|
||||
Pruefplan.Get_Data(Me.Pruefplannr)
|
||||
Me.cbboxPeriodizitaet.SelectedValue = Pruefplan.iPeriodizitaetNr.Value
|
||||
Me.cbboxPrioritaet.SelectedValue = Pruefplan.iPrioritaetNr.Value
|
||||
Me.cbboxZeitpunkt.SelectedValue = Pruefplan.iZeitpunktNr.Value
|
||||
Me.dtErstmalsam.Value = Pruefplan.daErstmals_am.Value
|
||||
Me.cbboxVerantwortungDurchführung.SelectedValue = Pruefplan.iVerantwortlichNr.Value
|
||||
Me.cbboxVerantwortungKontrolle.SelectedValue = Pruefplan.iVerantwortungISINr.Value
|
||||
Me.cbboxVerantwortungPlan.SelectedValue = Pruefplan.iverantwortungplannr.value
|
||||
Me.txtBeschreibung.Text = Pruefplan.sBeschreibung.Value
|
||||
Me.txtBezeichnung.Text = Pruefplan.sBezeichnung.Value
|
||||
Me.txtHilfsmittel.Text = Pruefplan.sHilfsmittel.Value
|
||||
'Me.txtBezeichnung.Text = Pruefplan.sBezeichnung.Value
|
||||
'Me.txtBeschreibung.Text = Pruefplan.sBezeichnung.Value
|
||||
Me.txtPruefgegenstand.Text = Pruefplan.sPruefgegenstand.Value
|
||||
Me.txtEreignisse.Text = Pruefplan.sErgebnisse.Value
|
||||
Me.txtMassnahmen.Text = Pruefplan.sMassnahmen.Value
|
||||
|
||||
Me.txtErstelltam.Text = Pruefplan.daErstellt_am.ToSqlString
|
||||
Me.txtMutiertam.Text = Pruefplan.daMutiert_am
|
||||
Me.txtMutierer.Text = Pruefplan.MutiererText
|
||||
Me.cbAktiv.Checked = Pruefplan.bAktiv.Value
|
||||
Me.dtGueltigBis.Value = Pruefplan.daGueltig_Bis.Value
|
||||
Me.cbAktiv.Checked = Pruefplan.bAktiv.Value = True
|
||||
Me.cbboxTerminierung.SelectedValue = Pruefplan.iTerminierungID.Value
|
||||
|
||||
Me.cbSelbstkontrolle.Checked = Pruefplan.bSelbstkontrolle.Value = True
|
||||
Me.cbKeinEMail.Checked = Pruefplan.bKein_Mailversand.Value = True
|
||||
|
||||
Me.rbAssessmentTyp_Anzahl.Checked = False
|
||||
Me.rbAssessmentTyp_Massen.Checked = False
|
||||
Me.rbAssessmenttyp_Normal.Checked = False
|
||||
Select Case Pruefplan.iAssessmentType.Value
|
||||
Case 1
|
||||
Me.rbAssessmenttyp_Normal.Checked = True
|
||||
Case 2
|
||||
Me.rbAssessmentTyp_Anzahl.Checked = True
|
||||
Case 3
|
||||
Me.rbAssessmentTyp_Massen.Checked = True
|
||||
End Select
|
||||
Me.cbDurchfuerhung_ISI.Checked = Pruefplan.bDurchfuehrung_ISI.Value = True
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub Update_Data()
|
||||
Pruefplan.iPeriodizitaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPeriodizitaet.SelectedValue, Int32))
|
||||
Pruefplan.iPrioritaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPrioritaet.SelectedValue, Int32))
|
||||
Pruefplan.iZeitpunktNr = New SqlTypes.SqlInt32(CType(Me.cbboxZeitpunkt.SelectedValue, Int32))
|
||||
Pruefplan.iVerantwortlichNr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortungDurchführung.SelectedValue, Int32))
|
||||
Pruefplan.iVerantwortungISINr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortungKontrolle.SelectedValue, Int32))
|
||||
Pruefplan.iverantwortungplannr = New SqlTypes.SqlInt64(CType(Me.cbboxVerantwortungPlan.SelectedValue, Int32))
|
||||
Pruefplan.daErstmals_am = New SqlTypes.SqlDateTime(CType(Me.dtErstmalsam.Value, DateTime))
|
||||
|
||||
Pruefplan.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
|
||||
Pruefplan.sPruefgegenstand = New SqlTypes.SqlString(CType(Me.txtPruefgegenstand.Text, String))
|
||||
Pruefplan.sMassnahmen = New SqlTypes.SqlString(CType(Me.txtMassnahmen.Text, String))
|
||||
Pruefplan.sErgebnisse = New SqlTypes.SqlString(CType(Me.txtEreignisse.Text, String))
|
||||
Pruefplan.sHilfsmittel = New SqlTypes.SqlString(CType(Me.txtHilfsmittel.Text, String))
|
||||
Pruefplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
|
||||
Pruefplan.sBezeichnung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
|
||||
Pruefplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
|
||||
Pruefplan.daGueltig_Bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigBis.Value, DateTime))
|
||||
Pruefplan.iTerminierungID = New SqlTypes.SqlInt32(CType(Me.cbboxTerminierung.SelectedValue, Int32))
|
||||
Pruefplan.bSelbstkontrolle = New SqlTypes.SqlBoolean(CType(Me.cbSelbstkontrolle.Checked, Boolean))
|
||||
Pruefplan.bKein_Mailversand = New SqlTypes.SqlBoolean(CType(Me.cbKeinEMail.Checked, Boolean))
|
||||
If rbAssessmenttyp_Normal.Checked Then Pruefplan.iAssessmentType = New SqlTypes.SqlInt32(CType(1, Int32))
|
||||
If rbAssessmentTyp_Anzahl.Checked Then Pruefplan.iAssessmentType = New SqlTypes.SqlInt32(CType(2, Int32))
|
||||
If rbAssessmentTyp_Massen.Checked Then Pruefplan.iAssessmentType = New SqlTypes.SqlInt32(CType(3, Int32))
|
||||
Pruefplan.bDurchfuehrung_ISI = New SqlTypes.SqlBoolean(CType(Me.cbDurchfuerhung_ISI.Checked, Boolean))
|
||||
|
||||
Pruefplan.Save_Data()
|
||||
|
||||
Pruefplan.Save_Definition_Pruefplan(Me.TreeZuordnung)
|
||||
Pruefplan.Get_Definition_Pruefplan(Me.Pruefplannr, Me.TreeZuordnung)
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
|
||||
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
|
||||
Save_data()
|
||||
End Sub
|
||||
|
||||
Sub Save_data()
|
||||
DialogResult = Windows.Forms.DialogResult.OK
|
||||
If Me.Pruefplannr = 0 Then
|
||||
Dim newkey As Integer = Pruefplan.Add_New()
|
||||
Me.Pruefplannr = newkey
|
||||
Pruefplan.Get_Data(newkey)
|
||||
Me.cbAktiv.Checked = True
|
||||
Else
|
||||
Pruefplan.Get_Data(Me.Pruefplannr)
|
||||
End If
|
||||
Update_Data()
|
||||
evh.Pruefplandetails_save(Me.PruefplanHandler, Me.Pruefplannr)
|
||||
FormDataChanged = False
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub tsCbxFilter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tsCbxFilter.SelectedIndexChanged
|
||||
PruefPlanStruktur.Load_Treeview(Me.TreeStruktur)
|
||||
If tsCbxFilter.Text = "-- Alle --" Then Exit Sub
|
||||
Try
|
||||
For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.Nodes
|
||||
If Trim(n.Text) <> Trim(tsCbxFilter.Text) Then
|
||||
n.Remove()
|
||||
End If
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Zuordnung"
|
||||
|
||||
Private Sub btnNeueZuordnung_Click(sender As Object, e As EventArgs) Handles btnNeueZuordnung.Click
|
||||
If Me.FormDataChanged = True Then Me.Save_data()
|
||||
If Me.Pruefplannr = 0 Then Me.Save_data()
|
||||
|
||||
If Me.GrpStruktur.Visible = False Then
|
||||
Me.GrpStruktur.Visible = True
|
||||
Me.GrpStruktur.Dock = DockStyle.Fill
|
||||
PruefPlanStruktur.Load_Treeview(TreeStruktur)
|
||||
PruefPlanStruktur.Refresh_Filter(Me.tsCbxFilter)
|
||||
Me.btnNeueZuordnung.Text = "Struktur verbergen"
|
||||
Else
|
||||
Me.GrpStruktur.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Tree"
|
||||
|
||||
Private Sub TreeStruktur_DoubleClick(sender As Object, e As EventArgs) Handles TreeStruktur.DoubleClick
|
||||
Try
|
||||
If TreeStruktur.SelectedNode.Nodes.Count > 0 Then
|
||||
MsgBox("Für die Zuordnung können nur Elemente der untersten Stufe (Definitionen) verwendet werden.", vbExclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim key As Integer = Me.TreeStruktur.SelectedNode.Tag / 1000000
|
||||
|
||||
' Pruefplan.Add_new_Zuordnung(Me.Pruefplannr, key, Me.TreeStruktur.SelectedNode.Text, Me.chklbDefinitionZuordnung)
|
||||
Pruefplan.Add_new_Zuordnung(Me.Pruefplannr, key, Me.TreeStruktur.SelectedNode.Text, Me.TreeZuordnung)
|
||||
Me.FormDataChanged = True
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TreeZuordnung_DoubleClick(sender As Object, e As EventArgs) Handles TreeZuordnung.DoubleClick
|
||||
If IsDate(Me.TreeZuordnung.SelectedNode.Text) Then
|
||||
TreeZuordnung.SelectedNode = Me.TreeZuordnung.SelectedNode.Parent
|
||||
End If
|
||||
Dim f As New FrmDefinition_Pruefplan
|
||||
f.Aktiv = TreeZuordnung.SelectedNode.Nodes(0).Tag
|
||||
f.Gueltig_Bis = TreeZuordnung.SelectedNode.Nodes(0).Text
|
||||
f.ShowDialog()
|
||||
Dim save_date As String = TreeZuordnung.SelectedNode.Nodes(0).Text
|
||||
Dim save_aktiv As String = TreeZuordnung.SelectedNode.Nodes(0).Tag
|
||||
Dim TN As New DevComponents.AdvTree.Node
|
||||
Dim DoSave As Boolean = True
|
||||
TN = Me.TreeZuordnung.SelectedNode
|
||||
|
||||
TreeZuordnung.SelectedNode.Nodes(0).Tag = f.Aktiv
|
||||
TreeZuordnung.SelectedNode.Nodes(0).Text = f.Gueltig_Bis
|
||||
TreeZuordnung.SelectedNode.ImageIndex = 0
|
||||
|
||||
|
||||
For Each n As DevComponents.AdvTree.Node In Me.TreeZuordnung.Nodes
|
||||
If n.Tag <> Me.TreeZuordnung.SelectedNode.Tag Then
|
||||
If n.Text = Me.TreeZuordnung.SelectedNode.Text Then
|
||||
If (TreeZuordnung.SelectedNode.ImageIndex = 0 Or TreeZuordnung.SelectedNode.ImageIndex = 3) And n.ImageIndex <> 2 And n.ImageIndex <> 1 Then
|
||||
MsgBox("Es können nicht 2 aktive Verbindungen hergestellt werden")
|
||||
TreeZuordnung.SelectedNode.Nodes(0).Text = save_date
|
||||
TreeZuordnung.SelectedNode.Nodes(0).Tag = save_aktiv
|
||||
DoSave = False
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If TreeZuordnung.SelectedNode.Nodes(0).Text < "31.12.2099" And TreeZuordnung.SelectedNode.Text > Now.ToString Then TreeZuordnung.SelectedNode.ImageIndex = 3
|
||||
If TreeZuordnung.SelectedNode.Nodes(0).Text < Now Then TreeZuordnung.SelectedNode.ImageIndex = 2
|
||||
If TreeZuordnung.SelectedNode.Nodes(0).Tag = False Then TreeZuordnung.SelectedNode.ImageIndex = 1
|
||||
If DoSave Then
|
||||
Pruefplan.Update_Zuordnung(Me.TreeZuordnung.SelectedNode.Tag, f.Aktiv, f.Gueltig_Bis)
|
||||
Me.FormDataChanged = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnSuche_Click(sender As Object, e As EventArgs) Handles TSBtnSuche.Click
|
||||
Me.PruefPlanStruktur.Init_Search()
|
||||
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.SearchNode(Me.TreeStruktur, Trim(Me.tstxtSuche.Text))
|
||||
Me.TreeStruktur.SelectedNode.EnsureVisible()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnFilterAufheben_Click(sender As Object, e As EventArgs) Handles TSBtnFilterAufheben.Click
|
||||
Me.tstxtSuche.Text = ""
|
||||
Me.PruefPlanStruktur.Init_Search()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
|
||||
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindFirst(Me.TreeStruktur)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
|
||||
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindPrevNode(Me.TreeStruktur)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
|
||||
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindNextNode(Me.TreeStruktur)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
|
||||
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindLastNode(Me.TreeStruktur)
|
||||
End Sub
|
||||
|
||||
Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
|
||||
Try
|
||||
Me.TreeZuordnung_DoubleClick(sender, e)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub NeuerEintragHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragHinzufügenToolStripMenuItem.Click
|
||||
If btnNeueZuordnung.Text <> "Struktur verbergen" Then Me.btnNeueZuordnung_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub cbSelbstkontrolle_CheckedChanged(sender As Object, e As EventArgs) Handles cbSelbstkontrolle.CheckedChanged
|
||||
Dim SaveKontrolle As Integer
|
||||
If Me.cbSelbstkontrolle.Checked Then
|
||||
SaveKontrolle = Me.cbboxVerantwortungKontrolle.SelectedValue
|
||||
End If
|
||||
Select Case Me.cbSelbstkontrolle.CheckState
|
||||
Case CheckState.Checked
|
||||
Me.cbboxVerantwortungKontrolle.SelectedValue = Me.cbboxVerantwortungDurchführung.SelectedValue
|
||||
Me.cbboxVerantwortungKontrolle.Enabled = False
|
||||
Try
|
||||
If Me.cbboxVerantwortungKontrolle.SelectedValue Is Nothing Then
|
||||
MsgBox("Selbstkontrolle kann nur gewählt werden, sofern Verantworung-Durchführung ein ISI-Mitarbeiter ist.", vbExclamation)
|
||||
Me.cbboxVerantwortungKontrolle.SelectedValue = SaveKontrolle
|
||||
Me.cbSelbstkontrolle.Checked = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Case CheckState.Unchecked
|
||||
Me.cbboxVerantwortungKontrolle.Enabled = True
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user