从2013年5月3日——2013年8月20日历时三个多月的.NET机房收费系统终于完成了。项目做完了，真有一种如释重负的感觉。
下面我将从文档、UML图，代码这三个方面来进行总结，重点是前两方面内容。
一、文档
1.1可行性分析报告和项目开发计划
这两个文档主要是确定软件系统是否值得开发，搞清楚问题的性质，确定系统的目标和规模，从技术，经济和社会等方面分析论证项目的可行性。还有对此项目的开发做个总体的规划，内容有：项目的背景，项目概述，计划，人员及组织分工，交付期限。为软件的开发进行详细的计划。可行性分析报告和项目开发计划是给开发单位看的。
1.2需求分析。
是用户对项目软件系统在功能、行为、性能设计约束方面的期望。软件对软硬件的需求。需求分析是用户、分析人员和系统设计人员共同参与讨论编写，是为系统设计提出“做什么”的。一个很有用的设计文档，是系统开发的灵魂。
1.3概要设计和详细设计
1.3.1概要设计
概要设计将系统划分成模块结构形式，决定每个模块要完成的功能，每个模块之间的调用关系。概要设计主要包含：功能、处理流程、数据结构、运行等做设计。概要设计是高级设计人员和有丰富经验的开发人员一起编写。
1.3.2详细设计
描述模块执行过程、局部数据组织、控制流和每一步具体家用要求及实现设计。为编程人员提供每一个功能的数据输入，输出、设计方法、流程逻辑、接口、存储分配、注释设计、测试计划。此文档是由每一个程序人员参与编写。
编写完一遍文档发现，整个系统已经开发了三分之一了。
二、UML图
定义：采用参与者与用例作为基本元素，以不同的视角展现系统的功能型需求。在需求分析的时候要画用例图。
2、类图
定义描述现实世界中问题的概念理解，类之间的关系有依赖、关联、继承，多态。每个类里面有方法和属性，方法要写参数和返回值。
3、包图
包图是在 UML 中用类似于文件夹的符号表示的模型元素的组合。系统中的每个元素都只能为一个包所有，一个包可嵌套在另一个包中。使用包图可以将相关元素归入一个系统。
4、时序图。
这个显现了各个类之间各个层之间的逻辑关系。
5、部署图。
显现了系统编码打包交付给用户之后的部署。
6、状态图。
描述一个实体基于事件反应的动态行为，显示了该实体如何根据当前所处的状态对不同的事件做出反应的。
7、行为图。
和状态图差不多基本上差不多，在这里不做多余赘述。
8、构件图。
构件图从软件架构的角度来描述一个系统的主要功能，如系统分成几个子系统，每个子系统包括哪些类、包和构件，它们之间的关系以及它们分配到哪些节点上等。使用构件图可以清楚地看出系统的结构和功能。方便项目组的成员制定工作目标和了解工作情况，同时，最重要的一点是有利于软件的复用。
三、代码
开始编写代码的时候很迷茫，看了好多人的博客但是还是不知道怎样写，登录的实例也实现了，但是一到真正的敲系统怎么就特别的费劲。我就不断反复研究这个登录的例子，很是迷惑不解。最后还是在青峰师哥的指导下打通了我的任督二脉，一语惊醒梦中人。问题解开了，就开始了真正编写代码的历程。说实话最难写的是DAL层，BLL层UI层很简单就是把得到的参数传到BLL层中，BLL层在通过一些逻辑判断，把想要查的数据赋给实体类然后传到DAL层让DAL层来进行数据库的操作。下面我就写下在.NET机房收费系统开发中学习到的一些简单知识。
1、连接数据库。
要想进行数据库的操作就要连接数据库，下面是在D层中敲写的连接数据库的代码：
'连接字符 Privatestr_sqlConnection As String = "DataSource=192.168.24.196;Initial Catalog=Charge_sys;UserID=sa;Password=123456" '声明一个的实体 Public FunctionBasicD(ByVal enMoney As BasicDataE) AsEntity.BasicDataE ‘选取连接的数据库 Dimstrsqlstring2 As String strsqlstring2 = "select* from BasicData_Info" 'sqlConnection表示一个到 sql Server 数据库的打开的连接。 Dimseting As String seting = str_sqlConnection DimMyConn As sqlConnection MyConn = New sqlConnection(seting) 'sqlCommand表示要对 sql Server 数据库执行的一个 Transact-sql 语句或存储过程 DimMyCmd As sqlCommand MyCmd = New sqlCommand(strsqlstring2,MyConn) '打开读取() MyConn.Open() DimMyReader As sqlDataReader MyReader = MyCmd.ExecuteReader
说到D层还用了一个抽象类SQLHelper，具体内容见博客。
然后在DAL的每一类中调用一下就行了。
2、增、删、改。
前面博客也有写过以上三个内容，实现的形式是一样的，但是具体代码却不同，下面就简单的贴一下代码吧！
增加记录：
''' 添加在线记录 ''' </summary> ''' <param name="OnLineInfo"></param> ''' <returns></returns> ''' <remarks></remarks> Function AddOnLineInfo(ByVal OnLineInfo AsEntity.OnComputerInfo) As Entity.OnComputerInfo Dim strsql As String = "insert into OnComputer_Info values(@StudentCardNumber,@StudentNumber,@StudentName,@StudentMajor,@StudentSex,@OnLineDate,@OnLineTime,@OperatorUseComputer)" Dim cmd As sqlCommand = New sqlCommand(strsql,conn) '传参数 cmd.Parameters.Add(New sqlParameter("@StudentCardNumber",OnLineInfo.StudentCardNumber)) cmd.Parameters.Add(New sqlParameter("@StudentNumber",OnLineInfo.StudentNumber)) cmd.Parameters.Add(New sqlParameter("@StudentName",OnLineInfo.StudentName)) cmd.Parameters.Add(NewsqlParameter("@StudentMajor",OnLineInfo.StudentMajor)) cmd.Parameters.Add(New sqlParameter("@StudentSex",OnLineInfo.StudentSex)) cmd.Parameters.Add(New sqlParameter("@OnLineDate",OnLineInfo.OnLineDate)) cmd.Parameters.Add(New sqlParameter("@OnLineTime",OnLineInfo.OnLineTime)) cmd.Parameters.Add(New sqlParameter("@OperatorUseComputer",OnLineInfo.OperatorUserComputer)) Try conn.Open() If (cmd.ExecuteNonQuery > 0)Then OnLineInfo.Success = True Else OnLineInfo.Success = False End If Return OnLineInfo Catch ex As Exception OnLineInfo.Success = False Return OnLineInfo Finally cmd.Dispose() conn.Close() End Try End Function
删除记录：
''' 删除上机记录 ''' </summary> ''' <paramname="OnLineInfo"></param> ''' <returns></returns> ''' <remarks></remarks> Function DeleteOnLineInfo(ByVal OnLineInfo AsEntity.OnComputerInfo) As Entity.OnComputerInfo '删除记录的语句 Dim strsql As String = "delete from OnComputer_Info whereStudentCardNumber=@StudentCardNumber" Dim cmd As sqlCommand = New sqlCommand(strsql,conn) cmd.Parameters.Add(New sqlParameter("StudentCardNumber",OnLineInfo.StudentCardNumber)) Try . conn.Open() If (cmd.ExecuteNonQuery > 0)Then OnLineInfo.Success = True Else OnLineInfo.Success = False End If Catch ex As Exception OnLineInfo.Success = False Finally cmd.Dispose() conn.Close() End Try Return OnLineInfo End Function
更改记录：
''' <summary>
''' 更新工作记录
''' </summary>
''' <param name="WorkLogInfo"></param>
''' <returns></returns>
''' <remarks></remarks>
Function UpdateWorkLogInfo(ByVal WorkLogInfo As Entity.WorkLogInfo) AsEntity.WorkLogInfo
Dim strsql As String = "update WorkLog_Info set logoutDate=@logoutDate,logoutTime =@logoutTime,OperatorStatus =@OperatorStatus whereOperatorID =@OperatorID"
Dim cmd As sqlCommand = New sqlCommand(strsql,conn)
cmd.Parameters.Add(New sqlParameter("@OperatorID",WorkLogInfo.OperatorID))
cmd.Parameters.Add(New sqlParameter("@logoutDate",WorkLogInfo.logoutDate))
cmd.Parameters.Add(New sqlParameter("@logoutTime",WorkLogInfo.logoutTime))
cmd.Parameters.Add(New sqlParameter("@OperatorStatus",WorkLogInfo.OperatorStatus))
Try
conn.Open()
If (cmd.ExecuteNonQuery > 0)Then
WorkLogInfo.Success = True
Else
WorkLogInfo.Success =False
End If
Return WorkLogInfo
Catch ex As Exception
Return WorkLogInfo
Finally
conn.Close()
End Try
. EndFunction
3、所用到的查询的sql语句
①简单的sql语句
update表名set所要更新字段where查询的条件
insert into表名values（所要添加的字段（按照sql表的顺序排列））
select * from表名where条件
②内容扩展
select OperatorIDas教师,OperatorLevel as用户级别,logonDate as登录日期,logonTime as登录时间,OperatorUseComputer as机器名fromWorkLog_Info where OperatorStatus=@OperatorStatus
这样查出的记录可以让英文名字段显现出中文名字。
③select count(*) as count from表名where记录条件
查出符合条件的记录个数。
④select SUM(所要求和的字段) as所要求和的字段from表名where条件
查询出符合条件的记录并且所要求和的字段进行求和。
⑤select top 1 * from表名order by字段名fields
查出最近符合字段条件的一行记录。
4、DataSet DataTable DataReader DataGridView
DataSet DataTable DataReaderDataGridView的一些知识，前面博客有介绍，在这里不加以介绍，具体内容建博客。
5、错误处理
Try..catch..finally...end try Try <所要测试的代码> Catch ex As Exception <如果出现异常则执行这个语句> Finally <最后执行的代码> end try
四、其他博客链接
五、总结
VB.NET 机房收费系统项目开发完成，个人不管是在技术还是在思想上都是收益颇丰的。此次项目的完成不仅给自己打开了一扇新窗，开始拨云见日；同时也给自己打开了一片的新的天地，以后的学习将会是高屋建瓴，势不可当！
原文链接：https://www.f2er.com/vb/258544.html