-
Notifications
You must be signed in to change notification settings - Fork 6
/
MainWindow.xaml.vb
66 lines (58 loc) · 2.3 KB
/
MainWindow.xaml.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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Imports EntityFrameworkIssues.Issues
Imports DevExpress.Data.Linq
Imports System.Data.Entity
Imports System.Linq
Imports DevExpress.Xpf.Grid
Imports DevExpress.Mvvm.Xpf
Imports System
Imports System.Collections
Class MainWindow
Public Sub New()
InitializeComponent()
Dim source = New EntityInstantFeedbackSource With {
.KeyExpression = NameOf(Issue.Id)
}
AddHandler source.GetQueryable, Sub(sender, e)
Dim context = New IssuesContext()
e.QueryableSource = context.Issues.AsNoTracking()
End Sub
grid.ItemsSource = source
LoadLookupData()
End Sub
Private Sub LoadLookupData()
Dim context = New IssuesContext()
usersLookup.ItemsSource = context.Users.[Select](Function(user) New With {
.Id = user.Id,
.Name = user.FirstName & " " + user.LastName
}).ToArray()
End Sub
Private Sub OnDataSourceRefresh(ByVal sender As Object, ByVal e As DataSourceRefreshEventArgs)
LoadLookupData()
End Sub
Private Sub OnCreateEditEntityViewModel(ByVal sender As Object, ByVal e As CreateEditItemViewModelArgs)
Dim context = New IssuesContext()
Dim item As Issue
If e.IsNewItem Then
item = New Issue() With {
.Created = Date.Now
}
context.Entry(item).State = EntityState.Added
Else
item = context.Issues.Find(e.Key)
End If
e.ViewModel = New EditItemViewModel(item, New EditIssueInfo(context, CType(usersLookup.ItemsSource, IList)), title:=If(e.IsNewItem, "New ", "Edit ") & NameOf(Issue))
End Sub
Private Sub OnValidateRow(ByVal sender As Object, ByVal e As EditFormRowValidationArgs)
Dim context = CType(e.EditOperationContext, EditIssueInfo).DbContext
context.SaveChanges()
End Sub
Private Sub OnValidateRowDeletion(ByVal sender As Object, ByVal e As EditFormValidateRowDeletionArgs)
Dim key = CInt(e.Keys.[Single]())
Dim item = New Issue() With {
.Id = key
}
Dim context = New IssuesContext()
context.Entry(item).State = EntityState.Deleted
context.SaveChanges()
End Sub
End Class