这个pb代码是啥意思啊

来源：百度知道 编辑：UC知道 时间：2024/06/04 08:27:33
String ls_xm,ls_inkl,ls_ykl
String ls_bm,ls_lt,ls_js,ls_tj

ls_xm=ddlb_user.Text //用户名
ls_inkl=sle_pwd.Text //口令

IF ls_xm<>'' THEN
//取出原口令
SELECT m_password
INTO :ls_ykl
FROM member
WHERE m_name=:ls_xm;

IF ls_inkl<>ls_ykl THEN
IF ii_time=3 THEN
MessageBox('登录错误','对不起，你无权使用本系统!',Exclamation!)
HALT CLOSE
ELSE
ii_time++
END IF
MessageBox('口令错','请输入正确的口令',Exclamation!)
sle_pwd.SetFocus()
ELSE
gs_xm=ls_xm
gs_password=ls_inkl
ib_exit=TRUE
CLOSE(Parent)
END IF
ELSE
MessageBox('用户名错','请选择您的用户名',Exclamation!)
ddlb_user.SetFocus()
END IF
谁帮我看看是什么意思

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_inkl<>ls_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