VB.NET版机房收费系统---七仙女之系统登录

        VB.NET第一版机房收费系统,告一段落,验收的时候,问题也是大大的存在,没有用上设计模式,什么触发器,存储过程,都没有用上,看看其她小伙伴的,七层实现登录?那是什么东东,相比较我的三层而言,多了两倍还加个一,通过查资料,看博客,憋了好几天,终于,憋出了一个七仙女---七层实现系统登录,七个女儿,各司其职,完美配合,衍生出众多美丽的故事。

       从三层猛地跳到七层,有种穿越的感觉,说白了就是不会,又是想逃避的感觉,可是人生在世,有的事情不能随着自己的性子来,喜欢了就去做,不喜欢,就不做,没办法,就一直憋,一直憋,终于,系统登录实现了,接下来,总结一下七层系统登录的相关知识。俗话说,一张图,可以表达文字所不能描绘的情感和世界,现在让我们来看看一下机房收费系统的包图,如下:

       

      首先,我们来分析一下系统登录,我们需要做哪些工作,判断用户是否存在,判断用户名和密码是否一致,登录成功之后,需要在worklog表中添加一条工作记录。该博文就实现系统登录简单描述,添加工作记录再此不赘述。接下来,代码实现部分:

     第一层:IDAL-数据接口访问层,放置接口函数。

        

<span style="font-size:18px;"><span style="font-size:18px;">'**********************************************
'文 件 名: IUser
'命名空间: IDAL
'内    容: 实现接口
'功    能: 创建接口
'文件关系:
'作    者:丁国华
'小    组:宝贝计划
'生成日期: 2014/7/9 8:44:27
'版本号:V2.0
'修改日志:
'版权说明:
'**********************************************
Public Interface IUser
    '/// <summary>
    '/// depiction:<选择用户>
    '/// </summary>
    '/// <param name="<enUser>"><用户实体></param>
    '/// <returns>
    '///<返回一个用户实体>
    '/// </returns>
    Function SelectUser(ByVal enUser As Entity.UserEntity) As List(Of Entity.UserEntity)

End Interface</span></span>

       第二层:D层-数据访问层,通过向SqlHelper中传递sql语句来实现具体的增删改查等功能。

       

<span style="font-size:18px;"><span style="font-size:18px;">'**********************************************
'文 件 名: T_UserDAL
'命名空间: DAL
'内    容: 用户名和密码判断
'功    能: 查询用户名和密码是否正确
'文件关系:
'作    者:丁国华
'小    组:宝贝计划
'生成日期: 2014/7/9 9:03:17
'版本号:V2.0
'修改日志:
'版权说明:
'**********************************************

Imports System.Data.SqlClient
Imports IDAL

Public Class T_UserDAL : Implements IUser
    '/// <summary>
    '/// depiction:<查询用户名和密码是否正确>
    '/// </summary>
    '/// <param name="<enUser>"><用户实体></param>
    '/// <returns>
    '///<返回一个用户实体的集合>
    '/// </returns>
    Public Function SelectUser(ByVal enUser As Entity.UserEntity) As List(Of Entity.UserEntity) Implements IUser.SelectUser
        Dim strText As String = "select * from T_User where UserID=@UserID and password=@password"  'sql语句
        Dim cmdType As CommandType = CommandType.Text   '命令类型
        Dim Parameter As SqlParameter()
        '传参
        Parameter = {New SqlParameter("@UserID", enUser.userID),
                     New SqlParameter("@password", enUser.password)}

        Dim SqlHelper As New SqlHelper  '实例化SqlHelper这个类的一个对象
        Dim dt As New DataTable
        Dim myList As List(Of Entity.UserEntity)

        dt = SqlHelper.ExecuteReaderTable(strText, cmdType, Parameter) '调用sqlhelper中executereadertable的方法
        myList = EntityHelper.convertToList(Of Entity.UserEntity)(dt)

        Return myList
    End Function

