【机房】结账——SSTab的使用

于 2020-07-23 08:40:54 发布
阅读量526 收藏 1
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Laura__zhang/article/details/107528088
版权

机房收费系统中管理员可以对操作员进行结账操作。

窗体界面：
在这里插入图片描述

结账用到了SSTab选项卡，SSTab的添加：添加SSTab选项卡

每一个选项下面对应的连接数据库和想要查询的内容都是不一样的。

代码展示：

Private Sub SSTab1_Click(PreviousTab As Integer)
    
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As Recordset
    
     Select Case SSTab1.Tab
            
        Case 0      '显示购卡
            MSHFlexGrid1.Rows = 1
            With MSHFlexGrid1
                .CellAlignment = 4
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "日期"
                .TextMatrix(0, 3) = "时间"
            End With
            
            '连接数据库 student 表
            txtSQL = "select * from student_info where UserID='" & Trim(ComboUserID.Text) & "'and Ischeck='" & "未结账" & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)

            Do While Not mrc.EOF

                With MSHFlexGrid1
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
                    .TextMatrix(.Rows - 1, 1) = mrc.Fields(0)
                    .TextMatrix(.Rows - 1, 2) = mrc.Fields(12)
                    .TextMatrix(.Rows - 1, 3) = mrc.Fields(13)
                    
                    '移动到下一条记录
                    mrc.MoveNext
                End With
            Loop
            mrc.Close
                
        Case 1      '显示充值
            MSHFlexGrid2.Rows = 1
            With MSHFlexGrid2
                .CellAlignment = 4
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "充值金额"
                .TextMatrix(0, 3) = "日期"
                .TextMatrix(0, 4) = "时间"
            End With
            
            '连接数据库 Recharge 表
            txtSQL = "select * from Recharge_info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)

            Do While Not mrc.EOF

                With MSHFlexGrid2
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
                    .TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
                    .TextMatrix(.Rows - 1, 2) = mrc.Fields(3)
                    .TextMatrix(.Rows - 1, 3) = mrc.Fields(4)
                    .TextMatrix(.Rows - 1, 4) = mrc.Fields(5)
                    
                    '移动到下一条记录
                    mrc.MoveNext
                End With
            Loop
            mrc.Close
        
        Case 2      '显示退卡
            MSHFlexGrid3.Rows = 1
            With MSHFlexGrid3
                .CellAlignment = 4
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "退卡金额"
                .TextMatrix(0, 3) = "日期"
                .TextMatrix(0, 4) = "时间"
            End With
            
            '连接数据库 CancelCard 表
            txtSQL = "select * from CancelCard_info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)

            Do While Not mrc.EOF

                With MSHFlexGrid3
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
                    .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
                    .TextMatrix(.Rows - 1, 2) = mrc.Fields(2)   '退卡金额
                    .TextMatrix(.Rows - 1, 3) = mrc.Fields(3)   '日期
                    .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)   '时间
                    
                    '移动到下一条记录
                    mrc.MoveNext
                End With
            Loop
            mrc.Close
            
        Case 3      '显示临时用户
            MSHFlexGrid4.Rows = 1
            With MSHFlexGrid4
                .CellAlignment = 4
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "日期"
                .TextMatrix(0, 3) = "时间"
            End With
            
            '连接数据库 sutdent表 临时用户
            txtSQL = "select * from student_info where UserID='" & Trim(ComboUserID.Text) & "' and type='" & Trim(Label11.Caption) & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)

            Do While Not mrc.EOF

                With MSHFlexGrid4
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)   '学号
                    .TextMatrix(.Rows - 1, 1) = mrc.Fields(0)   '卡号
                    .TextMatrix(.Rows - 1, 2) = mrc.Fields(12)   '日期
                    .TextMatrix(.Rows - 1, 3) = mrc.Fields(13)   '时间
                    
                    '移动到下一条记录
                    mrc.MoveNext
                End With
            Loop
            mrc.Close
        
        Case 4      '显示汇总
        
            Dim mrcStu As ADODB.Recordset       '连接student表
            Dim mrcCancel As ADODB.Recordset    '连接cancelCard表
            Dim mrcRe As ADODB.Recordset        '连接Rechange表
            
            '连接student表
            txtSQL = "select * from student_info where UserID='" & Trim(ComboUserID.Text) & "'and Ischeck='" & "未结账" & "'"
            Set mrcStu = ExecuteSQL(txtSQL, MsgText)
            
                txtSellCardSum.Text = mrcStu.RecordCount       '售卡张数
            
            '连接数据库 CancelCard 表
            txtSQL = "select * from CancelCard_info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"
            Set mrcCancel = ExecuteSQL(txtSQL, MsgText)
                
                txtBackCardSum.Text = mrcCancel.RecordCount       '退卡张数
                
                '退卡金额
                If mrcCancel.EOF = True Then
                    txtBackCardMoney.Text = "0"
                Else
                    txtBackCardMoney.Text = Val(mrcCancel.Fields(2))
                End If
            
            '连接数据库 Recharge 表
            txtSQL = "select sum(addmoney) from Recharge_info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"
            Set mrcRe = ExecuteSQL(txtSQL, MsgText)
                
