机房收费系统之结账

结账的内容，就是上面这个图。首先你要选择操作员用户名，然后就根据用户名 去找到对应的真是姓名和级别。

在而找到他给别人开卡的时间，以及充值记录，和退卡情况，最后就是结账。  这些内容都必须是 管理员控制的， 其他人没有权限。其中用到了 SStab 控件。

 

代码展示部分

 If TxtCZ.Text = "0" Or TxtXJ.Text = "0" Then
          MsgBox "没有账目，无法结账", , "提示"
          Exit Sub
   End If
     
     
     
     
         
        Dim txtsql As String
        Dim Msgtext As String
        Dim Cmrc As ADODB.Recordset       '退卡表
        Dim Rmrc As ADODB.Recordset       '充值表
        Dim Smrc As ADODB.Recordset       '学生表
        
        txtsql = "select * from CancelCard_Info where userid='" & comboUserID.Text & "'" & "and ischeck='未结账'"
                                                              
        Set Cmrc = ExecuteSQL(txtsql, Msgtext)
          
             Do While Not Cmrc.EOF
             
              Cmrc.Fields(7) = "结账"
              Cmrc.MoveNext
            Loop
            
             
            Cmrc.Close
            
           
          txtsql = "select * from recharge_info where userid='" & comboUserID.Text & "'" & "and source='未结账'"
          Set Rmrc = ExecuteSQL(txtsql, Msgtext)
          
           Do While Not Rmrc.EOF
          Rmrc.Fields(9) = "结账"
          Rmrc.MoveNext
            Loop
            
        
          Rmrc.Close
         
          txtsql = "select * from student_info where userid='" & comboUserID.Text & "'" & "and ischeck='未结账'"
          Set Smrc = ExecuteSQL(txtsql, Msgtext)
          
          
          Do While Not Smrc.EOF
          Smrc.Fields(11) = "结账"
          Smrc.MoveNext
            Loop
          
            
          Smrc.Close
 
    MsgBox "结账成功", , "提示"
        
          If TxtCZ.Text = "0" Or TxtXJ.Text = "0" Then
          MsgBox "没有账目，无法结账", , "提示"
           
             
          End If