PB应用的数据库联接的安全防范[2]

控件名称 控件属性

sle_server SingleLineEdit

sle_login SingleLineEdit

sle_oldkl SingleLineEdit

sle_pass SingleLineEdit

sle_repass SingleLineEdit

cb_ mandbutton

cb_ mandbutton

cb_ 命令按钮的clicked事件如下

string ls_inifile ls_pass ls_logid ls_repass ls_old

string ls_k ls_user ls_sql

ls_inifile = rsgl ini

transaction pub_tr

pub_tr = create transaction

pub_tr DBMS = ProfileString （ls_inifile database dbms ）

pub_tr LogPass = pub

pub_tr ServerName = sle_server text

pub_tr LogId = pub

pub_tr AutoCommit = False

pub_tr DBParm =

connect using pub_tr;

ls_old = sle_oldkl text

ls_user = lower（trim（sle_logid text））

//得到数据库联接原用户口令

select passshadow into :ls_k from tbl_pub_passshadow using pub_tr;

if ls_old <> f_password（ls_k ） then

messagebox（ 提示 原口令不对！ ）

return

end if

//检查核对口令

ls_pass = sle_pass text

ls_repass = sle_repass text

if ls_repass <> ls_pass then

messagebox（ 核对口令不对 请重新输入！ ）

return

end if

SetProfileString（ls_inifile Database Servername sle_server text）

SetProfileString（ls_inifile Database Logid ls_user）

//修改数据库用户的联接口令

ls_sql = alter user +ls_user+ identified by +ls_pass

Execute Immediate :ls_sql using sqlca;

ls_pass = f_password（ls_pass ）

UPDATE TBL_PUB_PASSSHADOW SET PASSSHADOW =:ls_pass using pub_tr ;

mit using pub_tr;

mit using sqlca;

disconnect using pub_tr;

close（parent）

cb_ 命令按钮的clicked事件如下 close（parent）

到此万事OK

所有代码已在Win 环境下 用PowerBuilder 测试通过

      编辑推荐

       ASP NET开发培训视频教程

       Microsoft NET框架程序设计视频教程

lishixinzhi/Article/program/PB/201311/24611

SQLCADBMS = "MSS Microsoft SQL Server" //默认不能变

SQLCADatabase = dataname //数据库名，用引号

SQLCAServerName = servername //服务器名

SQLCALogId = "sa" //SQL登录用户名

SQLCAAutoCommit =

SQLCADBParm = ""

connect using 事务对象; //连接数据库语句断开用：DISCONNECT USING 事务对象

PowerBuilder80动态连接SQL Server技巧

首先，创建一个connectini文件，其内容为： [Database]

DBMS=MSSQL SQL Server 2000

Database=erpUserId=saDatabasePassword=LogId=saLogPassword=

ServerName=familyDbParm=Lock=Prompt=0其中：erp指您要连接的数据库名称；SA是数据库连接ID，Family是指您要连接的数据库的计算机名称，也可以用IP地址来代替。接下来，我们就在系统应用的Open事件中进行编码： string ls_inifile ="connectini"

//进行数据库连接------------------------------------------------

sqlcaDBMS = ProfileString ("dbconnectINI", "database", "dbms", "")

sqlcadatabase = ProfileString ("dbconnectINI", "database", "database", "")

sqlcalogid = ProfileString ("dbconnectINI", "database", "logid", "")

sqlcalogpass = ProfileString ("dbconnectINI", "database", "LogPassWord","")

sqlcaservername=ProfileString("dbconnectINI","database", "servername", "")

sqlcadbparm = ProfileString ("dbconnectINI", "database", "dbparm", "")

sqlcaautocommit=true;

connect using sqlca

Messagebox（"错误","不能连接到数据库！请检查数据库连接或者ini配置"）elseend if

以上就是关于PB应用的数据库联接的安全防范[2]全部的内容，包括:PB应用的数据库联接的安全防范[2]、谁知道PB如何连接 SQL数据库、[求助]pb中如何连接sql的数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！