dunno, had to revert back to last commit and re-add some changes (dont exactly know if i changed back everything properly)... this might be some weird commit so start from this one if you ever consider something doing with this.

master
Dominic Reich 9 years ago
parent 0b09b09ce6
commit d0cb9509f6

Binary file not shown.

@ -560,7 +560,7 @@ Partial Public Class GästeDataSet
Me.columnPLZ.MaxLength = 15
Me.columnOrt.AllowDBNull = false
Me.columnLand.AllowDBNull = false
Me.columnLand.DefaultValue = CType("D",String)
Me.columnLand.DefaultValue = CType("Deutschland",String)
Me.CaseSensitive = false
End Sub

@ -12,7 +12,7 @@
<xs:element name="GästeDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="GästeDataSet" msprop:Generator_UserDSName="GästeDataSet">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="Gäste" msdata:CaseSensitive="False" msprop:Generator_TableClassName="GästeDataTable" msprop:Generator_TableVarName="tableGäste" msprop:Generator_TablePropName="Gäste" msprop:Generator_RowDeletingName="GästeRowDeleting" msprop:Generator_RowChangingName="GästeRowChanging" msprop:Generator_RowEvHandlerName="GästeRowChangeEventHandler" msprop:Generator_RowDeletedName="GästeRowDeleted" msprop:Generator_UserTableName="Gäste" msprop:Generator_RowChangedName="GästeRowChanged" msprop:Generator_RowEvArgName="GästeRowChangeEvent" msprop:Generator_RowClassName="GästeRow">
<xs:element name="Gäste" msdata:CaseSensitive="False" msprop:Generator_TableClassName="GästeDataTable" msprop:Generator_TableVarName="tableGäste" msprop:Generator_RowChangedName="GästeRowChanged" msprop:Generator_TablePropName="Gäste" msprop:Generator_RowDeletingName="GästeRowDeleting" msprop:Generator_RowChangingName="GästeRowChanging" msprop:Generator_RowEvHandlerName="GästeRowChangeEventHandler" msprop:Generator_RowDeletedName="GästeRowDeleted" msprop:Generator_RowClassName="GästeRow" msprop:Generator_UserTableName="Gäste" msprop:Generator_RowEvArgName="GästeRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="ID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:int" />
@ -27,7 +27,7 @@
</xs:simpleType>
</xs:element>
<xs:element name="Ort" msprop:Generator_ColumnVarNameInTable="columnOrt" msprop:Generator_ColumnPropNameInRow="Ort" msprop:Generator_ColumnPropNameInTable="OrtColumn" msprop:Generator_UserColumnName="Ort" type="xs:string" />
<xs:element name="Land" msprop:Generator_ColumnVarNameInTable="columnLand" msprop:Generator_ColumnPropNameInRow="Land" msprop:Generator_ColumnPropNameInTable="LandColumn" msprop:Generator_UserColumnName="Land" type="xs:string" default="D" />
<xs:element name="Land" msprop:Generator_ColumnVarNameInTable="columnLand" msprop:Generator_ColumnPropNameInRow="Land" msprop:Generator_ColumnPropNameInTable="LandColumn" msprop:Generator_UserColumnName="Land" type="xs:string" default="Deutschland" />
<xs:element name="Telefon" msprop:Generator_ColumnVarNameInTable="columnTelefon" msprop:Generator_ColumnPropNameInRow="Telefon" msprop:Generator_ColumnPropNameInTable="TelefonColumn" msprop:Generator_UserColumnName="Telefon" type="xs:string" minOccurs="0" />
<xs:element name="Email" msprop:Generator_ColumnVarNameInTable="columnEmail" msprop:Generator_ColumnPropNameInRow="Email" msprop:Generator_ColumnPropNameInTable="EmailColumn" msprop:Generator_UserColumnName="Email" type="xs:string" minOccurs="0" />
<xs:element name="Anmerkung" msprop:Generator_ColumnVarNameInTable="columnAnmerkung" msprop:Generator_ColumnPropNameInRow="Anmerkung" msprop:Generator_ColumnPropNameInTable="AnmerkungColumn" msprop:Generator_UserColumnName="Anmerkung" type="xs:string" minOccurs="0" />

