微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦！

VB.net版机房收费系统——结账功能实现代码部分

分类：VB作者：编程之家

　　实现结账功能的时候，被选项卡控件整的有点郁闷，瞬间脑袋就凌乱了，听上去自己好像很可笑的样子……于是，便去爬巨人的肩膀了~

　　看了欢哥的博客，发现她的结账博客是按照“索引”思想写的，在结账实体中添加了新的属性过程（我添加的叫CheckDetail）结账表中并没有这个字段，是为了实现显示所有结账需要的信息（售卡、充值、退卡、汇总）而添加的。


　　U层代码如下，其中部分注释是功能实现中的一些错，我就顺便把相应的错误信息和解决办法写成了注释~

<span style="font-family:KaiTi_GB2312;font-size:18px;">Public Class frmCheck
    Private Sub frmCheck_Load(sender As Object,e As EventArgs) Handles MyBase.Load
        Dim UserInfo As New Entity.eUserLogin
        '反向思维，查询操作员和管理员
        UserInfo.UserLevel = "一般用户"
        Dim UserFac As New Facade.CheckFacade
        Dim mylist As List(Of Entity.eUserLogin)
        mylist = UserFac.ShowUserInfo(UserInfo)
        Dim i As Integer
        '显示所有的操作员和管理员
        For i = 0 To mylist.Count - 1
            cmbCheckUserID.Items.Add(Val(Trim((mylist(i).UserID))))
        Next
    End Sub
    Private Sub cmbCheckUserID_SelectedindexChanged(sender As Object,e As EventArgs) Handles cmbCheckUserID.SelectedindexChanged
        DgvCancelCard.Rows.Clear()
        DgvRecharge.Rows.Clear()
        DgvSellCard.Rows.Clear()
        '选择用户名后，显示用户真实姓名
        Dim eUser As New Entity.eUserLogin
        eUser.UserID = Trim(cmbCheckUserID.Text)
        Dim UserNameFac As New Facade.CheckFacade
        Dim mylist As List(Of Entity.eUserLogin)
        Dim i As Integer
        mylist = UserNameFac.ShowUserName(eUser)
        txtCheckUserName.Text = Trim(mylist(i).UserName)

        '显示结账前的不同信息
        Dim CheckInfo As New Entity.eCheck
        Dim CheckFac As New Facade.CheckFacade
        Dim dt As New DataTable
        CheckInfo.CheckDate = Format(Now,"yyyy-MM-dd")
        CheckInfo.CheckTime = Format(Now,"HH:mm:ss")
        CheckInfo.Head = GlobalUserID
        CheckInfo.UserID = cmbCheckUserID.Text
        CheckInfo.IsCheck = "N"
        '定义变量,并赋予初值
        Dim SellCardNum As Integer = 0
        Dim CancelCardNum As Integer = 0
        Dim ActualSellCardNum As Integer = 0
        Dim RechargeSum As String = 0
        Dim CancelCashSum As String = 0
        Dim ActualRechargeSum As String = 0

        '给实体赋初值，要是没有，报错:没给存储过程赋参数
        CheckInfo.RechargeCash = RechargeSum
        CheckInfo.CancelCash = CancelCashSum
        CheckInfo.Benefit = ActualRechargeSum

        '显示售卡信息
        <span style="color:#ff0000;">'在实体中添加了新的属性过程CheckDetail，结账表中并没有这个字段，为了实现显示所有结账信息的需求添加的</span>
        CheckInfo.CheckDetail = "SellCard"
        dt = CheckFac.Check(CheckInfo)
        SellCardNum = SellCardNum + dt.Rows.Count
        If dt.Rows.Count <> 0 Then
            lblSelltip.Visible = False
            DgvSellCard.Rows.Add(dt.Rows.Count)
            For i = 0 To (dt.Rows.Count - 1)
                DgvSellCard.Rows(i).Cells(0).Value = dt.Rows(i).Item(0)
                DgvSellCard.Rows(i).Cells(1).Value = dt.Rows(i).Item(1)
                DgvSellCard.Rows(i).Cells(2).Value = Mid(dt.Rows(i).Item(2),1,10)
                DgvSellCard.Rows(i).Cells(3).Value = dt.Rows(i).Item(3)
            Next
            DgvSellCard.AllowUserToAddRows = False
        Else
            lblSelltip.Visible = True
            'Exit Sub  '不能有这句代码，因为此处的需求是连续将相关的记录查找出来，不能间断
        End If

        '显示充值信息
        CheckInfo.CheckDetail = "Recharge"
        dt = CheckFac.Check(CheckInfo)
        If dt.Rows.Count <> 0 Then
            lblRechargetip.Visible = False
            DgvRecharge.Rows.Add(dt.Rows.Count)
            For i = 0 To (dt.Rows.Count - 1)
                DgvRecharge.Rows(i).Cells(0).Value = dt.Rows(i).Item(0)
                DgvRecharge.Rows(i).Cells(1).Value = dt.Rows(i).Item(1)
                DgvRecharge.Rows(i).Cells(2).Value = Mid(dt.Rows(i).Item(2),10)
                DgvRecharge.Rows(i).Cells(3).Value = dt.Rows(i).Item(3)
                '若是如下方式写，会报错从字符串“088        33        11        ”到类型“Double”的转换无效
                'RechargeSum = RechargeSum + dt.Rows(i).Item(1)
                '避免上述错误的写法
                '“System.FormatException”类型的未经处理的异常在 mscorlib.dll 中发生,其他信息: 输入字符串的格式不正确。
                'RechargeSum = RechargeSum + Convert.ToInt32(dt.Rows(i).Item(1))
                '改成了以下写法
                RechargeSum = RechargeSum + Val(dt.Rows(i).Item(1))
            Next
            DgvRecharge.AllowUserToAddRows = False
        Else
            lblRechargetip.Visible = True
        End If


        '显示退卡信息
        CheckInfo.CheckDetail = "CancelCard"
        dt = CheckFac.Check(CheckInfo)
        CancelCardNum = CancelCardNum + dt.Rows.Count
        If dt.Rows.Count <> 0 Then
            lblCanceltip.Visible = False
            DgvCancelCard.Rows.Add(dt.Rows.Count)
            For i = 0 To (dt.Rows.Count - 1)
                DgvCancelCard.Rows(i).Cells(0).Value = dt.Rows(i).Item(0)
                DgvCancelCard.Rows(i).Cells(1).Value = dt.Rows(i).Item(1)
                DgvCancelCard.Rows(i).Cells(2).Value = Mid(dt.Rows(i).Item(2),10)
                DgvCancelCard.Rows(i).Cells(3).Value = dt.Rows(i).Item(3)
                '若是这样写，会报错
                'CancelCashSum = CancelCashSum +(dt.Rows(i).Item(1)
                'CancelCashSum = CancelCashSum + Convert.ToInt32(dt.Rows(i).Item(1))
                CancelCashSum = CancelCashSum + Val(dt.Rows(i).Item(1))
            Next
            DgvCancelCard.AllowUserToAddRows = False
        Else
            lblCanceltip.Visible = True
        End If
        '如果没有结账需要的信息，结账按钮不可用，并给出相应的信息
        If DgvCancelCard.Rows.Count = 0 And DgvRecharge.Rows.Count = 0 And DgvSellCard.Rows.Count = 0 Then
            lblChecktip.Visible = True
            btnCheck.Enabled = False
        Else
            lblChecktip.Visible = False
            '汇总界面的显示信息
            btnCheck.Enabled = True
            txtSellNum.Text = SellCardNum
            txtCancelNum.Text = CancelCardNum
            txtCancelCashSum.Text = CancelCashSum
            txtRechargeSum.Text = RechargeSum
            '下面的代码是否加ToString并未影响运行
            'txtActualSellNum.Text = SellCardNum - CancelCardNum
            txtActualSellNum.Text = (SellCardNum - CancelCardNum).ToString
            'txtActualGainCashSum.Text = RechargeSum - CancelCashSum
            txtActualGainCashSum.Text = (RechargeSum - CancelCashSum).ToString
        End If
    End Sub
    '正式结账
    '注意：由于结账信息显示和正式结账用的是同一个存储过程，所以为了照顾存储过程里边的字段，就把
    '一些字段即使用不到，也写了一遍
    Private Sub btnCheck_Click(sender As Object,e As EventArgs) Handles btnCheck.Click
        '由于优化的想法是不选择被结账用户，结账按钮不能用，故此处不用进行如下提示
        'If cmbCheckUserID.Selectedindex = -1 Then
        '    MsgBox("请选择被结账用户！",MsgBoxStyle.OkOnly + MsgBoxStyle.information,"提示")
        'End If
        Dim CheckInfo As New Entity.eCheck
        Dim CheckFac As New Facade.CheckFacade
        CheckInfo.UserID = Trim(cmbCheckUserID.Text)
        CheckInfo.Head = GlobalUserID
        CheckInfo.RechargeCash = Trim(txtRechargeSum.Text)
        CheckInfo.CancelCash = Trim(txtCancelCashSum.Text)
        CheckInfo.Benefit = Trim(txtRechargeSum.Text) - Trim(txtCancelCashSum.Text)
        CheckInfo.CheckDate = Format(Now,"HH:mm:ss")
        CheckInfo.IsCheck = "Y"
        CheckInfo.CheckDetail = "InfoSum"
        Dim IsCheckSucceed As Boolean
        IsCheckSucceed = CheckFac.IsCheck(CheckInfo)
        If IsCheckSucceed = True Then
            MsgBox("恭喜你，结账成功！","提示")
            txtActualGainCashSum.Text = "0"
            txtActualSellNum.Text = "0"
            txtCancelCashSum.Text = "0"
            txtCancelNum.Text = "0"
            txtRechargeSum.Text = "0"
            txtSellNum.Text = "0"
            btnCheck.Enabled = False
            Exit Sub
        Else
            MsgBox("抱歉，结账失败！","提示")
        End If
    End Sub
