第一次机房收费系统——结账

最新推荐文章于 2020-11-25 18:26:56 发布
最新推荐文章于 2020-11-25 18:26:56 发布
阅读量353 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qizhi666/article/details/82886282
版权

前言：谈到结账，大家都觉得挺难的，当然我也是这么觉得的，但是通过一段时间的磨练，最终还是解决了，那么就来分享一下把！

页面

在这里插入图片描述

首先谈到页面，我将临时收费金额改成了上网收费金额。

汇总的计算

售卡张数

就是你今天所出售的卡数
注意： 是今天售的卡数。

退卡张数

即你今天所退的的卡数

充值金额

我认为注册基础余额也是一种充值，所以我的充值是充值的钱+注册时候的钱。

上网收费金额

即是上机产生的消费。

退卡金额

即你今天退卡所返还给用户的钱。

总售卡数

即售卡张数-退卡张数

应收金额

即充值金额（充值金额包括充值金额+注册时所充值的金额）-退卡金额

代码

添加操作员用户名

Private Sub Form_Load()
    '让窗体居中
    Me.Left = Screen.Width / 2 - Me.Width / 2
    Me.Top = Screen.Height / 2 - Me.Height / 2
    BorderStyle = 1
    WindowState = 0
    '添加操作员用户名
    txtSQL = "select *from user_info where level='" & "操作员" & "' or level='" & "管理员" & "'"
    Set mrc_User = ExecuteSQL(txtSQL, MsgText)
    If mrc_User.EOF Then
        Exit Sub
    End If
    
    mrc_User.MoveFirst
    While Not mrc_User.EOF
        ComboUserID.AddItem mrc_User.Fields(0)
        mrc_User.MoveNext
    Wend
    mrc_User.Close
    '调用过程，添加表名
    Call AddName

End Sub

添加操作员真实姓名和四个控件中的内容