'                mrcRe.Open
                '充值金额
                If IsNull(Trim(mrcRe.Fields(0))) Then
                    txtRecharge.Text = "0"
                Else
                    txtRecharge.Text = Val(mrcRe.Fields(0))
                End If
            
            '计算总售卡数与应收金额
            txtSellCardActual.Text = Val(txtSellCardSum.Text) - Val(txtBackCardSum.Text)    '总售卡张数
            txtCollectMoney.Text = Val(txtRecharge.Text) - Val(txtBackCardMoney.Text) '应收金额
        
        Case 5      '退出
            
            Unload Me
            
        End Select

End Sub

汇总选项卡下面还有一个结账的控件

结账的时候需要连接学生表、充值表和退卡表，综合上机的时间和卡里余额进行结账。

代码展示：

Private Sub cmdAccounts_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrcStu As ADODB.Recordset       '连接student表
    Dim mrcCancel As ADODB.Recordset    '连接cancelCard表
    Dim mrcRe As ADODB.Recordset        '连接Rechange表
            
            '连接student表
    txtSQL = "select * from student_info where UserID='" & Trim(ComboUserID.Text) & "'"
    Set mrcStu = ExecuteSQL(txtSQL, MsgText)
            
        Do While Not mrcStu.EOF
            mrcStu!Ischeck = "结账"
            mrcStu.Update
            mrcStu.MoveNext
        Loop
            
        mrcStu.Close
            
    '连接数据库 CancelCard 表
    txtSQL = "select * from CancelCard_info where UserID='" & Trim(ComboUserID.Text) & "'"
    Set mrcCancel = ExecuteSQL(txtSQL, MsgText)
                
        Do While Not mrcCancel.EOF
            mrcCancel!Status = "结账"
            mrcCancel.Update
            mrcCancel.MoveNext
        Loop
        
        mrcCancel.Close
               
    '连接数据库 Recharge 表
    txtSQL = "select * from Recharge_info where UserID='" & Trim(ComboUserID.Text) & "'"
    Set mrcRe = ExecuteSQL(txtSQL, MsgText)
                
    Do While Not mrcRe.EOF
            mrcRe!Status = "结账"
            mrcRe.Update
            mrcRe.MoveNext
    Loop
    mrcRe.Close
    MsgBox "结账成功", 64, "温馨提示"
    Exit Sub
End Sub

感谢阅读~

张_Laura
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 5
    评论
专栏目录
机房系统（四）——【分页控件SSTab】
梦蝶
11-30 717
    在机房结账窗体中，有一个选项卡控件SSTab。这个控件是需要从VB外部控件添加之后才可以使用的。
