vb.net版机房收费——助你学会七层架构(一)

前端之家收集整理的这篇文章主要介绍了vb.net版机房收费——助你学会七层架构(一)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

我自己写机房的时候,看很多高人的博客,各种的借鉴,当初务必的纠结,现在整个机房敲完了,写这篇博客给大家一个整体上的、简单理解的七层,期望大家看完这篇文章之后,不会这个纠结了。

首先大家得看了我的上一篇博客

http://www.jb51.cc/article/p-hlmbvbyh-bme.html

我再说就会好说一点,大家只要理解了那张包图之后就可以了。

首先我还是拿最老套、最简单、最先开始的例子Login开始:

1、我们要知道Login需要那几步:查询user表,判断用户是否存在;在worklog中添加用户日志。

2、需要的数据库设计:

这里我就不另外建表,这样大家看的更熟悉,是吧?


3、建立Entity

实体是根据表来建立的,也就是说,表中有几个字段,Entity的LoginEntity和WorklogEntity类就有几个property。

本着面面俱到的原则,我就晒晒代码,大家别嫌我麻烦:


  1. '**************************
  2. ' 名:UserLogin
  3. '命名空间:Entity
  4. ' 容:
  5. '功 能:
  6. '文件关系:
  7. '作 者:邱慕夏
  8. ' 组:邱慕夏
  9. '生成日期:2014-06-07 17:27:28
  10. ' 号:V1.0.0.0
  11. '修改日志:
  12. '版权说明:
  13. '***************************
  14. Public Class LoginEntity
  15. #Region "定义变量"
  16. Private _userID As String
  17. Private _level As String
  18. Private _Head As String
  19. Private _password As String
  20. Private _oldpassword As String
  21. Private _userName As String
  22. Private _computer As String
  23.  
  24. #End Region
  25. Public Shared UserHead As String '设置全局变量
  26. Public Shared UserLevel As String
  27. Public Property UserID() As String '将T_User_DAL表中的每一个实体都传上去,实体是根据表来建的,不是功能
  28. Get
  29. Return _userID
  30. End Get
  31. Set(ByVal value As String)
  32. _userID = value
  33. End Set
  34. End Property
  35. Public Property Level() As String
  36. Get
  37. Return _level
  38. End Get
  39. Set(ByVal value As String)
  40. _level = value
  41. End Set
  42. End Property
  43. Public Property Head() As String
  44. Get
  45. Return _Head
  46. End Get
  47. Set(ByVal value As String)
  48. _Head = value
  49. End Set
  50. End Property
  51. Public Property Password() As String
  52. Get
  53. Return _password
  54. End Get
  55. Set(ByVal value As String)
  56. _password = value
  57. End Set
  58. End Property
  59. Public Property OldPassword() As String
  60. Get
  61. Return _oldpassword
  62. End Get
  63. Set(ByVal value As String)
  64. _oldpassword = value
  65. End Set
  66. End Property
  67. Public Property UserName() As String
  68. Get
  69. Return _userName
  70. End Get
  71. Set(ByVal value As String)
  72. _userName = value
  73. End Set
  74. End Property
  75. Public Property computer() As String
  76. Get
  77. Return _computer
  78. End Get
  79. Set(ByVal value As String)
  80. _computer = value
  81. End Set
  82. End Property
  83.  
  84. End Class

上面是LoginEntity的,下面是Worklog的:


  1. '**************************
  2. ' 名:WorkLogEntity
  3. '命名空间:Entity
  4. ' 容:
  5. '功 能:
  6. '文件关系:
  7. '作 者:邱慕夏
  8. ' 组:邱慕夏
  9. '生成日期:2014/6/15 11:07:47
  10. ' 号:V1.0.0.0
  11. '修改日志:
  12. '版权说明:
  13. '***************************
  14. Public Class WorkLogEntity
  15. Private _userid As String
  16. Private _level As String
  17. Private _loginDateTime As String
  18. Private _logoutDateTime As String
  19. Private _computer As String
  20. Private _status As String
  21. Public Shared Property Login_DateTime As String
  22.  
  23.  
  24. Public Property UserID() As String
  25. Get
  26. Return _userid
  27. End Get
  28. Set(ByVal value As String)
  29. _userid = value
  30. End Set
  31. End Property
  32. Public Property Level() As String
  33. Get
  34. Return _level
  35. End Get
  36. Set(ByVal value As String)
  37. _level = value
  38. End Set
  39. End Property
  40. Public Property LoginDateTime() As String
  41. Get
  42. Return _loginDateTime
  43. End Get
  44. Set(ByVal value As String)
  45. _loginDateTime = value
  46. End Set
  47. End Property
  48. Public Property logoutDateTime() As String
  49. Get
  50. Return _logoutDateTime
  51. End Get
  52. Set(ByVal value As String)
  53. _logoutDateTime = value
  54. End Set
  55. End Property
  56. Public Property Computer() As String
  57. Get
  58. Return _computer
  59. End Get
  60. Set(ByVal value As String)
  61. _computer = value
  62. End Set
  63. End Property
  64. Public Property Status() As String
  65. Get
  66. Return _status
  67. End Get
  68. Set(ByVal value As String)
  69. _status = value
  70. End Set
  71. End Property
  72. End Class

这里我要说的是LoginEntity中的全局变量全局变量是系统只要赋给它值,他就会随程序共存亡,所以不需要担心用的时候会为nothing。

以上都是准备工作,由于篇幅,看下一篇

猜你在找的VB相关文章