You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
582 lines
51 KiB
582 lines
51 KiB
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Color
|
|
Imports System.ComponentModel
|
|
|
|
Public Class xfrmDomainMitarbeiter
|
|
Inherits _frmDomainEditor
|
|
|
|
#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 SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
Friend WithEvents C1TrueDBDropdown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
|
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
|
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 DataSet3 As System.Data.DataSet
|
|
Friend WithEvents C1TrueDBDropdown2 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
|
Friend WithEvents C1TrueDBDropdown3 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
|
Friend WithEvents SqlDataAdapter4 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlSelectCommand4 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand4 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand4 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand4 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents DataSet4 As System.Data.DataSet
|
|
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
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDomainMitarbeiter))
|
|
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
|
Me.DataSet1 = New System.Data.DataSet()
|
|
Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
|
Me.SqlDataAdapter3 = 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.DataSet3 = New System.Data.DataSet()
|
|
Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
|
Me.C1TrueDBDropdown3 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
|
Me.SqlDataAdapter4 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand4 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand4 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand4 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand4 = New System.Data.SqlClient.SqlCommand()
|
|
Me.DataSet4 = New System.Data.DataSet()
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.C1TrueDBDropdown3, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'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", "mitarbeiter", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("vorname", "vorname"), New System.Data.Common.DataColumnMapping("name", "name"), New System.Data.Common.DataColumnMapping("tgnummer", "tgnummer"), New System.Data.Common.DataColumnMapping("email", "email"), New System.Data.Common.DataColumnMapping("fax", "fax"), New System.Data.Common.DataColumnMapping("telefon", "telefon"), New System.Data.Common.DataColumnMapping("unterschrift_text", "unterschrift_text"), New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("fuermandant", "fuermandant"), New System.Data.Common.DataColumnMapping("showtip", "showtip"), New System.Data.Common.DataColumnMapping("partnernr", "partnernr"), 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
|
|
'
|
|
'SqlConnection1
|
|
'
|
|
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
|
"station id=SHU;packet size=4096"
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
'
|
|
'C1TrueDBDropdown1
|
|
'
|
|
Me.C1TrueDBDropdown1.AllowColMove = True
|
|
Me.C1TrueDBDropdown1.AllowColSelect = True
|
|
Me.C1TrueDBDropdown1.AllowFilter = True
|
|
Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.C1TrueDBDropdown1.AllowSort = True
|
|
Me.C1TrueDBDropdown1.AlternatingRows = False
|
|
Me.C1TrueDBDropdown1.CaptionHeight = 17
|
|
Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17
|
|
Me.C1TrueDBDropdown1.ColumnFooterHeight = 17
|
|
Me.C1TrueDBDropdown1.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.C1TrueDBDropdown1.FetchRowStyles = False
|
|
Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
|
Me.C1TrueDBDropdown1.LayoutFileName = ""
|
|
Me.C1TrueDBDropdown1.LayoutName = ""
|
|
Me.C1TrueDBDropdown1.LayoutURL = ""
|
|
Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(384, 0)
|
|
Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.C1TrueDBDropdown1.RowDivider = GridLines1
|
|
Me.C1TrueDBDropdown1.RowHeight = 15
|
|
Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.C1TrueDBDropdown1.ScrollTips = False
|
|
Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(216, 208)
|
|
Me.C1TrueDBDropdown1.TabIndex = 5
|
|
Me.C1TrueDBDropdown1.Text = "C1TrueDBDropdown1"
|
|
Me.C1TrueDBDropdown1.Visible = False
|
|
Me.C1TrueDBDropdown1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
|
|
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
|
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
|
|
"er;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Od" & _
|
|
"dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Bord" & _
|
|
"er:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{Al" & _
|
|
"ignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win" & _
|
|
".C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" C" & _
|
|
"olumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" " & _
|
|
"RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Clien" & _
|
|
"tRect>0, 0, 212, 204</ClientRect><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
|
|
"ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
|
|
"e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
|
|
"ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
|
|
"t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
|
|
"><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
|
|
"""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
|
|
"Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
|
|
"Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="""" me=""Normal""" & _
|
|
" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><" & _
|
|
"Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><S" & _
|
|
"tyle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style" & _
|
|
" parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Styl" & _
|
|
"e parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><S" & _
|
|
"tyle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Nam" & _
|
|
"edStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layou" & _
|
|
"t><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 212, 204</ClientA" & _
|
|
"rea></Blob>"
|
|
'
|
|
'SqlDataAdapter3
|
|
'
|
|
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
|
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
|
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
|
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "team", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("teamnr", "teamnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
|
|
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
|
'
|
|
'SqlDeleteCommand3
|
|
'
|
|
Me.SqlDeleteCommand3.CommandText = "[pv_team_aktiv_delete]"
|
|
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand3.Parameters.Add(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))
|
|
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_teamnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teamnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand3.Parameters.Add(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))
|
|
'
|
|
'SqlInsertCommand3
|
|
'
|
|
Me.SqlInsertCommand3.CommandText = "[pv_team_aktiv_insert]"
|
|
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand3.Parameters.Add(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))
|
|
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"))
|
|
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
|
'
|
|
'SqlSelectCommand3
|
|
'
|
|
Me.SqlSelectCommand3.CommandText = "[pv_team_aktiv_select]"
|
|
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand3.Parameters.Add(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))
|
|
'
|
|
'SqlUpdateCommand3
|
|
'
|
|
Me.SqlUpdateCommand3.CommandText = "[pv_team_aktiv_update]"
|
|
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand3.Parameters.Add(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))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_teamnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teamnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand3.Parameters.Add(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))
|
|
'
|
|
'DataSet3
|
|
'
|
|
Me.DataSet3.DataSetName = "NewDataSet"
|
|
'
|
|
'C1TrueDBDropdown2
|
|
'
|
|
Me.C1TrueDBDropdown2.AllowColMove = True
|
|
Me.C1TrueDBDropdown2.AllowColSelect = True
|
|
Me.C1TrueDBDropdown2.AllowFilter = True
|
|
Me.C1TrueDBDropdown2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.C1TrueDBDropdown2.AllowSort = True
|
|
Me.C1TrueDBDropdown2.AlternatingRows = False
|
|
Me.C1TrueDBDropdown2.CaptionHeight = 17
|
|
Me.C1TrueDBDropdown2.ColumnCaptionHeight = 17
|
|
Me.C1TrueDBDropdown2.ColumnFooterHeight = 17
|
|
Me.C1TrueDBDropdown2.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.C1TrueDBDropdown2.FetchRowStyles = False
|
|
Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
|
Me.C1TrueDBDropdown2.LayoutFileName = ""
|
|
Me.C1TrueDBDropdown2.LayoutName = ""
|
|
Me.C1TrueDBDropdown2.LayoutURL = ""
|
|
Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(512, 0)
|
|
Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
|
|
GridLines2.Color = System.Drawing.Color.DarkGray
|
|
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.C1TrueDBDropdown2.RowDivider = GridLines2
|
|
Me.C1TrueDBDropdown2.RowHeight = 15
|
|
Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.C1TrueDBDropdown2.ScrollTips = False
|
|
Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(208, 168)
|
|
Me.C1TrueDBDropdown2.TabIndex = 6
|
|
Me.C1TrueDBDropdown2.Text = "C1TrueDBDropdown2"
|
|
Me.C1TrueDBDropdown2.Visible = False
|
|
Me.C1TrueDBDropdown2.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
|
|
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
|
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
|
|
"er;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Od" & _
|
|
"dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Bord" & _
|
|
"er:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{Al" & _
|
|
"ignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win" & _
|
|
".C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" C" & _
|
|
"olumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" " & _
|
|
"RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Clien" & _
|
|
"tRect>0, 0, 204, 164</ClientRect><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
|
|
"ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
|
|
"e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
|
|
"ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
|
|
"t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
|
|
"><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
|
|
"""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
|
|
"Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
|
|
"Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="""" me=""Normal""" & _
|
|
" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><" & _
|
|
"Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><S" & _
|
|
"tyle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style" & _
|
|
" parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Styl" & _
|
|
"e parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><S" & _
|
|
"tyle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Nam" & _
|
|
"edStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layou" & _
|
|
"t><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 204, 164</ClientA" & _
|
|
"rea></Blob>"
|
|
'
|
|
'C1TrueDBDropdown3
|
|
'
|
|
Me.C1TrueDBDropdown3.AllowColMove = True
|
|
Me.C1TrueDBDropdown3.AllowColSelect = True
|
|
Me.C1TrueDBDropdown3.AllowFilter = True
|
|
Me.C1TrueDBDropdown3.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.C1TrueDBDropdown3.AllowSort = True
|
|
Me.C1TrueDBDropdown3.AlternatingRows = False
|
|
Me.C1TrueDBDropdown3.CaptionHeight = 17
|
|
Me.C1TrueDBDropdown3.ColumnCaptionHeight = 17
|
|
Me.C1TrueDBDropdown3.ColumnFooterHeight = 17
|
|
Me.C1TrueDBDropdown3.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.C1TrueDBDropdown3.FetchRowStyles = False
|
|
Me.C1TrueDBDropdown3.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
|
|
Me.C1TrueDBDropdown3.LayoutFileName = ""
|
|
Me.C1TrueDBDropdown3.LayoutName = ""
|
|
Me.C1TrueDBDropdown3.LayoutURL = ""
|
|
Me.C1TrueDBDropdown3.Location = New System.Drawing.Point(280, 0)
|
|
Me.C1TrueDBDropdown3.Name = "C1TrueDBDropdown3"
|
|
GridLines3.Color = System.Drawing.Color.DarkGray
|
|
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.C1TrueDBDropdown3.RowDivider = GridLines3
|
|
Me.C1TrueDBDropdown3.RowHeight = 15
|
|
Me.C1TrueDBDropdown3.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.C1TrueDBDropdown3.ScrollTips = False
|
|
Me.C1TrueDBDropdown3.Size = New System.Drawing.Size(208, 184)
|
|
Me.C1TrueDBDropdown3.TabIndex = 7
|
|
Me.C1TrueDBDropdown3.Text = "C1TrueDBDropdown3"
|
|
Me.C1TrueDBDropdown3.Visible = False
|
|
Me.C1TrueDBDropdown3.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
|
|
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
|
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
|
|
"er;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Od" & _
|
|
"dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Bord" & _
|
|
"er:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{Al" & _
|
|
"ignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win" & _
|
|
".C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" C" & _
|
|
"olumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" " & _
|
|
"RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Clien" & _
|
|
"tRect>0, 0, 204, 180</ClientRect><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
|
|
"ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
|
|
"e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
|
|
"ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
|
|
"t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
|
|
"><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
|
|
"""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
|
|
"Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
|
|
"Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="""" me=""Normal""" & _
|
|
" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><" & _
|
|
"Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><S" & _
|
|
"tyle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style" & _
|
|
" parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Styl" & _
|
|
"e parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><S" & _
|
|
"tyle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Nam" & _
|
|
"edStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layou" & _
|
|
"t><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 204, 180</ClientA" & _
|
|
"rea></Blob>"
|
|
'
|
|
'SqlDataAdapter4
|
|
'
|
|
Me.SqlDataAdapter4.DeleteCommand = Me.SqlDeleteCommand4
|
|
Me.SqlDataAdapter4.InsertCommand = Me.SqlInsertCommand4
|
|
Me.SqlDataAdapter4.SelectCommand = Me.SqlSelectCommand4
|
|
Me.SqlDataAdapter4.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktion", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
|
|
Me.SqlDataAdapter4.UpdateCommand = Me.SqlUpdateCommand4
|
|
'
|
|
'SqlDeleteCommand4
|
|
'
|
|
Me.SqlDeleteCommand4.CommandText = "[pv_funktion_aktiv_delete]"
|
|
Me.SqlDeleteCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand4.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand4.Parameters.Add(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))
|
|
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand4.Parameters.Add(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))
|
|
'
|
|
'SqlInsertCommand4
|
|
'
|
|
Me.SqlInsertCommand4.CommandText = "[pv_funktion_aktiv_insert]"
|
|
Me.SqlInsertCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand4.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand4.Parameters.Add(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))
|
|
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
|
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
|
'
|
|
'SqlSelectCommand4
|
|
'
|
|
Me.SqlSelectCommand4.CommandText = "[pv_funktion_aktiv_select]"
|
|
Me.SqlSelectCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand4.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand4.Parameters.Add(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))
|
|
'
|
|
'SqlUpdateCommand4
|
|
'
|
|
Me.SqlUpdateCommand4.CommandText = "[pv_funktion_aktiv_update]"
|
|
Me.SqlUpdateCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand4.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand4.Parameters.Add(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))
|
|
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
|
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
|
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand4.Parameters.Add(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))
|
|
'
|
|
'DataSet4
|
|
'
|
|
Me.DataSet4.DataSetName = "NewDataSet"
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[pv_mitarbeiter_select]"
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand1.Parameters.Add(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))
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandant", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[pv_mitarbeiter_insert]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand1.Parameters.Add(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))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorname", System.Data.SqlDbType.VarChar, 50, "vorname"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.VarChar, 50, "name"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tgnummer", System.Data.SqlDbType.VarChar, 50, "tgnummer"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 50, "email"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fax", System.Data.SqlDbType.VarChar, 50, "fax"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 50, "telefon"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_text", System.Data.SqlDbType.VarChar, 50, "unterschrift_text"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fuermandant", System.Data.SqlDbType.Int, 4, "fuermandant"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@showtip", System.Data.SqlDbType.Bit, 1, "showtip"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnernr", System.Data.SqlDbType.Int, 4, "partnernr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
'
|
|
'SqlUpdateCommand1
|
|
'
|
|
Me.SqlUpdateCommand1.CommandText = "[pv_mitarbeiter_update]"
|
|
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorname", System.Data.SqlDbType.VarChar, 50, "vorname"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.VarChar, 50, "name"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tgnummer", System.Data.SqlDbType.VarChar, 50, "tgnummer"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 50, "email"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fax", System.Data.SqlDbType.VarChar, 50, "fax"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 50, "telefon"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_text", System.Data.SqlDbType.VarChar, 50, "unterschrift_text"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fuermandant", System.Data.SqlDbType.Int, 4, "fuermandant"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@showtip", System.Data.SqlDbType.Bit, 1, "showtip"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnernr", System.Data.SqlDbType.Int, 4, "partnernr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fax", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fax", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fuermandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fuermandant", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_name", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnernr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_showtip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showtip", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tgnummer", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tgnummer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_text", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_text", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorname", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorname", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[pv_mitarbeiter_delete]"
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fax", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fax", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fuermandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fuermandant", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_name", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnernr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_showtip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showtip", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tgnummer", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tgnummer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_text", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_text", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorname", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorname", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'frmDomainMitarbeiter
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(776, 465)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBDropdown3, Me.C1TrueDBDropdown2, Me.C1TrueDBDropdown1})
|
|
Me.Name = "frmDomainMitarbeiter"
|
|
Me.Text = ""
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.C1TrueDBDropdown3, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim i As Integer
|
|
Me.TableName = "mitarbeiter"
|
|
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 = Me.TableName
|
|
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
|
For i = 0 To Me.DomainList.Columns.Count - 1
|
|
If Me.DomainList.Columns(i).DataField = "kostenstellenr" Then Me.DomainList.Columns(i).DefaultValue = 1
|
|
If Me.DomainList.Columns(i).DataField = "partnernr" Then Me.DomainList.Columns(i).DefaultValue = 0
|
|
If Me.DomainList.Columns(i).DataField = "showtip" Then Me.DomainList.Columns(i).DefaultValue = True
|
|
If Me.DomainList.Columns(i).DataField = "fuermandant" Then Me.DomainList.Columns(i).DefaultValue = Globals.MandantNr
|
|
If Me.DomainList.Columns(i).DataField = "sprache" Then Me.DomainList.Columns(i).DefaultValue = 1
|
|
If Me.DomainList.Columns(i).DataField = "funktionnr" Then Me.DomainList.Columns(i).DefaultValue = 1
|
|
If Me.DomainList.Columns(i).DataField = "teamnr" Then Me.DomainList.Columns(i).DefaultValue = 1
|
|
Next
|
|
|
|
'funkction
|
|
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
|
Me.SqlDataAdapter4.SelectCommand.Parameters.Clear()
|
|
Me.SqlDataAdapter4.SelectCommand.Parameters.Add("@mandantnr", Globals.MandantNr)
|
|
Me.SqlDataAdapter4.Fill(Me.DataSet4)
|
|
Me.C1TrueDBDropdown3.DataSource = Me.DataSet4
|
|
Me.C1TrueDBDropdown3.DataMember = "funktion"
|
|
Me.C1TrueDBDropdown3.Columns(0).Caption = MyMsg.Get_Meldungstext(7014)
|
|
Me.C1TrueDBDropdown3.Columns(1).Caption = MyMsg.Get_Meldungstext(7015)
|
|
Me.C1TrueDBDropdown3.DisplayColumns(0).Width = 20
|
|
Me.C1TrueDBDropdown3.DisplayColumns(1).Width = 150
|
|
Me.DomainList.Columns("funktionnr").DropDown = Me.C1TrueDBDropdown3
|
|
|
|
End Sub
|
|
|
|
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()
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
|
Dim msg As MsgBoxResult
|
|
If Me.DataSet1.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 Function Save_Data() As Boolean
|
|
Save_Data = True
|
|
Try
|
|
SqlDataAdapter1.Update(Me.DataSet1)
|
|
Catch ex As Exception
|
|
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
|
Save_Data = False
|
|
End Try
|
|
End Function
|
|
|
|
End Class
|