这个pb代码是啥意思啊
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/05/02 09:00:54
这个pb代码是啥意思啊
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_inklls_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
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_inklls_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_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!)
每一行程序的意思已在程序后表明,只不过是一个登录窗口的代码.根据数据库中的内容,判断用户名,密码是否正确!
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!)
每一行程序的意思已在程序后表明,只不过是一个登录窗口的代码.根据数据库中的内容,判断用户名,密码是否正确!
这个pb代码是啥意思啊
这几句代码什么意思啊?
代码这个代码什么意思了?2又是什么意思?急,不好意思
这个matlab代码运行错误啊 ,
请部一下这段代码是什么意思 比如说这个serveraddr.sin_family 中间那个点儿是分开两边的意思?
数字代码 512表示啥意思?
PB、PE什么意思啊?
请教这段代码是啥意思,关于 button(text:"",actionPerformed:{this.rim=mcda.
下面这段代码什么意思,主要是后面条件
manchester代码什么意思?
台语的拼音代码是啥
这个什么情况!什么蓝屏重启的麻烦不要来说!STOP 后面那个代码在变,我就想问下 最下面那几个是神马意思!麻