第一次机房收费系统--结账_第一次机房收费系统之结账-程序员宅基地

技术标签: ♫ 基础学习  ------【数据库】  ------【第一次机房收费系统】  

前言

初次碰到结账这个问题,心里还是有很多的抵触,觉得太难了,下机的时候就觉得有些困难,因为涉及到了算账的问题,现在开始结账了,放眼望去,慢慢的全是账,不管怎样,先学做一个会计吧!


功能实现

其实结账这里分为两大部分

一:从数据库中导出操作员用户名和真实姓名

需要实现的功能:当选择某个用户名的时候他的真实姓名直接调出,虽说这个功能不难实现,但是不怕不知道就怕不知道!

代码实现:

首先设置用户名部分,该部分代码在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~




版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/Sunny5319/article/details/52658510

智能推荐

数据库复习之索引和explain_数据库 复习 index-程序员宅基地

文章浏览阅读167次。索引查看表中已经存在 index:show index from table_name;创建和删除索引索引的创建可以在CREATE TABLE语句中进行,也可以单独用CREATE INDEX或ALTER TABLE来给表增加索引。删除索引可以利用ALTER TABLE或DROP INDEX语句来实现。(1)使用ALTER TABLE语句创建索引。语法如下:alter table tab..._数据库 复习 index

GC日志分析_已追加形式gc日志-程序员宅基地

文章浏览阅读2.1w次,点赞17次,收藏57次。通过 -XX:+PrintGCDetails 启用日志GC (minor )日志Full GC 日志_已追加形式gc日志

2019cyberCTF MIsc The World_cyberfl0wer-程序员宅基地

文章浏览阅读337次。别问为什么这么久没更新博客 问就是懒。杭电的题目,这个肝的很有意思所以记下来题目下来是一张图 给了提示说有三条线索,两个hint分别是,数字从小到大做,以及最后一关取前16位。下载后是张图片,惯例binwalk。发现有隐藏文件,这里选择foremost(别问为什么用foremost,因为这个题目用binwalk -e就是个坑),总之分解出来后会有三个文件,一张jpg,一个zip,一个mp3..._cyberfl0wer

物联网智能家居实训系统_物联网智能家居实验报告-程序员宅基地

文章浏览阅读1.9k次,点赞3次,收藏12次。物联网智能家居实训系统产品型号和技术规格系统概述物联网智能家居实训系统,以智能家居行业为背景,对智能家居中多个子系统进行安装调试操作,培养学生的工程技能,使其能够搭建相对复杂的物联网应用系统,并对工程岗位的工作有初步认知。该系统综合运用传感器采集、无线传感器网络、自动控制、嵌入式系统开发、网络通信、Android移动应用开发、Web应用开发等物联网技术,将家居环境传感器、终端控制器、家用电器、家居网关等集成,实现家居生活环境的自动监测、自动调节、安防报警、视频监控、远程监控等功能,贴近实际_物联网智能家居实验报告

Latex常用命令_latex命令合集-程序员宅基地

文章浏览阅读431次。插入公式中的连字符\operatorname_latex命令合集

【Tensorflow+Keras】tf.keras.layers.LSTM的解析与使用-程序员宅基地

文章浏览阅读2.1w次,点赞24次,收藏96次。1 作用原理实现LSTM网络原理介绍:长短期记忆模型(Long-Short Term Memory,LSTM)2 参数tf.keras.layers.LSTM(units,activation=“tanh”,recurrent_activation=“sigmoid”,#用于重复步骤的激活功能use_bias=True,#,是否图层使用偏置向量kernel_initializer=“glorot_uniform”,#kernel权重矩阵的 初始化程序,用于输入的线性转换recurren_tf.keras.layers.lstm

随便推点

Thymeleaf select 使用 和多select 级联选择-程序员宅基地

文章浏览阅读2.1k次。1.使用select 并且回绑数据;页面:状态:<select name="status" th:field="*{status}" id="idstatus" class="input-select" th:value="*{status}"><option value="">--请选择--</option><option th:ea..._thymeleaf select

springboot集成sharding-jdbc_springboot整合sharding-jdbc-程序员宅基地

文章浏览阅读1.9k次。一个比较简单的集成,只用到了分库,没有分表。pom完整依赖:<dependency> <groupId>org.springframework.boot</groupId> <artifactId>spring-boot-starter</artifactId> </dependency> <dependency> &_springboot整合sharding-jdbc

Spring获取ApplicationContext的几种方法_java 静态类获取spring appliactioncontext-程序员宅基地

文章浏览阅读681次。Spring获取ApplicationContext的几种方法1.ApplicationContext简介2.获取方法2.1 通过Spring提供的工具类WebApplicationContextUtils获取2.2 初始化时保存ApplicationContext对象2.3 继承自抽象类ApplicationObjectSupport2.4 继承自抽象类WebApplicationObjectS..._java 静态类获取spring appliactioncontext

Quick-CUDA开发/移植工具介绍-程序员宅基地

文章浏览阅读159次。如果你想开发CUDA应用软件,你可以选择1. 努力学习CUDA开发技巧, 以及相关的并行技巧 ‧ 深入掌握 SM/SP、thread、内存/显存之间关系,以及数据交换各种深层技术 ‧ 针对不同状况进行 3~5 阶段的深度CUDA并行优化 ‧ 当CUDA 版本更新、GPU架构改变时,需自行重新改写代码2. 使用快速的 CUDA 开发、移植工具...

Mysql 索引长度限制_mysql索引最大长度-程序员宅基地

文章浏览阅读1w次,点赞3次,收藏14次。在设置 utf8mb4 字段的字符长度时,可能会抛出一个异常:"Specified key was too long; max key length is 1000 bytes"。也就是在给表的索引字段添加字符长度时,超过了最大索引长度 1000 字节。一、原因分析关于索引长度的限制,最主要的因素就是存储引擎和字符集。字符集的影响在于,不同的字符集,单个字符包含的最大字节数有所不同。比如 utf8 字符集,一个字符最多包含 3 个字节。而 utf8mb4 一个字符最多包含 4 个字节。对于 I_mysql索引最大长度

如何在mac电脑终端中输入“python”来启动python_mac终端打python-程序员宅基地

文章浏览阅读4.9k次,点赞8次,收藏7次。如何在mac电脑终端中输入“python”来启动python编译器_mac终端打python

推荐文章

热门文章

相关标签