机房重构--VB.NET七层登录

最新推荐文章于 2021-01-27 08:42:21 发布

罗俊-Everns

最新推荐文章于 2021-01-27 08:42:21 发布

阅读量550

点赞数 1

分类专栏： C/S--------------------- 个人版机房重构 VB.NET 机房收费系统文章标签： .NET

本文链接：https://blog.csdn.net/Luojun13Class/article/details/78852852

版权

这篇博客介绍了使用VB.NET构建的七层架构登录系统，包括UI、外观层（Fadeca）、业务逻辑层（BLL）、工厂层、接口层、数据访问层（DAL）、数据库连接层（SQLHelper）、实体层和配置映射方法（App.config）。文章通过时序图展示了登录过程，并总结了在实现过程中遇到的问题和代码优化的反思。

摘要由CSDN通过智能技术生成

导言：

之前已经用VB.NET将三层的登录窗体实现成功，后听说现在代码基本上很少用三层实现，基本上都是用七层，于是就自己再用了大概一周的时间整理好一个七层的登录窗体，现在将我的学习方法简单介绍一下，希望能给读者带去帮助

介绍：

所谓三层，之前有讲：即UI、BLL、DAL这三层

如今在三层的情况下进阶到七层，就将代码之间的联系更加细分化了，现在的七层是：UI、Facade、BLL、Factory、Interface、DAL、Entity，不过有些人愿意将DAL分开，分成DAL和SQLHelper这两层

可以看出，将DAL分成DAL和SQLHelper两层的华，将代码的细分层度再一次加高，从而使得代码的耦合情况降低，现在我就站在将DAL分成DAL和SQLHelper两层的角度来介绍代码：

分层：

UI（用户界面层）

User Interface的简称，指用户的操作界面。

Public Class Form1
    Private Sub btnNo_Click(sender As Object, e As EventArgs) Handles btnNo.Click
        Me.Close()
    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        Dim UserInfo As New Entity.ELogin                                                   '实例化实体层UserInfo对象，用于在各层之间进行传递数据
        Dim strResult As Boolean                                                            '定义变量接受Facade层的返回值
        Dim Facade As New Facade.FLogin                                                     '实例化外观层Facade对象，用于在各层之间进行传递数据 
        If (txtName.Text = "" Or txtPWD.Text = "") Then                                                           '判断用户名是否为空
            MsgBox("用户名或密码不能为空！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
            txtName.Focus()
        End If
        UserInfo.Name = txtName.Text.Trim                                                   '将用户名文本框的内容传递给dataUser对象
        UserInfo.PWD = txtPWD.Text.Trim                                                     '将密码文本框的内容传递给dataUser对象
        strResult = Facade.CheckUser(UserInfo)