当前文件： SmallBusinessStarterKit/smallbusiness_vb/App_Code/People/XmlPeopleProvider.vb[2K，2009-6-12 11:54:22]，打开代码结构图

		            
 1Imports Microsoft.VisualBasic
 2Imports System
 3Imports System.Data
 4Imports System.Configuration
 5Imports System.Web
 6Imports System.Xml
 7Imports System.Xml.Schema
 8Imports System.IO
 9Imports System.Collections.Generic
10
11
12'/ <summary>
13'/ XML Data Layer for People
14'/ </summary>
15Public Class XmlPeopleProviderClass XmlPeopleProvider
16    Inherits PeopleProvider
17    Private _xmlFile As String
18    Private _xsdFile As String
19
20
21
22    Public Sub New()Sub New()
23        Dim sec As SmallBusinessDataProvidersSection = ConfigurationManager.GetSection("SmallBusinessDataProviders")
24        Dim xmlFile As String = sec.PeopleProviders(sec.PeopleProviderName).Parameters("dataFile")
25        Dim xsdFile As String = sec.PeopleProviders(sec.PeopleProviderName).Parameters("schemaFile")
26        _xmlFile = HttpContext.Current.Request.MapPath(("~/App_Data/" + xmlFile))
27        _xsdFile = HttpContext.Current.Request.MapPath(("~/App_Data/schemas/" + xsdFile))
28    End Sub 'New 
29
30
31    
32    Public Overrides Function GetAllPersons()Function GetAllPersons() As List(Of Person)
33        Dim personList As New List(Of Person)
34        Dim dataSet As DataSet = Util.ReadAndValidateXml(_xmlFile, _xsdFile)
35
36        Dim t As DataTable
37        For Each t In dataSet.Tables
38            Dim r As DataRow
39            For Each r In t.Rows
40                If TypeOf r("id") Is DBNull Or TypeOf r("visible") Is DBNull Or TypeOf r("firstName") Is DBNull Or TypeOf r("firstName") Is DBNull Then
41                    Throw New InvalidOperationException(Messages.PersonRequiredAttributesMissing)
42                End If '(string)r["visible"]
43                Dim curr As New Person(CStr(r("id")), CBool(r("visible")), CStr(r("firstName")), CStr(r("lastName")))
44
45                curr.MiddleName = Util.ReturnEmptyStringIfDbNull(r("middleName"))
46                curr.Title = Util.ReturnEmptyStringIfDbNull(r("title"))
47                curr.Description = Util.ReturnEmptyStringIfDbNull(r("description"))
48                curr.Email = Util.ReturnEmptyStringIfDbNull(r("email"))
49                curr.Phone = Util.ReturnEmptyStringIfDbNull(r("phone"))
50                curr.Fax = Util.ReturnEmptyStringIfDbNull(r("fax"))
51                curr.StreetAddress = Util.ReturnEmptyStringIfDbNull(r("streetAddress"))
52                curr.City = Util.ReturnEmptyStringIfDbNull(r("city"))
53                curr.State = Util.ReturnEmptyStringIfDbNull(r("state"))
54                curr.PostalCode = Util.ReturnEmptyStringIfDbNull(r("postalCode"))
55                curr.Country = Util.ReturnEmptyStringIfDbNull(r("country"))
56                curr.ImageUrl = Util.ReturnEmptyStringIfDbNull(r("imageUrl"))
57                curr.ImageAltText = Util.ReturnEmptyStringIfDbNull(r("imageAltText"))
58
59                personList.Add(curr)
60            Next r
61        Next t
62        Return personList
63    End Function 'New
64End Class 'XmlPeopleProvider
65