VB机房收费系统08——结账

前言

结账对于笔者也是一块新知识，首先是这个控件，他显示信息是什么原理，我就看了好多博客......

正文

如图，中间的控件叫做SSTab。 SSTab控件提供了一组选项卡，每个都充当一个容器，包含了其他的控件。

本窗体的运行原理是当我们选择操作员用户名后，显示操作员真实姓名。显示此人的工作记录在下面五个栏目中：购卡、充值、退卡、临时用户、汇总。

这里有个重点，计算总的售卡数，总的收款金额。我们计算时需要用到Val函数，把字符串型的代码转换成数值型。

代码实现全过程如下：

Private Sub comboid_Click()
'购卡
    Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset

'查找管理员

    txtsql = "select * from User_Info where userID&#