Private Sub ComboUserID_click()
    '添加操作员姓名
    txtSQL = "select *from user_info where userid='" & Trim(ComboUserID.Text) & "'"
    Set mrc_User = ExecuteSQL(txtSQL, MsgText)
    If mrc_User.EOF Then
        mrc_User.Close
        Exit Sub
    End If
        lblUsrName.Caption = mrc_User.Fields(3)
    mrc_User.Close
    
    '调用过程，添加表名
    Call AddName
    
    '购卡
    SellNum = 0 '售卡张数为0
    SellMoney = 0
    txtSQL = "select*from student_info where userid='" & ComboUserID.Text & "'" & "and " & _
                "ischeck='" & "未结账" & "'and date='" & Date & "'"
    Set mrc_Stu_Sum = ExecuteSQL(txtSQL, MsgText)
    If mrc_Stu_Sum.EOF = False Then
        mrc_Stu_Sum.MoveFirst
    End If
    
        
        While Not mrc_Stu_Sum.EOF
            With FlexGridSell
                .Rows = .Rows + 1
                .CellAlignment = 4
                .ColAlignment = 4
                .TextMatrix(.Rows - 1, 0) = Trim(mrc_Stu_Sum.Fields(1)) '学号
                .TextMatrix(.Rows - 1, 1) = Trim(mrc_Stu_Sum.Fields(0)) ' "卡号"
                .TextMatrix(.Rows - 1, 2) = Trim(mrc_Stu_Sum.Fields(13)) '"日期"
                .TextMatrix(.Rows - 1, 3) = Trim(mrc_Stu_Sum.Fields(14)) '"时间"
                SellMoney = SellMoney + Val(mrc_Stu_Sum.Fields(7))
                SellNum = SellNum + 1
                mrc_Stu_Sum.MoveNext
            End With
        Wend

    '关闭数据库
    mrc_Stu_Sum.Close
    
    '充值
     AddMoney = 0
    txtSQL = "select*from recharge_info where userid='" & ComboUserID.Text & "'" & "and " & _
                "status='" & "未结账" & "' and date='" & Date & "'"
    Set mrc_RE = ExecuteSQL(txtSQL, MsgText)
    If mrc_RE.EOF = False Then
        mrc_RE.MoveFirst
    End If
    
    
        While Not mrc_RE.EOF
            With FlexGridRe
                .Rows = .Rows + 1
                .CellAlignment = 4
                .ColAlignment = 4
                .TextMatrix(.Rows - 1, 0) = Trim(mrc_RE.Fields(1)) '学号
                .TextMatrix(.Rows - 1, 1) = Trim(mrc_RE.Fields(2)) ' "卡号"
                .TextMatrix(.Rows - 1, 2) = Trim(mrc_RE.Fields(3)) '"充值金额"
                .TextMatrix(.Rows - 1, 3) = Trim(mrc_RE.Fields(4)) '"日期"
                .TextMatrix(.Rows - 1, 4) = Trim(mrc_RE.Fields(5)) '"时间"
                AddMoney = AddMoney + Val(mrc_RE.Fields(3))
                mrc_RE.MoveNext
            End With
        Wend
    mrc_RE.Close
    
    '退卡
    BackCard = 0
    txtSQL = "select*from cancelcard_info where userid='" & ComboUserID.Text & "'" & "and " & _
                "status='" & "未结账" & "' and date='" & Date & "'"


    Set mrc_Stu_Off = ExecuteSQL(txtSQL, MsgText)
    If mrc_Stu_Off.EOF = False Then
        mrc_Stu_Off.MoveFirst
    End If
    
        
        While Not mrc_Stu_Off.EOF
            With FlexGridOff
                .Rows = .Rows + 1
                .CellAlignment = 4
                .ColAlignment = 4
                .TextMatrix(.Rows - 1, 0) = Trim(mrc_Stu_Off.Fields(1))  '学号
                .TextMatrix(.Rows - 1, 1) = Trim(mrc_Stu_Off.Fields(0)) ' "卡号"
                .TextMatrix(.Rows - 1, 2) = Trim(mrc_Stu_Off.Fields(3)) '"日期"
                .TextMatrix(.Rows - 1, 3) = Trim(mrc_Stu_Off.Fields(4)) '"时间"
                .TextMatrix(.Rows - 1, 4) = Trim(mrc_Stu_Off.Fields(2)) '"退卡金额"
                BackNum = BackNum + 1
                BackMoney = BackMoney + Val(mrc_Stu_Off.Fields(2))
                mrc_Stu_Off.MoveNext
            End With
        Wend
    mrc_Stu_Off.Close
    
    '临时用户
    txtSQL = "select*from student_info where userid='" & ComboUserID.Text & "'" & "and " & _
                "ischeck='" & "未结账" & "'" & "and " & _
                "type='" & "临时用户" & "' and date='" & Date & "'"
    Set mrc_Stu_Tem = ExecuteSQL(txtSQL, MsgText)
    If mrc_Stu_Tem.EOF = False Then
        mrc_Stu_Tem.MoveFirst
    End If
    
        
        While Not mrc_Stu_Tem.EOF
            With FlexGridTem
                .Rows = .Rows + 1
                .CellAlignment = 4
                .ColAlignment = 4
                .TextMatrix(.Rows - 1, 0) = Trim(mrc_Stu_Tem.Fields(1)) '学号
                .TextMatrix(.Rows - 1, 1) = Trim(mrc_Stu_Tem.Fields(0)) ' "卡号"
                .TextMatrix(.Rows - 1, 2) = Trim(mrc_Stu_Tem.Fields(13)) '"日期"
                .TextMatrix(.Rows - 1, 3) = Trim(mrc_Stu_Tem.Fields(14)) '"时间"
                .TextMatrix(.Rows - 1, 4) = Trim(mrc_Stu_Tem.Fields(7)) '金额
                mrc_Stu_Tem.MoveNext
            End With
        Wend
    mrc_Stu_Tem.Close
        
        
        
End Sub

结账按钮

