BAL Folder

1.     On CustomersBAL.vb, type the following:

Public Class CustomersBAL

    Public Shared Function GetCustomer(ByVal id As Integer) As Customers

        Dim customerDAL As New CustomersDAL

        Return customerDAL.GetCustomer(id)

    End Function

    Public Shared Function CreateUpdateSQLDeductCreditLimit(ByVal id As Integer, ByVal totalamount As Decimal) As String

        Dim customerDAL As New CustomersDAL

        Return customerDAL.CreateUpdateSQLDeductCreditLimit(id, totalamount)

    End Function

End Class

2.     On EmployeesBAL.vb, type the following:

Public Class EmployeesBAL

    Public Shared Function GetEmployee(ByVal id As Integer) As Employees

        Dim EmployeeDAL As New EmployeesDAL

        Return EmployeeDAL.GetEmployee(id)

    End Function

End Class

3.     On GeneratorsBAL.vb, type the following:

Public Class GeneratorsBAL

    Public Shared Function GetOrderID() As Integer

        Dim GeneratorDAL As New GeneratorsDAL

        Return GeneratorDAL.GetOrderID

    End Function

    Public Shared Function CreateUpdateSQLOrderID() As String

        Dim GeneratorDAL As New GeneratorsDAL

        Return GeneratorDAL.CreateUpdateSQLOrderID

    End Function

End Class

4.     On OrderDetailsBAL.vb, type the following:

Public Class OrderDetailsBAL

    Public Shared Function CreateInsertSQL(ByVal OrderDetail As OrderDetails) As String

        Dim OrderDetailDAL As New OrderDetailsDAL

        Return OrderDetailDAL.CreateInsertSQL(OrderDetail)

    End Function

End Class

5.     On OrdersBAL.vb, type the following:

Public Class OrdersBAL

    Public Shared Function CreateInsertSQL(ByVal Order As Orders) As String

        Dim OrderDAL As New OrdersDAL

        Return OrderDAL.CreateInsertSQL(Order)

    End Function

End Class

6.     On ProductsBAL.vb, type the following:

Public Class ProductsBAL

    Public Shared Function GetProduct(ByVal id As Integer) As Products

        Dim ProductDAL As New ProductsDAL

        Return ProductDAL.GetProduct(id)

    End Function

    Public Shared Function CreateUpdateSQLDeductInventory(ByVal pid As Integer, ByVal qtyordered As Decimal) As String

        Dim ProductDAL As New ProductsDAL

        Return ProductDAL.CreateUpdateSQLDeductInventory(pid, qtyordered)

    End Function

End Class