背景:机房收费系统个人版敲到了现在,已经快接近尾声了,激动,兴奋......都难以言表心中的滋味,这个历程真的是很艰难呀,平时的专业课,再加上最近的论文实验,周一到周五的大部分时间都在实验室“泡着”,周六周天还有各种会议要开,这段时间过来,整个人都变得不好了。最大的感触就是:不是时间管理的不好,而是根本没有时间来让自己管理,唉......说起来都是“辛酸泪”呀,还好一直坚持着,最后的最后,终于快要完成一项“艰巨”的项目了,加油!!!
机房收费系统中最最艰难的部分就是上下机了,逻辑复杂,涉及的表多,下面再来整理一下上机的思路吧!
一、流程图
二、代码展示
1、Sqlhelper
<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Reflection
Public Class SqlHelper
'定义全局变量变量,获得数据库的连接字符串
Private Shared ReadOnly strConnection As String = ConfigurationManager.AppSettings("connString")
' '定义全局变量,设置连接
Shared conn As SqlConnection = New SqlConnection(strConnection)
' '定义全局cmd命令
Shared cmd As New SqlCommand
''' <summary>
''' 执行非查询操作(增删改)有参数,
''' </summary>
''' <param name="cmdText">执行增删改查SQL语句或者存储过程</param>
''' <param name="cmdType">命令类型文本或者是存储过程</param>
''' <param name="paras">参数数组,无法确认有多少参数</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function ExecAddDelUpdate(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As Boolean
'将传入的值,分别为cmd的属性赋值
Dim result As Integer '定义变量用来存放执行的结果
cmd.Parameters.AddRange(paras) '将参数传入
cmd.CommandType = cmdType '设置一个值,解释cmdText
cmd.Connection = conn '设置连接,全局变量
cmd.CommandText = cmdText '设置查询的语句
Try
conn.Open() '打开连接
result = cmd.ExecuteNonQuery() '执行增删改操作
cmd.Parameters.Clear() '清除参数
Catch ex As Exception
MsgBox(ex.Message, , "数据库操作") '如果出错,返回0
Finally
'关闭数据连接
Call CloseConn(conn)
Call CloseCmd(cmd)
End Try
Return result '返回受影响的行数
End Function
''' <summary>
''' 执行增删改三个操作,(无参)
''' </summary>
''' <param name="cmdText">执行增删改查SQL语句或者存储过程</param>
''' <param name="cmdType">命令类型文本或者是存储过程</param>
''' <returns>Interger,受影响的行数</returns>
Public Shared Function ExecAddDelUpdateNo(ByVal cmdText As String, ByVal cmdType As CommandType) As Boolean
'为要执行的命令cmd赋值
cmd.CommandText = cmdText
cmd.CommandType = cmdType
cmd.Connection = conn
cmd.Connection = conn
Dim result As Integer
'执行操作
Try
conn.Open()
result = cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message, , "数据库操作")
Finally
Call CloseConn(conn)
Call CloseCmd(cmd)
End Try
Return result '返回受影响的行数
End Function
'''' <summary>
'''' 执行查询的操作,(有参),参数不限
'''' </summary>
''' <param name&#