@ -134,6 +134,12 @@
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmPerson.designer.vb">
<DependentUpon>frmPerson.vb</DependentUpon>
</Compile>
<Compile Include="frmPerson.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="GästeDataSet.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@ -165,6 +171,9 @@
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmPerson.resx">
<DependentUpon>frmPerson.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>

@ -30,4 +30,12 @@
Private Sub lblInfoBetaSoftware_Click(sender As Object, e As EventArgs) Handles lblInfoBetaSoftware.Click
MsgBox("Diese Version des Programmes ist noch nicht für den produktiven Einsatz vorgesehen und muss noch ausreichend getestet werden!" + Chr(13) + "Wenn dieser Hinweistext verschwunden ist, kann das Programm wirklich produktiv genutzt werden!" + Chr(13) + Chr(13) + "Vielen Dank für dein Verständnis!", vbExclamation, "Dies ist eine BETA Version (Testversion)")
End Sub
Private Sub lblInfoBetaSoftware_MouseLeave(sender As Object, e As EventArgs) Handles lblInfoBetaSoftware.MouseLeave
Me.lblInfoBetaSoftware.ForeColor = SystemColors.MenuHighlight
End Sub
Private Sub lblInfoBetaSoftware_MouseEnter(sender As Object, e As EventArgs) Handles lblInfoBetaSoftware.MouseEnter
Me.lblInfoBetaSoftware.ForeColor = Color.Red
End Sub
End Class

