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.
887 lines
45 KiB
887 lines
45 KiB
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Color
|
|
Imports System.ComponentModel
|
|
Namespace EDOKA
|
|
Public Class frmRelEditor
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#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
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
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 ToolBar1 As System.Windows.Forms.ToolBar
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
|
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
|
|
Friend WithEvents Splitter2 As System.Windows.Forms.Splitter
|
|
Friend WithEvents TBLeft As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GrpFocus As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents FokusRight As System.Windows.Forms.RadioButton
|
|
Friend WithEvents FokusLeft As System.Windows.Forms.RadioButton
|
|
Friend WithEvents GrpRight As System.Windows.Forms.GroupBox
|
|
Friend WithEvents GrpLeft As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
|
Friend WithEvents TBRight As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents Panel4 As System.Windows.Forms.Panel
|
|
Friend WithEvents Panel5 As System.Windows.Forms.Panel
|
|
Friend WithEvents TBBottom As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GrpBottom As System.Windows.Forms.GroupBox
|
|
Friend WithEvents BtnConnect As System.Windows.Forms.Button
|
|
Friend WithEvents ToolBarBtnSave As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
|
|
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmRelEditor))
|
|
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.ToolBar1 = New System.Windows.Forms.ToolBar()
|
|
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarBtnSave = New System.Windows.Forms.ToolBarButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|
Me.Panel2 = New System.Windows.Forms.Panel()
|
|
Me.GrpRight = New System.Windows.Forms.GroupBox()
|
|
Me.TBRight = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.Splitter1 = New System.Windows.Forms.Splitter()
|
|
Me.GrpLeft = New System.Windows.Forms.GroupBox()
|
|
Me.TBLeft = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.Splitter2 = New System.Windows.Forms.Splitter()
|
|
Me.GrpFocus = New System.Windows.Forms.GroupBox()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.FokusRight = New System.Windows.Forms.RadioButton()
|
|
Me.FokusLeft = New System.Windows.Forms.RadioButton()
|
|
Me.Panel3 = New System.Windows.Forms.Panel()
|
|
Me.GrpBottom = New System.Windows.Forms.GroupBox()
|
|
Me.TBBottom = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.Panel5 = New System.Windows.Forms.Panel()
|
|
Me.BtnConnect = New System.Windows.Forms.Button()
|
|
Me.Panel4 = New System.Windows.Forms.Panel()
|
|
Me.MainMenu1 = New System.Windows.Forms.MainMenu()
|
|
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
|
|
Me.Panel2.SuspendLayout()
|
|
Me.GrpRight.SuspendLayout()
|
|
CType(Me.TBRight, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GrpLeft.SuspendLayout()
|
|
CType(Me.TBLeft, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GrpFocus.SuspendLayout()
|
|
Me.Panel3.SuspendLayout()
|
|
Me.GrpBottom.SuspendLayout()
|
|
CType(Me.TBBottom, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.Panel5.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarBtnSave})
|
|
Me.ToolBar1.DropDownArrows = True
|
|
Me.ToolBar1.ImageList = Me.ImageList1
|
|
Me.ToolBar1.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(712, 25)
|
|
Me.ToolBar1.TabIndex = 0
|
|
'
|
|
'ToolBarButton1
|
|
'
|
|
Me.ToolBarButton1.ImageIndex = 0
|
|
'
|
|
'ToolBarBtnSave
|
|
'
|
|
Me.ToolBarBtnSave.ImageIndex = 1
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Panel1.Location = New System.Drawing.Point(0, 25)
|
|
Me.Panel1.Name = "Panel1"
|
|
Me.Panel1.Size = New System.Drawing.Size(712, 16)
|
|
Me.Panel1.TabIndex = 1
|
|
'
|
|
'Panel2
|
|
'
|
|
Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.GrpRight, Me.Splitter1, Me.GrpLeft})
|
|
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Panel2.Location = New System.Drawing.Point(0, 41)
|
|
Me.Panel2.Name = "Panel2"
|
|
Me.Panel2.Size = New System.Drawing.Size(712, 199)
|
|
Me.Panel2.TabIndex = 2
|
|
'
|
|
'GrpRight
|
|
'
|
|
Me.GrpRight.Controls.AddRange(New System.Windows.Forms.Control() {Me.TBRight})
|
|
Me.GrpRight.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.GrpRight.Location = New System.Drawing.Point(315, 0)
|
|
Me.GrpRight.Name = "GrpRight"
|
|
Me.GrpRight.Size = New System.Drawing.Size(397, 199)
|
|
Me.GrpRight.TabIndex = 2
|
|
Me.GrpRight.TabStop = False
|
|
Me.GrpRight.Text = "GroupBox2"
|
|
'
|
|
'TBRight
|
|
'
|
|
Me.TBRight.AllowFilter = True
|
|
Me.TBRight.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.TBRight.AllowSort = True
|
|
Me.TBRight.AllowUpdate = False
|
|
Me.TBRight.AlternatingRows = True
|
|
Me.TBRight.CaptionHeight = 17
|
|
Me.TBRight.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
|
Me.TBRight.CollapseColor = System.Drawing.Color.Black
|
|
Me.TBRight.DataChanged = False
|
|
Me.TBRight.DeadAreaBackColor = System.Drawing.Color.Gray
|
|
Me.TBRight.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TBRight.ExpandColor = System.Drawing.Color.Black
|
|
Me.TBRight.FilterBar = True
|
|
Me.TBRight.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.TBRight.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
|
Me.TBRight.Location = New System.Drawing.Point(3, 16)
|
|
Me.TBRight.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
|
Me.TBRight.Name = "TBRight"
|
|
Me.TBRight.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.TBRight.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.TBRight.PreviewInfo.ZoomFactor = 75
|
|
Me.TBRight.PrintInfo.ShowOptionsDialog = False
|
|
Me.TBRight.RecordSelectorWidth = 16
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.TBRight.RowDivider = GridLines1
|
|
Me.TBRight.RowHeight = 15
|
|
Me.TBRight.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.TBRight.ScrollTips = False
|
|
Me.TBRight.Size = New System.Drawing.Size(391, 180)
|
|
Me.TBRight.TabIndex = 8
|
|
Me.TBRight.Text = "C1TrueDBGrid1"
|
|
Me.TBRight.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Style9{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
|
":Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:" & _
|
|
"ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
|
"}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
|
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
|
"oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWi" & _
|
|
"dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
|
|
"ClientRect>0, 0, 387, 176</ClientRect><BorderSide>0</BorderSide><CaptionStyle pa" & _
|
|
"rent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRow" & _
|
|
"Style parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Styl" & _
|
|
"e13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=" & _
|
|
"""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle pare" & _
|
|
"nt=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><" & _
|
|
"OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSel" & _
|
|
"ector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style pare" & _
|
|
"nt=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles>" & _
|
|
"<Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style pare" & _
|
|
"nt=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=" & _
|
|
"""Heading"" me=""Inactive"" /><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=""Headi" & _
|
|
"ng"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=" & _
|
|
"""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</ho" & _
|
|
"rzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Client" & _
|
|
"Area>0, 0, 387, 176</ClientArea></Blob>"
|
|
'
|
|
'Splitter1
|
|
'
|
|
Me.Splitter1.Location = New System.Drawing.Point(312, 0)
|
|
Me.Splitter1.Name = "Splitter1"
|
|
Me.Splitter1.Size = New System.Drawing.Size(3, 199)
|
|
Me.Splitter1.TabIndex = 1
|
|
Me.Splitter1.TabStop = False
|
|
'
|
|
'GrpLeft
|
|
'
|
|
Me.GrpLeft.Controls.AddRange(New System.Windows.Forms.Control() {Me.TBLeft})
|
|
Me.GrpLeft.Dock = System.Windows.Forms.DockStyle.Left
|
|
Me.GrpLeft.Name = "GrpLeft"
|
|
Me.GrpLeft.Size = New System.Drawing.Size(312, 199)
|
|
Me.GrpLeft.TabIndex = 0
|
|
Me.GrpLeft.TabStop = False
|
|
Me.GrpLeft.Text = "GroupBox1"
|
|
'
|
|
'TBLeft
|
|
'
|
|
Me.TBLeft.AllowFilter = True
|
|
Me.TBLeft.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.TBLeft.AllowSort = True
|
|
Me.TBLeft.AllowUpdate = False
|
|
Me.TBLeft.AlternatingRows = True
|
|
Me.TBLeft.CaptionHeight = 17
|
|
Me.TBLeft.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
|
Me.TBLeft.CollapseColor = System.Drawing.Color.Black
|
|
Me.TBLeft.DataChanged = False
|
|
Me.TBLeft.DeadAreaBackColor = System.Drawing.Color.Gray
|
|
Me.TBLeft.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TBLeft.ExpandColor = System.Drawing.Color.Black
|
|
Me.TBLeft.FilterBar = True
|
|
Me.TBLeft.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.TBLeft.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
|
Me.TBLeft.Location = New System.Drawing.Point(3, 16)
|
|
Me.TBLeft.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
|
Me.TBLeft.Name = "TBLeft"
|
|
Me.TBLeft.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.TBLeft.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.TBLeft.PreviewInfo.ZoomFactor = 75
|
|
Me.TBLeft.PrintInfo.ShowOptionsDialog = False
|
|
Me.TBLeft.RecordSelectorWidth = 16
|
|
GridLines2.Color = System.Drawing.Color.DarkGray
|
|
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.TBLeft.RowDivider = GridLines2
|
|
Me.TBLeft.RowHeight = 15
|
|
Me.TBLeft.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.TBLeft.ScrollTips = False
|
|
Me.TBLeft.Size = New System.Drawing.Size(306, 180)
|
|
Me.TBLeft.TabIndex = 8
|
|
Me.TBLeft.Text = "C1TrueDBGrid1"
|
|
Me.TBLeft.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
|
":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
|
|
":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
|
"}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
|
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
|
"oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWi" & _
|
|
"dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
|
|
"ClientRect>0, 0, 302, 176</ClientRect><BorderSide>0</BorderSide><CaptionStyle pa" & _
|
|
"rent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRow" & _
|
|
"Style parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Styl" & _
|
|
"e13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=" & _
|
|
"""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle pare" & _
|
|
"nt=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><" & _
|
|
"OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSel" & _
|
|
"ector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style pare" & _
|
|
"nt=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles>" & _
|
|
"<Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style pare" & _
|
|
"nt=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=" & _
|
|
"""Heading"" me=""Inactive"" /><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=""Headi" & _
|
|
"ng"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=" & _
|
|
"""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</ho" & _
|
|
"rzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Client" & _
|
|
"Area>0, 0, 302, 176</ClientArea></Blob>"
|
|
'
|
|
'Splitter2
|
|
'
|
|
Me.Splitter2.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Splitter2.Location = New System.Drawing.Point(0, 240)
|
|
Me.Splitter2.Name = "Splitter2"
|
|
Me.Splitter2.Size = New System.Drawing.Size(712, 3)
|
|
Me.Splitter2.TabIndex = 3
|
|
Me.Splitter2.TabStop = False
|
|
'
|
|
'GrpFocus
|
|
'
|
|
Me.GrpFocus.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.FokusRight, Me.FokusLeft})
|
|
Me.GrpFocus.Location = New System.Drawing.Point(216, 0)
|
|
Me.GrpFocus.Name = "GrpFocus"
|
|
Me.GrpFocus.Size = New System.Drawing.Size(200, 32)
|
|
Me.GrpFocus.TabIndex = 17
|
|
Me.GrpFocus.TabStop = False
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(78, 13)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(48, 16)
|
|
Me.Label1.TabIndex = 2
|
|
Me.Label1.Text = "Fokus"
|
|
'
|
|
'FokusRight
|
|
'
|
|
Me.FokusRight.Location = New System.Drawing.Point(176, 12)
|
|
Me.FokusRight.Name = "FokusRight"
|
|
Me.FokusRight.Size = New System.Drawing.Size(16, 16)
|
|
Me.FokusRight.TabIndex = 1
|
|
'
|
|
'FokusLeft
|
|
'
|
|
Me.FokusLeft.Location = New System.Drawing.Point(9, 13)
|
|
Me.FokusLeft.Name = "FokusLeft"
|
|
Me.FokusLeft.Size = New System.Drawing.Size(104, 16)
|
|
Me.FokusLeft.TabIndex = 0
|
|
'
|
|
'Panel3
|
|
'
|
|
Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.GrpBottom, Me.Panel5, Me.Panel4})
|
|
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Panel3.Location = New System.Drawing.Point(0, 243)
|
|
Me.Panel3.Name = "Panel3"
|
|
Me.Panel3.Size = New System.Drawing.Size(712, 262)
|
|
Me.Panel3.TabIndex = 18
|
|
'
|
|
'GrpBottom
|
|
'
|
|
Me.GrpBottom.Controls.AddRange(New System.Windows.Forms.Control() {Me.TBBottom})
|
|
Me.GrpBottom.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.GrpBottom.Location = New System.Drawing.Point(0, 40)
|
|
Me.GrpBottom.Name = "GrpBottom"
|
|
Me.GrpBottom.Size = New System.Drawing.Size(712, 182)
|
|
Me.GrpBottom.TabIndex = 2
|
|
Me.GrpBottom.TabStop = False
|
|
Me.GrpBottom.Text = "GroupBox1"
|
|
'
|
|
'TBBottom
|
|
'
|
|
Me.TBBottom.AllowFilter = True
|
|
Me.TBBottom.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.TBBottom.AllowSort = True
|
|
Me.TBBottom.AlternatingRows = True
|
|
Me.TBBottom.CaptionHeight = 17
|
|
Me.TBBottom.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
|
Me.TBBottom.CollapseColor = System.Drawing.Color.Black
|
|
Me.TBBottom.DataChanged = False
|
|
Me.TBBottom.DeadAreaBackColor = System.Drawing.Color.Gray
|
|
Me.TBBottom.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TBBottom.ExpandColor = System.Drawing.Color.Black
|
|
Me.TBBottom.FilterBar = True
|
|
Me.TBBottom.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.TBBottom.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
|
|
Me.TBBottom.Location = New System.Drawing.Point(3, 16)
|
|
Me.TBBottom.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
|
Me.TBBottom.Name = "TBBottom"
|
|
Me.TBBottom.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.TBBottom.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.TBBottom.PreviewInfo.ZoomFactor = 75
|
|
Me.TBBottom.PrintInfo.ShowOptionsDialog = False
|
|
Me.TBBottom.RecordSelectorWidth = 16
|
|
GridLines3.Color = System.Drawing.Color.DarkGray
|
|
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.TBBottom.RowDivider = GridLines3
|
|
Me.TBBottom.RowHeight = 15
|
|
Me.TBBottom.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.TBBottom.ScrollTips = False
|
|
Me.TBBottom.Size = New System.Drawing.Size(706, 163)
|
|
Me.TBBottom.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
|
Me.TBBottom.TabIndex = 9
|
|
Me.TBBottom.Text = "C1TrueDBGrid1"
|
|
Me.TBBottom.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
|
":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
|
|
":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
|
"}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
|
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
|
"oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWi" & _
|
|
"dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
|
|
"ClientRect>0, 0, 702, 159</ClientRect><BorderSide>0</BorderSide><CaptionStyle pa" & _
|
|
"rent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRow" & _
|
|
"Style parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Styl" & _
|
|
"e13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=" & _
|
|
"""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle pare" & _
|
|
"nt=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><" & _
|
|
"OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSel" & _
|
|
"ector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style pare" & _
|
|
"nt=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles>" & _
|
|
"<Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style pare" & _
|
|
"nt=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=" & _
|
|
"""Heading"" me=""Inactive"" /><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=""Headi" & _
|
|
"ng"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=" & _
|
|
"""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</ho" & _
|
|
"rzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Client" & _
|
|
"Area>0, 0, 702, 159</ClientArea></Blob>"
|
|
'
|
|
'Panel5
|
|
'
|
|
Me.Panel5.Controls.AddRange(New System.Windows.Forms.Control() {Me.BtnConnect})
|
|
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Panel5.Name = "Panel5"
|
|
Me.Panel5.Size = New System.Drawing.Size(712, 40)
|
|
Me.Panel5.TabIndex = 1
|
|
'
|
|
'BtnConnect
|
|
'
|
|
Me.BtnConnect.Location = New System.Drawing.Point(288, 8)
|
|
Me.BtnConnect.Name = "BtnConnect"
|
|
Me.BtnConnect.TabIndex = 0
|
|
Me.BtnConnect.Text = "&Verbinden"
|
|
'
|
|
'Panel4
|
|
'
|
|
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
|
|
Me.Panel4.Location = New System.Drawing.Point(0, 222)
|
|
Me.Panel4.Name = "Panel4"
|
|
Me.Panel4.Size = New System.Drawing.Size(712, 40)
|
|
Me.Panel4.TabIndex = 0
|
|
'
|
|
'MainMenu1
|
|
'
|
|
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
|
|
'
|
|
'MenuItem1
|
|
'
|
|
Me.MenuItem1.Index = 0
|
|
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem2})
|
|
Me.MenuItem1.MergeOrder = 1
|
|
Me.MenuItem1.MergeType = System.Windows.Forms.MenuMerge.Replace
|
|
Me.MenuItem1.Shortcut = System.Windows.Forms.Shortcut.F4
|
|
Me.MenuItem1.Text = "&Datei"
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Index = 0
|
|
Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlF5
|
|
Me.MenuItem3.Text = "&Daten sichern"
|
|
'
|
|
'MenuItem2
|
|
'
|
|
Me.MenuItem2.Index = 1
|
|
Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.AltF4
|
|
Me.MenuItem2.Text = "&Schliessen"
|
|
'
|
|
'frmRelEditor
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(712, 505)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3, Me.GrpFocus, Me.Splitter2, Me.Panel2, Me.Panel1, Me.ToolBar1})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Menu = Me.MainMenu1
|
|
Me.Name = "frmRelEditor"
|
|
Me.Text = "frmRelEditor"
|
|
Me.Panel2.ResumeLayout(False)
|
|
Me.GrpRight.ResumeLayout(False)
|
|
CType(Me.TBRight, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GrpLeft.ResumeLayout(False)
|
|
CType(Me.TBLeft, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GrpFocus.ResumeLayout(False)
|
|
Me.Panel3.ResumeLayout(False)
|
|
Me.GrpBottom.ResumeLayout(False)
|
|
CType(Me.TBBottom, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.Panel5.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Dim m_TableNameLeft As String
|
|
Dim m_TableNameRight As String
|
|
Dim m_TableNameBottom As String
|
|
Dim m_KeyLeft As Long
|
|
Dim m_KeyRight As Long
|
|
Dim m_Eintrag As String
|
|
Dim m_Eintragnr As Long
|
|
|
|
|
|
#Region "Properties"
|
|
|
|
Property TableNameLeft() As String
|
|
Get
|
|
Return m_TableNameLeft
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_TableNameLeft = Value
|
|
End Set
|
|
End Property
|
|
Property TableNameRight() As String
|
|
Get
|
|
Return m_TableNameRight
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_TableNameRight = Value
|
|
End Set
|
|
End Property
|
|
Property TableNameBottom() As String
|
|
Get
|
|
Return m_TableNameBottom
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_TableNameBottom = Value
|
|
End Set
|
|
End Property
|
|
Property KeyLeft() As Long
|
|
Get
|
|
Return m_KeyLeft
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_KeyLeft = Value
|
|
End Set
|
|
End Property
|
|
Property KeyRight() As Long
|
|
Get
|
|
Return m_KeyRight
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_KeyRight = Value
|
|
End Set
|
|
End Property
|
|
Property Eintrag() As String
|
|
Get
|
|
Return m_Eintrag
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_Eintrag = Value
|
|
End Set
|
|
End Property
|
|
Property Eintragnr() As Long
|
|
Get
|
|
Return m_Eintragnr
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_Eintragnr = Value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
#Region "Spalten-Formatierung"
|
|
Public Sub SpaltenTitel_Aktualisieren(ByVal tblnr As Integer, ByVal tblname As String, ByVal ds As DataSet)
|
|
'Spaltentitel setzen
|
|
Dim titel As New EDOKA.MySpaltenTitel()
|
|
Dim ts As New EDOKA.Tabellenspalte()
|
|
Dim i As Integer
|
|
Dim t As New DataTable()
|
|
t = ds.Tables(0)
|
|
If tblnr = 1 Then
|
|
ts.Tabelle = tblname
|
|
For i = 0 To Me.TBLeft.Columns.Count - 1
|
|
Dim s As String
|
|
s = Me.TBLeft.Columns(i).DataField
|
|
ts.Feld = s
|
|
ts.getspalte()
|
|
If ts.spaltenname <> "" Then
|
|
Me.TBLeft.Columns(i).Caption = ts.spaltenname
|
|
|
|
If ts.ColWith = 0 Then
|
|
Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
|
|
Me.TBLeft.Splits(0).DisplayColumns(i).Visible = False
|
|
Else
|
|
Me.TBLeft.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
End If
|
|
|
|
'If Me.TBLeft.Columns(i).Caption = "" Then
|
|
' Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
|
|
'Else
|
|
' Me.TBLeft.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
'End If
|
|
If ts.locked Then
|
|
Me.TBLeft.Splits(0).DisplayColumns(i).Locked = True
|
|
End If
|
|
If ts.AlsHacken Then
|
|
Me.TBLeft.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
End If
|
|
'Präsentation von aktiv
|
|
If Me.TBLeft.Columns(i).DataField = "aktiv" Then
|
|
Me.TBLeft.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBLeft.Columns(i).ValueItems.DefaultItem = True
|
|
Me.TBLeft.Columns(i).DefaultValue = True
|
|
Me.TBLeft.Columns(i).FilterText = True
|
|
End If
|
|
If Me.TBLeft.Columns(i).DataField = "erstellt_am" Then
|
|
Me.TBLeft.Columns(i).DefaultValue = Now
|
|
End If
|
|
Else
|
|
Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
|
|
End If
|
|
Next
|
|
End If
|
|
If tblnr = 2 Then
|
|
ts.Tabelle = tblname
|
|
For i = 0 To Me.TBRight.Columns.Count - 1
|
|
Dim s As String
|
|
s = Me.TBRight.Columns(i).DataField
|
|
ts.Feld = s
|
|
ts.getspalte()
|
|
Me.TBRight.Columns(i).Caption = ts.spaltenname
|
|
If ts.ColWith = 0 Then
|
|
Me.TBRight.Splits(0).DisplayColumns(i).Width = 0
|
|
Me.TBRight.Splits(0).DisplayColumns(i).Visible = False
|
|
Else
|
|
Me.TBRight.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
End If
|
|
|
|
'If Me.TBRight.Columns(i).Caption = "" Then
|
|
' Me.TBRight.Splits(0).DisplayColumns(i).Width = 0
|
|
'Else
|
|
' Me.TBRight.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
'End If
|
|
If ts.locked Then
|
|
Me.TBRight.Splits(0).DisplayColumns(i).Locked = True
|
|
End If
|
|
If ts.AlsHacken Then
|
|
Me.TBRight.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
End If
|
|
|
|
'Präsentation von aktiv
|
|
If Me.TBRight.Columns(i).DataField = "aktiv" Then
|
|
Me.TBRight.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBRight.Columns(i).ValueItems.DefaultItem = True
|
|
Me.TBRight.Columns(i).DefaultValue = True
|
|
Me.TBRight.Columns(i).FilterText = True
|
|
End If
|
|
If Me.TBRight.Columns(i).DataField = "erstellt_am" Then
|
|
Me.TBRight.Columns(i).DefaultValue = Now
|
|
End If
|
|
Next
|
|
End If
|
|
If tblnr = 3 Then
|
|
ts.Tabelle = tblname
|
|
For i = 0 To Me.TBBottom.Columns.Count - 1
|
|
Dim s As String
|
|
s = Me.TBBottom.Columns(i).DataField
|
|
ts.Feld = s
|
|
ts.getspalte()
|
|
Me.TBBottom.Columns(i).Caption = ts.spaltenname
|
|
|
|
If ts.ColWith = 0 Then
|
|
Me.TBBottom.Splits(0).DisplayColumns(i).Width = 0
|
|
Me.TBBottom.Splits(0).DisplayColumns(i).Visible = False
|
|
Else
|
|
Me.TBBottom.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
End If
|
|
'If Me.TBBottom.Columns(i).Caption = "" Then
|
|
' Me.TBBottom.Splits(0).DisplayColumns(i).Width = 0
|
|
'Else
|
|
' Me.TBBottom.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
'End If
|
|
If ts.locked Then
|
|
Me.TBBottom.Splits(0).DisplayColumns(i).Locked = True
|
|
End If
|
|
If ts.AlsHacken Then
|
|
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
End If
|
|
|
|
|
|
'Präsentation von aktiv
|
|
If Me.TBBottom.Columns(i).DataField = "aktiv" Then
|
|
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
|
Me.TBBottom.Columns(i).DefaultValue = True
|
|
Me.TBBottom.Columns(i).FilterText = True
|
|
End If
|
|
If Me.TBBottom.Columns(i).DataField = "erstellt_am" Then
|
|
Me.TBBottom.Columns(i).DefaultValue = Now
|
|
End If
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub C1TrueDBGrid1_FetchCellTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBLeft.FetchCellTips
|
|
Dim ts As New EDOKA.Tabellenspalte()
|
|
ts.Tabelle = Me.TableNameLeft
|
|
Try
|
|
ts.Feld = Me.TBLeft.Columns(e.ColIndex).DataField
|
|
ts.getspalte()
|
|
e.CellTip = ts.TipText
|
|
ts = Nothing
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub C1TrueDBGrid1_FetchCellTips1(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBRight.FetchCellTips
|
|
Try
|
|
Dim ts As New EDOKA.Tabellenspalte()
|
|
ts.Tabelle = Me.TableNameRight
|
|
ts.Feld = Me.TBRight.Columns(e.ColIndex).DataField
|
|
ts.getspalte()
|
|
e.CellTip = ts.TipText
|
|
ts = Nothing
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub C1TrueDBGrid1_FetchCellTips3(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBBottom.FetchCellTips
|
|
Try
|
|
Dim ts As New EDOKA.Tabellenspalte()
|
|
ts.Tabelle = Me.TableNameBottom
|
|
ts.Feld = Me.TBBottom.Columns(e.ColIndex).DataField
|
|
ts.getspalte()
|
|
e.CellTip = ts.TipText
|
|
ts = Nothing
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Public Sub TBBottom_Format()
|
|
Dim i As Integer
|
|
For i = 0 To Me.TBBottom.Columns.Count - 1
|
|
'Präsentation von aktiv
|
|
If Me.TBBottom.Columns(i).DataField = "aktiv" Then
|
|
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBBottom.Columns(i).DefaultValue = True
|
|
Me.TBBottom.Splits(0).DisplayColumns(i).Locked = False
|
|
End If
|
|
If Me.TBBottom.Columns(i).DataField = "zwingend" Then
|
|
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
|
Me.TBBottom.Columns(i).DefaultValue = True
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "UpdateGrpText"
|
|
Public Sub UpdateGrpText(ByVal w1 As Integer, ByVal w2 As Integer, ByVal w3 As Integer)
|
|
Me.GrpLeft.Text = Globals.MyTxt.gettext(w1)
|
|
Me.GrpRight.Text = Globals.MyTxt.gettext(w2)
|
|
Me.GrpBottom.Text = Globals.MyTxt.gettext(w3)
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Formhandling"
|
|
|
|
Private Sub frmVerbEditor_Layout(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LayoutEventArgs) Handles MyBase.Layout
|
|
Me.GrpLeft.Width = Me.ClientSize.Width / 2
|
|
Me.GrpFocus.Left = Me.Splitter1.Left - (Me.GrpFocus.Width / 2)
|
|
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
|
Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
|
|
End Sub
|
|
|
|
Private Sub Splitter1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter1.SplitterMoved
|
|
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
|
End Sub
|
|
|
|
Private Sub Splitter2_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter2.SplitterMoved
|
|
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
|
Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
|
|
End Sub
|
|
|
|
Private Sub frmVerbEditor_WndChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
|
Me.GrpLeft.Width = Me.ClientSize.Width / 2
|
|
Me.GrpFocus.Left = Me.Splitter1.Left - (Me.GrpFocus.Width / 2)
|
|
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
|
Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
|
|
End Sub
|
|
|
|
Public Sub FormSize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim ds As New edokadb.clsSysadminfunktion()
|
|
If g_bRun Then
|
|
|
|
Try
|
|
ds.cpMainConnectionProvider = conn
|
|
ds.iSysadminfnktnr = New SqlInt32(CType(m_Eintragnr, Int32))
|
|
ds.SelectOne()
|
|
If ds.iFleft.Value <> 0 Then Me.Left = ds.iFleft.Value
|
|
If ds.iFtop.Value <> 0 Then Me.Top = ds.iFtop.Value
|
|
If ds.iFwidth.Value <> 0 Then Me.Width = ds.iFwidth.Value
|
|
If ds.iFheight.Value <> 0 Then Me.Height = ds.iFheight.Value
|
|
Me.MenuItem1.Text = Me.Eintrag
|
|
Catch
|
|
' MsgBox("Error Resizing Form")
|
|
Finally
|
|
End Try
|
|
ds.Dispose()
|
|
Me.Text = Me.Eintrag
|
|
Try
|
|
Globals.WinPos.Get_Position(Me)
|
|
Catch
|
|
Finally
|
|
End Try
|
|
End If
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub frmVerbEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.FokusLeft.Checked = True
|
|
Me.FokusRight.Checked = False
|
|
Me.TBBottom.ScrollTips = True
|
|
Me.TBBottom.ScrollTips = True
|
|
Me.TBRight.ScrollTips = True
|
|
Me.WindowState = FormWindowState.Maximized
|
|
End Sub
|
|
|
|
Private Sub TBBottom_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBBottom.FetchScrollTips
|
|
Try
|
|
Select Case e.ScrollBar
|
|
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
|
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBBottom.Splits(0).Rows.Count)
|
|
End Select
|
|
e.TipStyle.ForeColor = Color.Blue
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
Private Sub TBLeft_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBLeft.FetchScrollTips
|
|
Try
|
|
Select Case e.ScrollBar
|
|
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
|
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBLeft.Splits(0).Rows.Count)
|
|
End Select
|
|
e.TipStyle.ForeColor = Color.Blue
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
Private Sub TBRight_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBRight.FetchScrollTips
|
|
Try
|
|
Select Case e.ScrollBar
|
|
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
|
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBRight.Splits(0).Rows.Count)
|
|
End Select
|
|
e.TipStyle.ForeColor = Color.Blue
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub frmVerbEditor_Cloase(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
|
Try
|
|
Globals.WinPos.Set_Position(Me)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
Me.ActiveControl = Me.ToolBar1
|
|
Me.ActiveControl = Me.TBBottom
|
|
End Sub
|
|
End Class
|
|
End Namespace
|