Initial commit
This commit is contained in:
563
EDOKA/Dokumentmanagement/frmDokumentwerte.vb
Normal file
563
EDOKA/Dokumentmanagement/frmDokumentwerte.vb
Normal file
@@ -0,0 +1,563 @@
|
||||
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
|
||||
Reference in New Issue
Block a user