@ -37,10 +37,12 @@ Partial Class frmMain
Me.StammgastDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn()
Me.BlockiertDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn()
Me.AnmerkungDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.mnuContext = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GästeBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GästeDataSet = New Gästeliste.GästeDataSet()
Me.mnuContext = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.HinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mnuMain = New System.Windows.Forms.MenuStrip()
Me.HilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -48,9 +50,9 @@ Partial Class frmMain
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.mnuContext.SuspendLayout()
CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.mnuContext.SuspendLayout()
Me.mnuMain.SuspendLayout()
Me.SuspendLayout()
'
@ -63,14 +65,14 @@ Partial Class frmMain
Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.IDDataGridViewTextBoxColumn, Me.NachnameDataGridViewTextBoxColumn, Me.VornameDataGridViewTextBoxColumn, Me.StraßeDataGridViewTextBoxColumn, Me.PLZDataGridViewTextBoxColumn, Me.OrtDataGridViewTextBoxColumn, Me.LandDataGridViewTextBoxColumn, Me.TelefonDataGridViewTextBoxColumn, Me.EmailDataGridViewTextBoxColumn, Me.StammgastDataGridViewCheckBoxColumn, Me.BlockiertDataGridViewCheckBoxColumn, Me.AnmerkungDataGridViewTextBoxColumn})
Me.DataGridView1.ContextMenuStrip = Me.mnuContext
Me.DataGridView1.DataSource = Me.GästeBindingSource
Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView1.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically
Me.DataGridView1.Location = New System.Drawing.Point(0, 24)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.RowHeadersVisible = False
Me.DataGridView1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DataGridView1.Size = New System.Drawing.Size(867, 483)
Me.DataGridView1.Size = New System.Drawing.Size(967, 503)
Me.DataGridView1.TabIndex = 4
'
'IDDataGridViewTextBoxColumn
@ -124,10 +126,11 @@ Partial Class frmMain
'
'LandDataGridViewTextBoxColumn
'
Me.LandDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.LandDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.LandDataGridViewTextBoxColumn.DataPropertyName = "Land"
Me.LandDataGridViewTextBoxColumn.HeaderText = "Land"
Me.LandDataGridViewTextBoxColumn.Name = "LandDataGridViewTextBoxColumn"
Me.LandDataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
Me.LandDataGridViewTextBoxColumn.Width = 56
'
'TelefonDataGridViewTextBoxColumn
@ -148,7 +151,7 @@ Partial Class frmMain
'
'StammgastDataGridViewCheckBoxColumn
'
Me.StammgastDataGridViewCheckBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.StammgastDataGridViewCheckBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.StammgastDataGridViewCheckBoxColumn.DataPropertyName = "Stammgast"
Me.StammgastDataGridViewCheckBoxColumn.HeaderText = "Stammgast"
Me.StammgastDataGridViewCheckBoxColumn.Name = "StammgastDataGridViewCheckBoxColumn"
@ -156,7 +159,7 @@ Partial Class frmMain
'
'BlockiertDataGridViewCheckBoxColumn
'
Me.BlockiertDataGridViewCheckBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.BlockiertDataGridViewCheckBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.BlockiertDataGridViewCheckBoxColumn.DataPropertyName = "Blockiert"
Me.BlockiertDataGridViewCheckBoxColumn.HeaderText = "Blockiert"
Me.BlockiertDataGridViewCheckBoxColumn.Name = "BlockiertDataGridViewCheckBoxColumn"
@ -164,22 +167,10 @@ Partial Class frmMain
'
'AnmerkungDataGridViewTextBoxColumn
'
Me.AnmerkungDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.AnmerkungDataGridViewTextBoxColumn.DataPropertyName = "Anmerkung"
Me.AnmerkungDataGridViewTextBoxColumn.HeaderText = "Anmerkung"
Me.AnmerkungDataGridViewTextBoxColumn.Name = "AnmerkungDataGridViewTextBoxColumn"
Me.AnmerkungDataGridViewTextBoxColumn.Width = 86
'
'mnuContext
'
Me.mnuContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EintragLöschenToolStripMenuItem})
Me.mnuContext.Name = "mnuContext"
Me.mnuContext.Size = New System.Drawing.Size(156, 26)
'
'EintragLöschenToolStripMenuItem
'
Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem"
Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen"
'
'GästeBindingSource
'
@ -191,12 +182,39 @@ Partial Class frmMain
Me.GästeDataSet.DataSetName = "GästeDataSet"
Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'mnuContext
'
Me.mnuContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HinzufügenToolStripMenuItem, Me.BearbeitenToolStripMenuItem, Me.LöschenToolStripMenuItem})
Me.mnuContext.Name = "mnuContext"
Me.mnuContext.ShowImageMargin = False
Me.mnuContext.Size = New System.Drawing.Size(110, 70)
'
'HinzufügenToolStripMenuItem
'
Me.HinzufügenToolStripMenuItem.Name = "HinzufügenToolStripMenuItem"
Me.HinzufügenToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
Me.HinzufügenToolStripMenuItem.Text = "hinzufügen"
'
'BearbeitenToolStripMenuItem
'
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
Me.BearbeitenToolStripMenuItem.Text = "bearbeiten"
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
Me.LöschenToolStripMenuItem.Text = "löschen"
'
'mnuMain
'
Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HilfeToolStripMenuItem})
Me.mnuMain.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.mnuMain.Location = New System.Drawing.Point(0, 0)
Me.mnuMain.Name = "mnuMain"
Me.mnuMain.Size = New System.Drawing.Size(867, 24)
Me.mnuMain.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.mnuMain.Size = New System.Drawing.Size(967, 24)
Me.mnuMain.TabIndex = 5
Me.mnuMain.Text = "MenuStrip1"
'
@ -210,31 +228,35 @@ Partial Class frmMain
'InfoToolStripMenuItem
'
Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.InfoToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
Me.InfoToolStripMenuItem.Text = "Info"
'
'OnlineHilfeToolStripMenuItem
'
Me.OnlineHilfeToolStripMenuItem.Name = "OnlineHilfeToolStripMenuItem"
Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.OnlineHilfeToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
Me.OnlineHilfeToolStripMenuItem.Text = "Online-Hilfe"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(149, 6)
Me.ToolStripMenuItem1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(136, 6)
'
'UpdateToolStripMenuItem
'
Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.UpdateToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
Me.UpdateToolStripMenuItem.Text = "Update"
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(867, 507)
Me.ClientSize = New System.Drawing.Size(967, 527)
Me.Controls.Add(Me.DataGridView1)
Me.Controls.Add(Me.mnuMain)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@ -242,9 +264,9 @@ Partial Class frmMain
Me.Name = "frmMain"
Me.Text = "Gästeliste"
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.mnuContext.ResumeLayout(False)
CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).EndInit()
Me.mnuContext.ResumeLayout(False)
Me.mnuMain.ResumeLayout(False)
Me.mnuMain.PerformLayout()
Me.ResumeLayout(False)
@ -256,6 +278,15 @@ Partial Class frmMain
Friend WithEvents GästeDataSet As GästeDataSet
Friend WithEvents DataGridView1 As DataGridView
Friend WithEvents mnuMain As MenuStrip
Friend WithEvents HilfeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents InfoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
Friend WithEvents mnuContext As ContextMenuStrip
Friend WithEvents OnlineHilfeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents UpdateToolStripMenuItem As ToolStripMenuItem
Friend WithEvents HinzufügenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IDDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents NachnameDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents VornameDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
@ -268,11 +299,4 @@ Partial Class frmMain
Friend WithEvents StammgastDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents BlockiertDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents AnmerkungDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents HilfeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents InfoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
Friend WithEvents mnuContext As ContextMenuStrip
Friend WithEvents EintragLöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OnlineHilfeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents UpdateToolStripMenuItem As ToolStripMenuItem
End Class

