Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports System.Drawing Imports System.Drawing.Color Imports System.ComponentModel Public Class frmRolleDokumentHierarchie 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 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 Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection Friend WithEvents DataSet1 As System.Data.DataSet Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents DataSet3 As System.Data.DataSet Friend WithEvents DataSet2 As System.Data.DataSet Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents MnuGesamt As System.Windows.Forms.MenuItem Friend WithEvents MnuKundendossier As System.Windows.Forms.MenuItem Friend WithEvents MnuErstellung As System.Windows.Forms.MenuItem Friend WithEvents MnuHost As System.Windows.Forms.MenuItem Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents DataSet4 As System.Data.DataSet Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents TBBottom As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRolleDokumentHierarchie)) 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.GroupBox1 = New System.Windows.Forms.GroupBox() Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox() 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.components) Me.MenuItem1 = New System.Windows.Forms.MenuItem() Me.MenuItem3 = New System.Windows.Forms.MenuItem() Me.MenuItem2 = New System.Windows.Forms.MenuItem() Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection() Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand() Me.DataSet1 = New System.Data.DataSet() Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand() Me.DataSet3 = New System.Data.DataSet() Me.DataSet2 = New System.Data.DataSet() Me.ContextMenu1 = New System.Windows.Forms.ContextMenu() Me.MnuGesamt = New System.Windows.Forms.MenuItem() Me.MnuKundendossier = New System.Windows.Forms.MenuItem() Me.MnuErstellung = New System.Windows.Forms.MenuItem() Me.MnuHost = New System.Windows.Forms.MenuItem() Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand() Me.DataSet4 = New System.Data.DataSet() 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.GroupBox1.SuspendLayout() Me.Panel5.SuspendLayout() CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit() 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.Location = New System.Drawing.Point(0, 0) Me.ToolBar1.Name = "ToolBar1" Me.ToolBar1.ShowToolTips = True Me.ToolBar1.Size = New System.Drawing.Size(640, 28) Me.ToolBar1.TabIndex = 0 ' 'ToolBarButton1 ' Me.ToolBarButton1.ImageIndex = 0 Me.ToolBarButton1.Name = "ToolBarButton1" ' 'ToolBarBtnSave ' Me.ToolBarBtnSave.ImageIndex = 1 Me.ToolBarBtnSave.Name = "ToolBarBtnSave" ' 'ImageList1 ' Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent Me.ImageList1.Images.SetKeyName(0, "") Me.ImageList1.Images.SetKeyName(1, "") ' 'Panel1 ' Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 28) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(640, 16) Me.Panel1.TabIndex = 1 ' 'Panel2 ' Me.Panel2.Controls.Add(Me.GrpRight) Me.Panel2.Controls.Add(Me.Splitter1) Me.Panel2.Controls.Add(Me.GrpLeft) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top Me.Panel2.Location = New System.Drawing.Point(0, 44) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(640, 199) Me.Panel2.TabIndex = 2 ' 'GrpRight ' Me.GrpRight.Controls.Add(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(325, 199) Me.GrpRight.TabIndex = 2 Me.GrpRight.TabStop = False Me.GrpRight.Text = "GroupBox2" ' 'TBRight ' Me.TBRight.AllowUpdate = False Me.TBRight.AlternatingRows = True Me.TBRight.BackColor = System.Drawing.Color.Gray Me.TBRight.Dock = System.Windows.Forms.DockStyle.Fill Me.TBRight.FilterBar = True Me.TBRight.GroupByCaption = "Drag a column header here to group by that column" Me.TBRight.Images.Add(CType(resources.GetObject("TBRight.Images"), System.Drawing.Image)) 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.0R Me.TBRight.PrintInfo.PageSettings = CType(resources.GetObject("TBRight.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.TBRight.Size = New System.Drawing.Size(319, 180) Me.TBRight.TabIndex = 8 Me.TBRight.Text = "C1TrueDBGrid1" Me.TBRight.PropBag = resources.GetString("TBRight.PropBag") ' '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.Add(Me.TBLeft) Me.GrpLeft.Dock = System.Windows.Forms.DockStyle.Left Me.GrpLeft.Location = New System.Drawing.Point(0, 0) 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.AllowUpdate = False Me.TBLeft.AlternatingRows = True Me.TBLeft.BackColor = System.Drawing.Color.Gray Me.TBLeft.Dock = System.Windows.Forms.DockStyle.Fill Me.TBLeft.FilterBar = True Me.TBLeft.GroupByCaption = "Drag a column header here to group by that column" Me.TBLeft.Images.Add(CType(resources.GetObject("TBLeft.Images"), System.Drawing.Image)) 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.0R Me.TBLeft.PrintInfo.PageSettings = CType(resources.GetObject("TBLeft.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.TBLeft.Size = New System.Drawing.Size(306, 180) Me.TBLeft.TabIndex = 8 Me.TBLeft.Text = "C1TrueDBGrid1" Me.TBLeft.PropBag = resources.GetString("TBLeft.PropBag") ' 'Splitter2 ' Me.Splitter2.Dock = System.Windows.Forms.DockStyle.Top Me.Splitter2.Location = New System.Drawing.Point(0, 243) Me.Splitter2.Name = "Splitter2" Me.Splitter2.Size = New System.Drawing.Size(640, 3) Me.Splitter2.TabIndex = 3 Me.Splitter2.TabStop = False ' 'GrpFocus ' Me.GrpFocus.Controls.Add(Me.Label1) Me.GrpFocus.Controls.Add(Me.FokusRight) Me.GrpFocus.Controls.Add(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.Add(Me.GrpBottom) Me.Panel3.Controls.Add(Me.Panel5) Me.Panel3.Controls.Add(Me.Panel4) Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(0, 246) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(640, 267) Me.Panel3.TabIndex = 18 ' 'GrpBottom ' Me.GrpBottom.Controls.Add(Me.TBBottom) Me.GrpBottom.Controls.Add(Me.GroupBox1) 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(640, 187) Me.GrpBottom.TabIndex = 2 Me.GrpBottom.TabStop = False Me.GrpBottom.Text = "GroupBox1" ' 'TBBottom ' Me.TBBottom.AlternatingRows = True Me.TBBottom.BackColor = System.Drawing.Color.Gray Me.TBBottom.Dock = System.Windows.Forms.DockStyle.Fill Me.TBBottom.FilterBar = True Me.TBBottom.GroupByCaption = "Drag a column header here to group by that column" Me.TBBottom.Images.Add(CType(resources.GetObject("TBBottom.Images"), System.Drawing.Image)) 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.0R Me.TBBottom.PrintInfo.PageSettings = CType(resources.GetObject("TBBottom.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.TBBottom.Size = New System.Drawing.Size(402, 168) Me.TBBottom.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation Me.TBBottom.TabIndex = 11 Me.TBBottom.Text = "C1TrueDBGrid1" Me.TBBottom.PropBag = resources.GetString("TBBottom.PropBag") ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.CheckedListBox1) Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Right Me.GroupBox1.Location = New System.Drawing.Point(405, 16) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(232, 168) Me.GroupBox1.TabIndex = 10 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "GroupBox1" ' 'CheckedListBox1 ' Me.CheckedListBox1.Dock = System.Windows.Forms.DockStyle.Fill Me.CheckedListBox1.Location = New System.Drawing.Point(3, 16) Me.CheckedListBox1.Name = "CheckedListBox1" Me.CheckedListBox1.Size = New System.Drawing.Size(226, 149) Me.CheckedListBox1.TabIndex = 0 ' 'Panel5 ' Me.Panel5.Controls.Add(Me.BtnConnect) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top Me.Panel5.Location = New System.Drawing.Point(0, 0) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(640, 40) Me.Panel5.TabIndex = 1 ' 'BtnConnect ' Me.BtnConnect.Location = New System.Drawing.Point(288, 8) Me.BtnConnect.Name = "BtnConnect" Me.BtnConnect.Size = New System.Drawing.Size(75, 23) 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, 227) Me.Panel4.Name = "Panel4" Me.Panel4.Size = New System.Drawing.Size(640, 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" ' 'SqlDataAdapter1 ' Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1 Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1 Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1 Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("rollelevel", "rollelevel"), New System.Data.Common.DataColumnMapping("sysadminrolle", "sysadminrolle"), New System.Data.Common.DataColumnMapping("zugehoerigkeit", "zugehoerigkeit"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})}) Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1 ' 'SqlDeleteCommand1 ' Me.SqlDeleteCommand1.CommandText = "[pv_rolle_delete]" Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand1.Connection = Me.SqlConnection1 Me.SqlDeleteCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zugehoerigkeit", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlConnection1 ' Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & "station id=SHU;packet size=4096" Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False ' 'SqlInsertCommand1 ' Me.SqlInsertCommand1.CommandText = "[pv_rolle_insert]" Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand1.Connection = Me.SqlConnection1 Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"), New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"), New System.Data.SqlClient.SqlParameter("@zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, "zugehoerigkeit"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer")}) ' 'SqlSelectCommand1 ' Me.SqlSelectCommand1.CommandText = "[pv_rolle_select]" Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand1.Connection = Me.SqlConnection1 Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")}) ' 'SqlUpdateCommand1 ' Me.SqlUpdateCommand1.CommandText = "[pv_rolle_update]" Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand1.Connection = Me.SqlConnection1 Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"), New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"), New System.Data.SqlClient.SqlParameter("@zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, "zugehoerigkeit"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zugehoerigkeit", System.Data.DataRowVersion.Original, Nothing)}) ' 'DataSet1 ' Me.DataSet1.DataSetName = "NewDataSet" ' 'SqlDataAdapter3 ' Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand2 Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand2 Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand2 Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle_dokumentart", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rolledokumentartnr", "rolledokumentartnr"), New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("dokumentartnr", "dokumentartnr"), New System.Data.Common.DataColumnMapping("ausschluss", "ausschluss"), New System.Data.Common.DataColumnMapping("normal", "normal"), New System.Data.Common.DataColumnMapping("vertraulich_gestattet", "vertraulich_gestattet"), New System.Data.Common.DataColumnMapping("mitarbeiter_gestattet", "mitarbeiter_gestattet"), New System.Data.Common.DataColumnMapping("chiffre_gestattet", "chiffre_gestattet"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("anzeigen", "anzeigen"), New System.Data.Common.DataColumnMapping("erstellen", "erstellen"), New System.Data.Common.DataColumnMapping("bearbeiten", "bearbeiten"), New System.Data.Common.DataColumnMapping("loeschen", "loeschen"), New System.Data.Common.DataColumnMapping("abschliessen", "abschliessen"), New System.Data.Common.DataColumnMapping("Boersenkotiert_gestattet", "Boersenkotiert_gestattet")})}) Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand2 ' 'SqlDeleteCommand2 ' Me.SqlDeleteCommand2.CommandText = "dbo.pv_rolle_dokumentart_delete" Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand2.Connection = Me.SqlConnection1 Me.SqlDeleteCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_rolledokumentartnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolledokumentartnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_rollenr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_dokumentartnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "dokumentartnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_dokumentartnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentartnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ausschluss", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ausschluss", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ausschluss", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausschluss", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_normal", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "normal", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_normal", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "normal", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_vertraulich_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "vertraulich_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_vertraulich_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertraulich_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mitarbeiter_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mitarbeiter_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiter_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiter_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_chiffre_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "chiffre_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_chiffre_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "chiffre_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_aktiv", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_anzeigen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "anzeigen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_anzeigen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzeigen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_bearbeiten", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bearbeiten", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_bearbeiten", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bearbeiten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_loeschen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "loeschen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_loeschen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loeschen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_abschliessen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "abschliessen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_abschliessen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "abschliessen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Boersenkotiert_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Boersenkotiert_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Boersenkotiert_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Boersenkotiert_gestattet", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand2 ' Me.SqlInsertCommand2.CommandText = "dbo.pv_rolle_dokumentart_insert" Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand2.Connection = Me.SqlConnection1 Me.SqlInsertCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@rolledokumentartnr", System.Data.SqlDbType.Int, 0, "rolledokumentartnr"), New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 0, "rollenr"), New System.Data.SqlClient.SqlParameter("@dokumentartnr", System.Data.SqlDbType.Int, 0, "dokumentartnr"), New System.Data.SqlClient.SqlParameter("@ausschluss", System.Data.SqlDbType.Bit, 0, "ausschluss"), New System.Data.SqlClient.SqlParameter("@normal", System.Data.SqlDbType.Bit, 0, "normal"), New System.Data.SqlClient.SqlParameter("@vertraulich_gestattet", System.Data.SqlDbType.Bit, 0, "vertraulich_gestattet"), New System.Data.SqlClient.SqlParameter("@mitarbeiter_gestattet", System.Data.SqlDbType.Bit, 0, "mitarbeiter_gestattet"), New System.Data.SqlClient.SqlParameter("@chiffre_gestattet", System.Data.SqlDbType.Bit, 0, "chiffre_gestattet"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 0, "aktiv"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 0, "mandantnr"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 0, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 0, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 0, "mutierer"), New System.Data.SqlClient.SqlParameter("@anzeigen", System.Data.SqlDbType.Bit, 0, "anzeigen"), New System.Data.SqlClient.SqlParameter("@erstellen", System.Data.SqlDbType.Bit, 0, "erstellen"), New System.Data.SqlClient.SqlParameter("@bearbeiten", System.Data.SqlDbType.Bit, 0, "bearbeiten"), New System.Data.SqlClient.SqlParameter("@loeschen", System.Data.SqlDbType.Bit, 0, "loeschen"), New System.Data.SqlClient.SqlParameter("@abschliessen", System.Data.SqlDbType.Bit, 0, "abschliessen"), New System.Data.SqlClient.SqlParameter("@Boersenkotiert_gestattet", System.Data.SqlDbType.Bit, 0, "Boersenkotiert_gestattet")}) ' 'SqlSelectCommand2 ' Me.SqlSelectCommand2.CommandText = "dbo.sp_rolle_dokumentart_select" Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand2.Connection = Me.SqlConnection1 Me.SqlSelectCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlUpdateCommand2 ' Me.SqlUpdateCommand2.CommandText = "dbo.pv_rolle_dokumentart_update" Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand2.Connection = Me.SqlConnection1 Me.SqlUpdateCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@rolledokumentartnr", System.Data.SqlDbType.Int, 0, "rolledokumentartnr"), New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 0, "rollenr"), New System.Data.SqlClient.SqlParameter("@dokumentartnr", System.Data.SqlDbType.Int, 0, "dokumentartnr"), New System.Data.SqlClient.SqlParameter("@ausschluss", System.Data.SqlDbType.Bit, 0, "ausschluss"), New System.Data.SqlClient.SqlParameter("@normal", System.Data.SqlDbType.Bit, 0, "normal"), New System.Data.SqlClient.SqlParameter("@vertraulich_gestattet", System.Data.SqlDbType.Bit, 0, "vertraulich_gestattet"), New System.Data.SqlClient.SqlParameter("@mitarbeiter_gestattet", System.Data.SqlDbType.Bit, 0, "mitarbeiter_gestattet"), New System.Data.SqlClient.SqlParameter("@chiffre_gestattet", System.Data.SqlDbType.Bit, 0, "chiffre_gestattet"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 0, "aktiv"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 0, "mandantnr"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 0, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 0, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 0, "mutierer"), New System.Data.SqlClient.SqlParameter("@anzeigen", System.Data.SqlDbType.Bit, 0, "anzeigen"), New System.Data.SqlClient.SqlParameter("@erstellen", System.Data.SqlDbType.Bit, 0, "erstellen"), New System.Data.SqlClient.SqlParameter("@bearbeiten", System.Data.SqlDbType.Bit, 0, "bearbeiten"), New System.Data.SqlClient.SqlParameter("@loeschen", System.Data.SqlDbType.Bit, 0, "loeschen"), New System.Data.SqlClient.SqlParameter("@abschliessen", System.Data.SqlDbType.Bit, 0, "abschliessen"), New System.Data.SqlClient.SqlParameter("@Boersenkotiert_gestattet", System.Data.SqlDbType.Bit, 0, "Boersenkotiert_gestattet"), New System.Data.SqlClient.SqlParameter("@Original_rolledokumentartnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolledokumentartnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_rollenr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_dokumentartnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "dokumentartnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_dokumentartnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentartnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ausschluss", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ausschluss", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ausschluss", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausschluss", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_normal", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "normal", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_normal", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "normal", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_vertraulich_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "vertraulich_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_vertraulich_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertraulich_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mitarbeiter_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mitarbeiter_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiter_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiter_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_chiffre_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "chiffre_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_chiffre_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "chiffre_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_aktiv", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_anzeigen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "anzeigen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_anzeigen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzeigen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_bearbeiten", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bearbeiten", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_bearbeiten", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bearbeiten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_loeschen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "loeschen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_loeschen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loeschen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_abschliessen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "abschliessen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_abschliessen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "abschliessen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Boersenkotiert_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Boersenkotiert_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Boersenkotiert_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Boersenkotiert_gestattet", System.Data.DataRowVersion.Original, Nothing)}) ' 'DataSet3 ' Me.DataSet3.DataSetName = "NewDataSet" ' 'DataSet2 ' Me.DataSet2.DataSetName = "NewDataSet" ' 'ContextMenu1 ' Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuGesamt, Me.MnuKundendossier, Me.MnuErstellung, Me.MnuHost}) ' 'MnuGesamt ' Me.MnuGesamt.Index = 0 Me.MnuGesamt.Text = "Gesamte Hierarchie" ' 'MnuKundendossier ' Me.MnuKundendossier.Index = 1 Me.MnuKundendossier.Text = "Kundendossier" ' 'MnuErstellung ' Me.MnuErstellung.Index = 2 Me.MnuErstellung.Text = "Erstellung" Me.MnuErstellung.Visible = False ' 'MnuHost ' Me.MnuHost.Index = 3 Me.MnuHost.Text = "HOST" ' 'SqlDataAdapter2 ' Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand3 Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand3 Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand3 Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "pv_berechtigung_aktiv_select", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("berechtigungnr", "berechtigungnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})}) Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand3 ' 'SqlDeleteCommand3 ' Me.SqlDeleteCommand3.CommandText = "[pv_berechtigung_aktiv_delete]" Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand3.Connection = Me.SqlConnection1 Me.SqlDeleteCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand3 ' Me.SqlInsertCommand3.CommandText = "[pv_berechtigung_aktiv_insert]" Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand3.Connection = Me.SqlConnection1 Me.SqlInsertCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung")}) ' 'SqlSelectCommand3 ' Me.SqlSelectCommand3.CommandText = "[pv_berechtigung_aktiv_select]" Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand3.Connection = Me.SqlConnection1 Me.SqlSelectCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlUpdateCommand3 ' Me.SqlUpdateCommand3.CommandText = "[pv_berechtigung_aktiv_update]" Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand3.Connection = Me.SqlConnection1 Me.SqlUpdateCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255)}) ' 'DataSet4 ' Me.DataSet4.DataSetName = "NewDataSet" ' 'frmRolleDokumentHierarchie ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(640, 513) Me.Controls.Add(Me.Panel3) Me.Controls.Add(Me.GrpFocus) Me.Controls.Add(Me.Splitter2) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.ToolBar1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Menu = Me.MainMenu1 Me.Name = "frmRolleDokumentHierarchie" 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.GroupBox1.ResumeLayout(False) Me.Panel5.ResumeLayout(False) CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() 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 Dim hierarchie As DataTable Dim Set_Selected_Values As Boolean #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 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 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 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 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() 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 Sub 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.Text = Me.Eintrag End Sub #End Region #Region "FormularFunktionen" Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TableNameLeft = "rolle" Me.TableNameRight = "dokumentart" Me.TableNameBottom = "rolle_dokumentart" LoadData() SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1) Me.TBRight.ContextMenu = Me.ContextMenu1 MnuKundendossier_Click(sender, e) 'Me.TBLeft.Columns("rollelevel").FilterText = 2 Me.TBLeft.ScrollTips = True Me.TBRight.ScrollTips = True Me.TBBottom.ScrollTips = True End Sub Private Sub TBBottom_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBBottom.FetchScrollTips 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 End Sub Private Sub TBLeft_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBLeft.FetchScrollTips 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 End Sub Private Sub TBRight_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBRight.FetchScrollTips 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 End Sub Private Sub frmRolle_SysadminFunktion_Close(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 Insert_TBBottom() End Sub Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing Dim msg As MsgBoxResult If Me.DataSet3.HasChanges Then msg = Globals.MyMsg.Show_MessageYesNoCancel(2) If msg = MsgBoxResult.No Then e.Cancel = False End If If msg = MsgBoxResult.Yes Then If Save_Data() Then e.Cancel = False Else e.Cancel = True End If If msg = MsgBoxResult.Cancel Then e.Cancel = True End If End Sub Private Sub check_changes() Dim msg As MsgBoxResult If Me.DataSet3.HasChanges Then msg = Globals.MyMsg.Show_MessageYesNo(2) If msg = MsgBoxResult.Yes Then Save_Data() End If End If End Sub Private Sub MnuGesamt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuGesamt.Click Try Me.DataSet2.Tables.Clear() Catch End Try Dim hdata As New edokadb.clsMyDokumentart() hdata.cpMainConnectionProvider = conn hierarchie = hdata.SelectHierarchy_Parametrisierung_By_Root(1) Me.TBRight.DataSource = hierarchie Me.DataSet2.Tables.Add(hierarchie) SpaltenTitel_Aktualisieren(2, "dokumentart", Me.DataSet2) End Sub Private Sub MnuKundendossier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuKundendossier.Click Try Me.DataSet2.Tables.Clear() Catch End Try Dim hdata As New edokadb.clsMyDokumentart() hdata.cpMainConnectionProvider = conn hierarchie = hdata.SelectHierarchy_Parametrisierung_By_Root(2) Me.TBRight.DataSource = hierarchie Me.DataSet2.Tables.Add(hierarchie) SpaltenTitel_Aktualisieren(2, "dokumentart", Me.DataSet2) End Sub Private Sub MnuErstellung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuErstellung.Click Try Me.DataSet2.Tables.Clear() Catch End Try Dim hdata As New edokadb.clsMyDokumentart() hdata.cpMainConnectionProvider = conn hierarchie = hdata.SelectHierarchy_Parametrisierung_By_Root(4) Me.TBRight.DataSource = hierarchie Me.DataSet2.Tables.Add(hierarchie) SpaltenTitel_Aktualisieren(2, "dokumentart", Me.DataSet2) End Sub Private Sub MnuHost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuHost.Click Try Me.DataSet2.Tables.Clear() Catch End Try Dim hdata As New edokadb.clsMyDokumentart() hdata.cpMainConnectionProvider = conn hierarchie = hdata.SelectHierarchy_Parametrisierung_By_Root(3) Me.TBRight.DataSource = hierarchie Me.DataSet2.Tables.Add(hierarchie) SpaltenTitel_Aktualisieren(2, "dokumentart", Me.DataSet2) End Sub Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Me.Close() End Sub Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Save_Data() End Sub #End Region #Region "Datahandling" Public Sub LoadData() Dim dbconn As New EDOKA.DB_Connection() Dim t As DataTable Me.SqlConnection1.ConnectionString = Globals.sConnectionString Me.SqlConnection1.Open() ' Nur für den aktuell gewählten Mandanten die Daten auslesen Me.SqlDataAdapter1.SelectCommand.Parameters.Clear() Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr) Me.SqlDataAdapter1.Fill(Me.DataSet1) Me.TBLeft.DataSource = Me.DataSet1 Me.TBLeft.DataMember = Me.TableNameLeft UpdateGrpText(5029, 5030, 5031) Me.GroupBox1.Text = Globals.MyTxt.gettext(5041) Me.SqlDataAdapter2.SelectCommand.Parameters.Clear() Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr) Me.SqlDataAdapter2.Fill(Me.DataSet4) Me.CheckedListBox1.DataSource = Me.DataSet4.Tables(0) Me.CheckedListBox1.ValueMember = "berechtigungnr" Me.CheckedListBox1.DisplayMember = "bezeichnung" End Sub Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange check_changes() Refresh_TBBottom() End Sub Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange check_changes() Refresh_TBBottom() End Sub Private Sub TBBottom_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBBottom.RowColChange check_changes() CheckedListbox1_Selectedvalues() End Sub Public Sub Refresh_TBBottom() Me.SqlDataAdapter3.SelectCommand.Parameters.Clear() If Me.FokusLeft.Checked Then Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1) Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value) Else Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2) Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value) End If Try Me.DataSet3.Clear() Me.SqlDataAdapter3.Fill(Me.DataSet3) Catch ex As Exception End Try Me.TBBottom.DataSource = Me.DataSet3 Me.TBBottom.DataMember = Me.TableNameBottom SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3) TBBottom_Format() CheckedListbox1_Selectedvalues() End Sub Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit 'Aktualisieren von Mutierer und Mutiert_am Dim i As Integer For i = 0 To Me.TBBottom.Columns.Count - 1 If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr Next End Sub Private Sub Insert_TBBottom() Dim iLeft As Integer Dim iRigth As Integer Dim ic, i As Integer Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection Dim vdata As New edokadb.clsRolle_dokumentart() Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim Currentsel As Boolean Dim key As Long iLeft = Me.TBLeft.SelectedRows.Count iRigth = Me.TBRight.SelectedRows.Count If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation) Exit Sub End If If Me.FokusLeft.Checked Then ic = iRigth colRows = Me.TBRight.SelectedRows Else ic = iLeft colRows = Me.TBLeft.SelectedRows End If If ic = 0 Then ic = ic + 1 Currentsel = True End If For i = 0 To ic - 1 vdata.bAktiv = New SqlBoolean(CType(True, Boolean)) vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32)) vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) If Me.FokusLeft.Checked Then vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32)) If Currentsel Then vdata.iDokumentartnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32)) Else vdata.iDokumentartnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32)) End If Else If Currentsel Then vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32)) Else vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32)) End If vdata.iDokumentartnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32)) End If vdata.bAbschliessen = New SqlBoolean(CType(False, Boolean)) vdata.bAnzeigen = New SqlBoolean(CType(False, Boolean)) vdata.bErstellen = New SqlBoolean(CType(False, Boolean)) vdata.bBearbeiten = New SqlBoolean(CType(False, Boolean)) vdata.bLoeschen = New SqlBoolean(CType(False, Boolean)) vdata.bAusschluss = New SqlBoolean(CType(False, Boolean)) vdata.bMitarbeiter_gestattet = New SqlBoolean(CType(False, Boolean)) vdata.bVertraulich_gestattet = New SqlBoolean(CType(False, Boolean)) vdata.bChiffre_gestattet = New SqlBoolean(CType(False, Boolean)) dbkey.cpMainConnectionProvider = conn key = dbkey.get_dbkey("rolle_dokumentart") vdata.iRolledokumentartnr = New SqlInt32(CType(key, Int32)) vdata.cpMainConnectionProvider = conn conn.OpenConnection() vdata.Insert() conn.CloseConnection(True) Next vdata.Dispose() Refresh_TBBottom() End Sub Private Function Save_Data() As Boolean Save_Data = True Try SqlDataAdapter3.Update(Me.DataSet3) Catch ex As Exception MsgBox(Globals.MyMsg.Get_Meldungstext(902) + ex.Message) Save_Data = False End Try End Function #End Region #Region "Toolbar" Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Select Case ToolBar1.Buttons.IndexOf(e.Button) Case 0 'close button Me.Close() Case 1 'Speichern Save_Data() Case Else Throw New Exception(MyMsg.Get_Meldungstext(901)) End Select End Sub #End Region #Region "CheckedListbox" Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck Dim i As Integer Dim bm As Long If Set_Selected_Values Then Exit Sub Select Case Me.CheckedListBox1.SelectedValue Case 1 For i = 0 To TBBottom.Columns.Count - 1 If Me.TBBottom.Columns(i).DataField = "anzeigen" Then Me.TBBottom.Columns(i).Value = e.NewValue End If Next Case 2 For i = 0 To TBBottom.Columns.Count - 1 If Me.TBBottom.Columns(i).DataField = "erstellen" Then Me.TBBottom.Columns(i).Value = e.NewValue End If Next Case 3 For i = 0 To TBBottom.Columns.Count - 1 If Me.TBBottom.Columns(i).DataField = "bearbeiten" Then Me.TBBottom.Columns(i).Value = e.NewValue End If Next Case 4 For i = 0 To TBBottom.Columns.Count - 1 If Me.TBBottom.Columns(i).DataField = "loeschen" Then Me.TBBottom.Columns(i).Value = e.NewValue End If Next Case 5 For i = 0 To TBBottom.Columns.Count - 1 If Me.TBBottom.Columns(i).DataField = "abschliessen" Then Me.TBBottom.Columns(i).Value = e.NewValue End If Next End Select For i = 0 To Me.TBBottom.Columns.Count - 1 If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr Next End Sub Private Sub CheckedListbox1_Selectedvalues() Dim i As Integer Set_Selected_Values = True Me.CheckedListBox1.SetItemChecked(0, False) Me.CheckedListBox1.SetItemChecked(1, False) Me.CheckedListBox1.SetItemChecked(2, False) Me.CheckedListBox1.SetItemChecked(3, False) Me.CheckedListBox1.SetItemChecked(4, False) Try For i = 0 To TBBottom.Columns.Count - 1 If Me.TBBottom.Columns(i).DataField = "anzeigen" Then Me.CheckedListBox1.SetItemChecked(0, Me.TBBottom.Columns(i).Text) End If If Me.TBBottom.Columns(i).DataField = "erstellen" Then Me.CheckedListBox1.SetItemChecked(1, Me.TBBottom.Columns(i).Text) End If If Me.TBBottom.Columns(i).DataField = "bearbeiten" Then Me.CheckedListBox1.SetItemChecked(2, Me.TBBottom.Columns(i).Text) End If If Me.TBBottom.Columns(i).DataField = "loeschen" Then Me.CheckedListBox1.SetItemChecked(3, Me.TBBottom.Columns(i).Text) End If If Me.TBBottom.Columns(i).DataField = "abschliessen" Then Me.CheckedListBox1.SetItemChecked(4, Me.TBBottom.Columns(i).Text) End If Next Catch End Try Set_Selected_Values = False End Sub #End Region End Class