各位大侠,我是个新手!现在要写一个小程序,要求一个登陆系统,要调用数据库中的用户名和密码!而且还能添加新的用户。要有说明啊,控件最好不要改名字,顺便写出用到的控件和代码!谢谢拉!!!!
參考答案:怎样做登陆系统
创建两个textbox和commandbutton控件
分别为 txtuser txtpwd cmdlogin cmdexit
其中 txtpwd的passwordchar 设为 *
实例代码
optional explicit
dim lngcount as long
private sub form_load()
lngcount=2
end sub
private sub cmdexit()
end
end sub
private sub cmdlogin()
if txtuser.txt="zh" and txtpwd.txt="12345" then
form2.show form2为主界面窗口
unload me
else
lngcount=lngcount-1
if lngcount<>0 then
msgbox "用户名密码没有填写或输入错误 共给2次机会 还剩" & lngcount & "次",16+vbokonly,"输入错误"
else
msgbox "已超过最大错误次数 程序即将退出.",16 + vbokonly,"输入错误"
end
end if
end if
end sub