Add a user into a database in Sql Server

Delphi/Pascal

procedure TForm1.Button1Click(Sender: TObject); begin ADOCommand1.CommandText := 'Use DataBaseName'; ADOCommand1.Execute; ADOCommand1.CommandText := 'Exec SP_AddUser ' + QuotedStr('Username'); ADOCommand1.Execute; end;

1 2 3 4 5 6 7

procedure TForm1.Button1Click(Sender: TObject); begin ADOCommand1.CommandText := 'Use DataBaseName'; ADOCommand1.Execute; ADOCommand1.CommandText := 'Exec SP_AddUser ' + QuotedStr('Username'); ADOCommand1.Execute; end;