BLL/LOCATIONBLL.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 LOCATIONBLL
    Public Function Add_LOCATION(ByVal STRLOC As LOCATION) As Integer
        Dim STRLOCSQL As New LOCATIONSQL
        Return (STRLOCSQL.Add_LOCATION(STRLOC))
    End Function
    Public Sub Update_LOCATION(ByVal STRLOC As LOCATION)
        Dim STRLOCSQL As New LOCATIONSQL
        STRLOCSQL.Update_LOCATION(STRLOC)
    End Sub
    Public Sub Delete_LOCATION(ByVal STRID As Integer)
        Dim STRLOCSQL As New LOCATIONSQL
        STRLOCSQL.Delete_LOCATION(STRID)
    End Sub


    Public Function countfield(ByVal strsql As String) As String
        Dim STRLOCSQL As New LOCATIONSQL
        Return STRLOCSQL.countfield(strsql)
    End Function
End Class