【机房收费系统】选择性查询数据库 及 限制特殊字符的输入

                      1、 在填work_log 表的时候，上机的时候方便，但下机就有些复杂了，因为表里面的是所有的信息，所以我需要把最近上机的userid挑出来，所以有了一下代码：

              

<span style="font-size:24px;">        txtSQL = "select top 1 * from worklog_info where userid='" & Trim(a) & "' order by serial DESC"    'DESC是从大到小排列出来，top 1 ,选出第一个userid=a的人
        Set mrc = ExecuteSQL(txtSQL, msgText)
        
        mrc.Fields(5) = Date
        mrc.Fields(6) = Time
        mrc.Update
        mrc.Close</span>

        这样就选出来自己需要的那行代码！

                  另外，要挑选出一个总和型的数据，代码如下（把sum放在  sum_info 里面）

         

 txtSQL = "select sum(consume) as sum_info from line_info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    
    mrc.Fields(2) = mrc.Fields(0)
    mrc.Close

           

           2、限制text框中的内容：

                

Private Sub Text1_KeyPress(KeyAscii As Integer)
        Select Case KeyAscii
        Case 48 To 57         '只能输入数字
        Case 65 To 90         '只能输入大写字母
        Case 97 To 122        '只能输入小写字母
        Case 8                '只能输入退格
        Case Else             '否则
            KeyAscii = 0      '输入无效
    End Select
        
  
    
End Sub