上下机这块儿,主要是算法,很容易乱,不过有第一次 的经验,现在也有些头绪,下面和大家分享一下:
U层:
''' <summary>
''' 上机
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub btnLoginIn_Click(sender As Object, e As EventArgs) Handles btnLoginIn.Click
Try
If txtCardNo.Text = "" Then
MessageBox.Show("卡号不能为空!", "提示")
txtCardNo.Focus()
End If
Dim enCardNo As New CardInfoEntity
enCardNo.CardNo = txtCardNo.Text.Trim()
'第一步判断该卡是否存在
Dim bllfrmMain As New frmMainBLL
Dim dtCard As New DataTable
dtCard = bllfrmMain.IsCardExists(enCardNo)
If dtCard.Rows.Count > 0 Then
'第二步判断该卡是否正在上机
Dim dtLine As DataTable
dtLine = bllfrmMain.isOnline(enCardNo)
If dtLine.Rows.Count = 0 Then
'第三步上机并更新T_LineInfo
txtCash.Text = dtCard.Rows(0).Item("Cash").ToString().Trim
txtDepartment.Text = dtCard.Rows(0).Item("Department")
txtType.Text = "固定用户"
txtSex.Text = dtCard.Rows(0).Item("Sex")
txtStudentName.Text = dtCard.Rows(0).Item("StudentName")
txtStudentNo.Text = dtCard.Rows(0).Item("StudentNo")
txtOnDate.Text = DateTime.Today.ToString("yyyy-MM-dd")
txtOnTime.Text = DateTime.Now.ToString("HH:mm ")
Dim enLine As New LineInfoEntity
Dim intResult As Integer
enLine.CardNo = txtCardNo.Text.Trim()
enLine.StudentName = dtCard.Rows(0).Item("StudentName")
enLine.Computer = pubshare.strComputer
enLine.OnDate = txtOnDate.Text.Trim()
enLine.OnTime = txtOnTime.Text.Trim()
intResult = bllfrmMain.AddOnline(enLine)
If intResult <= 0 Then
Throw New Exception("添加上机信息失败")
Else
Label24.Visible = True
Label24.Text = "欢 迎 光 临 !"
End If
End If
Else
Throw New Exception("该卡不存在")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "提示")
End Try
End Sub
''' <summary>
''' 下机
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub btnLogOut_Click(sender As Object, e As EventArgs) Handles btnLogOut.Click
If txtCardNo.Text.Trim = "" Then
MessageBox.Show("卡号不能为空!")
txtCardNo.Focus()
Else
Call OffLine()
End If
End Sub
这里写的过程OffLine()如下:
Public Sub OffLine()
Dim enOnLine As New Entity.LineInfoEntity
Dim bllAllOffLine As New QueryOnStatusBLL
Dim enLine As New LineInfoEntity '更新上机信息
Dim dtOnLine As DataTable
'判断DataGridView中是否存在数据
Try
'第一步,判断该用户是否正在上机
enOnLine.CardNo = txtCardNo.Text.Trim
dtOnLine = bllAllOffLine.SelectOnLine(enOnLine)
If dtOnLine.Rows.Count <= 0 Then
Throw New Exception("该卡尚未上机")
Else
'第二步,获取收费信息
Dim dtBasicData As New DataTable
Dim enBasicData As New BasicDataEntity
Dim bllBasicData As New BasicDataBLL
dtBasicData = bllBasicData.SelectBasicData()
enBasicData.Rate = dtBasicData.Rows(0).Item("Rate")
enBasicData.PrepareTime = dtBasicData.Rows(0).Item("PrepareTime")
enBasicData.UnitTime = dtBasicData.Rows(0).Item("UnitTime")
'第三步,获取上机信息
Dim bllQueryOnStatus As New QueryOnStatusBLL
Dim dtOnlineinfo As New DataTable
Dim enOnlineinfo As New LineInfoEntity
enOnlineinfo.CardNo = txtCardNo.Text.Trim
dtOnlineinfo = bllQueryOnStatus.SelectOnLine(enOnlineinfo)
If dtOnlineinfo.Rows.Count <= 0 Then
Throw New Exception("获取上机信息失败")
End If
'第四步,获取卡余额信息
Dim bllCard As New CardBLL
Dim dtCard As New DataTable
Dim enCard As New CardInfoEntity
enCard.CardNo = txtCardNo.Text.Trim
dtCard = bllCard.SelectCash(enCard)
If dtCard.Rows.Count <= 0 Then
Throw New Exception("获取卡余额信息失败")
End If
'第五步,计算消费时间和消费金额
Dim consumeTime As Integer
Dim intResult As Integer
enLine.OffDate = DateTime.Today.ToString("yyyy-MM-dd")
enLine.OffTime = DateTime.Now.ToString("HH:mm")
enOnLine.OnDate = dtOnlineinfo.Rows(0).Item("OnDate")
enOnLine.OnTime = dtOnlineinfo.Rows(0).Item("OnTime")
enLine.Note = "正常下机"
'Dim a As Date = CDate(enOnLine.OffDate)
consumeTime = Val(DateDiff("n", Format(CDate(enOnLine.OnDate)), CDate(enLine.OffDate)) + DateDiff("n", CDate(enOnLine.OnTime), CDate(enLine.OffTime))) - enBasicData.PrepareTime
'如果消费时间小于0
If consumeTime < 0 Then
consumeTime = 0
enLine.ConsumeCash = Val("0")
enLine.Cash = dtCard.Rows(0).Item("Cash")
intResult = bllAllOffLine.AllOffLine(enLine)
Else
Dim intCard As Integer
Dim enCardInfo As New CardInfoEntity
Dim bllCardInfo As New CardBLL
enLine.CardNo = txtCardNo.Text.Trim
'如果消费时间不是30的倍数
If consumeTime Mod 30 > enBasicData.UnitTime Then
enLine.ConsumeCash = Int(consumeTime / 30) * Val(enBasicData.Rate) + Val(enBasicData.Rate)
enLine.Cash = Val(dtCard.Rows(0).Item("Cash")) - Val(enLine.ConsumeCash)
'更新LineInfo
intResult = bllAllOffLine.AllOffLine(enLine)
'更新卡表
enCardInfo.Cash = enLine.Cash
enCardInfo.CardNo = txtCardNo.Text.Trim
intCard = bllCardInfo.UpdCard(enCardInfo)
'将上下机信息返回到主界面
Dim enCardNO As New CardInfoEntity
Dim dtLine As New DataTable
Dim bllfrmMain As New frmMainBLL
enCardNO.CardNo = txtCardNo.Text.Trim
dtLine = bllfrmMain.LineInfo(enCardNO)
txtCash.Text = dtLine.Rows(0).Item("Cash")
txtConsumeCash.Text = dtLine.Rows(0).Item("ConsumeCash")
txtConsumeTime.Text = Format(consumeTime / 60, "0.00")
txtDepartment.Text = dtLine.Rows(0).Item("Department")
txtOffDate.Text = dtLine.Rows(0).Item("OffDate").ToString
txtOffTime.Text = dtLine.Rows(0).Item("OffTime").ToString
txtOnDate.Text = dtLine.Rows(0).Item("OnDate").ToString
txtOnTime.Text = dtLine.Rows(0).Item("OnTime").ToString
txtSex.Text = dtLine.Rows(0).Item("Sex")
txtStudentName.Text = dtLine.Rows(0).Item("StudentName")
txtStudentNo.Text = dtLine.Rows(0).Item("StudentNo")
txtType.Text = dtLine.Rows(0).Item("Type")
Label24.Text = "欢迎下次再来!"
Else
enLine.ConsumeCash = Int(consumeTime / 30) * Val(enBasicData.Rate)
enLine.Cash = Val(dtCard.Rows(0).Item("Cash")) - Val(enLine.ConsumeCash)
'更新T_LineInfo
intResult = bllAllOffLine.AllOffLine(enLine)
'更新卡表
enCardInfo.Cash = enLine.Cash
enCardInfo.CardNo = txtCardNo.Text.Trim
intCard = bllCardInfo.UpdCard(enCardInfo)
'将上下机信息返回到主界面
Dim enCardNO As New CardInfoEntity
Dim dtLine As New DataTable
Dim bllfrmMain As New frmMainBLL
enCardNO.CardNo = txtCardNo.Text.Trim
dtLine = bllfrmMain.LineInfo(enCardNO)
txtCash.Text = dtLine.Rows(0).Item("Cash")
txtConsumeCash.Text = dtLine.Rows(0).Item("ConsumeCash")
txtConsumeTime.Text = Format(consumeTime / 60, "0.00")
txtDepartment.Text = dtLine.Rows(0).Item("Department")
txtOffDate.Text = dtLine.Rows(0).Item("OffDate").ToString
txtOffTime.Text = dtLine.Rows(0).Item("OffTime").ToString
txtOnDate.Text = dtLine.Rows(0).Item("OnDate").ToString
txtOnTime.Text = dtLine.Rows(0).Item("OnTime").ToString
txtSex.Text = dtLine.Rows(0).Item("Sex")
txtStudentName.Text = dtLine.Rows(0).Item("StudentName")
txtStudentNo.Text = dtLine.Rows(0).Item("StudentNo")
txtType.Text = dtLine.Rows(0).Item("Type")
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "提示")
End Try
End Sub
这里主要是U层的计算,剩下B层,D层和其他的没有区别,在调试代码的过程中,出现了一些问题,不过也都用各种办法解决了,突然发现抛异常真的能够非常有效的提高调试的效率,而且经过对每个窗体的调试,我发现调试绝不仅仅是用F11,是有一些技巧的,学会用这些技巧感觉比把逻辑理清楚更重要,大家有什么不同的见解,希望和大家交流!