发信人: lihai155(天琴)
整理人: teleme(2001-02-05 11:26:46), 站内信件
|
【 在 xmzw 的大作中提到:】
:同上
:......
//修改用户名和密码:
qryUser:=TQuery.Create(Self);
qryUser.Close;
qryUser.SQL.Clear;
qryUser.SQL.Add('alter user "'+username+'" identified by "'+passwd+'"');
try
qryUser.ExecSQL;
qryUser.Close;
Except
on EDatabaseError do
showmessage('修改用户时出错!');
end;
//创建用户:
qryUser.Close;
qryUser.SQL.Clear;
qryUser.SQL.Add('create user "'+username+'" identified by "'+passwd+
'" default tablespace "TblSpsName" temporary tablespace '+
'"TblSpsName" profile default account unlock');
try
qryUser.ExecSQL;
qryUser.Close;
qryUser.SQL.Clear;
qryUser.SQL.Add('grant "CONNECT" to "'+username+'"');
qryUser.ExecSQL;
qryUser.Close;
qryUser.SQL.Clear;
qryUser.SQL.Add('grant select on "DBName"."TblName" to "'+username+'"'); //可以使用多次来对不同的表赋权
qryUser.ExecSQL;
qryUser.Close;
qryUser.SQL.Clear;
qryUser.SQL.Add('Alter user "'+username+'" default role all');
qryUser.ExecSQL;
qryUser.Close;
Except
on EDatabaseError do
showmessage('用户名已存在,请修改用户名!');
end;
//删除用户:
qryUser.Close;
qryUser.SQL.Clear;
qryUser.SQL.Add('drop user "'+username+'"');
try
qryUser.ExecSQL;
qryUser.Close;
Except
on EDatabaseError do
showmessage('删除用户名时出错!');
end;
---- 问彩云何处飞,愿成风永追随。
有奇缘能相聚,死也无悔。
我柔情深似海,你痴心可问天。
誓相守长缱绻,岁岁年年。 |
|