解析三层架构(2)----分层究竟分出了那些东西

在上篇文章写到我们为什么要分层.有很多读者提出来很多宝贵的意见.让我受益匪浅,深深的感觉到自己的水平"还有很大的提升空间".首先感谢这些朋友们,我会进一步总结完善自己的想法.

截取了部分朋友的留言,感谢他们:

这次我用对比的方式描述一下,分层到底分出了什么.俗话说:有分必有合,那么它是把什么合到了一起.

首先写出两个没有分层的demo:

<1>查询信息demo

   1: Public Class Form2

   2:     Private sqlCon As String = "Data Source=LSH;Initial Catalog=ComputerLab;User ID=sa;Password=123456"

   3:     '查询数据库信息信息

   4:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   5:  

   6:         Dim conStr As New SqlConnection '数据库连接对象

   7:         Dim sqlCom As SqlCommand        '数据库执行对象

   8:         Dim Res As DialogResult         '消息提示框返回类型

   9:         Dim dr As SqlDataReader         'dataReader对象

  10:         Dim dt As New DataTable         'Datatable对象

  11:  

  12:         Dim sql As String = "select * from TableName where Name=@name"                   'sql插入语句

  13:         conStr.ConnectionString = sqlCon                                '给数据库连接对象赋值

  14:         sqlCom = New SqlCommand(sql, conStr)                            '给数据库执行对象赋值

  15:         sqlCom.Parameters.Add("@name", SqlDbType.VarChar, TextBox1.Text)    '给sql语句参数赋值

  16:  

  17:         Res = MessageBox.Show("是否添加", "提示", MessageBoxButtons.OKCancel)

  18:         '判断是否查询

  19:         If Res = DialogResult.Yes Then

  20:             Try

  21:                 conStr.Open()

  22:                 dr = sqlCom.ExecuteReader    '执行查询语句

  23:                 dt.Load(dr)

  24:             Catch ex As Exception

  25:                 Throw ex

  26:             Finally

  27:                 If Not IsNothing(conStr) Then   '如果数据库打开,则关闭数据库

  28:                     conStr.Close()

  29:                 End If

  30:             End Try

  31:         End If

  32:  

  33:         MsgBox(dt.Rows.Count)   '显示查询到的行数

  34:     End Sub

<2>添加信息demo

   1: Public Class Form1

   2:     Private sqlCon As String = "Data Source=LSH;Initial Catalog=ComputerLab;User ID=sa;Password=123456"

   3:     '向数据库添加信息

   4:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   5:         Dim bln As Boolean = False      '存储返回值