技术标签: ♫ 基础学习 ------【数据库】 ------【第一次机房收费系统】
初次碰到结账这个问题,心里还是有很多的抵触,觉得太难了,下机的时候就觉得有些困难,因为涉及到了算账的问题,现在开始结账了,放眼望去,慢慢的全是账,不管怎样,先学做一个会计吧!
其实结账这里分为两大部分
一:从数据库中导出操作员用户名和真实姓名
需要实现的功能:当选择某个用户名的时候他的真实姓名直接调出,虽说这个功能不难实现,但是不怕不知道就怕不知道!
代码实现:
首先设置用户名部分,该部分代码在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~
文章浏览阅读1k次。通过使用ajax方法跨域请求是浏览器所不允许的,浏览器出于安全考虑是禁止的。警告信息如下:不过jQuery对跨域问题也有解决方案,使用jsonp的方式解决,方法如下:$.ajax({ async:false, url: 'http://www.mysite.com/demo.do', // 跨域URL ty..._nginx不停的xhr
文章浏览阅读2k次。关于在 Oracle 中配置 extproc 以访问 ST_Geometry,也就是我们所说的 使用空间SQL 的方法,官方文档链接如下。http://desktop.arcgis.com/zh-cn/arcmap/latest/manage-data/gdbs-in-oracle/configure-oracle-extproc.htm其实简单总结一下,主要就分为以下几个步骤。..._extproc
文章浏览阅读1.5w次。linux下没有上面的两个函数,需要使用函数 mbstowcs和wcstombsmbstowcs将多字节编码转换为宽字节编码wcstombs将宽字节编码转换为多字节编码这两个函数,转换过程中受到系统编码类型的影响,需要通过设置来设定转换前和转换后的编码类型。通过函数setlocale进行系统编码的设置。linux下输入命名locale -a查看系统支持的编码_linux c++ gbk->utf8
文章浏览阅读750次。今天准备从生产库向测试库进行数据导入,结果在imp导入的时候遇到“ IMP-00009:导出文件异常结束” 错误,google一下,发现可能有如下原因导致imp的数据太大,没有写buffer和commit两个数据库字符集不同从低版本exp的dmp文件,向高版本imp导出的dmp文件出错传输dmp文件时,文件损坏解决办法:imp时指定..._imp-00009导出文件异常结束
文章浏览阅读143次。当下是一个大数据的时代,各个行业都离不开数据的支持。因此,网络爬虫就应运而生。网络爬虫当下最为火热的是Python,Python开发爬虫相对简单,而且功能库相当完善,力压众多开发语言。本次教程我们爬取前程无忧的招聘信息来分析Python程序员需要掌握那些编程技术。首先在谷歌浏览器打开前程无忧的首页,按F12打开浏览器的开发者工具。浏览器开发者工具是用于捕捉网站的请求信息,通过分析请求信息可以了解请..._初级python程序员能力要求
文章浏览阅读7.6k次,点赞2次,收藏6次。@Service标注的bean,类名:ABDemoService查看源码后发现,原来是经过一个特殊处理:当类的名字是以两个或以上的大写字母开头的话,bean的名字会与类名保持一致public class AnnotationBeanNameGenerator implements BeanNameGenerator { private static final String C..._@service beanname
文章浏览阅读3k次,点赞4次,收藏14次。Java软件工程师职位分析_java岗位分析
文章浏览阅读2k次。Java:Unreachable code的解决方法_java unreachable code
文章浏览阅读1w次。1、html中设置标签data-*的值 标题 11111 222222、点击获取当前标签的data-url的值$('dd').on('click', function() { var urlVal = $(this).data('ur_如何根据data-*属性获取对应的标签对象
文章浏览阅读6.9w次,点赞73次,收藏463次。1.前序创建#include<stdio.h>#include<string.h>#include<stdlib.h>#include<malloc.h>#include<iostream>#include<stack>#include<queue>using namespace std;typed_二叉树的建立
文章浏览阅读7.1k次。在Asp.net上使用Excel导出功能,如果文件名出现中文,便会以乱码视之。 解决方法: fileName = HttpUtility.UrlEncode(fileName, System.Text.Encoding.UTF8);_asp.net utf8 导出中文字符乱码
文章浏览阅读2.1k次,点赞4次,收藏23次。第一次实验 词法分析实验报告设计思想词法分析的主要任务是根据文法的词汇表以及对应约定的编码进行一定的识别,找出文件中所有的合法的单词,并给出一定的信息作为最后的结果,用于后续语法分析程序的使用;本实验针对 PL/0 语言 的文法、词汇表编写一个词法分析程序,对于每个单词根据词汇表输出: (单词种类, 单词的值) 二元对。词汇表:种别编码单词符号助记符0beginb..._对pl/0作以下修改扩充。增加单词