End Class</span>

　　上边的代码用的是if选择语句，根据选择去显示相应的信息，所以，为了对应，我们也会有一个相应的用if选择语句进行功能实现的存储过程：

<span style="font-family:KaiTi_GB2312;font-size:18px;">USE [ComputerCharge_sys]
GO
/****** Object:  StoredProcedure [dbo].[proc_Check]    Script Date: 2016/4/9 16:40:55 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[proc_Check]	
	@Head char(11),@UserID char(11),@RechargeSum char(10),@CancelCashSum char(10),@ActualRechargeSum char(10),@CheckDate  char(10),@CheckTime  char(8),@IsCheck varchar(10),@CheckDetail char(10)
AS
BEGIN	
	declare @N varchar(2)	
	set @N='N'
	declare @sql char(500)

	--查询表T_Card_Info中的售卡记录
	if @CheckDetail ='SellCard'
	begin
	select @sql ='select CardNo,StudentNo,RegisterDate,RegisterTime  from T_Card_Info  where Head='+ char(39)+@UserID+ char(39)+char(32)+'and IsCheck='+char(39)+@IsCheck+char(39)
	 exec(@sql)
	end 
    --查询表T_CancelCard_Info中的退卡记录
	if @CheckDetail ='CancelCard'
	begin
	select @sql ='select  CardNo,BackCash,CancelDate,CancelTime from T_CancelCard_Info  where Head='+ char(39)+@UserID+ char(39)+char(32)+'and IsCheck='+char(39)+@IsCheck+char(39)
	 exec(@sql)	
	end 
	--查询充值表的充值记录
	if @CheckDetail ='Recharge'
	begin
	select CardNo,Recharge,RechargeDate,RechargeTime from T_Recharge_Info   where Head=@UserID  and IsCheck =@IsCheck 
	--select @sql ='select  CardNo,RechargeTime from T_Recharge_Info  where Head='+ char(39)+@UserID+ char(39)+char(32)+'and IsCheck='+char(39)+@IsCheck+char(39)
	exec(@sql)	
	end 
	 
	if @CheckDetail ='InfoSum'
	begin 
		update T_card_Info set IsCheck =@IsCheck where Head =@UserID and IsCheck = @N
		update T_CancelCard_Info  set IsCheck =@IsCheck where Head =@UserID and IsCheck = @N
		update T_Recharge_Info  set IsCheck =@IsCheck where Head =@UserID and IsCheck = @N
		insert into T_Check_Info (RechargeCash,CancelCash,Benefit,CheckDate,CheckTime,Head)values(@RechargeSum,@CancelCashSum,@ActualRechargeSum,@CheckDate,@CheckTime,@Head )
		
	--set @error=@error+@@error
	--if @error<>0 
		--rollback transaction --如果不等于0，则回滚事务，不能执行
	--else 
		--commit transaction --等于0，则执行该事务
		end
	 END</span>

　　上述内容只是结账功能的代码，纯属站在巨人的肩膀上学习、比葫芦画瓢而已，接下来才是自己的探索学习过程，无奈篇幅太长，请欣赏下一篇博客《VB.net版机房收费系统——结账功能实现（调错部分）》

原文地址：https://www.jb51.cc/vb/257027.html

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数：     General Number 普通数字，如可以用来去掉千位分隔号     format$("100,1
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑： <%response.write
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的，如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情，其中缘由不言而喻，而本文则是个人首创，实现在了用V
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
VB.NET MYSQL DataGridView 增删改查INSERT,SELECT,UPDATE,DELETE
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
苹果市值2025年有望达4万亿美元
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot