How To Administer SQL Server Users from Visual FoxPro

   *-- Code begins here
   *-- Change the datasource, user name and password as appropriate.
   gnConnect = SQLCONNECT("moonbase", "sa", "")
   IF gnConnect <= 0
       =MESSAGEBOX("Could not establish a database connection.", ;
         0, "Connection Error")
       RETURN
   ENDIF

   *-- Add user id "mike" if is not already exist in the master database.
   gnLogin = SQLEXEC(gnConnect, 'exec master.dbo.sp_addlogin "mike", ""')
   IF gnLogin > 0
      WAIT WINDOW "User Login added"
   ELSE
      WAIT WINDOW "User Login already exist"
   ENDIF

   *-- Add a user "mike" and put it in the "public" group.
   gnAddUser = SQLEXEC(gnConnect, 'exec master.dbo.sp_adduser "mike", ;
     "mike", "public"')
   IF gnAddUser > 0
      WAIT WINDOW "User was successfully added."
   ELSE
      WAIT WINDOW "Adding user failed."
   ENDIF

   *-- Add a test group
   gnAddGroup = SQLEXEC(gnConnect, 'exec master.dbo.sp_addgroup "test"')
   IF gnAddGroup > 0
      WAIT WINDOW "Group was successfully added."
   ELSE
      WAIT WINDOW "Adding group failed."
   ENDIF

   IF gnAddUser > 0 AND gnAddGroup > 0
      *-- Add the user to the test group
      gnAddUserGroup = SQLEXEC(gnConnect, ;
          'exec master.dbo.sp_changegroup "test", "mike"')
      IF gnAddUserGroup > 0
         WAIT WINDOW "User was successfully added to group."
      ENDIF
   ENDIF

   *-- Now drop the user.
   IF gnAddUser > 0
      gnDropUser = SQLEXEC(gnConnect, 'exec master.dbo.sp_dropuser "mike"')
      IF gnDropUser > 0
         WAIT WINDOW "User was successfully dropped."
      ENDIF
   ENDIF

   *-- And drop the group
   IF gnAddGroup > 0
      gnDropGroup = SQLEXEC(gnConnect, ;
          'exec master.dbo.sp_dropgroup "test"')
   ENDIF
   IF gnDropGroup > 0
      WAIT WINDOW "Group was successfully dropped."
   ENDIF
   SQLDISCONNECT(gnConnect)
   *--Code ends here