vendor.vb

its it tracker and used for track

Imports dfs.ITracker.Data

Public Class Vendor

    Protected _id As Integer
    Protected _name As String
    Protected _address1 As String
    Protected _address2 As String
    Protected _city As String
    Protected _state As String
    Protected _zip As String

    Public Property ID() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property
    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property
    Public Property Address1() As String
        Get
            Return _address1
        End Get
        Set(ByVal value As String)
            _address1 = value
        End Set
    End Property
    Public Property Address2() As String
        Get
            Return _address2
        End Get
        Set(ByVal value As String)
            _address2 = value
        End Set
    End Property
    Public Property City() As String
        Get
            Return _city
        End Get
        Set(ByVal value As String)
            _city = value
        End Set
    End Property
    Public Property State() As String
        Get
            Return _state
        End Get
        Set(ByVal value As String)
            _state = value
        End Set
    End Property
    Public Property Zip() As String
        Get
            Return _zip
        End Get
        Set(ByVal value As String)
            _zip = value
        End Set
    End Property

    Public Shared Function Save(ByVal vendor As Vendor) As Boolean
        If VendorDataService.Save(vendor.ID, vendor.Name, vendor.Address1, vendor.Address2, vendor.City, vendor.State, vendor.Zip) > 0 Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Shared Function Fetch(ByVal id As Integer) As Vendor
        Dim ds As DataSet = VendorDataService.Fetch(id)
        If Not ds Is Nothing AndAlso ds.Tables.Count > 0 AndAlso ds.Tables(0).Rows.Count > 0 Then
            Return ConvertToObject(ds.Tables(0).Rows(0))
        Else
            Return Nothing
        End If
    End Function
    Public Shared Function FetchList() As VendorList
        Dim ds As DataSet = VendorDataService.FetchList
        Dim vendorlist As New VendorList
        If Not ds Is Nothing AndAlso ds.Tables.Count > 0 Then
            For Each dr As DataRow In ds.Tables(0).Rows
                vendorlist.Add(ConvertToObject(dr))
            Next
        End If
        Return vendorlist
    End Function
    Public Shared Function Search(ByVal vendorName As String) As VendorList
        Dim vendorList As New VendorList
        Dim ds As DataSet = VendorDataService.Search(vendorName)
        If Not ds Is Nothing AndAlso ds.Tables.Count > 0 Then
            For Each dr As DataRow In ds.Tables(0).Rows
                vendorList.Add(ConvertToObject(dr))
            Next
        End If
        Return vendorList
    End Function
    Private Shared Function ConvertToObject(ByVal dr As DataRow) As Vendor
        Dim _vendor As New Vendor
        With _vendor
            .Address1 = dr("vendor_address1").ToString
            .Address2 = dr("vendor_address2").ToString
            .City = dr("vendor_city").ToString
            .ID = CInt(dr("vendor_id"))
            .Name = dr("vendor_name").ToString
            .State = dr("vendor_state").ToString
            .Zip = dr("vendor_zip").ToString
        End With
        Return _vendor
    End Function

End Class
Public Class VendorList
    Inherits Generic.List(Of Vendor)

End Class