Private Sub lblOK_Click()
    '购卡
    txtSQL = "select*from student_info where userid='" & ComboUserID.Text & "'" & "and " & _
                "ischeck='" & "未结账" & "' and date='" & Date & "'"
    Set mrc_Stu_Sum = ExecuteSQL(txtSQL, MsgText)
    If mrc_Stu_Sum.EOF = False Then
        mrc_Stu_Sum.MoveFirst
    End If
        While Not mrc_Stu_Sum.EOF
                mrc_Stu_Sum.Fields(11) = "结账"
                mrc_Stu_Sum.Update
                mrc_Stu_Sum.MoveNext
        Wend

    '关闭数据库
    mrc_Stu_Sum.Close
    
    '充值
     AddMoney = 0
    txtSQL = "select*from recharge_info where userid='" & ComboUserID.Text & "'" & "and " & _
                "status='" & "未结账" & "' and date='" & Date & "'"
    Set mrc_RE = ExecuteSQL(txtSQL, MsgText)
    If mrc_RE.EOF = False Then
        mrc_RE.MoveFirst
    End If
    
    
        While Not mrc_RE.EOF
                AddMoney = AddMoney + Trim(mrc_RE.Fields(3))
                mrc_RE.Fields(7) = "结账"
                mrc_RE.Update
                mrc_RE.MoveNext
        Wend
    mrc_RE.Close
    
    '退卡
    BackCard = 0
    txtSQL = "select*from cancelcard_info where userid='" & ComboUserID.Text & "'" & "and " & _
                "status='" & "未结账" & "' and date='" & Date & "'"


    Set mrc_Stu_Off = ExecuteSQL(txtSQL, MsgText)
    If mrc_Stu_Off.EOF = False Then
        mrc_Stu_Off.MoveFirst
    End If
    
        
        While Not mrc_Stu_Off.EOF
                mrc_Stu_Off.Fields(6) = "结账"
                mrc_Stu_Off.Update
                mrc_Stu_Off.MoveNext
        Wend
    mrc_Stu_Off.Close
    
    '临时用户
''    TemMoney = 0 '临时收费金额
    txtSQL = "select*from student_info where userid='" & ComboUserID.Text & "'" & "and " & _
                "ischeck='" & "未结账" & "'" & "and " & _
                "type='" & "临时用户" & "' and date='" & Date & "'"
    Set mrc_Stu_Tem = ExecuteSQL(txtSQL, MsgText)
    If mrc_Stu_Tem.EOF = False Then
        mrc_Stu_Tem.MoveFirst
    End If
    
        
        While Not mrc_Stu_Tem.EOF
            With FlexGridTem
                .Rows = .Rows + 1
                .CellAlignment = 4
                .ColAlignment = 4
                mrc_Stu_Tem.Fields(11) = "结账"
                mrc_Stu_Tem.MoveNext
            End With
        Wend
    mrc_Stu_Tem.Close
    
    
    '下机
''    TemMoney = 0 '临时收费金额
    txtSQL = "select*from line_info  where userid='" & ComboUserID.Text & "'" & "and " & _
                "statu='" & "未结账" & "' and offdate='" & Date & "'"
    Set mrc_Line = ExecuteSQL(txtSQL, MsgText)
    If mrc_Line.EOF = False Then
        mrc_Line.MoveFirst
    End If
    
        
        While Not mrc_Line.EOF
                mrc_Line.Fields(16) = "结账"
                mrc_Line.MoveNext
        Wend
    mrc_Line.Close
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '调用过程，添加表名
    Call AddName
    
    '临时收费金额
    txtSQL = "select * from line_info where offdate='" & Format(Date, "yyyy-MM-dd") & "'" & _
                    "and userid='" & ComboUserID.Text & "' and offdate='" & Date & "'"
    Set mrc_Line = ExecuteSQL(txtSQL, MsgText)
    If mrc_Line.EOF Then
        TemMoney = 0
    Else
        While Not mrc_Line.EOF
            TemMoney = TemMoney + Val(Trim(mrc_Line.Fields(11)))
            mrc_Line.MoveNext
        Wend
    End If
    
    