@ -117,15 +117,15 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="mnuContext.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>407, 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="mnuContext.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>407, 17</value>
</metadata>
<metadata name="mnuMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>303, 17</value>
</metadata>

@ -63,24 +63,6 @@ Public Class frmMain
oForm = Nothing
End Sub
'We should not have to use this any more. but for backup we left this here...
'Private Sub DataGridView1_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseUp
' If e.Button = MouseButtons.Right Then
' Me.DataGridView1.Rows(e.RowIndex).Selected = True
' Me._rowIndex = e.RowIndex
' Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(e.RowIndex).Cells(1)
' Me.mnuContext.Show(Me.DataGridView1, e.Location)
' mnuContext.Show(Cursor.Position)
' End If
'End Sub
Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
'TODO: Einen Button zum Hinzufügen, eine eigene Form zum Hinzufügen bzw bearbeiten.
For Each Row As DataGridViewRow In DataGridView1.SelectedRows
Me.DataGridView1.Rows.RemoveAt(Row.Index)
Next
End Sub
Private Sub OnlineHilfeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OnlineHilfeToolStripMenuItem.Click
Process.Start("http://tmsn.at/?tools&gaesteliste&hilfe")
End Sub
@ -104,4 +86,107 @@ Public Class frmMain
MsgBox("Die Anwendung wurde nicht aus dem Internet bezogen und kann daher nicht aktualisiert werden.")
End If
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
For Each Row As DataGridViewRow In DataGridView1.SelectedRows
Me.DataGridView1.Rows.RemoveAt(Row.Index)
Next
'Me.DataGridView1.Rows(Me.DataGridView1.Rows.Count - 1).Selected = True
Try
Me.DataGridView1.CurrentRow.Selected = True
Catch ex As Exception
'nothing :D
End Try
End Sub
Private Sub HinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HinzufügenToolStripMenuItem.Click
Dim oForm As New frmPerson()
oForm.Tag = "add"
oForm.ShowDialog()
'http://www.vb-helper.com/howto_net_dataset_autonumber.html
Dim dt As DataTable = GästeDataSet.Tables("Gäste")
Dim dr As DataRow = dt.NewRow()
With dr
.Item("Nachname") = oForm.txtNachname.Text
.Item("Vorname") = oForm.txtVorname.Text
.Item("Straße") = oForm.txtStrasse.Text
.Item("PLZ") = oForm.txtPLZ.Text
.Item("Ort") = oForm.txtOrt.Text
.Item("Land") = oForm.cboLand.Text
.Item("Telefon") = oForm.txtTelefon.Text
.Item("Email") = oForm.txtEmail.Text
.Item("Anmerkung") = oForm.txtAnmerkung.Text
.Item("Stammgast") = oForm.chkStammgast.Checked
.Item("Blockiert") = oForm.chkBlacklist.Checked
End With
Try
dt.Rows.Add(dr)
Catch ex As Exception
MsgBox("Gast konnte nicht hinzugefügt werden." & vbCrLf & ex.Message)
End Try
oForm.Dispose()
oForm = Nothing
End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
Dim oForm As New frmPerson()
oForm.Tag = "edit"
With oForm
.txtID.Text = Me.DataGridView1.SelectedCells(0).Value.ToString
.txtNachname.Text = Me.DataGridView1.SelectedCells(1).Value.ToString
.txtVorname.Text = Me.DataGridView1.SelectedCells(2).Value.ToString
.txtStrasse.Text = Me.DataGridView1.SelectedCells(3).Value.ToString
.txtPLZ.Text = Me.DataGridView1.SelectedCells(4).Value.ToString
.txtOrt.Text = Me.DataGridView1.SelectedCells(5).Value.ToString
.cboLand.Text = Me.DataGridView1.SelectedCells(6).Value.ToString
.txtTelefon.Text = Me.DataGridView1.SelectedCells(7).Value.ToString
.txtEmail.Text = Me.DataGridView1.SelectedCells(8).Value.ToString
.txtAnmerkung.Text = Me.DataGridView1.SelectedCells(9).Value.ToString
'.chkStammgast.Checked = CBool(Me.DataGridView1.SelectedCells(10).Value)
'.chkBlacklist.Checked = CBool(Me.DataGridView1.SelectedCells(11).Value)
End With
'MsgBox(CType(Me.DataGridView1.SelectedCells(10).Value, Boolean))
oForm.ShowDialog()
oForm.Dispose()
oForm = Nothing
End Sub
'We should not have to use this any more. but for backup we left this here...
'Private Sub DataGridView1_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseUp
' If e.Button = MouseButtons.Right Then
' Me.DataGridView1.Rows(e.RowIndex).Selected = True
' Me._rowIndex = e.RowIndex
' Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(e.RowIndex).Cells(1)
' Me.mnuContext.Show(Me.DataGridView1, e.Location)
' mnuContext.Show(Cursor.Position)
' End If
'End Sub
Private Sub DataGridView1_MouseUp(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseUp
If e.Button = MouseButtons.Right Then
If Me.DataGridView1.SelectedRows.Count < 1 Then
HinzufügenToolStripMenuItem.Visible = True
BearbeitenToolStripMenuItem.Visible = False
LöschenToolStripMenuItem.Visible = False
Else
If Me.DataGridView1.SelectedRows.Count > 1 Then
HinzufügenToolStripMenuItem.Visible = True
BearbeitenToolStripMenuItem.Visible = False
LöschenToolStripMenuItem.Visible = True
Else
HinzufügenToolStripMenuItem.Visible = True
BearbeitenToolStripMenuItem.Visible = True
LöschenToolStripMenuItem.Visible = True
End If
End If
Me.mnuContext.Show(Me.DataGridView1, e.Location)
mnuContext.Show(Cursor.Position)
End If
End Sub
End Class

@ -0,0 +1,424 @@
<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()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'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()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtID = New System.Windows.Forms.TextBox()
Me.txtNachname = New System.Windows.Forms.TextBox()
Me.txtVorname = New System.Windows.Forms.TextBox()
Me.txtStrasse = New System.Windows.Forms.TextBox()
Me.txtPLZ = New System.Windows.Forms.TextBox()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.txtTelefon = New System.Windows.Forms.TextBox()
Me.txtEmail = New System.Windows.Forms.TextBox()
Me.txtAnmerkung = New System.Windows.Forms.TextBox()
Me.chkStammgast = New System.Windows.Forms.CheckBox()
Me.chkBlacklist = New System.Windows.Forms.CheckBox()
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()
CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(182, 450)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(3, 3)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(67, 23)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "OK"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Abbrechen"
'
'TableLayoutPanel2
'
Me.TableLayoutPanel2.ColumnCount = 2
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 29.51807!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 70.48193!))
Me.TableLayoutPanel2.Controls.Add(Me.Label1, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label2, 0, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label3, 0, 2)
Me.TableLayoutPanel2.Controls.Add(Me.Label4, 0, 3)
Me.TableLayoutPanel2.Controls.Add(Me.Label5, 0, 4)
Me.TableLayoutPanel2.Controls.Add(Me.Label6, 0, 5)
Me.TableLayoutPanel2.Controls.Add(Me.Label7, 0, 6)
Me.TableLayoutPanel2.Controls.Add(Me.Label8, 0, 7)
Me.TableLayoutPanel2.Controls.Add(Me.Label9, 0, 8)
Me.TableLayoutPanel2.Controls.Add(Me.Label10, 0, 9)
Me.TableLayoutPanel2.Controls.Add(Me.Label11, 0, 10)
Me.TableLayoutPanel2.Controls.Add(Me.Label12, 0, 11)
Me.TableLayoutPanel2.Controls.Add(Me.txtID, 1, 0)
Me.TableLayoutPanel2.Controls.Add(Me.txtNachname, 1, 1)
Me.TableLayoutPanel2.Controls.Add(Me.txtVorname, 1, 2)
Me.TableLayoutPanel2.Controls.Add(Me.txtStrasse, 1, 3)
Me.TableLayoutPanel2.Controls.Add(Me.txtPLZ, 1, 4)
Me.TableLayoutPanel2.Controls.Add(Me.txtOrt, 1, 5)
Me.TableLayoutPanel2.Controls.Add(Me.txtTelefon, 1, 7)
Me.TableLayoutPanel2.Controls.Add(Me.txtEmail, 1, 8)
Me.TableLayoutPanel2.Controls.Add(Me.txtAnmerkung, 1, 9)
Me.TableLayoutPanel2.Controls.Add(Me.chkStammgast, 1, 10)
Me.TableLayoutPanel2.Controls.Add(Me.chkBlacklist, 1, 11)
Me.TableLayoutPanel2.Controls.Add(Me.cboLand, 1, 6)
Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Top
Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 12
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.2!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!))
Me.TableLayoutPanel2.Size = New System.Drawing.Size(340, 430)
Me.TableLayoutPanel2.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(3, 29)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(59, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Nachname"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(3, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(18, 13)
Me.Label2.TabIndex = 0
Me.Label2.Text = "ID"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(3, 58)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(49, 13)
Me.Label3.TabIndex = 0
Me.Label3.Text = "Vorname"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 87)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(38, 13)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Straße"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(3, 116)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(27, 13)
Me.Label5.TabIndex = 0
Me.Label5.Text = "PLZ"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 145)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(80, 13)
Me.Label6.TabIndex = 0
Me.Label6.Text = "Ort / Gemeinde"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 174)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(67, 13)
Me.Label7.TabIndex = 0
Me.Label7.Text = "Land / Staat"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(3, 203)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(43, 13)
Me.Label8.TabIndex = 0
Me.Label8.Text = "Telefon"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(3, 232)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(32, 13)
Me.Label9.TabIndex = 0
Me.Label9.Text = "Email"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(3, 261)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(61, 13)
Me.Label10.TabIndex = 0
Me.Label10.Text = "Anmerkung"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(3, 369)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(59, 13)
Me.Label11.TabIndex = 0
Me.Label11.Text = "Stammgast"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(3, 398)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(79, 13)
Me.Label12.TabIndex = 0
Me.Label12.Text = "Schwarze Liste"
'
'txtID
'
Me.txtID.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtID.Location = New System.Drawing.Point(103, 3)
Me.txtID.Name = "txtID"
Me.txtID.ReadOnly = True
Me.txtID.Size = New System.Drawing.Size(234, 20)
Me.txtID.TabIndex = 1
'
'txtNachname
'
Me.txtNachname.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtNachname.Location = New System.Drawing.Point(103, 32)
Me.txtNachname.Name = "txtNachname"
Me.txtNachname.Size = New System.Drawing.Size(234, 20)
Me.txtNachname.TabIndex = 1
'
'txtVorname
'
Me.txtVorname.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtVorname.Location = New System.Drawing.Point(103, 61)
Me.txtVorname.Name = "txtVorname"
Me.txtVorname.Size = New System.Drawing.Size(234, 20)
Me.txtVorname.TabIndex = 1
'
'txtStrasse
'
Me.txtStrasse.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtStrasse.Location = New System.Drawing.Point(103, 90)
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(234, 20)
Me.txtStrasse.TabIndex = 1
'
'txtPLZ
'
Me.txtPLZ.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtPLZ.Location = New System.Drawing.Point(103, 119)
Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(234, 20)
Me.txtPLZ.TabIndex = 1
'
'txtOrt
'
Me.txtOrt.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtOrt.Location = New System.Drawing.Point(103, 148)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(234, 20)
Me.txtOrt.TabIndex = 1
'
'txtTelefon
'
Me.txtTelefon.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtTelefon.Location = New System.Drawing.Point(103, 206)
Me.txtTelefon.Name = "txtTelefon"
Me.txtTelefon.Size = New System.Drawing.Size(234, 20)
Me.txtTelefon.TabIndex = 1
'
'txtEmail
'
Me.txtEmail.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtEmail.Location = New System.Drawing.Point(103, 235)
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(234, 20)
Me.txtEmail.TabIndex = 1
'
'txtAnmerkung
'
Me.txtAnmerkung.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtAnmerkung.Location = New System.Drawing.Point(103, 264)
Me.txtAnmerkung.Multiline = True
Me.txtAnmerkung.Name = "txtAnmerkung"
Me.txtAnmerkung.Size = New System.Drawing.Size(234, 102)
Me.txtAnmerkung.TabIndex = 1
'
'chkStammgast
'
Me.chkStammgast.AutoSize = True
Me.chkStammgast.Dock = System.Windows.Forms.DockStyle.Fill
Me.chkStammgast.Location = New System.Drawing.Point(103, 372)
Me.chkStammgast.Name = "chkStammgast"
Me.chkStammgast.Size = New System.Drawing.Size(234, 23)
Me.chkStammgast.TabIndex = 2
Me.chkStammgast.UseVisualStyleBackColor = True
'
'chkBlacklist
'
Me.chkBlacklist.AutoSize = True
Me.chkBlacklist.Dock = System.Windows.Forms.DockStyle.Fill
Me.chkBlacklist.Location = New System.Drawing.Point(103, 401)
Me.chkBlacklist.Name = "chkBlacklist"
Me.chkBlacklist.Size = New System.Drawing.Size(234, 26)
Me.chkBlacklist.TabIndex = 2
Me.chkBlacklist.UseVisualStyleBackColor = True
'
'GästeBindingSource
'
Me.GästeBindingSource.DataMember = "Gäste"
Me.GästeBindingSource.DataSource = Me.GästeDataSet
'
'GästeDataSet
'
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
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(340, 491)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmPerson"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "frmPerson"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents Label9 As Label
Friend WithEvents Label10 As Label
Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label
Friend WithEvents txtID As TextBox
Friend WithEvents txtNachname As TextBox
Friend WithEvents txtVorname As TextBox
Friend WithEvents txtStrasse As TextBox
Friend WithEvents txtPLZ As TextBox
Friend WithEvents txtOrt As TextBox
Friend WithEvents txtTelefon As TextBox
Friend WithEvents txtEmail As TextBox
Friend WithEvents txtAnmerkung As TextBox
Friend WithEvents chkStammgast As CheckBox
Friend WithEvents chkBlacklist As CheckBox
Friend WithEvents GästeBindingSource As BindingSource
Friend WithEvents GästeDataSet As GästeDataSet
Friend WithEvents cboLand As ComboBox
End Class

@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<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>
</root>

@ -0,0 +1,14 @@
Imports System.Windows.Forms
Public Class frmPerson
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
End Class
Loading…
Cancel
Save