先说一句其实一般的登录都是用户编号+密码。 因为编号是主键唯一好区分.名字重名了就不好分辨.按照你所给的资料 可以这样编写. (双击cb_1按钮)
在cb_1的clicked事件中编写 如下代码:
string ls_name,ls_pwd ,ls_pwd_yz
long ll_con
ls_name = sle_2.text
ls_pwd = sle_3.text
if trim(ls_name) = '' or isnull(ls_name) then
messagebox("系统提示",“用户名不能为空!”)
return
end if
if trim(ls_pwd ) = '' or isnull(ls_pwd ) then
messagebox("系统提示",“用户密码不能为空!”)
return
end if
select count(*) into:ll_con from 这里填写你的表名 where adminUsername =:ls_name;//最后的分号不能忘
if ll_con = 0 then
messagebox("系统提示",“不存在此用户,请重新输入!”)
sle_2.text = ''
sle_2.setfocus()
return
end if
select adminPassword into:ls_pwd_yz from 这里填写你的表名字 where adminUsername = :ls_name;
if ls_pwd <>ls_pwd_yz then
messagebox("系统提示","您输入的密码不正确,请确认后重试!")
renturn
end if
messagebox("系统提示","欢迎登录本系统!")
cb_2的clicked事件中编写:
close(parent)
因为是我自己手写 加上pb的规范 可能会有误差. 可以及时联系我 我帮你改正
温馨提示:内容为网友见解,仅供参考