机房重构-结账

本文主要是介绍机房重构-结账，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

前言：

机房重构结账部分涉及到购卡，退卡，充值表的查询，以及汇总和结账。下面就说一下购卡，退卡以及充值和汇总是怎么样用DataGridView来实现的。这次的结账页面只走了两次七层结构，其余均是绑定数据源来实现的。

内容：

一、获取操作员用户名

获取操作员用户名用的是comboBox控件，本次直接采用窗体加载显示。

直接查询级别为操作员的用户，然后循环加载到comboBox控件中，然后走七层查询User表。

    Private Sub frmAdadcount_Load(sender As Object, e As EventArgs) Handles MyBase.LoadDim facade As New Facade.SelectOpFacadeDim table As New DataTableDim user As New Entity.EntityDim i As Integeruser.Level = "操作员"table = facade.selectOpfacade(user)For i = 1 To table.Rows.CountcmdUserID.Items.Add(Convert.ToString(table.Rows(i - 1).Item(0)))NextFillByToolStrip1.Hide() '隐藏工具栏'清空DataGridView表中数据()While (DataGridView1.RowCount > 0)DataGridView1.Rows.Remove(DataGridView1.Rows(0))End WhileEnd Sub

二、根据选择的操作员显示该操作员进行的购卡，充值以及退卡，同时计算出汇总中需要的购卡数，退卡数，总售卡数以及充值金额，退卡金额，应收金额。

DataGridView绑定数据源：http://blog.csdn.net/tgbyn/article/details/74858291

 Private Sub cmdUserID_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmdUserID.SelectedIndexChangedDim facade As New Facade.SelectOpFacadeDim table As New DataTableDim user As New Entity.EntityDim RechargeMoney As IntegerDim CancelMoney As IntegerDim TotalMoney As IntegerUserIDToolStripTextBox.Text = cmdUserID.Text '传入的操作员Try'绑定数据源，查询各个表数据Me.Y_Card_InfoTableAdapter.Fill(Me.Register.Y_Card_Info, UserIDToolStripTextBox.Text) '注册表Me.Y_ReCharge_InfoTableAdapter.Fill(Me.Recharge.Y_ReCharge_Info, UserIDToolStripTextBox.Text) '充值表Me.Y_CancelCard_InfoTableAdapter.Fill(Me.CancelCard.Y_CancelCard_Info, UserIDToolStripTextBox.Text) '退卡表txtRegister.Text = DataGridView1.RowCount   '获取注册卡张数txtCancelCard.Text = DataGridView3.RowCount   '获取退卡张数txtTotal.Text = txtRegister.Text - txtCancelCard.Text  '总售卡张数'通过查询DataGridView每一条充值金额，获取总充值金额For i = 0 To DataGridView2.RowCount - 1RechargeMoney = RechargeMoney + DataGridView2.Rows(i).Cells(1).Value  '计算充值金额Next'通过查询DataGridView每一条退卡金额，获取总退卡金额For i = 0 To DataGridView3.RowCount - 1CancelMoney = CancelMoney + DataGridView3.Rows(i).Cells(1).Value   '计算退卡金额NextTotalMoney = RechargeMoney - CancelMoney    '应收金额txtRechargeCash.Text = RechargeMoney    '充值金额txtCancelCash.Text = CancelMoney        '退卡金额txtActualCash.Text = TotalMoney        '应收金额Catch ex As System.ExceptionSystem.Windows.Forms.MessageBox.Show(ex.Message)End TryEnd Sub

三、结账

将汇总页面获得的充值金额，退卡金额，应收金额等，更新进结账表；同时将注册表，退卡表，充值表状态更改为已结账。

 '结账Private Sub btnAcount_Click(sender As Object, e As EventArgs) Handles btnAcount.ClickDim adcount As New Entity.EntityAdCountDim flag As IntegerDim facade As New Facade.AdcountFacadeadcount.RechCash = txtRechargeCash.Textadcount.CancelCash = txtCancelCash.Textadcount.CheckCash = txtActualCash.Textadcount.Checkdate = Format(Now, "yyyy-MM-dd HH:mm:ss")adcount.UserID = cmdUserID.Textflag = facade.adcountbFacade(adcount)If flag > 0 ThenMsgBox("结账成功！")End IfEnd Sub

存储过程

ALTER PROCEDURE [dbo].[proc_Account]@UserID  varchar(11),@CheckCash  numeric(10, 2),@RechCash  numeric(10, 2),@CancelCash  numeric(10, 2),@Checkdate  datetimeasdeclare @Is   varchar(20)
BEGINset @Is = '未结账'update Y_ReCharge_Info set IsCheck='已结账' where UserID=@UserID and IsCheck=@Isupdate Y_CancelCard_Info set IsCheck='已结账' where UserID=@UserID and IsCheck=@Isupdate Y_Card_Info set IsCheck='已结账' where UserID=@UserID and IsCheck=@Isinsert into Y_Check_Info(UserID,CheckCash,RechCash,CancelCash,Checkdate)values(@UserID,@CheckCash,@RechCash,@CancelCash,@Checkdate)---exec('select * from Bill_Info')END

总结

看了不少人的博客，他们查询 充值金额，退卡金额，应收金额等都是走的七层查询出来的，其实直接获取表中的字段进行相加也是可以得到想要的东西。多一点思考，总会发现新东西，继续加油。

这篇关于机房重构-结账的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---