BO Folder

1.     On Customers.vb, type the following:

Public Class Customers

    Private mID As Integer

    Private mName As String

    Private mAddress As String

    Private mContactNo As String

    Private mCreditLimit As Decimal

    Property ID() As Integer

        Get

            Return mID

        End Get

        Set(ByVal value As Integer)

            mID = value

        End Set

    End Property

    Property Name() As String

        Get

            Return mName

        End Get

        Set(ByVal value As String)

            mName = value

        End Set

    End Property

    Property Address() As String

        Get

            Return mAddress

        End Get

        Set(ByVal value As String)

            mAddress = value

        End Set

    End Property

    Property ContactNo() As String

        Get

            Return mContactNo

        End Get

        Set(ByVal value As String)

            mContactNo = value

        End Set

    End Property

    Property CreditLimit() As Decimal

        Get

            Return mCreditLimit

        End Get

        Set(ByVal value As Decimal)

            mCreditLimit = value

        End Set

    End Property

End Class

2.     On Employees.vb, type the following:

Public Class Employees

    Private mID As Integer

    Private mName As String

    Private mPosition As String

    Property ID() As Integer

        Get

            Return mID

        End Get

        Set(ByVal value As Integer)

            mID = value

        End Set

    End Property

    Property Name() As String

        Get

            Return mName

        End Get

        Set(ByVal value As String)

            mName = value

        End Set

    End Property

    Property Position() As String

        Get

            Return mPosition

        End Get

        Set(ByVal value As String)

            mPosition = value

        End Set

    End Property

End Class

3.     On Generators.vb, type the following:

Public Class Generators

    Private mOrderID As Integer

    Public Property OrderID() As Integer

        Get

            Return mOrderID

        End Get

        Set(ByVal value As Integer)

            mOrderID = value

        End Set

    End Property

End Class

4.     On OrderDetails.vb, type the following:

Public Class OrderDetails

    Private mOrderid As Integer

    Private mProdid As Integer

    Private mPrice As Double

    Private mQtyordered As Double

    Private mAmount As Double

    Private mStatus As String

    Property Orderid() As Integer

        Get

            Return mOrderid

        End Get

        Set(ByVal value As Integer)

            mOrderid = value

        End Set

    End Property

    Property Prodid() As Integer

        Get

            Return mProdid

        End Get

        Set(ByVal value As Integer)

            mProdid = value

        End Set

    End Property

    Property Price() As Double

        Get

            Return mPrice

        End Get

        Set(ByVal value As Double)

            mPrice = value

        End Set

    End Property

    Property Qtyordered() As Double

        Get

            Return mQtyordered

        End Get

        Set(ByVal value As Double)

            mQtyordered = value

        End Set

    End Property

    Property Amount() As Double

        Get

            Return mAmount

        End Get

        Set(ByVal value As Double)

            mAmount = value

        End Set

    End Property

    Property Status() As String

        Get

            Return mStatus

        End Get

        Set(ByVal value As String)

            mStatus = value

        End Set

    End Property

End Class

5.     On Orders.vb, type the following:

Public Class Orders

    Private mID As Integer

    Private mOrderdate As Date

    Private mCustid As Integer

    Private mEmpid As Integer

    Private mTotalamount As Double

    Private mStatus As String

    Property ID() As Integer

        Get

            Return mID

        End Get

        Set(ByVal value As Integer)

            mID = value

        End Set

    End Property

    Property Orderdate() As Date

        Get

            Return mOrderdate

        End Get

        Set(ByVal value As Date)

            mOrderdate = value

        End Set

    End Property

    Property Custid() As Integer

        Get

            Return mCustid

        End Get

        Set(ByVal value As Integer)

            mCustid = value

        End Set

    End Property

    Property Empid() As Integer

        Get

            Return mEmpid

        End Get

        Set(ByVal value As Integer)

            mEmpid = value

        End Set

    End Property

    Property Totalamount() As Double

        Get

            Return mTotalamount

        End Get

        Set(ByVal value As Double)

            mTotalamount = value

        End Set

    End Property

    Property Status() As String

        Get

            Return mStatus

        End Get

        Set(ByVal value As String)

            mStatus = value

        End Set

    End Property

End Class

6.     On Products.vb, type the following:

Public Class Products

    Private mID As Integer

    Private mDescription As String

    Private mUntmsr As String

    Private mPrice As Double

    Private mQtyonhand As Double

    Property ID() As Integer

        Get

            Return mID

        End Get

        Set(ByVal value As Integer)

            mID = value

        End Set

    End Property

    Property Description() As String

        Get

            Return mDescription

        End Get

        Set(ByVal value As String)

            mDescription = value

        End Set

    End Property

    Property Untmsr() As String

        Get

            Return mUntmsr

        End Get

        Set(ByVal value As String)

            mUntmsr = value

        End Set

    End Property

    Property Price() As Double

        Get

            Return mPrice

        End Get

        Set(ByVal value As Double)

            mPrice = value

        End Set

    End Property

    Property Qtyonhand() As Double

        Get

            Return mQtyonhand

        End Get

        Set(ByVal value As Double)

            mQtyonhand = value

        End Set

    End Property

End Class