www.gusucode.com > 精典源码Delphi130：顺某指纹考勤管理系统 > 精典源码Delphi130：顺某指纹考勤管理系统/11065顺某指纹考勤管理系统delphi/SP_NoMiMa/wbSP_adduser.txt

    
/****** Object:  Stored Procedure dbo.my_sp_adduser    Script Date: 1999-09-16 9:29:11 ******/
CREATE PROCEDURE wbSP_adduser
 @username varchar(30),
 @password varchar(30),
 @DatabaseName VarChar(30) 
AS
 /* Call System store Procedure to Create Login and User In the DataBase */ 
  exec sp_addlogin @username,@password,@DatabaseName
  
  if @@Error <> 0  
     Return 1
  
  exec sp_adduser @username,@username,db_owner 
  
  if @@Error <> 0  
     Return 1
  
  Return 0