博客
关于我
学生优化(二)——密码框不可输入空格、查询学籍信息窗体添加提示框、下拉框只能选择不可输入
阅读量:607 次
发布时间:2019-03-12

本文共 1122 字,大约阅读时间需要 3 分钟。

一、密码框不可输入空格

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 IfEnd SubPrivate Sub txtPassword1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    If Button = 2 Then      '如果是右键,清空剪贴板        Clipboard.Clear    End IfEnd Sub

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

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

当窗体加载的时候

Label1.Caption = "等待查询"

当点击查询按钮的时候

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

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

我用的方法相当简单,一句代码即可:

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

转载地址:http://cqmxz.baihongyu.com/

你可能感兴趣的文章
MAC M1大数据0-1成神篇-25 hadoop高可用搭建
查看>>
mac mysql 进程_Mac平台下启动MySQL到完全终止MySQL----终端八步走
查看>>
Mac OS 12.0.1 如何安装柯美287打印机驱动,刷卡打印
查看>>
MangoDB4.0版本的安装与配置
查看>>
Manjaro 24.1 “Xahea” 发布!具有 KDE Plasma 6.1.5、GNOME 46 和最新的内核增强功能
查看>>
mapping文件目录生成修改
查看>>
MapReduce程序依赖的jar包
查看>>
mariadb multi-source replication(mariadb多主复制)
查看>>
MariaDB的简单使用
查看>>
MaterialForm对tab页进行隐藏
查看>>
Member var and Static var.
查看>>
memcached高速缓存学习笔记001---memcached介绍和安装以及基本使用
查看>>
memcached高速缓存学习笔记003---利用JAVA程序操作memcached crud操作
查看>>
Memcached:Node.js 高性能缓存解决方案
查看>>
memcache、redis原理对比
查看>>
memset初始化高维数组为-1/0
查看>>
Metasploit CGI网关接口渗透测试实战
查看>>
Metasploit Web服务器渗透测试实战
查看>>
MFC模态对话框和非模态对话框
查看>>
Moment.js常见用法总结
查看>>