精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>数据库技术>>Re:怎样用程序改变Oracle中某个用户的用户名/密码

主题:Re:怎样用程序改变Oracle中某个用户的用户名/密码
发信人: 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;


----
问彩云何处飞,愿成风永追随。
有奇缘能相聚,死也无悔。
我柔情深似海,你痴心可问天。
誓相守长缱绻,岁岁年年。

[关闭][返回]