End Class
</span></span>

   

          第三层:Factory-工厂层,大话设计模式中对抽象工厂和配置文件这块有详细介绍,不明白的小伙伴可以查询《大话设计模式》第一百四十一页,工厂层的主要作用是应用配置文件和反射实现数据库的更换功能。

       

<span style="font-size:18px;"><span style="font-size:18px;">'**********************************************
'文 件 名: DataAccess
'命名空间: Factory
'内    容: 创建接口
'功    能: 创建接口
'文件关系:
'作    者:丁国华
'小    组:宝贝计划
'生成日期: 2014/7/9 8:41:23
'版本号:V2.0
'修改日志:
'版权说明:
'**********************************************
Imports System.Reflection
Public Class DataAccess
    '/// <summary>
    '/// depiction:<创建用户接口>
    '/// </summary>
    '/// <param name="<>"><></param>
    '/// <returns>
    '///<返回IUserDAL>
    '/// </returns>
    Public Function CreateIUser() As IDAL.IUser
        Return CType(Assembly.Load("DAL").CreateInstance("DAL.T_UserDAL"), IDAL.IUser)
    End Function
End Class</span></span>

       第四层:BLL层-业务逻辑层,查询用户名和密码是否正确,实例化工厂,然后定义接口变量,调用工厂中的方法,返回一个用户实体的集合。

       

<span style="font-size:18px;"><span style="font-size:18px;">Imports IDAL

'**********************************************
'文 件 名: T_UserBLL
'命名空间: BLL
'内    容: 业务逻辑层
'功    能: 查询用户名和密码是否正确
'文件关系:
'作    者:丁国华
'小    组:宝贝计划
'生成日期: 2014/7/9 9:02:30
'版本号:V2.0
'修改日志:
'版权说明:
'**********************************************

Public Class T_UserBLL
    '/// <summary>
    '/// depiction:<查询用户名和密码是否正确>
    '/// </summary>
    '/// <param name="<enUser>"><用户实体></param>
    '/// <returns>
    '///<返回一个用户实体的集合>
    '/// </returns>
    Public Function SelectUser(ByVal enUser As Entity.UserEntity) As List(Of Entity.UserEntity)
        Dim factory As New Factory.DataAccess
        Dim IUser As IDAL.IUser
        Dim myList As List(Of Entity.UserEntity)

        IUser = factory.CreateIUser()
        myList = IUser.SelectUser(enUser)

        Return myList

    End Function
End Class
</span></span>

        第五层:Facade-外观层,《大话设计模式》一百零三页有具体的相关介绍。

       

<span style="font-size:18px;"><span style="font-size:18px;">'**********************************************
'文 件 名: LoginFacade
'命名空间: Facade
'内    容:
'功    能:
'文件关系:
'作    者:丁国华
'小    组:宝贝计划
'生成日期: 2014/7/9 8:41:05
'版本号:V2.0
'修改日志:
'版权说明:
'**********************************************

Public Class LoginFacade
    '/// <summary>
    '/// depiction:<选择用户>
    '/// </summary>
    '/// <param name="<enUser>"><用户实体></param>
    '/// <returns>
    '///<返回一个用户实体的集合>
    '/// </returns>

    Public Function SelectUser(ByVal enUser As Entity.UserEntity) As List(Of Entity.UserEntity)
        Dim userBLL As New BLL.T_UserBLL
        Dim myList As List(Of Entity.UserEntity)

        myList = userBLL.SelectUser(enUser)

        If myList.Count = 0 Then
            Throw New Exception("用户名或密码输入错误")
        Else
            Return myList
        End If
    End Function
End Class</span></span>

       第六层:UI层-用户显示层,U层负责数据的输入与输出,调用Façade层验证用户类的查询方法来确认该用户是否存在,最后通过调用Façade层的方法登录。

        

<span style="font-size:18px;"><span style="font-size:18px;">Imports System.Windows.Forms

