BLL/CARTBLL.vb

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Web
Imports System.Text
Imports System.Collections.Generic
Imports DAL
Imports Model
Public Class CARTBLL
    Public Function Add_CART(ByVal STRCART As CART) As Integer
        Dim strcartsql As New CARTSQL
        Return (strcartsql.Add_CART(STRCART))
    End Function
    Public Sub Update_CART(ByVal STRCART As CART)
        Dim strcartsql As New CARTSQL
        strcartsql.Update_CART(STRCART)
    End Sub
    Public Sub Delete_CART(ByVal STRID As Integer)
        Dim strcartsql As New CARTSQL
        strcartsql.Delete_CART(STRID)
    End Sub


    Public Function countfield(ByVal strsql As String) As String
        Dim strcartsql As New CARTSQL
        Return strcartsql.countfield(strsql)
    End Function
End Class