当前位置: 老葡京网站娱乐 > 编程语言 > VB.NET > 正文

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

时间:2015-07-04

老葡京网站娱乐 www.sdguanhua.com 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>