【机房】上机

机房收费系统的两个主要功能之一是上机

确定卡号是否存在

    '连接student表查看卡号是否存在
    txtSQL = "select * from student_info where cardno='" & Trim(txtCardNo.Text) & "'"
    Set mrcStu = ExecuteSQL(txtSQL, MsgText)

    If mrcStu.EOF = True Then
        MsgBox "该卡号不存在，请先去注册！", 64, "温馨提示"
        txtCardNo.Text = ""
        txtCardNo.SetFocus
        Exit Sub
    End If

  

 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
 

确定卡内余额是否大于最小金额

 '连接Basicdata表判断卡内余额是否大于最小金额
    txtSQL = "select * from BasicData_info"
    Set mrcdata = ExecuteSQL(txtSQL, MsgText)

    If Val(mrcStu.Fields(7)) < Val(mrcdata.Fields(5)) Then
        MsgBox "卡内余额不足，请先去充值！", 64, "温馨提示"
        txtCardNo.Text = ""
        txtCardNo.SetFocus
        Exit Sub
    End If

  

 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
 

判断该卡号是否已经上机，若没有上机就要将上机记录登记到online表中。
然后将学生表中的数据展示出来

If mrcOnLine.EOF = False Then
        MsgBox "该卡已经上机！", 64, "温馨提示"
        txtCardNo.Text = ""
        txtCardNo.SetFocus
    Else

        '将数据写入Online表
        mrcOnLine.AddNew
        mrcOnLine.Fields(0) = mrcStu.Fields(0)    '卡号
        mrcOnLine.Fields(1) = mrcStu.Fields(14)    '用户类型
        mrcOnLine.Fields(2) = mrcStu.Fields(1)    '学号
        mrcOnLine.Fields(3) = mrcStu.Fields(2)    '姓名
        mrcOnLine.Fields(4) = mrcStu.Fields(4)    '系别
        mrcOnLine.Fields(5) = mrcStu.Fields(3)    '性别
        mrcOnLine.Fields(6) = Date   '上线日期
        mrcOnLine.Fields(7) = Time   '上线时间
        mrcOnLine.Fields(8) = Trim(VBA.Environ("computername"))   '电脑名称
        mrcOnLine.Fields(9) = Date + Time '日期和时间
        
		txtSQL = "select * from line_info"
        Set mrcLine = ExecuteSQL(txtSQL, MsgText)

        '将student表内的数据展示出来
        txtType.Text = Trim(mrcStu.Fields(14))   '类型
        txtSID.Text = Trim(mrcStu.Fields(1))    '学号
        txtName.Text = Trim(mrcStu.Fields(2))       '姓名
        txtDept.Text = Trim(mrcStu.Fields(4))       '系别
        txtSex.Text = Trim(mrcStu.Fields(3))    '性别
        lblOnDate.Text = Date        '上机日期
        lblontime.Text = Time        '上机时间
        lblBaLance.Text = Trim(mrcStu.Fields(7))    '余额
        MsgBox "上机成功", 64, "温馨提示"
        
         Call lblPeople_Click

        mrcdata.Close
        mrcStu.Close
        mrcOnLine.Update
        mrcOnLine.Close
        mrcLine.Update
        mrcLine.Close

    End If

End Sub


  

 

  
 
 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
 

上面的代码中有一条调用，调用lblpeople的点击事件，也就是为了更新正在上机人数。

'定义lblpeople
Private Sub lblPeople_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrcOnLine As ADODB.Recordset
    
    txtSQL = "select * from online_info "
    
    Set mrcOnLine = ExecuteSQL(txtSQL, MsgText)
    
         lblPeople.Caption = mrcOnLine.RecordCount  '显示上机人数
        
    mrcOnLine.Close
    
End Sub

  

 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
 

上机需要注意的是会用到多个数据表，要理清楚逻辑，然后后进行调用。

文章来源: blog.csdn.net，作者：张艳伟_Laura，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/Laura__zhang/article/details/107485267