用存储过程如何实现： 新建一个登陆用户name：是pwd：123 同时服务器角色为：system administrators ..... 数据库访问：master，model，msdb........... ？？？？谢谢大虾。

Hi, 利用 sql 指令即可順利達成, 如 EXEC sp_addlogin 't2', 't2pwd' EXEC sp_addsrvrolemember 't2', 'sysadmin'

剛好我才寫完同樣的功能，請笑納！參考參考吧！ 加入使用者及各TABLE權限 ---------------------------- with SystemGateWayDataModule do begin try AsistADOConnection.Connected := true; try AsistADOCommand.Parameters.Clear; AsistADOCommand.CommandType := cmdStoredProc; AsistADOCommand.CommandText := 'sp_addlogin'; AsistADOCommand.Parameters.CreateParameter( '@loginame',ftString,pdInput,30,AccountLabeledEdit.Text); AsistADOCommand.Parameters.CreateParameter( '@passwd',ftString,pdInput,30,PasswordLabeledEdit.Text); AsistADOCommand.Parameters.CreateParameter( '@defdb',ftString,pdInput,30,'SystemGateWay'); AsistADOCommand.Prepared := true; AsistADOCommand.Execute; except MessageBox(GetActiveWindow(),'新增使用者發生錯誤！','資料庫錯誤',MB_OK or MB_ICONERROR); end; finally AsistADOConnection.Connected := false; end; end; with SystemGateWayDataModule do begin try AsistADOConnection.Connected := true; try AsistADOCommand.Parameters.Clear; AsistADOCommand.CommandType := cmdStoredProc; AsistADOCommand.CommandText := 'sp_grantdbaccess'; AsistADOCommand.Parameters.CreateParameter( '@loginame',ftString,pdInput,30,AccountLabeledEdit.Text); AsistADOCommand.Parameters.CreateParameter( '@name_in_db',ftString,pdInput,30,AccountLabeledEdit.Text); AsistADOCommand.Prepared := true; AsistADOCommand.Execute; AsistADOCommand.CommandType := cmdText; AsistADOCommand.CommandText := 'GRANT ALL ON PermissionTable TO ' AccountLabeledEdit.Text; AsistADOCommand.Execute; AsistADOCommand.CommandType := cmdText; AsistADOCommand.CommandText := 'GRANT ALL ON SystemInfo TO ' AccountLabeledEdit.Text; AsistADOCommand.Execute; AsistADOCommand.CommandType := cmdText; AsistADOCommand.CommandText := 'GRANT ALL ON UserAccount TO ' AccountLabeledEdit.Text; AsistADOCommand.Execute; except MessageBox(GetActiveWindow(),'新增使用者權限發生錯誤！','權限錯誤',MB_OK or MB_ICONERROR); end; finally AsistADOConnection.Connected := false; end; end; 修改使用者密碼 ---------------------------- with SystemGateWayDataModule do begin try AsistADOConnection.Connected := true; try AsistADOCommand.Parameters.Clear; AsistADOCommand.CommandType := cmdStoredProc; AsistADOCommand.CommandText := 'sp_password'; AsistADOCommand.Parameters.CreateParameter( '@old',ftString,pdInput,30,OldPassword); AsistADOCommand.Parameters.CreateParameter( '@new',ftString,pdInput,30,PasswordLabeledEdit.Text); AsistADOCommand.Parameters.CreateParameter( '@loginame',ftString,pdInput,30,AccountLabeledEdit.Text); AsistADOCommand.Prepared := true; AsistADOCommand.Execute; except MessageBox(GetActiveWindow(),'修改資料發生錯誤！','資料庫錯誤',MB_OK or MB_ICONERROR); end; finally AsistADOConnection.Connected := false; end; end; 刪除使用者帳號 ---------------------------- with SystemGateWayDataModule do begin try AsistADOConnection.Connected := true; try AsistADOCommand.Parameters.Clear; AsistADOCommand.CommandType := cmdStoredProc; AsistADOCommand.CommandText := 'sp_revokedbaccess'; AsistADOCommand.Parameters.CreateParameter( '@name_in_db',ftString,pdInput,30,Account); AsistADOCommand.Prepared := true; AsistADOCommand.Execute; AsistADOCommand.Parameters.Clear; AsistADOCommand.CommandType := cmdStoredProc; AsistADOCommand.CommandText := 'sp_droplogin'; AsistADOCommand.Parameters.CreateParameter( '@loginame',ftString,pdInput,30,Account); AsistADOCommand.Prepared := true; AsistADOCommand.Execute; except MessageBox(GetActiveWindow(),'刪除資料發生錯誤！','資料庫錯誤',MB_OK or MB_ICONERROR); end; finally AsistADOConnection.Connected := false; end; end; ----------------------------------------------- Creation is the fundation of promotion. 發表人 - stallion 於 2005/05/10 20:12:19