学生优化（二）——密码框不可输入空格、查询学籍信息窗体添加提示框、下拉框只能选择不可输入

快来打我* 2021-09-23 15:04 326阅读 0赞

## 一、密码框不可输入空格 ##

***1.***首先先去数据库将user PWD列的数据类型改为varchar(20)，这样做的目的是将密码的后面的空格去掉。假如说不改数据类型，用户名与密码都是9的情况下，登录的时候“9+空格”    也可以登陆成功。

***2.***限制字符（字数、空格。我的理解密码可以是特殊字符，可以增强安全性。）

Private Sub txtPassword2_KeyPress(KeyAscii As Integer)
          
        '限制字数
        If Len(txtPassword2.Text) > 10 Then
            KeyAscii = 0
            MsgBox "字数超出 ", 64, "温馨提示："
            txtPassword2.Text = ""
        End If
        
         '限制不可输入空格
        If KeyAscii = 32 Then
            KeyAscii = 0
            MsgBox "密码不可为空格 ", 64, "温馨提示："
            txtPassword2.Text = ""
        End If
       
    End Sub

***3.***清空剪切板（当然也可以禁用右键，但是我总感觉得不偿失）

Private Sub txtPassword1_KeyDown(KeyCode As Integer, Shift As Integer)
    
        If Shift = 2 And KeyCode = vbKeyV Then  '如果是Ctrl+V，清空剪贴板
    
            Clipboard.Clear
    
        End If
    
    End Sub
    
    Private Sub txtPassword1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
        If Button = 2 Then      '如果是右键，清空剪贴板
    
            Clipboard.Clear
    
        End If
    
    End Sub

## 二、查询学籍信息添加提示框 ##

这个小功能很简单，添加一个Label就行。

当窗体加载的时候

Label1.Caption = "等待查询"

当点击查询按钮的时候

Label1.Caption = "查询到" & mrc.RecordCount & "条记录"

## 三、下拉框只能选择不可输入 ##

我用的方法相当简单，一句代码即可：

Private Sub comOperator1_KeyPress(KeyAscii As Integer)
        KeyAscii = 0
    End Sub