怎样才能开发出好的软件（二）

系统架构就是系统的骨骼，如果骨骼没有设计好，做出来的软件也会是畸形，怎样的架构才是合理的，怎样的架构才能造就一个健康的软件，那么健康的软件是什么样的？首先要满足用户需求，其次要有可修改性、灵活性、可维护性，也就是当用户需求改变时，尽量少更改已经封装好的东西，而且还要达到目的，这样的要求传统的面向过程的编码方式是很难实现的，而MVC三层架构就能实现这一切，V代表界面层，C代表业务逻辑层，M代表数据访问层。这个三层架构只是宏观意义上的三层，其实根据系统架构的需要可以分为更多层。除了这三层外还有一层是实体层，实体层对应着数据库中的表，每一张表映射为一个实体，下面介绍一下三层架构具体是什么样的：

1. 界面层只负责与用户交互，用户输入信息，在界面进行基本验证（是否为空、是否是数字等）将数据传到业务逻辑层，经过业务逻辑层处理后返回给界面层信息，界面将信息显示给用户。

2. 业务逻辑层负责接受界面的数据，进行业务处理（包括一些逻辑判断，计算等），需要数据库中的数据就调用数据访问层的方法，业务处理后给界面返回数据。

3. 数据访问层主要是一些操作数据库的类，查出的数据返回到业务逻辑层。

4. 实体层中每一个实体对应着数据库中的每一张表，实体类作为参数在三层之间传递。

下面以添加用户为例：

界面层（UI）：当用户按下添加按钮后，首先检查输入框中的数据是否合法，然后将数据赋值给用户实体中的每个字段，调用B层的添加用户方法，将用户实体作为参数传递。

1. ImportsBll
2. ImportsEntity
3. PublicClassFrmAddUser
4. '实例化B层添加用户类
5. PrivateBAddUserAsNewBllAddUser
6. '实例化用户信息实体
7. PrivateEUserInfoAsNewUserInfo
8. PrivateSubbtnOK_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnOK.Click
9. '判断用户名文本框的输入是否为空
10. IftxtUserName.Text=""Then
11. MsgBox("用户名不能为空",vbOKOnly+vbExclamation,"警告")
12. ExitSub
13. EndIf
14. '判断密码文本框的输入是否为空
15. IftxtPwd.Text=""Then
16. MsgBox("密码不能为空",vbOKOnly+vbExclamation,"警告")
17. ExitSub
18. EndIf
19. '判断是否已经选择了用户级别
20. IfcmbLevel.Text=""Then
21. MsgBox("请选择用户级别",vbOKOnly+vbExclamation,"警告")
22. ExitSub
23. EndIf
24. '给实体的每个字段赋值
25. EUserInfo.strUserName=txtUserName.Text.ToString
26. EUserInfo.EuserPwd=txtPwd.Text
27. EUserInfo.EuserLevel=cmbLevel.Text
28. EUserInfo.EuserHead=FrmLogin.strUserName
29. '执行添加用户
30. Try
31. IfBAddUser.AddUser(EUserInfo)Then
32. MsgBox("添加成功")
33. Else
34. MsgBox("未添加成功")
35. EndIf
36. CatchexAsException
37. MsgBox(ex.Message)
38. EndTry
39. '添加后清空文本框
40. txtUserName.Text=""
41. txtPwd.Text=""
42. cmbLevel.Text=""
43. EndSub

业务逻辑层（Bll）：首先判断界面传进来的用户实体是否已经存在（调用D层操作用户表中的检查用户方法），如果已经存在则抛出异常，如果不存在则向用户表中插入该用户实体（调用D层的操作用户表中的插入方法）。

ImportsDAL

1. ImportsEntity
2. PublicClassBllAddUser
3. '实例化用户信息实体
4. PrivateEUserInfoAsNewUserInfo
5. '实例化D层的操作用户信息
6. PrivateDUserInfoAsNewDalUserInfo
7. '''<summary>
8. '''添加用户
9. '''</summary>
10. '''<paramname="EUserInfo"></param>
11. '''<returns></returns>
12. '''<remarks></remarks>
13. PublicFunctionAddUser(ByValEUserInfoAsUserInfo)AsBoolean
14. DimxAsBoolean=False
15. IfDUserInfo.Check(EUserInfo.strUserName)Then
16. ThrowNewException("该用户已经存在")
17. Else
18. x=DUserInfo.Insert(EUserInfo)
19. Returnx
20. EndIf
21. EndFunction

数据访问层（Dal）：对数据库的操作，与数据库的连接字符串放在app.configer文件中，方便更换。其中的两个方法分别是检查数据库中是否存在某个用户，想数据库中用户表中插入一条记录。

