这个pb代码是啥意思啊

发布网友 发布时间：2024-10-03 03:20

我来回答

共4个回答

热心网友 时间：2024-11-02 01:13

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
CLOSE(Parent)
END IF
ELSE
MessageBox('用户名错','请选择您的用户名',Exclamation!)
ddlb_user.SetFocus()
END IF //数据库中没有所添的用户名，提示MessageBox('用户名错','请选择您的用户名',Exclamation!)

每一行程序的意思已在程序后表明，只不过是一个登录窗口的代码。根据数据库中的内容，判断用户名，密码是否正确！

热心网友 时间：2024-11-02 01:13

ssdsds

热心网友 时间：2024-11-02 01:14

书上有

热心网友 时间：2024-11-02 01:14

这不就是一个用户登陆时判断密码吗？