From d0cb9509f6f35470d2fc3b1b8e80d532f1498536 Mon Sep 17 00:00:00 2001 From: Dominic Reich Date: Wed, 16 Mar 2016 22:54:29 +0100 Subject: [PATCH] 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. --- .vs/Gästeliste/v14/.suo | Bin 62464 -> 64512 bytes Gästeliste/GästeDataSet.Designer.vb | 2 +- Gästeliste/GästeDataSet.xsd | 4 +- Gästeliste/Gästeliste.vbproj | 9 + Gästeliste/frmAbout.vb | 8 + Gästeliste/frmMain.Designer.vb | 94 +++--- Gästeliste/frmMain.resx | 6 +- Gästeliste/frmMain.vb | 121 ++++++-- Gästeliste/frmPerson.designer.vb | 424 ++++++++++++++++++++++++++ Gästeliste/frmPerson.resx | 126 ++++++++ Gästeliste/frmPerson.vb | 14 + 11 files changed, 749 insertions(+), 59 deletions(-) create mode 100644 Gästeliste/frmPerson.designer.vb create mode 100644 Gästeliste/frmPerson.resx create mode 100644 Gästeliste/frmPerson.vb diff --git a/.vs/Gästeliste/v14/.suo b/.vs/Gästeliste/v14/.suo index 64d4330e51eba2a7d2d1b4acd753547eda7bbb0c..9c9906a1e3e4649a1946316f8c7d3671ce557781 100644 GIT binary patch delta 3621 zcmcIndr(x@8NcW5gJoH85kx?c1;lL8)!k(mc6}iG2&kxl;v-1W1(wDL$ndbd0!TIE zAFYA?Y?|7%4HzQ@>RIdutr>v zBU-v}E%w(TauMqh8xR{2n-FE~Ihl%5?9d4CcC0qM76)~RdPD=F5wRTsF4)0=tlD`U+{0beE62Aj0g0LHmptn|`orVYz$4azPL?}Wg`V^w|M@x4x*=$H@ zh$=>$rCw;%gu{Mme#BCAE)ypvFR|lzd3(;x*cI4WiO58(M$jv>M4OHFx%QlRD2`o4 z9<;l%JW8p$6`kKf>_+TCK&Vm!Ql%Q4%Kg$4)G?x5E)@vU2AH0^ik{yit|8t-j3C}e z`~h(taRYG^aSQQB#BIc%5PwE|gt&wF0P!J$1|1dc1GuROX|J$&RMoP(=nIBARVEBa z>S0`!t(b=%sv@|=X`wnWOU6*X;Md%I7!Pcbx8q>B66%BMNgI3`)J$H6nrY3!`_N7K zrfnCZ6^Jqf!j<01yrO)0-B)gn{;Is_9>u+>1E*}h-L;XMK1>wzF)|gdu($D$ONv=I zpvOubvMB8I!M(XzbhCW*j4UD}8ahdb<6$jCMwxpw+sOb^v*pJlR4k`)vWj@TNVMy7vp{ z?XF&nr(X*bec?n6w*D5LG)|DtRu(q3*7NnRy(H^wV!?ADijO*Qo506gEHJiL&ZoAX zA>13S60morl3>_%cp2RK=?jqBs>W+V{K;0>cc_POaNy97X8P1oF-09anL-$UGY`@a zFQFlL@8O+n0K+V1=&o!`DR1i@BwSZAi;u^ob0NOYs3>GuGBUegvwmynjjC#Qv8&ou z<*r^(TUCr{>Qiiv6tmH;a~kb>oyqBN>TFJ{LuX7%v8S7p4Ynk`?L|=bU4fO|7x}wA zNhHZ?F}d7kgG*;BG#Yd!lRHIcF&c|>#l>c~-jr;yCb>)SGlL+6wk=J#{nDqty^L`R z5mr5Qgy0Mzbtk62&X@XD*l|7!dU-i~bT$Cl|J(?UAJ>NKElFnjDe;Boq%^=Mz3CpV zPhC=2F!Wn}{`1nk=O4JPUKs-~mj)d@F|g^_kAvy!%h#rR`>+$i%lkefaKER3FW{$< zEW2)9?jk+@8j>t2MTG`Su`bzQPSTkS=474KXim{tT}4SHR--)%oHCI$H44SP}z#0n*n78%sA?(`^>!s%LA-IPN zA%7qYYESF~?R`x2E7FAs}uQ( zli5U`kDqqw%)zuXgg-a1h=r~FQ841=pkpY8eVM@Np_%?vJG2yT77pgEyV2ks+Dp=K z&HzWwX-FdaXF>7s3~scAK;7^{VJ;aaPTN3tE(W#?xqP8w;O@Cy#D*6pL&3Qy3}b|A z!|`Ohc;W%UTXNlH6+0?jm35i!x&;*_wJA+qv>g{JV#o3SRZx8Gi8YeP zE9(BLIJk52DkPtZ;ztG&iJ+{?lSX{eN5a~7dPOn4K-C4_0X*<`lu&v)4!mZ|6RXPk zG-_Hyr5K&>t2CwCu+lzGSsp*iBbIKe%vrDeF!3kWOVN(b+-sWONiSRrD6c6kO{Mb$ e28R+JmC(p=?6mEUMfvNi+?7@N&K+gj%Kr_>hS975 delta 2416 zcmeHITToM16usx>29gj$gal9mNi^DsV#7lwP>TUlprAY=<9qN$`cWxTjY#8zsEGZb z3U@nGT4{^Kua*|b`EY70L}jc~3%-izSZB~_$A0t^W|Xngec+bp|9bb;5`kBl#?5BYs9~l6*bl&r{PAp%TZQ9VYo2#7MMP z;fP}Uiscf^60#*f2l15|e7@utAhMkb5sT1PN_;V52^uVmw+QQ)Q>nC&+Lp2s`5ug( zwrrUv@>QDlwV8)~*m5*-zuoftZq$p5LSyBq5oe+4q*x^(n-kDyrN|{tfvA-HmnCE( z#7TaFge-SKOPNt&l?Z4z*x;I=1B0NQpM|7Dn#h%qWjN8#lj0REWie!1OW6i!iZ2MS zo3RS}G>R$#(o|ZZ5qXH!1_f3me5Wb^%PhN`1-R-XQSE`za4WQ_t-?IE@|)hpFsd$9 zEX3diMqKN)f+xI0Nmx^?xk+X;+!t~LgJVkYYP_TY#x(WhFzk+~4?l!76NQa~kgSUO zlM(`v{RH|Wmx;Q5ft@T?f_yeQ74TSB2p46^)T1vUlg?L$*Hd~eQOi2!@IB?7q@|`@%+!VD;OfGhRk@pR|AUuK z!bragntN3+n5hZNta~di9j`^@ujlkjxZT_?&du%QxaHLuR$Mi;Lw<*Whx@0Zp`tg7 zmODC$nBe@!s?j=ADPao1&R!kW<@`iM%cJMLJBfnb1=jbJMkoR!CQlFQE{Q;F^F%V|rKy$nZON}yZcA~4^WHr{ z#yJPTd}a{Np38&ovwGOkrvhW&2eZ;q{OQ5IxDj-qZ=8q^y0!XM*3iVNJ)fO9P!Zhm z_@RRaAACx{XA@%BMPg&$-jrNh^3tgQ-{JWYd+6G$?4!y-{&6#y@5h4UxD|3TV@U+f z?mt5O!G{7k2F4-yRY1Ga>?<1T`Jpn%|b?2U%j%U0+fFwoUkEqvfgkO2RZ z0jv%ke0=>wC>c%;Nhi3y8ajve`W=G=DI?_F+5%%Y-iC;=&4?*5I6M!kZ?{6vxCrK3 z^Pzfp33LsmK-WzZf1E(~kP$B5I!M;RwVQF!bs-H_--#m|q$n)Ven|G8NI$I`!!>C7 z|E2#He+zGZxe#vOh!0!8I<;Zv-7h}rT9XWK+<7tZ2XorMIljHg{yYQNH$!Wyd1fPt I=D)P)7Z~N6S^xk5 diff --git a/Gästeliste/GästeDataSet.Designer.vb b/Gästeliste/GästeDataSet.Designer.vb index 2836632..407749c 100644 --- a/Gästeliste/GästeDataSet.Designer.vb +++ b/Gästeliste/GästeDataSet.Designer.vb @@ -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 diff --git a/Gästeliste/GästeDataSet.xsd b/Gästeliste/GästeDataSet.xsd index a339d51..6e1c31a 100644 --- a/Gästeliste/GästeDataSet.xsd +++ b/Gästeliste/GästeDataSet.xsd @@ -12,7 +12,7 @@ - + @@ -27,7 +27,7 @@ - + diff --git a/Gästeliste/Gästeliste.vbproj b/Gästeliste/Gästeliste.vbproj index 61320d7..0aa6517 100644 --- a/Gästeliste/Gästeliste.vbproj +++ b/Gästeliste/Gästeliste.vbproj @@ -134,6 +134,12 @@ frmMain.vb Form + + frmPerson.vb + + + Form + True True @@ -165,6 +171,9 @@ frmMain.vb + + frmPerson.vb + VbMyResourcesResXFileCodeGenerator Resources.Designer.vb diff --git a/Gästeliste/frmAbout.vb b/Gästeliste/frmAbout.vb index 94f558c..5cce680 100644 --- a/Gästeliste/frmAbout.vb +++ b/Gästeliste/frmAbout.vb @@ -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 diff --git a/Gästeliste/frmMain.Designer.vb b/Gästeliste/frmMain.Designer.vb index ca8379a..d6a9bb3 100644 --- a/Gästeliste/frmMain.Designer.vb +++ b/Gästeliste/frmMain.Designer.vb @@ -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 diff --git a/Gästeliste/frmMain.resx b/Gästeliste/frmMain.resx index 180a11f..5dd25ae 100644 --- a/Gästeliste/frmMain.resx +++ b/Gästeliste/frmMain.resx @@ -117,15 +117,15 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 407, 17 - 142, 17 17, 17 + + 407, 17 + 303, 17 diff --git a/Gästeliste/frmMain.vb b/Gästeliste/frmMain.vb index d719578..598b926 100644 --- a/Gästeliste/frmMain.vb +++ b/Gästeliste/frmMain.vb @@ -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 diff --git a/Gästeliste/frmPerson.designer.vb b/Gästeliste/frmPerson.designer.vb new file mode 100644 index 0000000..2bc7d2d --- /dev/null +++ b/Gästeliste/frmPerson.designer.vb @@ -0,0 +1,424 @@ + _ +Partial Class frmPerson + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/Gästeliste/frmPerson.resx b/Gästeliste/frmPerson.resx new file mode 100644 index 0000000..c515bcc --- /dev/null +++ b/Gästeliste/frmPerson.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 142, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Gästeliste/frmPerson.vb b/Gästeliste/frmPerson.vb new file mode 100644 index 0000000..fce5e03 --- /dev/null +++ b/Gästeliste/frmPerson.vb @@ -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