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.
564 lines
26 KiB
564 lines
26 KiB
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
Imports UtilityLibrary.Win32
|
|
Public Class frmDokumentwerte
|
|
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 C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents btnCancel As System.Windows.Forms.Button
|
|
Friend WithEvents btnWeiter As System.Windows.Forms.Button
|
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|
Friend WithEvents TxtBestehenderwert As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
|
Friend WithEvents txtNeuerWert As System.Windows.Forms.TextBox
|
|
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem5 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(frmDokumentwerte))
|
|
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
|
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
|
|
Me.btnCancel = New System.Windows.Forms.Button()
|
|
Me.btnWeiter = New System.Windows.Forms.Button()
|
|
Me.Button1 = New System.Windows.Forms.Button()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|
Me.TreeView1 = New System.Windows.Forms.TreeView()
|
|
Me.Label4 = New System.Windows.Forms.Label()
|
|
Me.TxtBestehenderwert = New System.Windows.Forms.TextBox()
|
|
Me.Label5 = New System.Windows.Forms.Label()
|
|
Me.Label6 = New System.Windows.Forms.Label()
|
|
Me.txtNeuerWert = New System.Windows.Forms.TextBox()
|
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'C1TrueDBGrid1
|
|
'
|
|
Me.C1TrueDBGrid1.AllowFilter = True
|
|
Me.C1TrueDBGrid1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.C1TrueDBGrid1.AllowSort = True
|
|
Me.C1TrueDBGrid1.AlternatingRows = True
|
|
Me.C1TrueDBGrid1.CaptionHeight = 17
|
|
Me.C1TrueDBGrid1.CollapseColor = System.Drawing.Color.Black
|
|
Me.C1TrueDBGrid1.ColumnHeaders = False
|
|
Me.C1TrueDBGrid1.ContextMenu = Me.ContextMenu1
|
|
Me.C1TrueDBGrid1.DataChanged = False
|
|
Me.C1TrueDBGrid1.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.C1TrueDBGrid1.ExpandColor = System.Drawing.Color.Black
|
|
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
|
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(200, 32)
|
|
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
|
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
|
|
Me.C1TrueDBGrid1.PrintInfo.ShowOptionsDialog = False
|
|
Me.C1TrueDBGrid1.RecordSelectorWidth = 17
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.C1TrueDBGrid1.RowDivider = GridLines1
|
|
Me.C1TrueDBGrid1.RowHeight = 15
|
|
Me.C1TrueDBGrid1.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.C1TrueDBGrid1.ScrollTips = False
|
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(616, 336)
|
|
Me.C1TrueDBGrid1.TabIndex = 0
|
|
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
|
|
Me.C1TrueDBGrid1.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{}Footer{}Caption{AlignHorz:Cen" & _
|
|
"ter;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style9{}O" & _
|
|
"ddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
|
|
"ue;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Co" & _
|
|
"ntrol;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data" & _
|
|
"></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""Tr" & _
|
|
"ue"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" MarqueeS" & _
|
|
"tyle=""DottedCellBorder"" RecordSelectorWidth=""17"" DefRecSelWidth=""17"" VerticalScr" & _
|
|
"ollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 612, 332</ClientRect><B" & _
|
|
"orderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyl" & _
|
|
"e parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><Fi" & _
|
|
"lterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""" & _
|
|
"Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Headin" & _
|
|
"g"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><Inactiv" & _
|
|
"eStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" " & _
|
|
"/><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle par" & _
|
|
"ent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1Tru" & _
|
|
"eDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style pa" & _
|
|
"rent=""Normal"" me=""Heading"" /><Style parent=""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=""Nor" & _
|
|
"mal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""No" & _
|
|
"rmal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=" & _
|
|
"""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><ve" & _
|
|
"rtSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRe" & _
|
|
"cSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 612, 332</ClientArea></Blob>"
|
|
'
|
|
'ContextMenu1
|
|
'
|
|
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem5})
|
|
'
|
|
'MenuItem1
|
|
'
|
|
Me.MenuItem1.Index = 0
|
|
Me.MenuItem1.Text = "Nur geänderte Elemente anzeigen"
|
|
'
|
|
'MenuItem2
|
|
'
|
|
Me.MenuItem2.Index = 1
|
|
Me.MenuItem2.Text = "Alle Elemente anzeigen"
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Index = 2
|
|
Me.MenuItem3.Text = "-"
|
|
'
|
|
'MenuItem4
|
|
'
|
|
Me.MenuItem4.Index = 3
|
|
Me.MenuItem4.Text = "Bestehender Wert übernehmen"
|
|
'
|
|
'MenuItem5
|
|
'
|
|
Me.MenuItem5.Index = 4
|
|
Me.MenuItem5.Text = "Alle bestehenden Werte übernehmen"
|
|
'
|
|
'btnCancel
|
|
'
|
|
Me.btnCancel.Location = New System.Drawing.Point(600, 376)
|
|
Me.btnCancel.Name = "btnCancel"
|
|
Me.btnCancel.Size = New System.Drawing.Size(104, 23)
|
|
Me.btnCancel.TabIndex = 5
|
|
Me.btnCancel.Text = "&Abbruch"
|
|
'
|
|
'btnWeiter
|
|
'
|
|
Me.btnWeiter.Location = New System.Drawing.Point(712, 376)
|
|
Me.btnWeiter.Name = "btnWeiter"
|
|
Me.btnWeiter.Size = New System.Drawing.Size(104, 23)
|
|
Me.btnWeiter.TabIndex = 4
|
|
Me.btnWeiter.Text = "&Weiter>>"
|
|
'
|
|
'Button1
|
|
'
|
|
Me.Button1.Location = New System.Drawing.Point(200, 376)
|
|
Me.Button1.Name = "Button1"
|
|
Me.Button1.Size = New System.Drawing.Size(104, 23)
|
|
Me.Button1.TabIndex = 6
|
|
Me.Button1.Text = "<< &Zurück"
|
|
Me.Button1.Visible = False
|
|
'
|
|
'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
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(216, 16)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(100, 16)
|
|
Me.Label1.TabIndex = 7
|
|
Me.Label1.Text = "Element"
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(416, 16)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(152, 16)
|
|
Me.Label2.TabIndex = 8
|
|
Me.Label2.Text = "Neuer Dokumentinhalt"
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.Location = New System.Drawing.Point(608, 16)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(160, 16)
|
|
Me.Label3.TabIndex = 9
|
|
Me.Label3.Text = "Bestehender Dokumentinhalt"
|
|
'
|
|
'TreeView1
|
|
'
|
|
Me.TreeView1.ImageIndex = -1
|
|
Me.TreeView1.Location = New System.Drawing.Point(8, 32)
|
|
Me.TreeView1.Name = "TreeView1"
|
|
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Textmarken"), New System.Windows.Forms.TreeNode("Felder")})
|
|
Me.TreeView1.SelectedImageIndex = -1
|
|
Me.TreeView1.Size = New System.Drawing.Size(184, 97)
|
|
Me.TreeView1.TabIndex = 10
|
|
'
|
|
'Label4
|
|
'
|
|
Me.Label4.Location = New System.Drawing.Point(8, 16)
|
|
Me.Label4.Name = "Label4"
|
|
Me.Label4.Size = New System.Drawing.Size(100, 16)
|
|
Me.Label4.TabIndex = 11
|
|
Me.Label4.Text = "Bereich"
|
|
'
|
|
'TxtBestehenderwert
|
|
'
|
|
Me.TxtBestehenderwert.Location = New System.Drawing.Point(8, 152)
|
|
Me.TxtBestehenderwert.Multiline = True
|
|
Me.TxtBestehenderwert.Name = "TxtBestehenderwert"
|
|
Me.TxtBestehenderwert.ReadOnly = True
|
|
Me.TxtBestehenderwert.Size = New System.Drawing.Size(184, 96)
|
|
Me.TxtBestehenderwert.TabIndex = 12
|
|
Me.TxtBestehenderwert.Text = ""
|
|
'
|
|
'Label5
|
|
'
|
|
Me.Label5.Location = New System.Drawing.Point(8, 136)
|
|
Me.Label5.Name = "Label5"
|
|
Me.Label5.Size = New System.Drawing.Size(100, 16)
|
|
Me.Label5.TabIndex = 13
|
|
Me.Label5.Text = "Bestehend"
|
|
'
|
|
'Label6
|
|
'
|
|
Me.Label6.Location = New System.Drawing.Point(8, 256)
|
|
Me.Label6.Name = "Label6"
|
|
Me.Label6.Size = New System.Drawing.Size(100, 16)
|
|
Me.Label6.TabIndex = 15
|
|
Me.Label6.Text = "Neu"
|
|
'
|
|
'txtNeuerWert
|
|
'
|
|
Me.txtNeuerWert.Location = New System.Drawing.Point(8, 272)
|
|
Me.txtNeuerWert.Multiline = True
|
|
Me.txtNeuerWert.Name = "txtNeuerWert"
|
|
Me.txtNeuerWert.Size = New System.Drawing.Size(184, 96)
|
|
Me.txtNeuerWert.TabIndex = 14
|
|
Me.txtNeuerWert.Text = ""
|
|
'
|
|
'frmDokumentwerte
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(824, 405)
|
|
Me.ControlBox = False
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label6, Me.txtNeuerWert, Me.Label5, Me.TxtBestehenderwert, Me.Label4, Me.TreeView1, Me.Label3, Me.Label2, Me.Label1, Me.Button1, Me.btnCancel, Me.btnWeiter, Me.C1TrueDBGrid1})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmDokumentwerte"
|
|
Me.Text = "Dokumentinhalte"
|
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Deklarationen"
|
|
Dim AlleWerte As Boolean = True
|
|
Dim m_isOk As Integer
|
|
Dim m_data As DataTable
|
|
Property isOk() As Integer
|
|
Get
|
|
Return m_isOk
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_isOk = Value
|
|
End Set
|
|
End Property
|
|
Property WordData() As DataTable
|
|
Get
|
|
Return m_data
|
|
End Get
|
|
Set(ByVal Value As DataTable)
|
|
m_data = Value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
#Region "Formularhandling"
|
|
|
|
Private Sub Dokumentwerte_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim t As DataTable
|
|
Dim i As Integer
|
|
Dim tn As TreeNode
|
|
Me.isOk = False
|
|
t = Generic_Select(1)
|
|
Dim S As String
|
|
For i = 0 To Me.WordData.Rows.Count - 1
|
|
Try
|
|
If Me.WordData.Rows(i).Item("oldvalue") Is System.DBNull.Value Then Me.WordData.Rows(i).Item("oldvalue") = ""
|
|
Catch
|
|
End Try
|
|
Try
|
|
If Me.WordData.Rows(i).Item("xvalue") Is System.DBNull.Value Then Me.WordData.Rows(i).Item("xvalue") = ""
|
|
Catch
|
|
End Try
|
|
|
|
Try
|
|
Me.WordData.Rows(i).Item("oldvalue") = Trim(convert(Me.WordData.Rows(i).Item("oldvalue")))
|
|
Catch
|
|
End Try
|
|
Try
|
|
Me.WordData.Rows(i).Item("xvalue") = Trim(convert(Me.WordData.Rows(i).Item("xvalue")))
|
|
Catch
|
|
End Try
|
|
Try
|
|
S = Me.WordData.Rows(i).Item("OLDVALUE")
|
|
S.Replace(Chr(7), "")
|
|
S.Replace(Chr(10), "")
|
|
S.Replace(Chr(13), "")
|
|
Me.WordData.Rows(i).Item("OLDVALUE") = S
|
|
Catch
|
|
|
|
End Try
|
|
Next
|
|
Me.TreeView1.Nodes.Clear()
|
|
For i = 0 To t.Rows.Count - 1
|
|
tn = Me.TreeView1.Nodes.Add(t.Rows(i).Item(1))
|
|
tn.Tag = t.Rows(i).Item(0)
|
|
Next
|
|
Dim gaga As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
'Me.WordData.Columns.Add("Mut")
|
|
Me.C1TrueDBGrid1.DataSource = Me.WordData
|
|
|
|
Me.TreeView1.Focus()
|
|
Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Buttons"
|
|
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
|
|
Me.isOk = 0
|
|
Me.Close()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub btnWeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWeiter.Click
|
|
Me.isOk = 1
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Me.isOk = 2
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
|
|
' If Me.TreeView1.SelectedNode.Text = "Textmarken" Then
|
|
refresh_data()
|
|
Dim i As Integer
|
|
For i = 0 To Me.TreeView1.GetNodeCount(True) - 1
|
|
Me.TreeView1.Nodes(i).ForeColor = System.Drawing.Color.Black
|
|
Next
|
|
Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Red
|
|
End Sub
|
|
Private Sub refresh_data()
|
|
Dim i As Integer
|
|
For i = 0 To Me.C1TrueDBGrid1.Columns.Count - 1
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Visible = False
|
|
Next
|
|
Me.C1TrueDBGrid1.Columns("used").FilterText = "1"
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Element").Width = 200
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Element").Visible = True
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Element").Locked = True
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("xvalue").Visible = True
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("oldvalue").Visible = True
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Width = 110
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("xvalue").Width = 190
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("oldvalue").Width = 190
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("oldvalue").Locked = True
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("kategorie").Width = 0
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("kategorie").Visible = True
|
|
Me.C1TrueDBGrid1.Columns("kategorie").FilterText = Me.TreeView1.SelectedNode.Tag
|
|
' Else
|
|
' Dim i As Integer
|
|
' For i = 0 To Me.C1TrueDBGrid1.Columns.Count - 1
|
|
' Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Visible = False
|
|
' Next
|
|
' Me.C1TrueDBGrid1.Splits(0).DisplayColumns("feldname").Visible = True
|
|
' Me.C1TrueDBGrid1.Splits(0).DisplayColumns("xvalue").Visible = True
|
|
'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("oldvalue").Visible = True
|
|
' Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Width = 110
|
|
' Me.C1TrueDBGrid1.Splits(0).DisplayColumns("xvalue").Width = 190
|
|
' Me.C1TrueDBGrid1.Splits(0).DisplayColumns("oldvalue").Width = 190
|
|
' Me.C1TrueDBGrid1.Columns("beginntextmarke").FilterText = ""
|
|
' Me.C1TrueDBGrid1.Columns("feldname").FilterText = "T"
|
|
' End If
|
|
If AlleWerte = False Then
|
|
For i = 0 To Me.C1TrueDBGrid1.Splits(0).Rows.Count - 1
|
|
Try
|
|
If Me.C1TrueDBGrid1.Columns("xvalue").CellValue(i) = Me.C1TrueDBGrid1.Columns("oldvalue").CellValue(i) Then
|
|
Me.C1TrueDBGrid1.Splits(0).Rows(i).Visible = False
|
|
End If
|
|
Catch
|
|
End Try
|
|
Next
|
|
Else
|
|
For i = 0 To Me.C1TrueDBGrid1.Splits(0).Rows.Count - 1
|
|
Try
|
|
If Me.C1TrueDBGrid1.Columns("xvalue").CellValue(i) = Me.C1TrueDBGrid1.Columns("oldvalue").CellValue(i) Then
|
|
Me.C1TrueDBGrid1.Splits(0).Rows(i).Visible = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtNeuerWert_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNeuerWert.TextChanged
|
|
Me.C1TrueDBGrid1.Columns("xvalue").Value = Me.txtNeuerWert.Text
|
|
refresh_data()
|
|
End Sub
|
|
|
|
Private Sub C1TrueDBGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.Click
|
|
If Me.C1TrueDBGrid1.Columns("oldvalue").Value Is System.DBNull.Value Then Me.TxtBestehenderwert.Text = "" Else Me.TxtBestehenderwert.Text = convert(Me.C1TrueDBGrid1.Columns("oldvalue").Value)
|
|
If Me.C1TrueDBGrid1.Columns("xvalue").Value Is System.DBNull.Value Then Me.txtNeuerWert.Text = "" Else Me.txtNeuerWert.Text = convert(Me.C1TrueDBGrid1.Columns("xvalue").Value)
|
|
End Sub
|
|
|
|
Private Sub C1TrueDBGrid1_CursorChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.CursorChanged
|
|
If Me.C1TrueDBGrid1.Columns("oldvalue").Value Is System.DBNull.Value Then Me.TxtBestehenderwert.Text = "" Else Me.TxtBestehenderwert.Text = convert(Me.C1TrueDBGrid1.Columns("oldvalue").Value)
|
|
If Me.C1TrueDBGrid1.Columns("xvalue").Value Is System.DBNull.Value Then Me.txtNeuerWert.Text = "" Else Me.txtNeuerWert.Text = convert(Me.C1TrueDBGrid1.Columns("xvalue").Value)
|
|
End Sub
|
|
|
|
Private Sub C1TrueDBGrid1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1TrueDBGrid1.MouseUp
|
|
If Me.C1TrueDBGrid1.Columns("oldvalue").Value Is System.DBNull.Value Then Me.TxtBestehenderwert.Text = "" Else Me.TxtBestehenderwert.Text = convert(Me.C1TrueDBGrid1.Columns("oldvalue").Value)
|
|
If Me.C1TrueDBGrid1.Columns("xvalue").Value Is System.DBNull.Value Then Me.txtNeuerWert.Text = "" Else Me.txtNeuerWert.Text = convert(Me.C1TrueDBGrid1.Columns("xvalue").Value)
|
|
End Sub
|
|
|
|
Private Function Generic_Select(ByVal typ As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
|
Select Case typ
|
|
Case 1
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_Kategorien"
|
|
Case Else
|
|
End Select
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
Select Case typ
|
|
Case 1
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
|
Case Else
|
|
End Select
|
|
If typ = 1 Then
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Function convert(ByVal x As String) As String
|
|
Dim s As String
|
|
Dim s1 As String
|
|
Dim i As Integer
|
|
s = x
|
|
i = InStr(s, Chr(13))
|
|
While i > 0
|
|
s = Microsoft.VisualBasic.Left(s, i - 1) & "#" & Microsoft.VisualBasic.Right(s, Len(s) - (i))
|
|
If Mid(s, i + 1, 1) = Chr(10) Then
|
|
s = Microsoft.VisualBasic.Left(s, i) & Microsoft.VisualBasic.Right(s, Len(s) - (i + 1))
|
|
End If
|
|
i = InStr(s, Chr(13))
|
|
End While
|
|
i = InStr(s, "#")
|
|
While i > 0
|
|
s = Microsoft.VisualBasic.Left(s, i - 1) & vbCrLf & Microsoft.VisualBasic.Right(s, Len(s) - (i))
|
|
i = InStr(s, "#")
|
|
End While
|
|
convert = s
|
|
End Function
|
|
|
|
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
|
|
Me.AlleWerte = False
|
|
refresh_data()
|
|
End Sub
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
|
Me.AlleWerte = True
|
|
refresh_data()
|
|
End Sub
|
|
|
|
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
|
|
Try
|
|
Me.C1TrueDBGrid1.Columns("xvalue").Value = Me.C1TrueDBGrid1.Columns("oldvalue").CellValue(Me.C1TrueDBGrid1.Bookmark)
|
|
refresh_data()
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
|
Dim i As Integer
|
|
For i = 0 To Me.WordData.Rows.Count - 1
|
|
Me.WordData.Rows(i).Item("xvalue") = Me.WordData.Rows(i).Item("oldvalue")
|
|
refresh_data()
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub TxtBestehenderwert_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtBestehenderwert.DoubleClick
|
|
Dim i As Integer
|
|
For i = 1 To Me.TxtBestehenderwert.Text.Length
|
|
MsgBox(Microsoft.VisualBasic.Mid(Me.TxtBestehenderwert.Text, i, 1))
|
|
MsgBox(Asc(Microsoft.VisualBasic.Mid(Me.TxtBestehenderwert.Text, i, 1)))
|
|
|
|
Next
|
|
End Sub
|
|
End Class
|