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

                      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