#眉標=Silverlight 3.0、.NET RIA Services、LinqToSql
#副標=Silverlight 3.0技術應用（4）
#大標=用.NET RIA開發資料庫應用程式
#作者=文／圖 董大偉


===<反灰>=============
'宣告物件
Dim northwindDomainContext As Web.northwindDomainContext

'此名稱就會是先前你取的服務名稱
==<end>==============




==<box>===========
程式1

Partial Public Class MainPage
  Inherits UserControl
  '宣告物件
  Dim northwindDomainContext As Web.northwindDomainContext
 Public Sub New()
  InitializeComponent()
  '建立物件實體
  northwindDomainContext = New Web.northwindDomainContext
  '設定DataGrid的資料來源 為 Customers
  Me.DataGrid1.ItemsSource = northwindDomainContext.Customers
  '從遠端載入資料        
northwindDomainContext.Load( _ 
northwindDomainContext.GetCustomersQuery)
  End Sub
End Class
==<end>==============




===<反灰>=============
northwindDomainContext.Load( _
northwindDomainContext.GetCustomersQuery  )
==<end>==============



===<反灰>=============
Private Sub Button1_Click(ByVal sender as Object, ByVal e as System.Windows.RoutedEventArgs)
  Me.DataGrid1.CommitEdit()
  'SubmitChanges
  northwindDomainContext.SubmitChanges()
End Sub
==<end>==============




===<反灰>=============
<MetadataTypeAttribute(GetType(Customers.CustomersMetadata))>  _
Partial Public Class Customers
(…略…)
　　
==<end>==============




==<box>===========
程式2

Friend NotInheritable Class CustomersMetadata 
(…略…)        
  Public Address As String        
  Public City As String        
  <DataAnnotations.Display(name:="公司名稱")>_
  ‘在CompanyName上加上Display修飾字
Public CompanyName As String        
  Public ContactName As String        
  Public ContactTitle As String        
  Public Country As String        
  Public CustomerID As String        
  Public Fax As String        
  Public Phone As String        
  Public PostalCode As String        
  Public Region As String
End Class
　　
==<end>==============





==<box>===========
程式3
<Grid x:Name="LayoutRoot">
 <riaControls:DomainDataSource x:Name="DDS1" />
  <StackPanel>
   <dataFormToolkit:DataForm  
     ItemsSource="{Binding Data, ElementName=DDS1}" 
     ‘請特別注意這邊的Binding設定
     x:Name="DataForm1" Height="321" Margin="50">
   </dataFormToolkit:DataForm>
   <Button x:Name="Button1" Click="Button1_Click" 
     Width="100" Height="39" FontSize="21.333" 
     Content="Submit" Margin="270,0"></Button>
   </StackPanel>
</Grid>
==<end>==============



===<反灰>=============
ItemsSource="{Binding Data, ElementName=DDS1}"
==<end>==============




==<box>===========
程式4
'使用.NET RIA Services
Dim northwindDomainContext As New Web.NorthwindDomainContext
 Public Sub New()
  InitializeComponent()
   '填入DDS1的DomainContext & QueryName
   DDS1.DomainContext = northwindDomainContext
   DDS1.QueryName = "GetCustomersQuery"
End Sub
==<end>==============






==<box>===========
程式5
'當按鈕被按下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
  Me.DataForm1.CommitEdit()
  'SubmitChanges
  northwindDomainContext.SubmitChanges()
End Sub
==<end>==============





==<box>===========
程式6


<Grid x:Name="LayoutRoot">
  <riaControls:DomainDataSource LoadSize="30" x:Name="DDS1" />        <data:DataGrid ItemsSource="{Binding Data, ElementName=DDS1}" 
   x:Name="DataGrid1" Margin="8,8,8,145"/>
<data:DataPager Source="{Binding Data, ElementName=DDS1}" 
PageSize="5" x:Name="DataPager1" Margin="8,0,8,121" VerticalAlignment="Bottom"/>
  <Button x:Name="Button1" Height="45" HorizontalAlignment="Right" 
Margin="0,0,8,72" VerticalAlignment="Bottom" Width="124" Content="Submit" FontSize="20" Click="Button1_Click"/>
</Grid>
==<end>==============





==<box>===========
程式7

'宣告DomainContext物件
Dim northwindDomainContext As Web.northwindDomainContext
Public Sub New()
  InitializeComponent()
  '建立物件實體
  northwindDomainContext = New Web.northwindDomainContext    
  '填入DomainContext &  QueryName
  DDS1.DomainContext = northwindDomainContext
  DDS1.QueryName = "GetCustomersQuery"
  'DDS1.LoadSize = 30
End Sub
==<end>==============