等级:业余侠客 财产: 经验: 魅力: 注册:2007-3-12 文章:38 鉴定:保密
| |
| string s_getpwd,s_id,s_pwd if sle_1.text="" then MessageBox("出错","请输入用户名!") elseif sle_2.text="" then MessageBox("出错","请输入密码!") end if s_id=trim(sle_1.text) select scode.sid,scode.swd into :s_id , :s_pwd from scode where (scode.sid=:s_id); if sqlca.sqlcode<>0 then messageBox("出错","此用户不存在!") sle_1.text="" sle_2.text="" sle_1.setfocus() elseif s_id=sle_1.text and s_pwd=sle_2.text then //messagebox("提示信息","OKKKK") open(w_index) else messagebox("提示信息","用户名或密码不正确") end if 这样行吗?从表儿里取两个字段,into两个变量! | |
|