【PB登陆的实现】

最新推荐文章于 2020-09-19 12:56:42 发布

小菇娘の当自强

最新推荐文章于 2020-09-19 12:56:42 发布

阅读量2.1k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： ———【PB】

本文链接：https://blog.youkuaiyun.com/DJuan15732626157/article/details/78077434

———【PB】专栏收录该内容

0 篇文章

订阅专栏

本文介绍如何使用PowerScript语言实现程序的登录功能。通过下拉框加载数据库中的用户，并验证用户名和密码。文章提供了完整的代码示例及登录界面的展示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

前言:

为什么开始了这篇博客呢,因为毕业设计需要使用PowerScript语言做一个小系统,生活在于不断学习,今天博客的主题是使用PowerScript语言实现程序的登录功能,欢迎各位读者给出建议!

核心:

效果图:

首先看一眼我登录页面的效果:

该页面采取的是加载数据库中的用户,所以采取下拉框的方式,下面显示了当前登录的日期.

代码实现:

string  ls_user_name
string ls_password
long ll_count
//鼠标焦点放到ddlb_1:用户名的文本框中
ddlb_1.setfocus()

//将文本框的值赋给变量
ls_user_name=trim(ddlb_1.text)
ls_password=trim(sle_password.text)

//判空
If ls_user_name= ' ' or isnull(ls_user_name) then 
	messagebox('提示','请输入用户编号!')
		return
	end if	
If ls_password= ' ' or isnull(ls_password) then 
	messagebox('提示','请输入用户密码!')
	return
end if
	sle_password.setfocus()

//判断用户名和密码是否正确
select count(*) into :ll_count from sys_user where username =:ls_user_name and password =:ls_password;
If ll_count<1 then
	messagebox('提示','用户编号或密码错误')
	sle_password.text = ''
	return
end if

//判断用户权限
select userid into :g_user_id from sys_user where username=:ls_user_name;
select flag into :gs_flag from sys_user where userid=:g_user_id;

//设置全局变量
g_username = ls_user_name

//定义变量
string ls_id,ls_max_id,ls_userid,ls_username,ls_login_time

//显示时间
ls_login_time = string(today(),"yyyy-mm-dd hh:mm:ss")

//将用户登录记录插入用户操作日志表中
insert  into log(id,userid,username,login_time)  values (:ls_id,:g_user_id,:g_username,:ls_login_time);
//打开主窗体
open(w_main)

//关闭登录窗体
close(w_login)

总结:

从小小的登录开始入门,学习就是这样的一个过程,接下来继续分享PB的相关内容.