Imports System.IO Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlTypes Public Class frmBLParameter 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 ToolBarButton1 As System.Windows.Forms.ToolBarButton Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents txtQuittung2 As System.Windows.Forms.TextBox Friend WithEvents txtQuittung1 As System.Windows.Forms.TextBox Friend WithEvents txtBeilagen2 As System.Windows.Forms.TextBox Friend WithEvents txtBeilagen1 As System.Windows.Forms.TextBox Friend WithEvents txtForm2 As System.Windows.Forms.TextBox Friend WithEvents txtForm1 As System.Windows.Forms.TextBox Friend WithEvents txtArt2 As System.Windows.Forms.TextBox Friend WithEvents txtArt1 As System.Windows.Forms.TextBox Friend WithEvents txtGrundlage3 As System.Windows.Forms.TextBox Friend WithEvents txtGrundlage2 As System.Windows.Forms.TextBox Friend WithEvents txtGrundlage1 As System.Windows.Forms.TextBox Friend WithEvents cbDokumenttyp As System.Windows.Forms.ComboBox Friend WithEvents txtGrundlage4 As System.Windows.Forms.TextBox Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents DataSet1 As System.Data.DataSet Friend WithEvents DomainList 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 Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents FnktList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents mnuAdd As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu Friend WithEvents mnuDelete As System.Windows.Forms.MenuItem Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBLParameter)) Me.ToolBar1 = New System.Windows.Forms.ToolBar() Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.txtQuittung2 = New System.Windows.Forms.TextBox() Me.txtQuittung1 = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() Me.txtBeilagen2 = New System.Windows.Forms.TextBox() Me.txtBeilagen1 = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.txtForm2 = New System.Windows.Forms.TextBox() Me.txtForm1 = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() Me.txtArt2 = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.txtArt1 = New System.Windows.Forms.TextBox() Me.txtGrundlage4 = New System.Windows.Forms.TextBox() Me.txtGrundlage3 = New System.Windows.Forms.TextBox() Me.txtGrundlage2 = New System.Windows.Forms.TextBox() Me.txtGrundlage1 = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.cbDokumenttyp = New System.Windows.Forms.ComboBox() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.FnktList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu2 = New System.Windows.Forms.ContextMenu() Me.mnuDelete = New System.Windows.Forms.MenuItem() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.DomainList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu1 = New System.Windows.Forms.ContextMenu() Me.mnuAdd = New System.Windows.Forms.MenuItem() Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection() Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand() 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.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter() Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components) Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.TabPage2.SuspendLayout() Me.GroupBox3.SuspendLayout() CType(Me.FnktList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox2.SuspendLayout() CType(Me.DomainList, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ToolBar1 ' Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2}) 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(800, 28) Me.ToolBar1.TabIndex = 2 ' 'ToolBarButton1 ' Me.ToolBarButton1.ImageIndex = 0 Me.ToolBarButton1.Name = "ToolBarButton1" ' 'ToolBarButton2 ' Me.ToolBarButton2.ImageIndex = 1 Me.ToolBarButton2.Name = "ToolBarButton2" ' '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, "") Me.ImageList1.Images.SetKeyName(2, "") Me.ImageList1.Images.SetKeyName(3, "") Me.ImageList1.Images.SetKeyName(4, "") Me.ImageList1.Images.SetKeyName(5, "") Me.ImageList1.Images.SetKeyName(6, "") Me.ImageList1.Images.SetKeyName(7, "") Me.ImageList1.Images.SetKeyName(8, "") ' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControl1.Location = New System.Drawing.Point(0, 28) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(800, 377) Me.TabControl1.TabIndex = 3 ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.GroupBox1) Me.TabPage1.Controls.Add(Me.Label1) Me.TabPage1.Controls.Add(Me.cbDokumenttyp) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Size = New System.Drawing.Size(792, 351) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Dokumentvorlage" ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.txtQuittung2) Me.GroupBox1.Controls.Add(Me.txtQuittung1) Me.GroupBox1.Controls.Add(Me.Label6) Me.GroupBox1.Controls.Add(Me.txtBeilagen2) Me.GroupBox1.Controls.Add(Me.txtBeilagen1) Me.GroupBox1.Controls.Add(Me.Label5) Me.GroupBox1.Controls.Add(Me.txtForm2) Me.GroupBox1.Controls.Add(Me.txtForm1) Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Controls.Add(Me.txtArt2) Me.GroupBox1.Controls.Add(Me.Label3) Me.GroupBox1.Controls.Add(Me.Label2) Me.GroupBox1.Controls.Add(Me.txtArt1) Me.GroupBox1.Controls.Add(Me.txtGrundlage4) Me.GroupBox1.Controls.Add(Me.txtGrundlage3) Me.GroupBox1.Controls.Add(Me.txtGrundlage2) Me.GroupBox1.Controls.Add(Me.txtGrundlage1) Me.GroupBox1.Location = New System.Drawing.Point(8, 56) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(784, 400) Me.GroupBox1.TabIndex = 6 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Dokumenttexte" ' 'txtQuittung2 ' Me.txtQuittung2.Location = New System.Drawing.Point(120, 264) Me.txtQuittung2.Name = "txtQuittung2" Me.txtQuittung2.Size = New System.Drawing.Size(648, 20) Me.txtQuittung2.TabIndex = 16 ' 'txtQuittung1 ' Me.txtQuittung1.Location = New System.Drawing.Point(120, 240) Me.txtQuittung1.Name = "txtQuittung1" Me.txtQuittung1.Size = New System.Drawing.Size(648, 20) Me.txtQuittung1.TabIndex = 15 ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(8, 240) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(112, 23) Me.Label6.TabIndex = 14 Me.Label6.Text = "Quittung" ' 'txtBeilagen2 ' Me.txtBeilagen2.Location = New System.Drawing.Point(120, 208) Me.txtBeilagen2.Name = "txtBeilagen2" Me.txtBeilagen2.Size = New System.Drawing.Size(648, 20) Me.txtBeilagen2.TabIndex = 13 ' 'txtBeilagen1 ' Me.txtBeilagen1.Location = New System.Drawing.Point(120, 184) Me.txtBeilagen1.Name = "txtBeilagen1" Me.txtBeilagen1.Size = New System.Drawing.Size(648, 20) Me.txtBeilagen1.TabIndex = 12 ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(8, 184) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(112, 23) Me.Label5.TabIndex = 11 Me.Label5.Text = "Beilagen" ' 'txtForm2 ' Me.txtForm2.Enabled = False Me.txtForm2.Location = New System.Drawing.Point(128, 400) Me.txtForm2.Name = "txtForm2" Me.txtForm2.Size = New System.Drawing.Size(648, 20) Me.txtForm2.TabIndex = 10 Me.txtForm2.Visible = False ' 'txtForm1 ' Me.txtForm1.Enabled = False Me.txtForm1.Location = New System.Drawing.Point(128, 376) Me.txtForm1.Name = "txtForm1" Me.txtForm1.Size = New System.Drawing.Size(648, 20) Me.txtForm1.TabIndex = 9 Me.txtForm1.Visible = False ' 'Label4 ' Me.Label4.Enabled = False Me.Label4.Location = New System.Drawing.Point(16, 376) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(112, 23) Me.Label4.TabIndex = 8 Me.Label4.Text = "Aushändigungsform" Me.Label4.Visible = False ' 'txtArt2 ' Me.txtArt2.Location = New System.Drawing.Point(120, 152) Me.txtArt2.Name = "txtArt2" Me.txtArt2.Size = New System.Drawing.Size(648, 20) Me.txtArt2.TabIndex = 7 ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(8, 128) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(100, 23) Me.Label3.TabIndex = 6 Me.Label3.Text = "Aushändigungsart" ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(8, 24) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(100, 23) Me.Label2.TabIndex = 5 Me.Label2.Text = "Grundlagen" ' 'txtArt1 ' Me.txtArt1.Location = New System.Drawing.Point(120, 128) Me.txtArt1.Name = "txtArt1" Me.txtArt1.Size = New System.Drawing.Size(648, 20) Me.txtArt1.TabIndex = 4 ' 'txtGrundlage4 ' Me.txtGrundlage4.Location = New System.Drawing.Point(120, 96) Me.txtGrundlage4.Name = "txtGrundlage4" Me.txtGrundlage4.Size = New System.Drawing.Size(648, 20) Me.txtGrundlage4.TabIndex = 3 ' 'txtGrundlage3 ' Me.txtGrundlage3.Location = New System.Drawing.Point(120, 72) Me.txtGrundlage3.Name = "txtGrundlage3" Me.txtGrundlage3.Size = New System.Drawing.Size(648, 20) Me.txtGrundlage3.TabIndex = 2 ' 'txtGrundlage2 ' Me.txtGrundlage2.Location = New System.Drawing.Point(120, 48) Me.txtGrundlage2.Name = "txtGrundlage2" Me.txtGrundlage2.Size = New System.Drawing.Size(648, 20) Me.txtGrundlage2.TabIndex = 1 ' 'txtGrundlage1 ' Me.txtGrundlage1.Location = New System.Drawing.Point(120, 24) Me.txtGrundlage1.Name = "txtGrundlage1" Me.txtGrundlage1.Size = New System.Drawing.Size(648, 20) Me.txtGrundlage1.TabIndex = 0 ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(8, 16) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(120, 32) Me.Label1.TabIndex = 5 Me.Label1.Text = "Dokumenttyp BL-Quittung" ' 'cbDokumenttyp ' Me.cbDokumenttyp.Location = New System.Drawing.Point(128, 16) Me.cbDokumenttyp.Name = "cbDokumenttyp" Me.cbDokumenttyp.Size = New System.Drawing.Size(368, 21) Me.cbDokumenttyp.TabIndex = 4 Me.cbDokumenttyp.Text = "ComboBox1" ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.GroupBox3) Me.TabPage2.Controls.Add(Me.GroupBox2) Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Size = New System.Drawing.Size(792, 351) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "KUBE-Funktionen" ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.FnktList) Me.GroupBox3.Location = New System.Drawing.Point(384, 16) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(400, 416) Me.GroupBox3.TabIndex = 1 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Funktionen 'KUBE'" ' 'FnktList ' Me.FnktList.AlternatingRows = True Me.FnktList.BackColor = System.Drawing.Color.Gray Me.FnktList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored Me.FnktList.ContextMenu = Me.ContextMenu2 Me.FnktList.Dock = System.Windows.Forms.DockStyle.Fill Me.FnktList.FilterBar = True Me.FnktList.GroupByCaption = "Drag a column header here to group by that column" Me.FnktList.Images.Add(CType(resources.GetObject("FnktList.Images"), System.Drawing.Image)) Me.FnktList.Location = New System.Drawing.Point(3, 16) Me.FnktList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder Me.FnktList.Name = "FnktList" Me.FnktList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.FnktList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.FnktList.PreviewInfo.ZoomFactor = 75.0R Me.FnktList.PrintInfo.PageSettings = CType(resources.GetObject("FnktList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.FnktList.Size = New System.Drawing.Size(394, 397) Me.FnktList.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation Me.FnktList.TabIndex = 9 Me.FnktList.Text = "C1TrueDBGrid1" Me.FnktList.PropBag = resources.GetString("FnktList.PropBag") ' 'ContextMenu2 ' Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuDelete}) ' 'mnuDelete ' Me.mnuDelete.Index = 0 Me.mnuDelete.Text = "&Funktion löschen" ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.DomainList) Me.GroupBox2.Location = New System.Drawing.Point(8, 16) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(376, 416) Me.GroupBox2.TabIndex = 0 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Funktionen" ' 'DomainList ' Me.DomainList.AlternatingRows = True Me.DomainList.BackColor = System.Drawing.Color.Gray Me.DomainList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored Me.DomainList.ContextMenu = Me.ContextMenu1 Me.DomainList.Dock = System.Windows.Forms.DockStyle.Fill Me.DomainList.FilterBar = True Me.DomainList.GroupByCaption = "Drag a column header here to group by that column" Me.DomainList.Images.Add(CType(resources.GetObject("DomainList.Images"), System.Drawing.Image)) Me.DomainList.Location = New System.Drawing.Point(3, 16) Me.DomainList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder Me.DomainList.Name = "DomainList" Me.DomainList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DomainList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DomainList.PreviewInfo.ZoomFactor = 75.0R Me.DomainList.PrintInfo.PageSettings = CType(resources.GetObject("DomainList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DomainList.Size = New System.Drawing.Size(370, 397) Me.DomainList.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation Me.DomainList.TabIndex = 8 Me.DomainList.Text = "C1TrueDBGrid1" Me.DomainList.PropBag = resources.GetString("DomainList.PropBag") ' 'ContextMenu1 ' Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAdd}) ' 'mnuAdd ' Me.mnuAdd.Index = 0 Me.mnuAdd.Text = "&Funktion hinzufügen" ' '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 ' '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", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), 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"), New System.Data.Common.DataColumnMapping("funktionszuweisung", "funktionszuweisung"), New System.Data.Common.DataColumnMapping("barcodeetiketten", "barcodeetiketten"), New System.Data.Common.DataColumnMapping("edokapartner", "edokapartner"), New System.Data.Common.DataColumnMapping("Dokumentreaktivierung", "Dokumentreaktivierung"), New System.Data.Common.DataColumnMapping("Partnerzusammenlegung", "Partnerzusammenlegung")})}) Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1 ' 'SqlDeleteCommand1 ' Me.SqlDeleteCommand1.CommandText = "[pv_funktionsgruppe_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_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokumentreaktivierung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokumentreaktivierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Partnerzusammenlegung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Partnerzusammenlegung", 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_barcodeetiketten", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "barcodeetiketten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, 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, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_edokapartner", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edokapartner", 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_funktionszuweisung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionszuweisung", 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_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zugehoerigkeit", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand1 ' Me.SqlInsertCommand1.CommandText = "[pv_funktionsgruppe_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("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"), 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"), New System.Data.SqlClient.SqlParameter("@funktionszuweisung", System.Data.SqlDbType.Bit, 1, "funktionszuweisung"), New System.Data.SqlClient.SqlParameter("@barcodeetiketten", System.Data.SqlDbType.Bit, 1, "barcodeetiketten"), New System.Data.SqlClient.SqlParameter("@edokapartner", System.Data.SqlDbType.Bit, 1, "edokapartner"), New System.Data.SqlClient.SqlParameter("@Dokumentreaktivierung", System.Data.SqlDbType.Bit, 1, "Dokumentreaktivierung"), New System.Data.SqlClient.SqlParameter("@Partnerzusammenlegung", System.Data.SqlDbType.Bit, 1, "Partnerzusammenlegung")}) ' 'SqlSelectCommand1 ' Me.SqlSelectCommand1.CommandText = "[pv_funktionsgruppe_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_funktionsgruppe_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("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"), 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("@funktionszuweisung", System.Data.SqlDbType.Bit, 1, "funktionszuweisung"), New System.Data.SqlClient.SqlParameter("@barcodeetiketten", System.Data.SqlDbType.Bit, 1, "barcodeetiketten"), New System.Data.SqlClient.SqlParameter("@edokapartner", System.Data.SqlDbType.Bit, 1, "edokapartner"), New System.Data.SqlClient.SqlParameter("@Dokumentreaktivierung", System.Data.SqlDbType.Bit, 1, "Dokumentreaktivierung"), New System.Data.SqlClient.SqlParameter("@Partnerzusammenlegung", System.Data.SqlDbType.Bit, 1, "Partnerzusammenlegung"), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokumentreaktivierung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokumentreaktivierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Partnerzusammenlegung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Partnerzusammenlegung", 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_barcodeetiketten", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "barcodeetiketten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, 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, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_edokapartner", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edokapartner", 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_funktionszuweisung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionszuweisung", 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_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" ' 'SqlDataAdapter2 ' Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2 Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2 Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2 Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2 ' 'frmBLParameter ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(800, 405) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.ToolBar1) Me.Menu = Me.MainMenu1 Me.Name = "frmBLParameter" Me.Text = "Banklagernd-Parameter " Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.TabPage2.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False) CType(Me.FnktList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox2.ResumeLayout(False) CType(Me.DomainList, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" Dim WithEvents mcbdoktyp As MultiComboBox #End Region #Region "Load" Private Sub frmBLParameter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load fill_Doktyp() Get_Parameterdata() Funktionen_Laden() Kube_Funktionen_Laden() End Sub #End Region #Region "Formularhandling" 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 'Exit Me.Close() Case 1 Me.Save_Parameterdata() End Select End Sub #End Region #Region "Datenhandling" Private Sub Get_Parameterdata() Dim blp As New edokadb.clsEdex_bl_parameter() blp.cpMainConnectionProvider = conn blp.iBlvparamnr = New SqlInt32(CType(1, Int32)) blp.SelectOne() Me.txtGrundlage1.Text = blp.sTxtGrundlage1.Value Me.txtGrundlage2.Text = blp.sTxtGrundlage2.Value Me.txtGrundlage3.Text = blp.sTxtGrundlage3.Value Me.txtGrundlage4.Text = blp.sTxtGrundlage4.Value Me.txtArt1.Text = blp.sTxtArt1.Value Me.txtArt2.Text = blp.sTxtArt2.Value Me.txtForm1.Text = blp.sTxtForm1.Value Me.txtForm2.Text = blp.sTxtForm2.Value Me.txtBeilagen1.Text = blp.sTxtbeilage1.Value Me.txtBeilagen2.Text = blp.sTxtbeilage2.Value Me.txtQuittung1.Text = blp.sTxtQuittung1.Value Me.txtQuittung2.Text = blp.sTxtQuittung2.Value Dim I As Integer I = blp.iBlvdokumenttypnr.Value Me.mcbdoktyp.SelectedValue = I blp.Dispose() End Sub Private Sub Save_Parameterdata() Dim blp As New edokadb.clsEdex_bl_parameter() blp.cpMainConnectionProvider = conn blp.iBlvparamnr = New SqlInt32(CType(1, Integer)) blp.SelectOne() blp.sTxtGrundlage1 = New SqlString(CType(Me.txtGrundlage1.Text, String)) blp.sTxtGrundlage2 = New SqlString(CType(Me.txtGrundlage2.Text, String)) blp.sTxtGrundlage3 = New SqlString(CType(Me.txtGrundlage3.Text, String)) blp.sTxtGrundlage4 = New SqlString(CType(Me.txtGrundlage4.Text, String)) blp.sTxtArt1 = New SqlString(CType(Me.txtArt1.Text, String)) blp.sTxtArt2 = New SqlString(CType(Me.txtArt2.Text, String)) blp.sTxtForm1 = New SqlString(CType(Me.txtForm1.Text, String)) blp.sTxtForm2 = New SqlString(CType(Me.txtForm2.Text, String)) blp.sTxtbeilage1 = New SqlString(CType(Me.txtBeilagen1.Text, String)) blp.sTxtbeilage2 = New SqlString(CType(Me.txtBeilagen2.Text, String)) blp.sTxtQuittung1 = New SqlString(CType(Me.txtQuittung1.Text, String)) blp.sTxtQuittung2 = New SqlString(CType(Me.txtQuittung2.Text, String)) blp.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) blp.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) blp.iBlvdokumenttypnr = New SqlInt32(CType(Me.mcbdoktyp.SelectedValue, Int32)) conn.OpenConnection() blp.Update() conn.CloseConnection(True) blp.Dispose() End Sub Private Sub fill_Doktyp() Me.mcbdoktyp = New MultiComboBox(Me.cbDokumenttyp) Me.mcbdoktyp.CheckNullValue = True Me.mcbdoktyp.NullValueMessage = MyTxt.gettext(18) Me.mcbdoktyp.DisplayColumnName = "Bezeichnung" Me.mcbdoktyp.ValueColumnName = "Dokumenttypnr" Me.mcbdoktyp.Fill_Data(Get_Dokumenttyp, False) End Sub Private Function Get_Dokumenttyp() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_dokumenttyp" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() dtToReturn.Dispose() End Try End Function Private Sub Funktionen_Laden() Dim dbconn As New EDOKA.DB_Connection() 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.DomainList.DataSource = Me.DataSet1 Me.DomainList.DataMember = "funktionsgruppe" DivFnkt.SpaltenTitel_Aktualisieren(Me.DomainList, Me.DataSet1.Tables(0), "funktionsgruppe") End Sub Private Sub Kube_Funktionen_Laden() Me.FnktList.DataSource = Nothing Me.FnktList.DataMember = Nothing Dim dt As DataTable dt = KubeFunktionen_Laden() Me.FnktList.DataSource = dt Me.FnktList.DataMember = "edex_bl_kubefnkt" DivFnkt.SpaltenTitel_Aktualisieren(Me.FnktList, Me.DataSet1.Tables(0), "edex_bl_kubefnkt") End Sub Private Function KubeFunktionen_Laden() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_kubefnkt" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = conn.scoDBConnection sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() dtToReturn.Dispose() End Try End Function Private Function Insert_Funktion() Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_edex_bl_insert_kubefnkt" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DomainList.Columns(0).Value)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() dtToReturn.Dispose() End Try End Function Private Function delete_Funktion() Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_edex_bl_delete_kubefnkt" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.FnktList.Columns(0).Value)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() dtToReturn.Dispose() End Try End Function #End Region Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged If Me.TabControl1.SelectedIndex = 0 Then Me.ToolBar1.Buttons(1).Enabled = True Else Me.ToolBar1.Buttons(1).Enabled = False End If End Sub Private Sub DomainList_doubleclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick Insert_Funktion() Kube_Funktionen_Laden() End Sub Private Sub mnuAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAdd.Click Insert_Funktion() Kube_Funktionen_Laden() End Sub Private Sub mnuDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDelete.Click delete_Funktion() Kube_Funktionen_Laden() End Sub Private Sub FnktList_Doubleclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FnktList.DoubleClick delete_Funktion() Kube_Funktionen_Laden() End Sub Private Sub DomainList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DomainList.MouseDown Me.DomainList.Bookmark = Me.DomainList.RowContaining(e.Y) End Sub Private Sub FnktList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FnktList.MouseDown Me.FnktList.Bookmark = Me.FnktList.RowContaining(e.Y) End Sub End Class