【WPF小品】Silverlight中与数据库交互入门教程 -- 第二课

todaynew

第二课 设计查询

　　本课描述在如何在域服务类中，根据实际业务的需要设计查询。

示例文件：

上一课　下一课

todaynew

15、打开Web项目中的域服务类文件MyDomainService.vb;

16、在域服务类中增加一个按班级ID查询学生表的查询方法，代码如下：

   '新增按班级ID的查询方法
    <Query(IsComposable:=False)>
    Public Function Get学生表By班级ID(ByVal id As Integer) As IQueryable(Of 学生表)
        Return Me.ObjectContext.学生表.Where(Function(x) CBool(x.班级ID = id))
    End Function

图示05：

todaynew

17、转到MainPage.xaml文件中，从工具箱分别拖一个Lable控件和一个ComboBox控件到页面中，并调整位置大小等；

18、将ComboBox控件命名为cob班级ID；

图示06：

todaynew

19、转到MainPage.xaml.vb文件中，编写和修改代码如下：

Imports System.ServiceModel.DomainServices.Client
Imports RIA示例.Web

Partial Public Class MainPage
    Inherits UserControl
    Private myD As New MyDomainContext

    Public Sub New()
        InitializeComponent()
        SetCob()
        SetDataGrid()

    End Sub

    Private Sub SetDataGrid()
        Dim id As Integer = 0
        If cob班级ID.SelectedValue Is Nothing = False Then
            id = CInt(cob班级ID.SelectedValue)
        End If

        Dim loadop As LoadOperation(Of 学生表) = myD.Load(myD.Get学生表By班级IDQuery(id))
        DataGrid1.ItemsSource = loadop.Entities()
    End Sub

    Private Sub SetCob()
        Dim loadop As LoadOperation(Of 班级表) = myD.Load(myD.Get班级表Query())
        cob班级ID.ItemsSource = loadop.Entities()
        cob班级ID.DisplayMemberPath = "班级"
        cob班级ID.SelectedValuePath = "班级ID"
    End Sub

    Private Sub cob班级ID_SelectionChanged(sender As Object, e As System.Windows.Controls.SelectionChangedEventArgs) Handles cob班级ID.SelectionChanged
        SetDataGrid()
    End Sub
End Class

20、按F5进行测试，测试效果是可从下拉列表框中选择班级，并筛选DataGrid中的数据。

图示07：