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【什么意思?】
3 回答

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

慕尼黑8549860
TA贡献1579条经验 获得超11个赞
这是一段输入密码打开文件或窗体的程序!
如果输入的文字(不论大小写),和原有的密码(无论大小写)相一致的话,就会打开名字为“Me”的文件或者窗体!
如果不相符,就会弹出一个对话框,提示你“密码不正确”
这里面有几个VB函数:UCase函数,ULoad函数,MsgBox函数,集体你自己查询了解一下!
希望你能明白!
添加回答
举报
0/150
提交
取消