BLL/VIPTABLEBLL.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 VIPTABLEBLL
    Public Function Add_VIPTABLE(ByVal STRVIP As VIPTABLE) As Integer
        Dim STRVIPSQL As New VIPTABLESQL
        Return (STRVIPSQL.Add_VIPTABLE(STRVIP))
    End Function
    Public Sub Update_VIPTABLE(ByVal STRVIP As VIPTABLE)
        Dim STRVIPSQL As New VIPTABLESQL
        STRVIPSQL.Update_VIPTABLE(STRVIP)
    End Sub
    Public Sub Delete_VIPTABLE(ByVal STRID As Integer)
        Dim STRVIPSQL As New VIPTABLESQL
        STRVIPSQL.Delete_VIPTABLE(STRID)
    End Sub


    Public Function countfield(ByVal strsql As String) As String
        Dim STRCUSSQL As New CUSTOEMRSQL
        Return STRCUSSQL.countfield(strsql)
    End Function
End Class