'**********************************************
'文 件 名: frmLogin
'命名空间: UI
'内    容: 用户显示层
'功    能: 确认用户是否存在
'文件关系:
'作    者:丁国华
'小    组:宝贝计划
'生成日期: 2014/7/8 17:51:07
'版本号:V2.0
'修改日志:
'版权说明:
'**********************************************
Public Class frmLogin

    Public Shared enLogin As New Entity.UserEntity

    '/// <summary>
    '/// depiction:<确认用户是否存在>
    '/// </summary>
    '/// <param name="<>"><></param>
    '/// <returns>
    '///<登录失败给出提示,登录成功进入主界面>
    '/// </returns>
    Private Sub btnConfirm_Click(sender As Object, e As EventArgs) Handles btnConfirm.Click
        Dim facade As New Facade.LoginFacade
        Dim myList As New List(Of Entity.UserEntity)
        Dim enUser As New Entity.UserEntity      '封装实体
        Dim flag As Boolean
        Try
            enUser.userID = txtUserName.Text.Trim()
            enUser.password = txtPassword.Text.Trim()

            myList = facade.SelectUser(enUser)

            If myList.Count > 0 Then
                MsgBox("登录成功")

                Dim enWorklog As New Entity.WorklogEntity
                enWorklog.userID = txtUserName.Text.Trim()
                enWorklog.loginDate = CStr(Format(Now(), "yyyy-MM-dd"))
                enWorklog.loginTime = CStr(Format(Now(), "HH:mm:ss"))
                enWorklog.status = "正在值班"
                enWorklog.computer = Environment.GetEnvironmentVariable("USERNAME")

                flag = facade.InsertWorklog(enWorklog)

                enLogin.userID = myList.Item(0).userID
                enLogin.level = myList.Item(0).level

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
            txtUserName.Focus()
            txtUserName.SelectAll()
            txtPassword.Text = ""

        End Try
    End Sub
    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub
End Class
</span></span>

        第七层:SqlHelper,前面的博文有相关介绍,在这里,就不一一介绍了。自此,一个小小的登录功能就实现了,在七层登录还没有成型的时候,各种纠结,各种不想做,有种快到临界点的感觉,可是走过之后,发现,这个临界点是打开三界的结界,打开之后,发现这个世界如此美丽多彩。一如七仙女的故事,我们的七层登录也是各司其职,在自己的工作岗位履行着自己的职责。

       第二版机房收费系统,未完,待续......

          

时间: 2024-09-28 20:45:15

VB.NET版机房收费系统---七仙女之系统登录的相关文章

VB.NET版机房收费系统---导出Excel表格

       datagridview,翻译成中文的意思是数据表格显示,使用DataGridView控件,可以显示和编辑来自不同类型的数据源的表格,将数据绑定到DataGridView控件非常简单和直观,大多数情况下,只需要设置DataSource属性即可,在绑定到包含多个列表或表的数据库源时,只需将DataMember属性设置为绑定的列表或表的字符串即可.机房收费系统多次用到数据表格的显示,并且导出为Excel表格,第一次机房收费系统是用VB版本的,她导出Excel的方法如下:        

VB.NET版机房收费系统---异常处理

        异常处理,英文名为Exceptional Handling, 那时年少,还记得那年一起学习过的VB6.0的时候,常常使用ONError的错误语句.与传统VB6.0中的OnError语句相比.NET平台的异常处理机制更加灵活,而且使用更加方便.是代替日渐衰落的Error Code方法的新法,提供Error Code 所未能具体的优势.异常处理巧妙又不失完美的分离了接收和处理错误代码.这个功能理清了编程者的思绪,也帮助代码增强了可读性,方便了维护者的阅读和理解.         异常

VB.NET版机房收费系统---报表

       报表,即报告情况的表格,简单的说:报表就是用表格.图表等格式来动态显示数据,可以用公式表示为:"报表 = 多样的格式 + 动态的数据". 在没有计算机以前,人们利用纸和笔来记录数据.       比如:民间常常说的豆腐帐,就是卖豆腐的每天将自己的卖出的豆腐记在一个本子上,然后每月都要汇总算算,这种情况下,报表数据和报表格式是紧密结合在一起的,都在同一个本子上.数据也只能有一种几乎只有记帐的人才能理解的表现形式,且这种形式难于修改.      VB版机房收费系统的报表采用的

