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.
This commit is contained in:
parent
0b09b09ce6
commit
d0cb9509f6
11 changed files with 749 additions and 59 deletions
Binary file not shown.
2
Gästeliste/GästeDataSet.Designer.vb
generated
2
Gästeliste/GästeDataSet.Designer.vb
generated
|
|
@ -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
|
||||
|
|
|
|||
94
Gästeliste/frmMain.Designer.vb
generated
94
Gästeliste/frmMain.Designer.vb
generated
|
|
@ -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
|
||||
|
|
|
|||
424
Gästeliste/frmPerson.designer.vb
generated
Normal file
424
Gästeliste/frmPerson.designer.vb
generated
Normal file
|
|
@ -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
|
||||
126
Gästeliste/frmPerson.resx
Normal file
126
Gästeliste/frmPerson.resx
Normal file
|
|
@ -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>
|
||||
14
Gästeliste/frmPerson.vb
Normal file
14
Gästeliste/frmPerson.vb
Normal file
|
|
@ -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…
Reference in a new issue