前言
初次碰到结账这个问题,心里还是有很多的抵触,觉得太难了,下机的时候就觉得有些困难,因为涉及到了算账的问题,现在开始结账了,放眼望去,慢慢的全是账,不管怎样,先学做一个会计吧!
功能实现
其实结账这里分为两大部分
一:从数据库中导出操作员用户名和真实姓名
需要实现的功能:当选择某个用户名的时候他的真实姓名直接调出,虽说这个功能不难实现,但是不怕不知道就怕不知道!
代码实现:
首先设置用户名部分,该部分代码在Form_Load里
'设置用户名的下拉菜单,当本模块运行时调出数据库中所有的操作员用户名
txtSQL = "select * from user_info where level='操作员'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
Do While Not mrc.EOF
CmdUserId.AddItem mrc.Fields(0)
mrc.MoveNext
Loop
其次实现同步操作员真实姓名部分
'设置操作员真实姓名
txtSQL = "select * from user_info where userid='" & CmdUserId.Text & "'"
Set mrc1 = ExecuteSQL(txtSQL, MsgText)
CmdUserName.Text = mrc1.Fields(3)
二:SSTab控件的功能
这里分为7个部分
(1)如何让SSTab控件的每个选项卡实现不同的功能,这里用到的是Select语句
代码实现:
首先需要设置每一个选显卡的Tab属性,将其设置为相应的数字
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Select Case SSTab1.Tab
Case 0 '第一个选项卡
Case 1 '第二个选项卡
Case 2 '第三个选项卡
Case 3 '第四个选项卡
Case 4 '第五个选项卡
Case 5 '第六个选项卡
End Select
End Sub
(2)购卡:将操作员的购卡信息调出
(3)充值:将操作员的充值信息调出
代码实现:
此处定义了rechargecash为充值金额,方便结账时调用
With MSFlexGrid2
.CellAlignment = 4
.Rows = 1
.TextMatrix(0, 0) = "学号"
.TextMatrix(0, 1) = "卡号"
.TextMatrix(0, 2) = "充值金额"
.TextMatrix(0, 3) = "日期"
.TextMatrix(0, 4) = "时间"
End With
rechargecash = 0
'将表recharge_info的数据同步至表
txtSQL = "select * from recharge_info where userid='" & CmdUserId.Text & "' and status='未结账'"
Set mrc3 = ExecuteSQL(txtSQL, MsgText)
Text3.Text = 0
Do While Not mrc3.EOF
With MSFlexGrid2
.CellAlignment = 4
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = Trim(mrc3.Fields(1))
.TextMatrix(.Rows - 1, 1) = Trim(mrc3.Fields(2))
.TextMatrix(.Rows - 1, 2) = Trim(mrc3.Fields(3))
.TextMatrix(.Rows - 1, 3) = Trim(mrc3.Fields(4))
.TextMatrix(.Rows - 1, 4) = Trim(mrc3.Fields(5))
AdjustColWidth frmaccounts, MSFlexGrid2
End With
Text3.Text = Val(Text3.Text) + mrc3.Fields(3) '设置文本框中的充值总金额
rechargecash = Trim(Text3.Text)
mrc3.MoveNext
(2)(3)(4)(5)功能实现过程是一样的
(4)退卡:将操作员的退卡信息调出
此处定义了cancelcash为退卡金额,方便结账时调用
(5)临时用户:将操作员注册的临时用户信息调出
(6)汇总:
各种关于卡的信息:
代码实现:
Case 4 '第四个选项卡
Text6.Text = mrc2.RecordCount '总售卡张数
Text2.Text = mrc4.RecordCount '退卡张数
Text1.Text = Val(Text6.Text) - Val(Text2.Text) '售卡张数=总售卡张数-退卡张数
'应收金额=充值金额+临时收费金额-退卡金额
Text7.Text = Val(Text3.Text) + Val(Text4.Text) - Val(Text5.Text)
结账功能:
代码实现:
Private Sub cmdOK_Click()
'点击结账按钮之后需要更新的表有checkday_info和checkweek_info
'需要做的就是计算上次结账和本次结账之间的充值金额,消费金额,退款金额
'更新checkday_info表中的信息
'上次剩余金额
txtSQL = "select * from checkday_info"
Set mrc6 = ExecuteSQL(txtSQL, MsgText)
mrc6.MoveLast '移动到最后
lastremain = mrc6.Fields(4)
mrc6.MoveFirst
'向checkday_info表中写入数据
mrc6.AddNew
mrc6.Fields(0) = lastremain '上次剩余金额
mrc6.Fields(1) = rechargecash
mrc6.Fields(2) = mrc6.Fields(2) + frmMain.money '上机消费的金额之和
mrc6.Fields(3) = cancelcash
mrc6.Fields(4) = Val(mrc6.Fields(0)) + Val(mrc6.Fields(1)) - Val(mrc6.Fields(3))
mrc6.Fields(5) = Date
mrc6.Update
mrc6.Close
'更新checkweek_info表中的信息
'上次剩余金额
txtSQL = "select * from checkweek_info"
Set mrc7 = ExecuteSQL(txtSQL, MsgText)
mrc7.MoveLast
lastremain = mrc7.Fields(4)
mrc7.MoveFirst
'向cheekday_info表中写入数据
mrc7.AddNew
mrc7.Fields(0) = lastremain
mrc7.Fields(1) = rechargecash
mrc7.Fields(2) = mrc7.Fields(2) + frmMain.money '上机消费的金额之和
mrc7.Fields(3) = cancelcash
mrc7.Fields(4) = Val(mrc7.Fields(0)) + Val(mrc7.Fields(1)) - Val(mrc7.Fields(3))
mrc7.Fields(5) = Date
mrc7.Update
mrc7.Close
'弹出提示框,避免重复结账
MsgBox "结账成功", 0 + 48, "提示"
'更新recharge_info表
txtSQL = "select * from recharge_info where status='未结账'"
Set mrc2 = ExecuteSQL(txtSQL, MsgText)
Do While Not mrc2.EOF
mrc2.Fields(7) = "结账"
mrc2.MoveNext
Loop
'更新student_info表
txtSQL = "select * from student_info where status='使用' and ischeck='未结账'"
Set mrc1 = ExecuteSQL(txtSQL, MsgText)
Do While Not mrc1.EOF
mrc1.Fields(11) = "结账"
mrc1.MoveNext
Loop
End Sub
(7)退出:退出结账结账界面
代码实现:
Case 5 '第五个选项卡
Unload Me
数据表的引用
结账这里打交道最多的就是数据表了,接下来就梳理一下各个功能用到的数据表
(1)结账按钮:checkday_info checkweek_info recharge_info student_info
(2)操作员用户名和姓名:user_info
(3)选项卡:student_info recharge_info cancelcard_info
总结:这里数据表的引用就是查询表里的信息,将数据表里的信息同步到VB中或将VB中的信息更新到数据表中,总体来说还是比较简单的!
总结
总结下来之后觉得自己又收获了不少,思路比之前清晰了许多,而且在总结的过程中也会发现程序的一些不足之处,顺便做了一些修改,所以说总结很重要,颗粒归仓!
未完待续O(∩_∩)O~