怎么样用delphi新建一个sqlserver2000数据库的用户，并设定他的密码，如果可能的话还设定他的权限。

Question

谢谢：）

Answer 1

EXEC sp_addlogin 'username', 'password', 'database'

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  strSql:String;
begin
  strSql:='sp_addlogin ''';
  strSql:=strSql+UserEdit.Text+''',''';  //用户名
  strSql:=strSql+PassEdit.Text+''',''';  //密码
  strSql:=strSql+DBEdit.Text+'''';   //默认数据库
  if not ADOConnection1.Connected then
     ADOConnection1.Connected:=true;
  try
     ADOConnection1.Execute(strSql);  //执行
     showmessage('ok');
  except
     Showmessage('Error')
  end;
end;

Answer 3

继续...在上面的例子中，演示了如何建立SQL Server系统的登录用户
下面，我们将该用户'user0'变成数据库XXX的合法用户，可以换个名字叫'dbuser'，并把他加到public角色中...
strSql:='sp_adduser ''user0'',''dbuser'',''XXX''';
...
ADOConnection1.Execute(strSql);
...如果要授权限，则可以如下使用：...
strSql:='grant select on <YourTable> to dbuser';
...