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.
484 lines
27 KiB
484 lines
27 KiB
Public Class ucnoedit
|
|
Inherits System.Windows.Forms.UserControl
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
'UserControl überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents grpUsed As System.Windows.Forms.GroupBox
|
|
Friend WithEvents usedlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GrpIDV As System.Windows.Forms.GroupBox
|
|
Friend WithEvents idvwerteList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents mnuposdoc As System.Windows.Forms.MenuItem
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents verklist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents mnulink1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents mnulink2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents mnuDelVerk As System.Windows.Forms.MenuItem
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(ucnoedit))
|
|
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Me.grpUsed = New System.Windows.Forms.GroupBox()
|
|
Me.usedlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
|
Me.mnuposdoc = New System.Windows.Forms.MenuItem()
|
|
Me.mnulink1 = New System.Windows.Forms.MenuItem()
|
|
Me.GrpIDV = New System.Windows.Forms.GroupBox()
|
|
Me.idvwerteList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
|
|
Me.mnulink2 = New System.Windows.Forms.MenuItem()
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
|
Me.verklist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
|
|
Me.mnuDelVerk = New System.Windows.Forms.MenuItem()
|
|
Me.grpUsed.SuspendLayout()
|
|
CType(Me.usedlist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GrpIDV.SuspendLayout()
|
|
CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox1.SuspendLayout()
|
|
CType(Me.verklist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'grpUsed
|
|
'
|
|
Me.grpUsed.Controls.AddRange(New System.Windows.Forms.Control() {Me.usedlist})
|
|
Me.grpUsed.Location = New System.Drawing.Point(8, 8)
|
|
Me.grpUsed.Name = "grpUsed"
|
|
Me.grpUsed.Size = New System.Drawing.Size(336, 152)
|
|
Me.grpUsed.TabIndex = 3
|
|
Me.grpUsed.TabStop = False
|
|
Me.grpUsed.Text = "Platzhalter im Dokument"
|
|
'
|
|
'usedlist
|
|
'
|
|
Me.usedlist.AllowDelete = True
|
|
Me.usedlist.AllowFilter = True
|
|
Me.usedlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.usedlist.AllowSort = True
|
|
Me.usedlist.AlternatingRows = True
|
|
Me.usedlist.CaptionHeight = 17
|
|
Me.usedlist.CollapseColor = System.Drawing.Color.Black
|
|
Me.usedlist.ContextMenu = Me.ContextMenu1
|
|
Me.usedlist.Cursor = System.Windows.Forms.Cursors.Default
|
|
Me.usedlist.DataChanged = False
|
|
Me.usedlist.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.usedlist.ExpandColor = System.Drawing.Color.Black
|
|
Me.usedlist.FetchRowStyles = True
|
|
Me.usedlist.FilterBar = True
|
|
Me.usedlist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.usedlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
|
Me.usedlist.Location = New System.Drawing.Point(3, 16)
|
|
Me.usedlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.usedlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
|
Me.usedlist.Name = "usedlist"
|
|
Me.usedlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.usedlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.usedlist.PreviewInfo.ZoomFactor = 75
|
|
Me.usedlist.PrintInfo.ShowOptionsDialog = False
|
|
Me.usedlist.RecordSelectorWidth = 16
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.usedlist.RowDivider = GridLines1
|
|
Me.usedlist.RowHeight = 15
|
|
Me.usedlist.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.usedlist.ScrollTips = True
|
|
Me.usedlist.Size = New System.Drawing.Size(325, 128)
|
|
Me.usedlist.TabIndex = 28
|
|
Me.usedlist.Text = "C1TrueDBGrid1"
|
|
Me.usedlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
|
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
|
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
|
|
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
|
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
|
|
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
|
|
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
|
|
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
|
|
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
|
|
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
|
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
|
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
|
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
|
|
" 124</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
|
|
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
|
|
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
|
|
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
|
|
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
|
|
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
|
|
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
|
|
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
|
|
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
|
|
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
|
|
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
|
|
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
|
|
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
|
|
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
|
|
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
|
|
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
|
|
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
|
|
"124</ClientArea></Blob>"
|
|
'
|
|
'ContextMenu1
|
|
'
|
|
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuposdoc, Me.mnulink1})
|
|
'
|
|
'mnuposdoc
|
|
'
|
|
Me.mnuposdoc.Index = 0
|
|
Me.mnuposdoc.Text = "Cursor &im Dokument positionieren"
|
|
'
|
|
'mnulink1
|
|
'
|
|
Me.mnulink1.Index = 1
|
|
Me.mnulink1.Text = "&Platzhalter mit dok. spez. Wert verknüpfen"
|
|
'
|
|
'GrpIDV
|
|
'
|
|
Me.GrpIDV.Controls.AddRange(New System.Windows.Forms.Control() {Me.idvwerteList})
|
|
Me.GrpIDV.Location = New System.Drawing.Point(8, 168)
|
|
Me.GrpIDV.Name = "GrpIDV"
|
|
Me.GrpIDV.Size = New System.Drawing.Size(336, 104)
|
|
Me.GrpIDV.TabIndex = 4
|
|
Me.GrpIDV.TabStop = False
|
|
Me.GrpIDV.Text = "Verfügbare dokumentspezifische Werte"
|
|
'
|
|
'idvwerteList
|
|
'
|
|
Me.idvwerteList.AllowDelete = True
|
|
Me.idvwerteList.AllowFilter = True
|
|
Me.idvwerteList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.idvwerteList.AllowSort = True
|
|
Me.idvwerteList.AlternatingRows = True
|
|
Me.idvwerteList.CaptionHeight = 17
|
|
Me.idvwerteList.CollapseColor = System.Drawing.Color.Black
|
|
Me.idvwerteList.ContextMenu = Me.ContextMenu2
|
|
Me.idvwerteList.Cursor = System.Windows.Forms.Cursors.Default
|
|
Me.idvwerteList.DataChanged = False
|
|
Me.idvwerteList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.idvwerteList.ExpandColor = System.Drawing.Color.Black
|
|
Me.idvwerteList.FetchRowStyles = True
|
|
Me.idvwerteList.FilterBar = True
|
|
Me.idvwerteList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.idvwerteList.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
|
Me.idvwerteList.Location = New System.Drawing.Point(3, 16)
|
|
Me.idvwerteList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.idvwerteList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
|
Me.idvwerteList.Name = "idvwerteList"
|
|
Me.idvwerteList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.idvwerteList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.idvwerteList.PreviewInfo.ZoomFactor = 75
|
|
Me.idvwerteList.PrintInfo.ShowOptionsDialog = False
|
|
Me.idvwerteList.RecordSelectorWidth = 16
|
|
GridLines2.Color = System.Drawing.Color.DarkGray
|
|
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.idvwerteList.RowDivider = GridLines2
|
|
Me.idvwerteList.RowHeight = 15
|
|
Me.idvwerteList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.idvwerteList.ScrollTips = True
|
|
Me.idvwerteList.Size = New System.Drawing.Size(325, 80)
|
|
Me.idvwerteList.TabIndex = 28
|
|
Me.idvwerteList.Text = "C1TrueDBGrid1"
|
|
Me.idvwerteList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
|
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
|
"True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
|
|
":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
|
"rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
|
|
"ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
|
|
"or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
|
|
"Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
|
|
", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
|
|
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
|
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
|
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
|
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
|
|
" 76</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""Sty" & _
|
|
"le10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRow" & _
|
|
""" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle p" & _
|
|
"arent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingS" & _
|
|
"tyle parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me=" & _
|
|
"""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""O" & _
|
|
"ddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /" & _
|
|
"><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Style" & _
|
|
"1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""" & _
|
|
"Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foot" & _
|
|
"er"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactiv" & _
|
|
"e"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /" & _
|
|
"><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" " & _
|
|
"/><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelecto" & _
|
|
"r"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" " & _
|
|
"/></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modi" & _
|
|
"fied</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, 7" & _
|
|
"6</ClientArea></Blob>"
|
|
'
|
|
'ContextMenu2
|
|
'
|
|
Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnulink2})
|
|
'
|
|
'mnulink2
|
|
'
|
|
Me.mnulink2.Index = 0
|
|
Me.mnulink2.Text = "&Platzhalter mit dok. spez. Wert verknüpfen"
|
|
'
|
|
'GroupBox1
|
|
'
|
|
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.verklist})
|
|
Me.GroupBox1.Location = New System.Drawing.Point(8, 280)
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|
Me.GroupBox1.Size = New System.Drawing.Size(336, 144)
|
|
Me.GroupBox1.TabIndex = 5
|
|
Me.GroupBox1.TabStop = False
|
|
Me.GroupBox1.Text = "Zugeordnete, dokumentspezifische Werte"
|
|
'
|
|
'verklist
|
|
'
|
|
Me.verklist.AllowDelete = True
|
|
Me.verklist.AllowFilter = True
|
|
Me.verklist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.verklist.AllowSort = True
|
|
Me.verklist.AlternatingRows = True
|
|
Me.verklist.CaptionHeight = 17
|
|
Me.verklist.CollapseColor = System.Drawing.Color.Black
|
|
Me.verklist.ContextMenu = Me.ContextMenu3
|
|
Me.verklist.Cursor = System.Windows.Forms.Cursors.Default
|
|
Me.verklist.DataChanged = False
|
|
Me.verklist.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.verklist.ExpandColor = System.Drawing.Color.Black
|
|
Me.verklist.FetchRowStyles = True
|
|
Me.verklist.FilterBar = True
|
|
Me.verklist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.verklist.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
|
|
Me.verklist.Location = New System.Drawing.Point(3, 16)
|
|
Me.verklist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.verklist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
|
Me.verklist.Name = "verklist"
|
|
Me.verklist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.verklist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.verklist.PreviewInfo.ZoomFactor = 75
|
|
Me.verklist.PrintInfo.ShowOptionsDialog = False
|
|
Me.verklist.RecordSelectorWidth = 16
|
|
GridLines3.Color = System.Drawing.Color.DarkGray
|
|
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.verklist.RowDivider = GridLines3
|
|
Me.verklist.RowHeight = 15
|
|
Me.verklist.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.verklist.ScrollTips = True
|
|
Me.verklist.Size = New System.Drawing.Size(325, 120)
|
|
Me.verklist.TabIndex = 28
|
|
Me.verklist.Text = "C1TrueDBGrid1"
|
|
Me.verklist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
|
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
|
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
|
|
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
|
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
|
|
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
|
|
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
|
|
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
|
|
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
|
|
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
|
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
|
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
|
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
|
|
" 116</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
|
|
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
|
|
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
|
|
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
|
|
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
|
|
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
|
|
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
|
|
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
|
|
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
|
|
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
|
|
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
|
|
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
|
|
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
|
|
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
|
|
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
|
|
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
|
|
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
|
|
"116</ClientArea></Blob>"
|
|
'
|
|
'ContextMenu3
|
|
'
|
|
Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuDelVerk})
|
|
'
|
|
'mnuDelVerk
|
|
'
|
|
Me.mnuDelVerk.Index = 0
|
|
Me.mnuDelVerk.Text = "&Verknüpfung löschen"
|
|
'
|
|
'ucnoedit
|
|
'
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.GrpIDV, Me.grpUsed})
|
|
Me.Name = "ucnoedit"
|
|
Me.Size = New System.Drawing.Size(352, 432)
|
|
Me.grpUsed.ResumeLayout(False)
|
|
CType(Me.usedlist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GrpIDV.ResumeLayout(False)
|
|
CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox1.ResumeLayout(False)
|
|
CType(Me.verklist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Deklarationen"
|
|
Dim StdFelder As New DataTable()
|
|
Dim IDVFelder As New DataTable()
|
|
Dim USEDFelder As New DataTable()
|
|
Dim VerkFelder As New DataTable()
|
|
|
|
Public Event OnGetStandardvorlagenfelder(ByRef list As DataTable)
|
|
Public Event OnGetIDVFelder(ByRef list As DataTable)
|
|
Public Event OnGetUsedFelder(ByRef list As DataTable)
|
|
Public Event OnGetVerknuepfteFelder(ByRef list As DataTable)
|
|
|
|
Public Event OnInsert_TM(ByVal TMName As String, ByVal isfield As Boolean)
|
|
Public Event OnGoto_TM(ByVal TMName As String, ByVal isfield As Boolean)
|
|
Public Event OnDelete_TM(ByVal TMName As String, ByVal isfield As Boolean)
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
Private Sub ucnoedit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim i As Integer
|
|
|
|
RaiseEvent OnGetUsedFelder(Me.USEDFelder)
|
|
Me.usedlist.DataSource = Me.USEDFelder
|
|
Me.usedlist.DataMember = Me.USEDFelder.TableName
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.usedlist, Me.USEDFelder, "edex_sb_vorlagenfelder")
|
|
|
|
'With Me.usedlist
|
|
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
|
|
' .Splits(0).DisplayColumns(i).Visible = False
|
|
' Next
|
|
' .Splits(0).DisplayColumns(0).Visible = True
|
|
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.1
|
|
' .Splits(0).DisplayColumns(1).Visible = True
|
|
' .Splits(0).DisplayColumns(1).Width = Me.usedlist.Width * 0.8
|
|
'End With
|
|
|
|
|
|
RaiseEvent OnGetIDVFelder(Me.IDVFelder)
|
|
Me.idvwerteList.DataSource = Me.IDVFelder
|
|
Me.idvwerteList.DataMember = Me.IDVFelder.TableName
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.idvwerteList, Me.IDVFelder, "edex_sb_verk")
|
|
'With Me.idvwerteList
|
|
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
|
|
' .Splits(0).DisplayColumns(i).Visible = False
|
|
' Next
|
|
' .Splits(0).DisplayColumns(0).Visible = True
|
|
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.9
|
|
' .Splits(0).DisplayColumns(1).Visible = False
|
|
'End With
|
|
|
|
RaiseEvent OnGetVerknuepfteFelder(Me.VerkFelder)
|
|
Me.verklist.DataSource = Me.VerkFelder
|
|
Me.verklist.DataMember = Me.VerkFelder.TableName
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.verklist, Me.VerkFelder, "edex_sb_verk")
|
|
'With Me.verklist
|
|
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
|
|
' .Splits(0).DisplayColumns(i).Visible = False
|
|
' Next
|
|
' .Splits(0).DisplayColumns(0).Visible = True
|
|
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.45
|
|
' .Splits(0).DisplayColumns(1).Visible = True
|
|
' .Splits(0).DisplayColumns(1).Width = Me.usedlist.Width * 0.45
|
|
'End With
|
|
End Sub
|
|
|
|
Private Sub mnuposdoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuposdoc.Click
|
|
If Me.usedlist.Columns("Feldname").Text <> "" Then
|
|
RaiseEvent OnGoto_TM(Me.usedlist.Columns("feldname").Text, True)
|
|
Exit Sub
|
|
End If
|
|
If Me.usedlist.Columns("beginntextmarke").Text <> "" Then
|
|
RaiseEvent OnGoto_TM(Me.usedlist.Columns("beginntextmarke").Text, False)
|
|
Exit Sub
|
|
End If
|
|
|
|
If Me.usedlist.Columns("endetextmarke").Text <> "" Then
|
|
RaiseEvent OnGoto_TM(Me.usedlist.Columns("endetextmarke").Text, False)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup, ContextMenu2.Popup
|
|
If Me.USEDFelder.Rows.Count = 0 Then
|
|
Me.mnuposdoc.Enabled = False
|
|
Me.mnulink1.Enabled = False
|
|
Me.mnulink2.Enabled = False
|
|
Else
|
|
Me.mnuposdoc.Enabled = True
|
|
Me.mnulink1.Enabled = True
|
|
Me.mnulink2.Enabled = True
|
|
End If
|
|
|
|
If Me.IDVFelder.Rows.Count = 0 Then
|
|
Me.mnulink1.Enabled = False
|
|
Me.mnulink2.Enabled = False
|
|
Else
|
|
Me.mnulink1.Enabled = True
|
|
Me.mnulink2.Enabled = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub mnulink1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnulink1.Click, mnulink2.Click
|
|
Dim row As DataRow
|
|
row = Me.VerkFelder.NewRow
|
|
row.Item(0) = Me.idvwerteList.Columns(0).Text
|
|
row.Item(1) = Me.usedlist.Columns(1).Text
|
|
row.Item(2) = Me.usedlist.Columns(0).Text
|
|
Me.VerkFelder.Rows.Add(row)
|
|
End Sub
|
|
|
|
|
|
Private Sub ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup
|
|
If Me.VerkFelder.Rows.Count = 0 Then
|
|
Me.mnuDelVerk.Enabled = False
|
|
Else
|
|
Me.mnuDelVerk.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuDelVerk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDelVerk.Click
|
|
Me.verklist.Delete()
|
|
Me.verklist.UpdateData()
|
|
End Sub
|
|
End Class
|