Changes frmPersons Title to whatever we want (edit or add Guest)
This commit is contained in:
Dominic Reich
parent
bba8907c95
commit
c12a2bfc7f
14 changed files with 457 additions and 48 deletions
Binary file not shown.
366
Gästeliste/GästeDataSet.Designer.vb
generated
366
Gästeliste/GästeDataSet.Designer.vb
generated
|
|
@ -27,6 +27,8 @@ Partial Public Class GästeDataSet
|
|||
|
||||
Private tableGäste As GästeDataTable
|
||||
|
||||
Private tableLänder As LänderDataTable
|
||||
|
||||
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
|
|
@ -59,6 +61,9 @@ Partial Public Class GästeDataSet
|
|||
If (Not (ds.Tables("Gäste")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New GästeDataTable(ds.Tables("Gäste")))
|
||||
End If
|
||||
If (Not (ds.Tables("Länder")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New LänderDataTable(ds.Tables("Länder")))
|
||||
End If
|
||||
Me.DataSetName = ds.DataSetName
|
||||
Me.Prefix = ds.Prefix
|
||||
Me.Namespace = ds.Namespace
|
||||
|
|
@ -86,6 +91,16 @@ Partial Public Class GästeDataSet
|
|||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false), _
|
||||
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property Länder() As LänderDataTable
|
||||
Get
|
||||
Return Me.tableLänder
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.BrowsableAttribute(true), _
|
||||
|
|
@ -156,6 +171,9 @@ Partial Public Class GästeDataSet
|
|||
If (Not (ds.Tables("Gäste")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New GästeDataTable(ds.Tables("Gäste")))
|
||||
End If
|
||||
If (Not (ds.Tables("Länder")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New LänderDataTable(ds.Tables("Länder")))
|
||||
End If
|
||||
Me.DataSetName = ds.DataSetName
|
||||
Me.Prefix = ds.Prefix
|
||||
Me.Namespace = ds.Namespace
|
||||
|
|
@ -194,6 +212,12 @@ Partial Public Class GästeDataSet
|
|||
Me.tableGäste.InitVars
|
||||
End If
|
||||
End If
|
||||
Me.tableLänder = CType(MyBase.Tables("Länder"),LänderDataTable)
|
||||
If (initTable = true) Then
|
||||
If (Not (Me.tableLänder) Is Nothing) Then
|
||||
Me.tableLänder.InitVars
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
|
|
@ -206,6 +230,8 @@ Partial Public Class GästeDataSet
|
|||
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
||||
Me.tableGäste = New GästeDataTable()
|
||||
MyBase.Tables.Add(Me.tableGäste)
|
||||
Me.tableLänder = New LänderDataTable()
|
||||
MyBase.Tables.Add(Me.tableLänder)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
|
|
@ -214,6 +240,12 @@ Partial Public Class GästeDataSet
|
|||
Return false
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Function ShouldSerializeLänder() As Boolean
|
||||
Return false
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
|
||||
|
|
@ -275,6 +307,9 @@ Partial Public Class GästeDataSet
|
|||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Delegate Sub GästeRowChangeEventHandler(ByVal sender As Object, ByVal e As GästeRowChangeEvent)
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Delegate Sub LänderRowChangeEventHandler(ByVal sender As Object, ByVal e As LänderRowChangeEvent)
|
||||
|
||||
'''<summary>
|
||||
'''Represents the strongly named DataTable class.
|
||||
'''</summary>
|
||||
|
|
@ -695,6 +730,258 @@ Partial Public Class GästeDataSet
|
|||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents the strongly named DataTable class.
|
||||
'''</summary>
|
||||
<Global.System.Serializable(), _
|
||||
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
||||
Partial Public Class LänderDataTable
|
||||
Inherits Global.System.Data.TypedTableBase(Of LänderRow)
|
||||
|
||||
Private columnLand As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me.TableName = "Länder"
|
||||
Me.BeginInit
|
||||
Me.InitClass
|
||||
Me.EndInit
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
||||
MyBase.New
|
||||
Me.TableName = table.TableName
|
||||
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
||||
Me.CaseSensitive = table.CaseSensitive
|
||||
End If
|
||||
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
||||
Me.Locale = table.Locale
|
||||
End If
|
||||
If (table.Namespace <> table.DataSet.Namespace) Then
|
||||
Me.Namespace = table.Namespace
|
||||
End If
|
||||
Me.Prefix = table.Prefix
|
||||
Me.MinimumCapacity = table.MinimumCapacity
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
||||
MyBase.New(info, context)
|
||||
Me.InitVars
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property LandColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnLand
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
Public ReadOnly Property Count() As Integer
|
||||
Get
|
||||
Return Me.Rows.Count
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Default ReadOnly Property Item(ByVal index As Integer) As LänderRow
|
||||
Get
|
||||
Return CType(Me.Rows(index),LänderRow)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event LänderRowChanging As LänderRowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event LänderRowChanged As LänderRowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event LänderRowDeleting As LänderRowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event LänderRowDeleted As LänderRowChangeEventHandler
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Sub AddLänderRow(ByVal row As LänderRow)
|
||||
Me.Rows.Add(row)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Function AddLänderRow(ByVal Land As String) As LänderRow
|
||||
Dim rowLänderRow As LänderRow = CType(Me.NewRow,LänderRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Land}
|
||||
rowLänderRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowLänderRow)
|
||||
Return rowLänderRow
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overrides Function Clone() As Global.System.Data.DataTable
|
||||
Dim cln As LänderDataTable = CType(MyBase.Clone,LänderDataTable)
|
||||
cln.InitVars
|
||||
Return cln
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
||||
Return New LänderDataTable()
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Friend Sub InitVars()
|
||||
Me.columnLand = MyBase.Columns("Land")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Sub InitClass()
|
||||
Me.columnLand = New Global.System.Data.DataColumn("Land", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnLand)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function NewLänderRow() As LänderRow
|
||||
Return CType(Me.NewRow,LänderRow)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
||||
Return New LänderRow(builder)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Function GetRowType() As Global.System.Type
|
||||
Return GetType(LänderRow)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowChanged(e)
|
||||
If (Not (Me.LänderRowChangedEvent) Is Nothing) Then
|
||||
RaiseEvent LänderRowChanged(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowChanging(e)
|
||||
If (Not (Me.LänderRowChangingEvent) Is Nothing) Then
|
||||
RaiseEvent LänderRowChanging(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowDeleted(e)
|
||||
If (Not (Me.LänderRowDeletedEvent) Is Nothing) Then
|
||||
RaiseEvent LänderRowDeleted(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowDeleting(e)
|
||||
If (Not (Me.LänderRowDeletingEvent) Is Nothing) Then
|
||||
RaiseEvent LänderRowDeleting(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub RemoveLänderRow(ByVal row As LänderRow)
|
||||
Me.Rows.Remove(row)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
||||
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
||||
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
||||
Dim ds As GästeDataSet = New GästeDataSet()
|
||||
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
||||
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
||||
any1.MinOccurs = New Decimal(0)
|
||||
any1.MaxOccurs = Decimal.MaxValue
|
||||
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
||||
sequence.Items.Add(any1)
|
||||
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
||||
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
||||
any2.MinOccurs = New Decimal(1)
|
||||
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
||||
sequence.Items.Add(any2)
|
||||
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
||||
attribute1.Name = "namespace"
|
||||
attribute1.FixedValue = ds.Namespace
|
||||
type.Attributes.Add(attribute1)
|
||||
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
||||
attribute2.Name = "tableTypeName"
|
||||
attribute2.FixedValue = "LänderDataTable"
|
||||
type.Attributes.Add(attribute2)
|
||||
type.Particle = sequence
|
||||
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
||||
If xs.Contains(dsSchema.TargetNamespace) Then
|
||||
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
||||
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
||||
Try
|
||||
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
||||
dsSchema.Write(s1)
|
||||
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
||||
Do While schemas.MoveNext
|
||||
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
||||
s2.SetLength(0)
|
||||
schema.Write(s2)
|
||||
If (s1.Length = s2.Length) Then
|
||||
s1.Position = 0
|
||||
s2.Position = 0
|
||||
|
||||
Do While ((s1.Position <> s1.Length) _
|
||||
AndAlso (s1.ReadByte = s2.ReadByte))
|
||||
|
||||
|
||||
Loop
|
||||
If (s1.Position = s1.Length) Then
|
||||
Return type
|
||||
End If
|
||||
End If
|
||||
|
||||
Loop
|
||||
Finally
|
||||
If (Not (s1) Is Nothing) Then
|
||||
s1.Close
|
||||
End If
|
||||
If (Not (s2) Is Nothing) Then
|
||||
s2.Close
|
||||
End If
|
||||
End Try
|
||||
End If
|
||||
xs.Add(dsSchema)
|
||||
Return type
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents strongly named DataRow class.
|
||||
'''</summary>
|
||||
|
|
@ -891,6 +1178,49 @@ Partial Public Class GästeDataSet
|
|||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents strongly named DataRow class.
|
||||
'''</summary>
|
||||
Partial Public Class LänderRow
|
||||
Inherits Global.System.Data.DataRow
|
||||
|
||||
Private tableLänder As LänderDataTable
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
||||
MyBase.New(rb)
|
||||
Me.tableLänder = CType(Me.Table,LänderDataTable)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property Land() As String
|
||||
Get
|
||||
If Me.IsLandNull Then
|
||||
Return String.Empty
|
||||
Else
|
||||
Return CType(Me(Me.tableLänder.LandColumn),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableLänder.LandColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsLandNull() As Boolean
|
||||
Return Me.IsNull(Me.tableLänder.LandColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetLandNull()
|
||||
Me(Me.tableLänder.LandColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Row event argument class
|
||||
'''</summary>
|
||||
|
|
@ -926,4 +1256,40 @@ Partial Public Class GästeDataSet
|
|||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Row event argument class
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Class LänderRowChangeEvent
|
||||
Inherits Global.System.EventArgs
|
||||
|
||||
Private eventRow As LänderRow
|
||||
|
||||
Private eventAction As Global.System.Data.DataRowAction
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New(ByVal row As LänderRow, ByVal action As Global.System.Data.DataRowAction)
|
||||
MyBase.New
|
||||
Me.eventRow = row
|
||||
Me.eventAction = action
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property Row() As LänderRow
|
||||
Get
|
||||
Return Me.eventRow
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
||||
Get
|
||||
Return Me.eventAction
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -4,8 +4,6 @@
|
|||
If (e.Column.ColumnName = Me.IDColumn.ColumnName) Then
|
||||
'Benutzercode hier einfügen
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -36,6 +36,13 @@
|
|||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Länder" msprop:Generator_TableClassName="LänderDataTable" msprop:Generator_TableVarName="tableLänder" msprop:Generator_TablePropName="Länder" msprop:Generator_RowDeletingName="LänderRowDeleting" msprop:Generator_RowChangingName="LänderRowChanging" msprop:Generator_RowEvHandlerName="LänderRowChangeEventHandler" msprop:Generator_RowDeletedName="LänderRowDeleted" msprop:Generator_UserTableName="Länder" msprop:Generator_RowChangedName="LänderRowChanged" msprop:Generator_RowEvArgName="LänderRowChangeEvent" msprop:Generator_RowClassName="LänderRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Land" msprop:Generator_ColumnVarNameInTable="columnLand" msprop:Generator_ColumnPropNameInRow="Land" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInTable="LandColumn" msprop:Generator_UserColumnName="Land" type="xs:string" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:choice>
|
||||
</xs:complexType>
|
||||
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
|
||||
|
|
|
|||
|
|
@ -6,7 +6,8 @@
|
|||
</autogenerated>-->
|
||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="92" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||
<Shapes>
|
||||
<Shape ID="DesignTable:Gäste" ZOrder="1" X="182" Y="153" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:Gäste" ZOrder="2" X="182" Y="153" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:Länder" ZOrder="1" X="568" Y="278" Height="48" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="44" />
|
||||
</Shapes>
|
||||
<Connectors />
|
||||
</DiagramLayout>
|
||||
|
|
@ -26,13 +26,13 @@
|
|||
<MapFileExtensions>false</MapFileExtensions>
|
||||
<InstallUrl>http://tools.dominicreich.com/Gaesteliste/</InstallUrl>
|
||||
<UpdateUrl>http://tools.dominicreich.com/Gaesteliste/</UpdateUrl>
|
||||
<SupportUrl>http://tmsn.at/%3ftools&gaesteliste</SupportUrl>
|
||||
<SupportUrl>http://klamm.io</SupportUrl>
|
||||
<ErrorReportUrl>https://github.com/freefallcid/Gaesteliste/issues</ErrorReportUrl>
|
||||
<ProductName>Gästeliste</ProductName>
|
||||
<PublisherName>Dominic Reich</PublisherName>
|
||||
<MinimumRequiredVersion>1.0.0.0</MinimumRequiredVersion>
|
||||
<OpenBrowserOnPublish>false</OpenBrowserOnPublish>
|
||||
<ApplicationRevision>21</ApplicationRevision>
|
||||
<ApplicationRevision>22</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.1.%2a</ApplicationVersion>
|
||||
<UseApplicationTrust>true</UseApplicationTrust>
|
||||
<CreateDesktopShortcut>true</CreateDesktopShortcut>
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
<PropertyGroup>
|
||||
<PublishUrlHistory>Z:\Gaesteliste\|publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>http://tools.dominicreich.com/Gaesteliste/</InstallUrlHistory>
|
||||
<SupportUrlHistory>http://tmsn.at/%3ftools&gaesteliste</SupportUrlHistory>
|
||||
<SupportUrlHistory>http://klamm.io|http://tmsn.at/%3ftools&gaesteliste</SupportUrlHistory>
|
||||
<UpdateUrlHistory>http://tools.dominicreich.com/Gaesteliste/</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory />
|
||||
<ErrorReportUrlHistory>https://github.com/freefallcid/Gaesteliste/issues</ErrorReportUrlHistory>
|
||||
|
|
|
|||
|
|
@ -608,23 +608,23 @@ Passen Sie die Assemblyinformationen der Anwendung im Anwendungsbereich des Proj
|
|||
</data>
|
||||
<data name="lnkIcons.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAANrSURBVDhPdZB7TJNXGIdPJskgklJDIBCoTgQvEIgoQ9DB
|
||||
7MR6A29QRoQ/jOjCsmg0drB0BGIMkzKBAkWLFAGVVOVi1FUrN6sbw7LSQlu5tWWtWOxGafvBSGai+flZ
|
||||
vyzLkj3Jm5w3531O3vMj/+bkg6mPz/Q6w3546txSqXYfqvjVfVqioWovD3vutBiXhmU6l/mYsC6BGf8A
|
||||
h8OJ2crliXmZecqy7mljzRDlqhuafyPVuHFF60GjjsLVkQU0jy5ANrqERxrziFgkimJ0QlgsVvaWTxOW
|
||||
tqem4Du5GtXqRfz4ixPlP89BMjgH2W9OSNXzEKvdEA95oHrxGk1S6deMToiPj8+22NhY02dJiThe1Ymy
|
||||
gb9Q2uPAYzOFPvMC7o5T6DEtQEX3ooF5XKc3KS4u/pbRvayOiIhQJSfE47CgGoIeD/pNFG6OuPC9chZ9
|
||||
U2606+bQrndBOUnh4iAFRa9KxefzlzE+YYWGhl5P3BSHlJxTOHHnDxjsi/iqw4anZjcqnjignVnEhccO
|
||||
PJzwoKTfhc7eZ5agoCB/xieEzWaXbIqLwUbuQeS1WTFmp3Ds5jQ0VjeO3LBAPe1CscKGWyNOHO16BelD
|
||||
3fw+HnczoxPi6+ubGxu9HtHxSeDVaGnRg/IHFoj7Z/CT3oGuUfoLww5802lFVpsNjXSoVaKyM4zuDTIl
|
||||
KirybWTkWnx+Ton8WzPQWf5EhWIKZztMKJBPonnQjny5Bdk3rCi6/wJCobCU0b1EcDjhrlVhIUg+1YTd
|
||||
MisyZRO4OjiL1md2NA7YcVxuRlaLCfxWM/Jv29Bxr1uTlbU/mvGJPx2KISx4BeJySrBXZsPOOiO4tUak
|
||||
ScbAuzSO9IZxHJJN4nDTFDJbf4e0vfvl3i9SuYxPSEBAgDIkkIU12/Owo96MHTV67Kw1gEc/xJM8x+5L
|
||||
Y9hzeQJ7Giax/9osog8K6kl4uB+je4OUBrL9Ebw+GUkXjdhaacA2ulKr9EgT65EuGUVOgx4FLQYU0mGu
|
||||
SSsQMuoH6CALA1ew8cmGeOTUqXG6bQylt59D1GVAdacWlfIBnG9U/F1Y0fYyT1CtZYWv28Wo/3CAn52N
|
||||
knPn3xaVt7w6USTWZeSeVSSlfVm/MiZF4B8SmUl8WIn03Cq6lnuN/8Dy8/PLoDdJpc+r3/d0ffT+4v8h
|
||||
5B0QifP0zn03OAAAAABJRU5ErkJggg==
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
wwAADsMBx2+oZAAAA2tJREFUOE91kHtMk1cYh08mySCSUkMgEKhOBC8QiChD0MHsxHoDb1BGhD+M6MKy
|
||||
aDR2sHQEYgyTMoECRYsUAZVU5WLUVSs3qxvDstJCW7m1Za1Y7EZp+8FIZqL5+Vm/LMuSPcmbnDfnfU7e
|
||||
8yP/5uSDqY/P9DrDfnjq3FKpdh+q+NV9WqKhai8Pe+60GJeGZTqX+ZiwLoEZ/wCHw4nZyuWJeZl5yrLu
|
||||
aWPNEOWqG5p/I9W4cUXrQaOOwtWRBTSPLkA2uoRHGvOIWCSKYnRCWCxW9pZPE5a2p6bgO7ka1epF/PiL
|
||||
E+U/z0EyOAfZb05I1fMQq90QD3mgevEaTVLp14xOiI+Pz7bY2FjTZ0mJOF7VibKBv1Da48BjM4U+8wLu
|
||||
jlPoMS1ARfeigXlcpzcpLi7+ltG9rI6IiFAlJ8TjsKAagh4P+k0Ubo648L1yFn1TbrTr5tCud0E5SeHi
|
||||
IAVFr0rF5/OXMT5hhYaGXk/cFIeUnFM4cecPGOyL+KrDhqdmNyqeOKCdWcSFxw48nPCgpN+Fzt5nlqCg
|
||||
IH/GJ4TNZpdsiovBRu5B5LVZMWancOzmNDRWN47csEA97UKxwoZbI04c7XoF6UPd/D4edzOjE+Lr65sb
|
||||
G70e0fFJ4NVoadGD8gcWiPtn8JPega5R+gvDDnzTaUVWmw2NdKhVorIzjO4NMiUqKvJtZORafH5Oifxb
|
||||
M9BZ/kSFYgpnO0wokE+iedCOfLkF2TesKLr/AkKhsJTRvURwOOGuVWEhSD7VhN0yKzJlE7g6OIvWZ3Y0
|
||||
DthxXG5GVosJ/FYz8m/b0HGvW5OVtT+a8Yk/HYohLHgF4nJKsFdmw846I7i1RqRJxsC7NI70hnEckk3i
|
||||
cNMUMlt/h7S9++XeL1K5jE9IQECAMiSQhTXb87Cj3owdNXrsrDWARz/EkzzH7ktj2HN5AnsaJrH/2iyi
|
||||
DwrqSXi4H6N7g5QGsv0RvD4ZSReN2FppwDa6Uqv0SBPrkS4ZRU6DHgUtBhTSYa5JKxAy6gfoIAsDV7Dx
|
||||
yYZ45NSpcbptDKW3n0PUZUB1pxaV8gGcb1T8XVjR9jJPUK1lha/bxaj/cICfnY2Sc+ffFpW3vDpRJNZl
|
||||
5J5VJKV9Wb8yJkXgHxKZSXxYifTcKrqWe43/wPLz88ugN0mlz6vf93R99P7i/yHkHRCJ8/TOfTc4AAAA
|
||||
AElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
|
|
@ -22,7 +22,7 @@
|
|||
End Sub
|
||||
|
||||
Private Sub lnkWebsite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lnkWebsite.LinkClicked
|
||||
Process.Start("http://tmsn.at/?tools&gaesteliste")
|
||||
Process.Start("http://klamm.io")
|
||||
End Sub
|
||||
|
||||
Private Sub lnkIcons_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lnkIcons.LinkClicked
|
||||
|
|
|
|||
10
Gästeliste/frmMain.Designer.vb
generated
10
Gästeliste/frmMain.Designer.vb
generated
|
|
@ -232,27 +232,27 @@ Partial Class frmMain
|
|||
'
|
||||
Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
|
||||
Me.InfoToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
|
||||
Me.InfoToolStripMenuItem.Text = "Info"
|
||||
'
|
||||
'OnlineHilfeToolStripMenuItem
|
||||
'
|
||||
Me.OnlineHilfeToolStripMenuItem.Name = "OnlineHilfeToolStripMenuItem"
|
||||
Me.OnlineHilfeToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.OnlineHilfeToolStripMenuItem.Text = "Online-Hilfe"
|
||||
Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
|
||||
Me.OnlineHilfeToolStripMenuItem.Text = "Webseite anzeigen"
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
Me.ToolStripMenuItem1.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(149, 6)
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(169, 6)
|
||||
'
|
||||
'UpdateToolStripMenuItem
|
||||
'
|
||||
Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
|
||||
Me.UpdateToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
|
||||
Me.UpdateToolStripMenuItem.Text = "Update"
|
||||
'
|
||||
'StatusStrip1
|
||||
|
|
|
|||
|
|
@ -120,6 +120,12 @@
|
|||
<metadata name="GästeBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>142, 17</value>
|
||||
</metadata>
|
||||
<metadata name="GästeBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>142, 17</value>
|
||||
</metadata>
|
||||
<metadata name="GästeDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="GästeDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
|
|
|
|||
|
|
@ -79,7 +79,7 @@ Public Class frmMain
|
|||
End Sub
|
||||
|
||||
Private Sub OnlineHilfeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OnlineHilfeToolStripMenuItem.Click
|
||||
Process.Start("http://tmsn.at/?tools&gaesteliste&hilfe")
|
||||
Process.Start("http://klamm.io")
|
||||
End Sub
|
||||
|
||||
Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
|
||||
|
|
|
|||
32
Gästeliste/frmPerson.designer.vb
generated
32
Gästeliste/frmPerson.designer.vb
generated
|
|
@ -1,9 +1,9 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmPerson
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
|
|
@ -20,7 +20,7 @@ Partial Class frmPerson
|
|||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
|
||||
|
|
@ -50,9 +50,9 @@ Partial Class frmPerson
|
|||
Me.txtAnmerkung = New System.Windows.Forms.TextBox()
|
||||
Me.chkStammgast = New System.Windows.Forms.CheckBox()
|
||||
Me.chkBlacklist = New System.Windows.Forms.CheckBox()
|
||||
Me.cboLand = New System.Windows.Forms.ComboBox()
|
||||
Me.GästeBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.GästeDataSet = New Gästeliste.GästeDataSet()
|
||||
Me.cboLand = New System.Windows.Forms.ComboBox()
|
||||
Me.TableLayoutPanel1.SuspendLayout()
|
||||
Me.TableLayoutPanel2.SuspendLayout()
|
||||
CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
|
|
@ -343,6 +343,16 @@ Partial Class frmPerson
|
|||
Me.chkBlacklist.TabIndex = 2
|
||||
Me.chkBlacklist.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cboLand
|
||||
'
|
||||
Me.cboLand.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboLand.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.cboLand.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboLand.Location = New System.Drawing.Point(103, 177)
|
||||
Me.cboLand.Name = "cboLand"
|
||||
Me.cboLand.Size = New System.Drawing.Size(234, 21)
|
||||
Me.cboLand.TabIndex = 3
|
||||
'
|
||||
'GästeBindingSource
|
||||
'
|
||||
Me.GästeBindingSource.DataMember = "Gäste"
|
||||
|
|
@ -353,20 +363,6 @@ Partial Class frmPerson
|
|||
Me.GästeDataSet.DataSetName = "GästeDataSet"
|
||||
Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'cboLand
|
||||
'
|
||||
Me.cboLand.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
|
||||
Me.cboLand.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboLand.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.GästeBindingSource, "Land", True))
|
||||
Me.cboLand.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.cboLand.FormattingEnabled = True
|
||||
Me.cboLand.Items.AddRange(New Object() {"Deutschland", "Österreich", "Schweiz", "Niederlande"})
|
||||
Me.cboLand.Location = New System.Drawing.Point(103, 177)
|
||||
Me.cboLand.Name = "cboLand"
|
||||
Me.cboLand.Size = New System.Drawing.Size(234, 21)
|
||||
Me.cboLand.TabIndex = 3
|
||||
Me.cboLand.Text = "Deutschland"
|
||||
'
|
||||
'frmPerson
|
||||
'
|
||||
Me.AcceptButton = Me.OK_Button
|
||||
|
|
|
|||
|
|
@ -11,4 +11,39 @@ Public Class frmPerson
|
|||
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmPerson_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
If Me.Tag = "add" Then
|
||||
Me.Text = "Gast hinzufügen"
|
||||
ElseIf Me.Tag = "edit" Then
|
||||
Me.Text = "Gast bearbeiten"
|
||||
End If
|
||||
'Dim dt As DataTable = GästeDataSet.Tables("Länder")
|
||||
'Dim dr As DataRow = dt.NewRow()
|
||||
|
||||
'With dr
|
||||
'.Item("Land") = 'unfinished
|
||||
'End With
|
||||
'cboLand.Items.Add("Neues Land eintragen")
|
||||
End Sub
|
||||
|
||||
Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged
|
||||
If cboLand.Text = "Neues Land eintragen" Then
|
||||
Dim NeuesLand As String = InputBox("Name des neuen Landes:", "Neues Land eintragen")
|
||||
If NeuesLand <> "" Then
|
||||
' eintragen
|
||||
If Not cboLand.Items.Contains(NeuesLand) Then
|
||||
Dim Anzahl As Integer = cboLand.Items.Count
|
||||
cboLand.Items.Insert(Anzahl - 1, NeuesLand.ToString)
|
||||
cboLand.Text = NeuesLand.ToString
|
||||
Else
|
||||
MsgBox("Tut mir leid, das Land ist doch schon in der Liste!")
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
' abbruch
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
|
|
|||
Loading…
Reference in a new issue