三、Business层

Business层主要完成一些对于业务逻辑的处理，以及参数传递的工作。

对于每一个功能，通常是一个FORM 要对应一个Business下的子层，例如处理用户登录的功能，就在Business下，添加一个Login文件夹，文件夹中包括两个文件，UserLimits和UserParameter，UserLimits主要用来业务逻辑处理，以及调用EntityClass层中相应对数据库操作的函数；UserParameter主要完成参数传递。

UserParameter的代码如下：

Namespace business.login
    Public Class UserParameter

        Private _ID As String
        Private _UserName As String
        Private _Password As String
        '_ID 的set和get方法
        Public Function set_ID(ByVal m_id As String) As String
            Me._ID = m_id
        End Function
        Public Function get_ID() As String
            Return (Me._ID)
        End Function
        '_UserName的set和get 方法
        Public Function set_UserName(ByVal m_UserName As String) As String
            Me._UserName = m_UserName
        End Function
        Public Function get_UserName() As String
            Return (Me._UserName)
        End Function
        '_Password的set和get 方法
        Public Function set_Password(ByVal m_Password As String) As String
            Me._Password = m_Password
        End Function
        Public Function get_Password() As String
            Return (Me._Password)
        End Function

        'Public Function chackLogin(ByVal user As Integer, ByVal pass As Integer) As Integer

        '    Dim up As Integer = 0
        '    If up.Equals(0) Then
        '        If user.Equals(pass) Then
        '            Return 1
        '        Else
        '            Return 0
        '        End If
        '    End If

        'End Function
    End Class
End Namespace
可以看到，只是包括对应数据库中表的字段的属性，以及对其的set和get方法。

UserLimits的代码如下：

Imports System
Imports System.Data
Imports System.Web
Namespace business.login

    Public Class UserLimits
        Private user As New EntityClass.S_User

        Public Sub New()

            ' TODO: 在此处添加构造函数逻辑
            Me.user = New EntityClass.S_User
        E