知识大全利用PB实现动态系统用户登录

Posted 2022-07-14 知

篇首语：仰天大笑出门去，我辈岂是蓬蒿人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全利用PB实现动态系统用户登录相关的知识，希望对你有一定的参考价值。

利用PB实现动态系统用户登录 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在多用户的大型数据库系统用户对数据库操作权限会有区别因此我们需要设计系统用户登录窗口来完成用户的确认与权限控制通常我们都是在数据库中添加一张人员表保存人员信息登录用户名以及口令但这种方法安全性并不是很高其它我们可以使用该方法登录窗口时需要采用动态生成数据库连接代码然后连接数据库如果用户存在并且录入的口令正确则数据库连接成功这样便可以打开系统主窗口了

　　设计确定按钮Clicked事件的代码如下

　　w_login visible = false

　　//暂时隐藏登录窗口

　　Open（w_wele）

　　//打开欢迎或者数据库连接等待窗口

　　SetPointer（HOURGLASS!）

　　//将光标变成沙漏型

　　string ls_user ls_pass

　　//读取用户录入的用户名与口令

　　ls_user = sle_username text

　　ls_pass = sle_password text

　　//从注册表中读取所有数据库信息并存储在 sqlca 中其中gs_key是你的软件注册位置

　　RegistryGet（gs_ey DBMS RegString! sqlca DBMS）

　　RegistryGet（gs_ey Database RegString! sqlca Database）

　　//生成数据库连接参数除了用户名与口令外其他由系统的需要而定

　　SQLCA DBParm += ;UID= +ls_user+ ;PWD= +ls_pass+&& PBUseProcOwner= Yes

　　ConnectOption= SQL_DRIVER_CONNECT SQL_DRIVER_NOPROMPT

　　CONNECT using sqlca;

　　//连接数据库

　　if sqlca sqlcode<> then

　　//数据库连接失败说明用户录入口令不正确或者不存在该用户

　　close（w_wele）

　　//关闭等待窗口

　　messagebox（登录数据库连接失败！）

　　sle_password text=

　　sle_password setfocus（）

　　success=false

　　w_login visible=true

　　else

　　//数据库连接成功！用户验证正确

　　success=true

　　open（w_main）//进入主窗口

　　close（w_parent）

　　end if

　　使用本方法时对系统的维护（添加删除权限设置等）必须到Sybase Central中进行对系统维护人员有一定要求

编辑推荐

ASP NET开发培训视频教程

cha138/Article/program/PB/201311/24618

知识大全 利用PB实现动态系统用户登录

知识大全利用PB实现动态系统用户登录