Add a User’s Login in Sql Server

Delphi/Pascal

procedure TForm1.Button1Click(Sender: TObject); begin ADOConnection1.Connected := True; ADOCommand1.CommandText := 'Exec SP_AddLogin ' + QuotedStr('UserName') + ',' + QuotedStr('Password') + ',' + QuotedStr('Database Name') + ',' + QuotedStr('English') + ';'; ADOCommand1.Execute; end;

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); begin ADOConnection1.Connected := True; ADOCommand1.CommandText := 'Exec SP_AddLogin ' + QuotedStr('UserName') + ',' + QuotedStr('Password') + ',' + QuotedStr('Database Name') + ',' + QuotedStr('English') + ';'; ADOCommand1.Execute; end;