01.
Public
Class
Form1
02.
03.
Private
Sub
Form1_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
04.
05.
Me
.MemberTableAdapter.Fill(
Me
.DatabaseDataSet.Member)
06.
07.
End
Sub
08.
09.
Private
Sub
MemberBindingNavigatorSaveItem_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MemberBindingNavigatorSaveItem.Click
10.
11.
Me
.Validate()
12.
Me
.MemberBindingSource.EndEdit()
13.
Me
.TableAdapterManager.UpdateAll(
Me
.DatabaseDataSet)
14.
Me
.MemberTableAdapter.Fill(
Me
.DatabaseDataSet.Member)
15.
16.
End
Sub
17.
18.
Private
Sub
ButtonADD_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
ButtonADD.Click
19.
20.
Me
.Validate()
21.
Me
.MemberBindingSource.EndEdit()
22.
Me
.MemberBindingSource.AddNew()
23.
Me
.TableAdapterManager.UpdateAll(
Me
.DatabaseDataSet)
24.
25.
End
Sub
26.
27.
Private
Sub
ButtonDELETE_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
ButtonDELETE.Click
28.
29.
Me
.Validate()
30.
Me
.MemberBindingSource.RemoveCurrent()
31.
Me
.TableAdapterManager.UpdateAll(
Me
.DatabaseDataSet)
32.
Me
.MemberTableAdapter.Fill(
Me
.DatabaseDataSet.Member)
33.
34.
End
Sub
35.
36.
Private
Sub
ButtonCONFIRM_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
ButtonCONFIRM.Click
37.
38.
Me
.Validate()
39.
Me
.TableAdapterManager.UpdateAll(
Me
.DatabaseDataSet)
40.
41.
End
Sub
42.
43.
Private
Sub
ButtonEDIT_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
ButtonEDIT.Click
44.
45.
Me
.Validate()
46.
Me
.MemberBindingSource.EndEdit()
47.
Me
.MemberBindingSource.AddNew()
48.
Me
.TableAdapterManager.UpdateAll(
Me
.DatabaseDataSet)
49.
50.
End
Sub
51.
End
Class