如下内容 ,请问是什么意思?求解释

Private Sub Command1_Click()
If UCase(Text3.Text) = UCase(Data1.Recordset.Fields(2)) Then
czyxm = Data1.Recordset.Fields("czyxm")
Unload Me
Form1.Show
Else
msg = MsgBox("密码不正确!", 0 + 16, "警告")
End If
End Sub【什么意思?】

守着一只汪
浏览 122回答 3
3回答

森栏

意思就是:单击按钮command1(可能是登陆按钮吧)然后开始验证用户(可能是操作员)密码(就是text3.text),把text3.text先转为大写再与数据库中的第二个字段相比对,如果密码正确就将这个字段中的值(估计是操作员姓名)保存到变量czyxm中供以后使用,如果不正确就提示“密码不正确!”。

PIPIONE

就是 核对密码!如果输入的密码正确,就关闭 密码输入窗口,显示主窗口否则 一直显示 密码输入窗口

慕尼黑8549860

这是一段输入密码打开文件或窗体的程序!如果输入的文字(不论大小写),和原有的密码(无论大小写)相一致的话,就会打开名字为“Me”的文件或者窗体!如果不相符,就会弹出一个对话框,提示你“密码不正确”这里面有几个VB函数:UCase函数,ULoad函数,MsgBox函数,集体你自己查询了解一下!希望你能明白!
打开App,查看更多内容
随时随地看视频慕课网APP