Private Sub Command1_Click()If UCase(Text3.Text) = UCase(Data1.Recordset.Fields(2)) Thenczyxm = Data1.Recordset.Fields("czyxm")Unload MeForm1.ShowElsemsg = MsgBox("密码不正确!", 0 + 16, "警告")End IfEnd Sub【什么意思?】
3 回答
森栏
TA贡献1810条经验 获得超5个赞
意思就是:
单击按钮command1(可能是登陆按钮吧)然后开始验证用户(可能是操作员)密码(就是text3.text),把text3.text先转为大写再与数据库中的第二个字段相比对,如果密码正确就将这个字段中的值(估计是操作员姓名)保存到变量czyxm中供以后使用,如果不正确就提示“密码不正确!”。
慕尼黑8549860
TA贡献1818条经验 获得超11个赞
这是一段输入密码打开文件或窗体的程序!
如果输入的文字(不论大小写),和原有的密码(无论大小写)相一致的话,就会打开名字为“Me”的文件或者窗体!
如果不相符,就会弹出一个对话框,提示你“密码不正确”
这里面有几个VB函数:UCase函数,ULoad函数,MsgBox函数,集体你自己查询了解一下!
希望你能明白!
- 3 回答
- 0 关注
- 159 浏览
添加回答
举报
0/150
提交
取消