BLL/STATUSBLL.vb

（完整代码） 881B 

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 STATUSBLL
    Public Function Add_STATUS(ByVal STRSTA As STATUS) As Integer
        Dim STRSTASQL As New STATUSSQL
        Return (STRSTASQL.Add_STATUS(STRSTA))
    End Function
    Public Sub Update_STATUS(ByVal STRSTA As STATUS)
        Dim STRSTASQL As New STATUSSQL
        STRSTASQL.Update_STATUS(STRSTA)
    End Sub
    Public Sub Delete_STATUS(ByVal STRID As Integer)
        Dim STRSTASQL As New STATUSSQL
        STRSTASQL.Delete_STATUS(STRID)
    End Sub


    Public Function countfield(ByVal strsql As String) As String
        Dim STRSTASQL As New STATUSSQL
        Return STRSTASQL.countfield(strsql)
    End Function
End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。