1. ImportsSystem.Data.SqlClient
2. ImportsEntity
3. '''<summary>
4. '''对用户表的操作
5. '''</summary>
6. '''<remarks></remarks>
8. PublicClassDalUserInfo
10. PrivateconnStrAsString=Configuration.ConfigurationSettings.AppSettings("connStr")
12. '''<summary>
13. '''检查用户是否存在
14. '''</summary>
15. '''<paramname="strUserName"></param>
16. '''<returns></returns>
17. '''<remarks></remarks>
18. PublicFunctionCheck(ByValstrUserNameAsString)AsBoolean
19. DimsqlAsString="select*fromuser_Infowhereuser_Name=@userName"
20. DimconnAsNewSqlConnection(connStr)
21. DimcmdAsNewSqlCommand(sql,conn)
22. DimsqlparamAsNewSqlParameter("@userName",SqlDbType.NChar)
23. sqlparam.Value=strUserName
24. cmd.Parameters.Add(sqlparam)
25. DimsdrAsSqlDataReader=Nothing
26. Try
27. conn.Open()
28. sdr=cmd.ExecuteReader()
29. Ifsdr.ReadThen
30. ReturnTrue
31. Else
32. ReturnFalse
33. EndIf
34. CatchexAsException
35. ReturnFalse
36. Finally
37. IfNotIsNothing(conn)Then
38. conn.Close()
39. conn=Nothing
40. EndIf
41. IfNotIsNothing(sdr)Then
42. sdr.Close()
43. sdr=Nothing
44. EndIf
45. IfNotIsNothing(cmd)Then
46. cmd.Dispose()
47. cmd=Nothing
48. EndIf
49. EndTry
50. EndFunction
53. '''<summary>
54. '''插入一条用户记录
55. '''</summary>
56. '''<paramname="EUserInfo"></param>
57. '''<returns></returns>
58. '''<remarks></remarks>
59. PublicFunctionInsert(ByValEUserInfoAsUserInfo)AsBoolean
60. DimsqlAsString="insertintouser_Infovalues(@userName,@userPwd,@userLevel,@userHead)"
61. DimconnAsNewSqlConnection(connStr)
62. DimcmdAsNewSqlCommand(sql,conn)
63. Dimsqlparam1AsNewSqlParameter("@userName",SqlDbType.NChar)
64. sqlparam1.Value=EUserInfo.strUserName
65. cmd.Parameters.Add(sqlparam1)
66. Dimsqlparam2AsNewSqlParameter("@userPwd",SqlDbType.NChar)
67. sqlparam2.Value=EUserInfo.EuserPwd
68. cmd.Parameters.Add(sqlparam2)
69. Dimsqlparam3AsNewSqlParameter("@userLevel",SqlDbType.NChar)
70. sqlparam3.Value=EUserInfo.EuserLevel
71. cmd.Parameters.Add(sqlparam3)
72. Dimsqlparam4AsNewSqlParameter("@userHead",SqlDbType.NChar)
73. sqlparam4.Value=EUserInfo.EuserHead
74. cmd.Parameters.Add(sqlparam4)
75. Try
76. conn.Open()
77. Returncmd.ExecuteNonQuery
78. CatchexAsException
79. ReturnFalse
80. Finally
81. IfNotIsNothing(conn)Then
82. conn.Close()
83. conn=Nothing
84. EndIf
85. IfNotIsNothing(cmd)Then
86. cmd.Dispose()
87. cmd=Nothing
88. EndIf
89. EndTry
90. EndFunction
91. EndClass

实体层：表中的字段都是私有的属性，他们的值的读写是通过属性过程来完成的。

view plain copy to clipboard print ?

1. '''<summary>
2. '''用户表
3. '''</summary>
4. '''<remarks></remarks>
5. PublicClassUserInfo
6. PublicstrUserNameAsString
7. PrivatestrUserPwdAsString
8. PrivatestrUserLevelAsString
9. PrivatestrUserHeadAsString
11. PublicPropertyEuserPwdAsString
12. Get
13. ReturnstrUserPwd
14. EndGet
15. Set(ByValvalueAsString)
16. strUserPwd=value
17. EndSet
18. EndProperty
20. PublicPropertyEuserLevelAsString
21. Get
22. ReturnstrUserLevel
23. EndGet
24. Set(ByValvalueAsString)
25. strUserLevel=value
26. EndSet
27. EndProperty
29. PublicPropertyEuserHeadAsString
30. Get
31. ReturnstrUserHead
32. EndGet
33. Set(ByValvalueAsString)
34. strUserHead=value
35. EndSet
36. EndProperty
37. EndClass