String ls_xm,ls_inkl,ls_ykl //定义变量ls_xm,ls_inkl,ls_ykl
String ls_bm,ls_lt,ls_js,ls_tj //定义变量ls_bm,ls_lt,ls_js,ls_tj
ls_xm=ddlb_user.Text //用户名 ,ls_xm读取ddlb_user中的值
ls_inkl=sle_pwd.Text //口令 ,ls_inkl读取sle_pwd中的值
IF ls_xm'' THEN ,
//取出原口令
SELECT m_password
INTO :ls_ykl
FROM member
WHERE m_name=:ls_xm; //如果ddlb_user中不为空,读取数据库中列m_name值等于ddlb_user中值的一行中列m_password 的值,并赋值给变量ls_ykl
IF ls_inklls_ykl THEN
IF ii_time=3 THEN
MessageBox('登录错误','对不起,你无权使用本系统!',Exclamation!)
HALT CLOSE
ELSE
ii_time++
END IF
MessageBox('口令错','请输入正确的口令',Exclamation!)
sle_pwd.SetFocus() //sle_pwd获得焦点
ELSE ////如果输入的密码与数据库中的不相符,弹出警告窗口MessageBox('口令错','请输入正确的口令',Exclamation!) ,三次后弹出警告窗口MessageBox('登录错误','对不起,你无权使用本系统!',Exclamation!) ,并关闭登录窗口
gs_xm=ls_xm
gs_password=ls_inkl
ib_exit=TRUE
CLOSE(Parent)
END IF
ELSE
MessageBox('用户名错','请选择您的用户名',Exclamation!)
ddlb_user.SetFocus()
END IF //数据库中没有所添的用户名,提示MessageBox('用户名错','请选择您的用户名',Exclamation!)
每一行程序的意思已在程序后表明,只不过是一个登录窗口的代码.根据数据库中的内容,判断用户名,密码是否正确!