技术标签: ♫ 基础学习 ------【数据库】 ------【第一次机房收费系统】
初次碰到结账这个问题,心里还是有很多的抵触,觉得太难了,下机的时候就觉得有些困难,因为涉及到了算账的问题,现在开始结账了,放眼望去,慢慢的全是账,不管怎样,先学做一个会计吧!
其实结账这里分为两大部分
一:从数据库中导出操作员用户名和真实姓名
需要实现的功能:当选择某个用户名的时候他的真实姓名直接调出,虽说这个功能不难实现,但是不怕不知道就怕不知道!
代码实现:
首先设置用户名部分,该部分代码在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
(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
总结下来之后觉得自己又收获了不少,思路比之前清晰了许多,而且在总结的过程中也会发现程序的一些不足之处,顺便做了一些修改,所以说总结很重要,颗粒归仓!
未完待续O(∩_∩)O~
文章浏览阅读885次。凑个热闹,也开个DP专题。虽然貌似年初这个话题才突然热闹起来,到现在类似的文章网页链接多如牛毛(夸张?)。这里只纪录一些(希望)自己理解或记住的同时继续探索有效管理杂乱资源的方式Deep Learning 和 Knowledge Graph 引爆大数据革命http://blog.sina.com.cn/s/blog_46d0a3930101fswl.html_dp deep learning
文章浏览阅读1.1k次。原标题:5G组网与部署探讨5G组网与部署探讨王敏,陆晓东,沈少艾(中国电信股份有限公司,北京100140)【摘要】5G即将正式商用,5G网络部署与演进已经成为运营商迫切且需要认真思考的问题。分析了5G核心网络和无线网络的架构特点,通过综合评估和分析,提出了中国电信5G网络架构建议和以“省层面集中部署控制云、CU/DU合一”为核心的5G网络部署建议。【关键词】5G-4G协同组网;5G覆盖;5G部署;..._amf在哪里部署
文章浏览阅读162次。该楼层疑似违规已被系统折叠隐藏此楼查看此楼我从网上下了一个mysql-5.0.45-linux-i686-icc-glibc23.tar.gz,然后安装。安装完后,发现缺失很多命令。连creat、show这些命令都没有。输入help之后,显示能用的命令很少。如下所示:root@GG:# ./mysqlWelcome to the MySQL monitor. Commands end with..._ubuntu 找不到mysql命令
文章浏览阅读987次,点赞29次,收藏18次。Intersection of a ray with a triangle_games101 homework5
文章浏览阅读4k次。在做用户免登功能的时候遇到了一个困扰挺久的问题,在钉钉提供的示例代码中,已经为我们写出了获取到userid的方法,并且将值设置到了data里面data:{//设置值 在login.axml上corpId: '',authCode:'',userId:'',userName:'',hideList: false,//列表隐藏}dd.getAuthCode({//获得用户免登码success:(re..._钉钉登录界面无法跳转
文章浏览阅读971次。中缀表达式求值合理运用栈,按照运算优先级,编程实现任意中缀算术表达式(可以只包含’+’、’-‘、’*’、’/’等双目运算符、小括号和结束符)的求值运算。通过操作符栈和操作数栈实现求值。遇见数字,直接压入操作数栈,遇见操作符时:1.当栈外优先级高于栈内优先级时:将操作符压入栈2.当栈外优先级低于栈内优先级时:输出栈顶的操作符,从操作数栈中取出栈顶的两个数进行计算后的结果压入栈3.当栈外优先级等于栈内优先级时,如果操作符栈栈顶=’(’,退栈不输出相同等级运算符栈内高于栈内int isp(char_合理运用栈,按照教材中的运算优先级,编程实现任意中缀算术表达式(可以只包含’+’
文章浏览阅读1w次,点赞20次,收藏75次。需求如图,总结如下1.根据后台返回的数据,判断有备忘录的给出标注,memoLevel为紧急程度 1为紧急(红色),2一般(蓝色),3不重要(绿色),显示小圆点,2.如果同一天出现很多条备忘录,根据第一条紧急程度显示圆点颜色,3.点击每一天请求数据,显示当天的备忘录,4.页面初始化显示当月数据5.点击上个月、当天、下个月请求对应日期的数据废话不说,上代码html <el-col :lg="10" :xl="10" class="col2"> <d._calendar改造
文章浏览阅读1k次,点赞24次,收藏21次。网络安全行业产业以来,随即新增加了几十个网络安全行业岗位︰网络安全专家、网络安全分析师、安全咨询师、网络安全工程师、安全架构师、安全运维工程师、渗透工程师、信息安全管理员、数据安全工程师、网络安全运营工程师、网络安全应急响应工程师、数据鉴定师、网络安全产品经理、网络安全服务工程师、网络安全培训师、网络安全审计员、威胁情报分析工程师、灾难恢复专业人员、实战攻防专业人员…网上虽然也有很多的学习资源,但基本上都残缺不全的,这是我自己录的网安视频教程,上面路线图的每一个知识点,我都有配套的视频讲解。_flink-conf.yaml
文章浏览阅读683次,点赞3次,收藏6次。【代码】NLP 使用Word2vec实现文本分类。_word2vec 使用
文章浏览阅读8.4k次。该段js代码可实现 popover 下鼠标移入移除时显示、隐藏 popover 提示信息功能var strContent = 'name}}">'+ ''+ ''+ '小标题'+ '张三 管理员'+_a-popover 隐藏
文章浏览阅读635次。代码如下:#include<stdio.h>int main(void){ int m,n,t,p; scanf("%d %d",&m,&n); if(n > m){ t=n; n=m; m=t; } p = m * n; for(int i = n;i > 0;i--){ if(m..._c语言头歌函数第六关公约公倍数
文章浏览阅读1.7k次。Chrome每次自动更新后,出现software_reporter_tool.exe占CPU的问题在日常使用Chrome经常遇到风扇突然狂转的问题,网上搜了一下才发现Chrome目录下会有这样一个程序software_reporter_tool.exe在狂吃CPU(文件位置一般在C:\Users\name\AppData\Local\Google\Chrome\User Data\SwRepor..._python 所有浏览器进程