结账之SSTab
吴晓如
08-10 665
刚打开结账窗体，就看到一个既陌生又亲切的控件---SSTab，记得在敲VB百例的时候，用过这个控件，今天看到它的时候一点都想不起来它叫什么来着，通过翻阅师姐的博客，才知道原来它就叫做SStab，是部件中的一个控件。 加载： 工程→部件→控件 中勾选“Microsoft Tabbed Dialog Control”控件，点击应用 介绍：SSTab控件提供了一组选项卡，每个都充当一个容
VB使用SSTAB控件需要注意的问题
weixin_30861797的博客
02-22 1268
sstab在切换不同选项卡时，对于不同选项卡内的控件，只是将其移动到看不见的位置，但是如果在代码中移动相关控件，则会将控件重现显示 出现问题：切换不同选项卡，造成不同选项卡内的控件出现重叠 解决办法：1、将控件的位置在设计时固定，避免在代码中修改 转载于:https://www.cnblogs.com/xbj-hyml/p/6429493.html...
SSTAB 增强型控件 专案1
09-05
SSTAB 增强型控件 比 VB 自带的漂亮多了 可以设定多种精美样式
机房收费系统——SSTab
张美红
08-25 1216
做到结账这的时候，第一次遇到的问题是不知道那是
SSTAB完美重绘
10-18
重绘SSTAB的源代码，非常不错，值得研究！
VB SSTab控件使用
09-08
在本篇文章中，我们将深入探讨如何在VB中有效地使用SSTab控件，并通过一个简单的例子程序来阐述其主要功能和用法。 首先，理解SSTab控件的基本属性是至关重要的。SSTab控件具有以下关键属性： 1. TabCount：表示...
SSTab.rar_sst_sstab_sstab控件
09-20
标题中的"SSTab.rar_sst_sstab_sstab控件"提到了一个名为"SSTab"的控件，它是一...提供的压缩包资源对于学习和使用SSTab控件至关重要，它可能包含所有必要的信息和支持材料，帮助开发者快速上手并高效地利用这个工具。
VB选项卡SSTAB属性及参数
09-12
SSTab控件的全称是“Sheet Tab Control”，它在VB6及其之前的版本中被广泛使用。这个控件提供了丰富的属性和参数，以便于开发者自定义其外观和行为。 SSTab属性主要包括以下几个关键部分： 1. **Index**: 这个属性...
SSTAB 增强型控件 方案2
09-05
【SSTAB 增强型控件方案2】是一种针对VB（Visual Basic）开发环境的用户界面增强技术，旨在提供更加美观、功能丰富的多标签控件，...通过学习和实践，开发者不仅可以提升自己的技能，还能为用户提供更优质的使用体验。
机房收费系统之结账（SSTab）
乐于探索,乐于奉献,追求极致,向往生活
10-28 472
本篇博客讲解机房中结账模块，突然释怀了很多，终于要把这个项目搞定了。我们首次面对结账这个名词，不知道各位有没有什么思路？反正当时我就是想着和算钱有关系，无非又是筛选表后进行一系列的计算后显示到控件里面，然后我就去看原程序窗体了； 结果映入我们眼帘的是这个东东，这又是什么鬼？于是乎自己去搜集资料，需要了解并且使用这个控件；      含义：SSTab 控件提供了一组选项卡，每个选项卡都可
VB TreeView1+SSTab 组合用法。
dmyc12219的博客
12-08 450
使用最简单的控件，做出树型菜单与多标签互动。所有加载,关闭，的子窗子。均只使用了SetCapture，SendMessage 等一些常用操作窗体的API 下面我们来讲讲，具体如何实现！.. 实现以上框架用到了一位大牛的无注册DLL和网上流传的子类化SSTAB子类化模块！ 首先我们来讲讲，无需注册的DLL文件，一直以为VB都被认为是无法做出无需注册的DLL文件，但是通过修...
问题一 如何添加SSTab控件
凤凰涅槃
07-15 4839
在敲机房添加结账窗体的时候，遇到了这样的问题，看到机房管理原资料里面控件的时候，我就想知道（如下图）是什么东东 ，因为自己之前敲学生的时候就遇到过这样的问题，自己不知道还胡诌乱编一些控件来，以至于引起一些”笑话”来，有了上次的教训，这次自己还是先问问其他小伙伴吧，问如霜她告诉我是一个SSTab控件，自己又看了看金金的CSDN，于是自己开始捣鼓了。 问题：它是什么？ 它是SSTab控件，
sstab点击事件代码
最新发布
06-01
sstab是VB中的一个常用控件，用于创建多个选项卡，每个选项卡可以...它通过Index参数获取当前点击的选项卡的索引值，并使用sstab1.Tabs(Index).Caption获取该选项卡的名称。最后，它通过MsgBox函数将该名称显示出来。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 5
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

张_Laura

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值