VB.NET版机房收费系统---组合查询

       查询的意思就是查找,寻找,指在某一个或几个地方找出自己所要的信息,假如我想搜索一下我自己写的博客,名字叫做初雪之恋,我在百度的搜索框中输入丁国华三个字,会有怎样的惊喜等着我?                            啊哦,这个信息并不是我想要的,于是我再搜,"丁国华 廊坊师范学院  csdn"搜索结果如下:                     很显然,这个还不是我想要的结果,我接着搜,"丁国华 廊坊师范学院 csdn 初雪之恋":  

VB.NET版机房收费系统---外观层如何写

       外观设计模式,<大话设计模式>第103页详细讲解,不记得这块知识的小伙伴可以翻阅翻阅,看过设计模式,敲过书上的例子,只是学习的第一步,接着,如果在我们的项目中灵活应用,把设计模式用出花儿来,才是王道,有人总说,纸上得来终觉浅,绝知此事要躬行,可是真到了躬行的时候,总是行不通,语言倒不过来,设计模式是C#语言的,机房收费是VB.NET版本的,书上的模式和机房联系不起来,不知道怎么应用,没办法,憋呗,看博客,问人,上网查资料,就这样,憋出一个外观,虽不太完美,但却异常宝贵,因为那是我

机房收费系统(VB.NET)个人版总结

    重构版个人机房收费系统大概从暑假开学开始进行,花了不到一个半月的时间才完成,下面对我在重构过程中的一写理解.          1.系统设计一个很重要的目的就是重用,而要做到重用,低耦合是最有效的手段回顾一下我们C/S的整个学习过程,我们可以发现,从开始的VB版的机房收费系统,然后到现在VB.NET版,加设计模式.对系统进行分层,这个过程就是在对系统进行解耦.要解耦,首先就要进行抽象.把多次.重复用到的代码进行封装,其余的部分运用继承或者多态的思想,来进行使用.    在机房收费系统中我

机房收费系统的实现:VB中如何将MSHFlexGrid控件中的数据导出到Excel

机房收费系统中,好多查询的窗体都包含同一个功能:将数据库中查询到的数据显示在MSHFlexGrid控件中,然后再把MSHFlexGrid控件中的数据导出到Excel表格中. 虽然之前做过学生信息管理系统,不过并没有涉及到这个功能,因此记录于此,于己,回顾反思,于大家,分享学习. 方法一:在根目录中事先建立空的Excel表格 1.在与VB工程同一根目录中建立将要导入数据的Excel表格: 2.在VB事件中写代码: Private Sub cmdExport_Click() Dim i As Int

机房收费系统:(二)VB中强制大小写转换和记录集操作

一.VB中大小写的转换      VB中自带字母大小写转换函数LCase和UCase.      格式:UCase(任何有效的string或char表达式),UCase(string),U就是upper的意思,就是变大:相反的就是,LCase(任何有效的string或char表达式)函数,就是转换成小写字符,用法同理,不再累述.      说明:   (1)参数必选项,可为任意有效的字符或者表达式.                    (2)如果 string 参数中包含 Null,则返回 N

VB.NET机房收费系统总结

     又一次机房收费系统,有一次总结,第一次是vb6,这次则采用VB.NET+设计模式+三层.     vb6的机房收费系统是面向过程开发,代码量大,不易维护,而这次的VB.NET则是面向对象的开发,代码量虽然没有减少反而增多,但是系统的结构变得灵活的多,可维护性增强了不少,采用了分层和设计模式,对象化了各个模块,复用率也大大提高了.     具体来说一下吧.在网上查了资料,简单了解了三层后,开始了我的三层之旅.先用EA画了3层的登录例子.下面是我的系统架构(包图):     当时一开始只有