机房收费系统——登录窗体

机房收费系统在历时17天之后,磕磕绊绊的写完了,虽然一直都没有订每天的任务量,但是总体感觉还行,因为中间差不多每天要花费三个小时去听英语,我听英语还是比较认真的。

其实想想做机房收费系统的整个过程,也就是在登录窗体的时候卡住了,因为这是第一次用三层做,而且说实话对VB.NET不是特别熟悉,登录窗体能够运行之后,后面的大概就是堆代码了。

这是我机房收费系统的包图。下面以登录窗体写层实现的过程

DALL层

因为考虑到以后更换数据库的问题,所以DAL层用到了抽象工厂模式。所以相应的也就加了DataAccess层,IDAL接口层,SQLHelper主要用于SQL调用之类的类。

抽象工厂模式下的DAL层:

IuserInfo接口(即为包图中的IDAL层里的一个类),用户客户端访问,接触与具体数据库访问的耦合(此处只以登录窗体为例,所以所涉及到的数据库操作相对较少)

Public Interface IUserInfo
    Function UserInsert(ByVal entityuserInfo As Entity.enUserInfo) As Boolean
End Interface

SqlserverUserInfo类(即为DAL中的一个类),用于访问SQL Server的UserInfo(如何访问的是Access数据库,可以按此写一个访问Access的类)

Public Function UserInquire(entityuserInfo As Entity.enUserInfo) As Boolean Implements IDAL.IUserInfo.UserInquire
        ' Dim sql As String = String.Format("select * from UserInfo where userName={0} and passWord={1}  and Status={2}", entityuserInfo.UserName, entityuserInfo.Password, entityuserInfo.StatusType)
        Dim sql As String = String.Format("select * from UserInfo where userName={0} and passWord={1}  and Status={2}", _
                                          enUserInfo.DBPARAM_USERNAME, enUserInfo.DBPARAM_PASSWORD, enUserInfo.DBPARAM_STATUSTYPE)
        Dim sqlHelp As New SQLhelper.daBase
        Dim conn As SqlConnection = sqlHelp.CreateConn(connStr)
        Dim cmd As SqlCommand = New SqlCommand(sql, conn)
        AddSqlParameter(cmd, enUserInfo.DBPARAM_USERNAME, SqlDbType.Char, entityuserInfo.UserName)
        AddSqlParameter(cmd, enUserInfo.DBPARAM_PASSWORD, SqlDbType.Char, entityuserInfo.Password)
        AddSqlParameter(cmd, enUserInfo.DBPARAM_STATUSTYPE, SqlDbType.Char, entityuserInfo.Status)
        Dim sdr As SqlDataReader = Nothing
        Try
            conn.Open()
            sdr = cmd.ExecuteReader()
            sdr.Read()
            If (sdr.HasRows = True) Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            Return False
        Finally
            Close(conn)
            Close(cmd)
            Close(sdr)
        End Try

End Function

(此处用到很多例如关闭数据库,关闭记录集,传参的函数,具体的都写在SQLHelp中,不一一列举)

Ifactory接口(DataAccess包中的类),定义一个创建访问UserInfo表对象的抽象的工厂接口。

Public Interface IFactory
    Function creatUserInfo() As IUserInfo
End Interface
SqlServerFactory类,实现Ifactory接口,实例化SqlserverUser(如何是Access,照此可以直接写出)
Public Class SqlServerFactory : Implements IFactory
    Public Function creatUserInfo() As IDAL.IUserInfo Implements IFactory.creatUserInfo
        Dim dalUser As New DAL.sqlUserInfo
        Return dalUser
    End Function

此处的关键就在于,如果需要更换数据库,直接增加Access类即可,不需要改动源码。

下面是Bll层

Public Function userQuery(ByVal entityUserInfo As Entity.enUserInfo) As Boolean
        Dim fatory = New DataAccess.SqlServerFactory
        Dim userInfo As IDAL.IUserInfo = fatory.creatUserInfo
        Dim flag As Boolean
        flag = CBool(userInfo.UserInquire(entityUserInfo))
        Return flag
    End Function

我写的BLL层是从DAL层写的,当然也可以按照UI层来写

外观层只要是用来对UI层所需要数据的整理打包

FAÇADE外观层:

Public Function Logon(ByVal entityUserInfo As Entity.enUserInfo, ByVal entityWorkLog As Entity.enWorkLog) As Boolean
        Dim user As New BllUserInfo
        Dim flag As Boolean
        flag = user.userQuery(entityUserInfo)
        Return flag
End Function

最后是U层,因为U层涉及到窗体登录是传的数据,还有判断,这是大家都知道的,所以,下面只写出U层中与三层有关的两句

Dim facade = New BllFacade.Logon
       facade.Logon(entityUserInfo)

大概流程就是这样的,一直从开始理解三层到做完机房收费系统,我发现,虽然机房收费系统并不是一个多大的系统,但是用三层写后的确是很容易维护,从后来调错中就可以看出,基本上不怎么费力就可以调通,所以,花点时间研究下三层,还是很有必要的。




已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页