VB.NET 机房收费系统项目总结

VB.NET机房收费系统项目总结

从2013年5月3日——2013年8月20日历时三个多月的.NET机房收费系统终于完成了。项目做完了，真有一种如释重负的感觉。

下面我将从文档、UML图，代码这三个方面来进行总结，重点是前两方面内容。

一、文档

1.1可行性分析报告和项目开发计划

这两个文档主要是确定软件系统是否值得开发，搞清楚问题的性质，确定系统的目标和规模，从技术，经济和社会等方面分析论证项目的可行性。还有对此项目的开发做个总体的规划，内容有：项目的背景，项目概述，计划，人员及组织分工，交付期限。为软件的开发进行详细的计划。可行性分析报告和项目开发计划是给开发单位看的。

1.2需求分析。

是用户对项目软件系统在功能、行为、性能设计约束方面的期望。软件对软硬件的需求。需求分析是用户、分析人员和系统设计人员共同参与讨论编写，是为系统设计提出“做什么”的。一个很有用的设计文档，是系统开发的灵魂。

1.3概要设计和详细设计

1.3.1概要设计

概要设计将系统划分成模块结构形式，决定每个模块要完成的功能，每个模块之间的调用关系。概要设计主要包含：功能、处理流程、数据结构、运行等做设计。概要设计是高级设计人员和有丰富经验的开发人员一起编写。

1.3.2 详细设计

描述模块执行过程、局部数据组织、控制流和每一步具体家用要求及实现设计。为编程人员提供每一个功能的数据输入，输出、设计方法、流程逻辑、接口、存储分配、注释设计、测试计划。此文档是由每一个程序人员参与编写。

编写完一遍文档发现，整个系统已经开发了三分之一了。

二、UML图

1、用例图

定义：采用参与者与用例作为基本元素，以不同的视角展现系统的功能型需求。在需求分析的时候要画用例图。

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方法创建:                                  http://blog.csdn.net/xjc1278003262/article/details/9056085

运行程序VS2012弹出的不伦不类的问题     :http://blog.csdn.net/xjc1278003262/article/details/9395843

.Net 中DataTable和 DataRow的 区别与联系：http://blog.csdn.net/xjc1278003262/article/details/9817249

DataGridView控件的使用和Excel表格的导出:   http://blog.csdn.net/xjc1278003262/article/details/9934221

图解机房收费系统报表制作的全过程:              http://blog.csdn.net/xjc1278003262/article/details/10077633

五、总结

VB.NET 机房收费系统项目开发完成，个人不管是在技术还是在思想上都是收益颇丰的。此次项目的完成不仅给自己打开了一扇新窗，开始拨云见日；同时也给自己打开了一片的新的天地，以后的学习将会是高屋建瓴，势不可当！