'    TemMoney = mrc_Line.Fields(10)
    '售卡张数
    lblSellCardSum.Caption = SellNum
    '退卡张数
    lblBackCardSum.Caption = BackNum
    '充值金额
    lblRecharge.Caption = AddMoney
    '临时收费金额
    lblTemRecharge.Caption = TemMoney
    '退卡金额
    lblBackCardMoney.Caption = BackMoney
    '总售卡数
    SumCard = SellNum - BackNum
    lblSellCardActual.Caption = SumCard
    '所售金额
    SunMoney = AddMoney - BackMoney
    lblCollectMoney.Caption = SunMoney

    '传值去日结账单
    txtSQL = "select *from checkday_info "
    Set mrc_CheckDay = ExecuteSQL(txtSQL, MsgText)
    If mrc_CheckDay.EOF Then
        LastMoney = 0
       
    Else
        mrc_CheckDay.MoveLast
        LastMoney = Trim(mrc_CheckDay.Fields(0))
        
    End If
    
    mrc_CheckDay.AddNew
    mrc_CheckDay.Fields(0) = Trim(LastMoney) '上次余额
    mrc_CheckDay.Fields(1) = AddMoney '充值金额
    mrc_CheckDay.Fields(2) = TemMoney '消费金额
    mrc_CheckDay.Fields(3) = BackMoney '退卡金额
    mrc_CheckDay.Fields(4) = SunMoney '所售金额
    mrc_CheckDay.Fields(5) = Format(Date, "yyyy-MM-dd") '日期
    mrc_CheckDay.Update
    mrc_CheckDay.Close

End Sub

为了避免代码重复过大，所以写的添加导航属性的过程！

Public Sub AddName()
    '购卡添加表头
    With FlexGridSell
        .Rows = 1
        .CellAlignment = 4
        .ColAlignment = 4
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "日期"
        .TextMatrix(0, 3) = "时间"
    End With
    
    '充值添加表头
    With FlexGridRe
        .Rows = 1
        .CellAlignment = 4
        .ColAlignment = 4
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "充值金额"
        .TextMatrix(0, 3) = "日期"
        .TextMatrix(0, 4) = "时间"
    End With
    
    '退卡添加表头
    With FlexGridOff
        .Rows = 1
        .CellAlignment = 4
        .ColAlignment = 4
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "日期"
        .TextMatrix(0, 3) = "时间"
        .TextMatrix(0, 4) = "退卡金额"
    End With
        
    '临时用户添加表头
    With FlexGridTem
        .Rows = 1
        .CellAlignment = 4
        .ColAlignment = 4
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "日期"
        .TextMatrix(0, 3) = "时间"
        .TextMatrix(0, 4) = "消费金额"
    End With
End Sub

希望我的分享能你有所帮助！
感谢您的阅读，如果您有更好的方法，欢迎分享给我，谢谢您！

