个人重构之一般用户实现

<strong><span style="font-family:KaiTi_GB2312;">Imports Entity
Public Interface ILogin
    Function LoginDAL(ByVal euser As LoginEntity) As List(Of LoginEntity)  '用户登录
End Interface</span></strong>

<span style="font-family:KaiTi_GB2312;">'判断用户是否存在
    Public Function IsExit(ByVal euser As Entity.LoginEntity) As List(Of Entity.LoginEntity)

        '实例化()
        Dim factory As New DataAccess
        Dim iLogin As ILogin
        Dim myList As New List(Of Entity.LoginEntity)
        '工厂创建接口, DAL实现接口, BLL调用工厂
        iLogin = factory.CreatUserInfo()
        myList = iLogin.LoginDAL(euser)
        Return myList
    End Function</span>

 '用户登录获取记录
    Public Function FLogin(ByVal user As Entity.LoginEntity) As Entity.LoginEntity
        Dim UserBLL As New BLL.LoginBLL
        Dim mylist As New List(Of Entity.LoginEntity)
        mylist = UserBLL.IsExit(user)
        user.Level = mylist(0).Level
        Return user
    End Function

 Public Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        '判断用户名是否为空
        If Trim(txtUserName.Text) = "" Then   '如果为空
            MessageBox.Show("请输入用户名！")
            Exit Sub
        End If
        '判断密码是否为空
        If Trim(txtPassword.Text) = "" Then
            MessageBox.Show("请输入密码！")
            Exit Sub
        End If

        Dim login As New Entity.LoginEntity
        Dim falogin As New Facade.FA_Login

        login.UserID = txtUserName.Text
        login.Password = txtPassword.Text
        Dim strResult = falogin.CheckUser(login)

        Select Case strResult
            Case "密码错误"
                MsgBox("输入有误，请重新输入")
                txtPassword.Text = ""
            Case "用户不存在"
                MsgBox("用户名或密码错误，请重新输入")
                txtPassword.Text = ""
                txtUserName.Text = ""
            Case "密码正确"
                MsgBox("登录成功")
                Dim worklog As New Entity.WorkLogEntity
                worklog.LoginDateTime = Date.Now.ToString("yyyy-mm-dd hh:mm:ss")
                worklog.Status = "正在值班"
                worklog.UserID = txtUserName.Text
                'worklog.Computer = System.Net.Dns.GetHashCode().ToString()
                worklog.Computer = "FKG-PC"
                Entity.WorkLogEntity.Login_DateTime = worklog.LoginDateTime
                frmmain.Show()
                Me.Hide()
<span style="white-space:pre">	</span>End Select
End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
<span style="white-space:pre">	</span>End

    End Sub
End Class

Public Class LoginEntity
    Private _userID As String
    Private _Password As String
    Private _Level As String
    Private _userName As String
    Public Shared Property UserLevel As String

    Public Property UserID() As String
        Get
            Return _userID
        End Get
        Set(value As String)
            _userID = value
        End Set
    End Property
    Public Property Password() As String
        Get
            Return _Password
        End Get
        Set(value As String)
            _Password = value
        End Set
    End Property
    Public Property Level() As String
        Get
            Return _Level
        End Get
        Set(value As String)
            _Level = value
        End Set
    End Property
    Public Property UserName() As String
        Get
            Return _userName
        End Get
        Set(value As String)
            _userName = value
        End Set
    End Property


End Class