-
Notifications
You must be signed in to change notification settings - Fork 2
/
MainForm.vb
41 lines (34 loc) · 1.27 KB
/
MainForm.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Imports DevExpress.Data
Imports DevExpress.XtraBars
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Base
Imports DxSample.Service.Models
Imports System
Imports System.Linq
Namespace DxSample
Partial Public Class MainForm
Inherits XtraForm
Private Context As New [Default].Container(New Uri("http://localhost:50936/"))
Public Sub New()
InitializeComponent()
End Sub
Private Sub MainForm_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.customerBindingSource.DataSource = Me.Context.Customers.ToList()
Me.orderBindingSource.DataSource = Me.Context.Orders.ToList()
End Sub
Private Sub GridView_RowUpdated(ByVal sender As Object, ByVal e As RowObjectEventArgs) Handles GridView.RowUpdated
If e.RowHandle = GridControl.NewItemRowHandle Then
Me.Context.AddToOrders(DirectCast(e.Row, Order))
Else
Me.Context.UpdateObject(e.Row)
End If
End Sub
Private Sub GridView_RowDeleted(ByVal sender As Object, ByVal e As RowDeletedEventArgs) Handles GridView.RowDeleted
Me.Context.DeleteObject(e.Row)
End Sub
Private Sub SaveButton_ItemClick(ByVal sender As Object, ByVal e As ItemClickEventArgs) Handles SaveButton.ItemClick
Me.Context.SaveChanges()
End Sub
End Class
End Namespace