黄金鸡米花
关注
专栏目录
机房收费系统——可行性研究报告
YNO
11-19 1386
可行性研究报告 ■1 引言 所谓可行性就是要决定“做还是不做”较为客观，当今世界发生着巨大革新，信息时代已经成为推动社会前进的关键性因素地位不可撼动，工业4.0已然在路上。大数据时代获取知识的成本骤减，各种网络公开课和学习资料在度娘和谷歌等一系列搜索引擎的强大攻势下变的唾手可得，可谓是没有搜不到的，只有不会搜的。 当然作为在外人看来相当神秘的IT行业更是被赋予了更加神秘的色彩，但与此
机房收费系统——可行性分析报告
好记性不如烂笔头--玲博小记
05-31 2920
在所有的文档中，可行性不光是第一个要写的文档，还是
第一次机房收费系统--结账
破茧成蝶
09-25 1029
前言 初次碰到结账这个问题，心里还是有很多的抵触，觉得太难了，下机的时候就觉得有些困难，因为涉及到了算账的问题，现在开始结账了，放眼望去，慢慢的全是账，不管怎样，先学做一个会计吧！
第一次机房收费系统之结账
孙正_大正
10-31 296
前言： 机房收费系统的结账窗体主要是先想清楚功能的逻辑思路。 1.结账是结谁的帐？ 结账是管理员的权限，是管理员给操作员结账，操作员工作期间售卡以及充值的金额还有退卡时应退给学生的金额。所以结账是操作员工作期间机房的收入。 2.怎么结账？ 在SSTab控件中有购卡，充值，退卡，临时用户几个选项卡，临时用户和购卡的收费金额已经结算到充值中，所以应收金额=充值金额-退卡金额 ...
机房收费系统之结账总结
Phoneix的博客
09-05 536
【前言】 说到机房结账，说难不难，说简单也简单，只要捋清楚思理接着再写代码就可以了，本次是第一次机房，只是初次接触结账的，只要是账能对的上就可以，这次机房的验收光结账我就验收了三次，还是有个严格的师傅好啊，跟我讲了很多，正好另一个师傅在做机房重构，一些内容和第一的机房的区别都告诉了。 【机房结账理解】 要想把结账做好首先要知道理解它的功能，结账是给谁结的对吧！我把机房项目当作成一个网吧。 ...
【机房收费系统】结账（2）
刘思琪--只争朝夕
12-23 319
结账： Dim txtsql As String Dim msgtext As String Dim mrcst As ADODB.Recordset '连接student_info表 Dim mrcca As ADODB.Recordset '连接cancelcard_info表 Dim mrcli As ADODB.Records...
第一次机房收费系统【总结】——结账
程金鹏（程利鹏）
08-10 2048
说起机房，我个人感觉最具有挑战性的就是上下机，组合查询，以及结账。下面我就来说一说结账。 结账，概括的来说，就让管理员知道每天机房的金钱收支。详细的说是把每个操作员一天收支明细列出来让管理员一目了然。 下面我们先来看看结账的界面，如下图 经过分析，我们可知道，这就是管理员看操作员一天的工作明细，即售卡，充值，退卡的情况。 1、  购卡：就是在student_info表总查询没有
机房收费系统——结账
sunny_LI
10-26 1939
机房的逻辑很强。师傅也说了，
机房收费系统——日结周结账单
任丽媛的博客
02-28 571
本来以为冲破了“组合查询”、“上下机”以及“结账”三座大山，会踏上人生的巅峰，顺利的在一天甚至于半天之内把日结周结账单弄完，没想到，我竟是在异想天开。 首先，我对于账单这个部件不了解，也不知道怎么制作账单，其次，这个控件添加后的代码，我稀里糊涂，也不明白，导致我在交互时因为填写数据错误，导致程序报错。 接下来，我将给大家认真的分享一下，应该注意的关于账单...
【VB.net】机房收费系统——充值+存储过程+事务
王璐
06-19 1846
前言                 机房收费系统里，一个功能的实现，有时会涉及到数据库里的很多张表。如果把这些都写进7层的代码会非常的繁琐，而且不易修改。存储过程，就恰好解决了这个难题。那么什么是存储过程呢？   存储过程（Stored Procedure）              是在大型数据库系统中，一组为了完成特定功能的SQL语句集。通俗一点，就是为了完成某一功能的SQ
机房收费系统——测试计划
好记性不如烂笔头--玲博小记
06-15 1987
在项目基本编码工作完成的就要进行测试，对于排除出错误和修复漏洞有重要作用。
详细设计说明书——机房收费系统
石朝翠 廊坊师范学院信息技术提高班 第十期
01-08 1073
详细设计说明书 1引言 1.1编写目的 编写详细设计说明书的目的是让开发人员对系统的设计方面有更全面和准确的开发，便于开发人员对系统有细致的了解，从而使系统的功能性更强，更加适合用户需求。预期读者为系统程序员。 1.2背景 说明： A.     机房收费系统； B.      任务提出者：米新江老师； 开发者：廊坊师范学院信息技术提高班十期石朝翠； 用户：廊坊师范学院机房管理教师
python3模块文档_python3之模块
weixin_39993623的博客
11-25 140
1、python3模块模块是一个包含所有你定义的函数和变量的文件，其后缀名是.py。模块可以被别的程序引入，以使用该模块中的函数等功能。这也是使用 python 标准库的方法。模块让你能够有逻辑地组织你的python代码段；把相关的代码分配到一个模块里能让你的代码更好用，更易懂。模块能定义函数，类和变量，模块里也能包含可执行的代码。#新建模块文件modle_1.py，内容如下：defp_func(...
第一次机房收费系统--下机
破茧成蝶
09-18 812
每当接触一个新鲜事物都会觉得很难，就像米老师说的“改变的过程是痛苦的”，但是我们不要害怕，勇往直前，小伙伴，一起加油！
解除劳动合同五大热点问题及裁员概述.ppt
09-14
解除劳动合同五大热点问题及裁员概述.ppt
暴风TV 43X-45X-50X-55X、43B2-50B2-55B2升级程序
09-14
暴风TV 43X-45X-50X-55X、43B2-50B2-55B2升级程序 暴风 Amlogic T866-H平台 1.0.42版本 本地升级： 1、将本地升级软件包“update”拷贝至U盘里，插入电视USB端口，打开电视进入系统设置选择本地升级。 2、选择本地升级，遥控点击确认，主板检测到U盘里面的软件进行升级，如下图所示。 3、首先效验软件，若软件不对或者软件未完整下载会导致效验失败，效验成功后如下图所示。 4、升级过程中会擦除以前的数据烧录新的软件后重启系统，整个过程大约3-5分钟，切勿断电或拔掉U盘。 升级完成后可以在系统设置——本机信息——查询软件版本更新状态 注意： 1、U盘要求使用FAT32格式，建议4G-8G的品牌U盘，刷机成功率会高 2、升级到结束，大约需要8-30分钟，中途绝对不能断电 3、升级重启第一次进入系统，请等完全正常进入开机桌面之后，才能拨下U盘
基于Springboot和Mysql的中小企业设备管理系统代码，包括程序，中文注释，配置说明操作步骤
09-14
中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统-中小企业设备管理系统 1、资源说明：中小企业设备管理系统源码，本资源内项目代码都经过测试运行成功，功能ok的情况下才上传的。 2、适用人群：计算机相关专业(如计算计、信息安全、大数据、人工智能、通信、物联网、自动化、电子信息等)在校学生、专业老师或者企业员工等学习者，作为参考资料，进行参考学习使用。 3、资源用途：本资源具有较高的学习借鉴价值，可以作为“参考资料”，注意不是“定制需求”，代码只能作为学习参考，不能完全复制照搬。需要有一定的基础，能够看懂代码，能够自行调试代码，能够自行添加功能修改代码。 4. 最新计算机软件毕业设计选题大全(文章底部有博主联系方式): https://blog.csdn.net/2301_79206800/article/details/135931154 技术栈、环境、工具、软件： ① 系统环境:Windows
暴风电视刷机数据 43X-45X-50X-55X、43B2-50B2-55B2升级程序 1.045版本
最新发布
09-14
暴风TV 43X-45X-50X-55X、43B2-50B2-55B2升级程序 暴风 Amlogic T866-H平台 1.0.45版本 本地升级： 1、将本地升级软件包“update”拷贝至U盘里，插入电视USB端口，打开电视进入系统设置选择本地升级。 2、选择本地升级，遥控点击确认，主板检测到U盘里面的软件进行升级，如下图所示。 3、首先效验软件，若软件不对或者软件未完整下载会导致效验失败，效验成功后如下图所示。 4、升级过程中会擦除以前的数据烧录新的软件后重启系统，整个过程大约3-5分钟，切勿断电或拔掉U盘。 升级完成后可以在系统设置——本机信息——查询软件版本更新状态 注意： 1、U盘要求使用FAT32格式，建议4G-8G的品牌U盘，刷机成功率会高 2、升级到结束，大约需要8-30分钟，中途绝对不能断电 3、升级重启第一次进入系统，请等完全正常进入开机桌面之后，才能拨下U盘
餐饮结账管理系统设计与实现
在设计一个餐饮结账管理系统时，有几个关键的知识点需要理解和掌握： 1. 结构化程序设计：遵循自顶向下、逐步求精的原则，将复杂问题分解为若干个独立的功能模块，每个模块负责特定的职责。这有助于提高代码的...
评论 13
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值