a5ws_Delete_User()

[EricN]

Has anyone used this method?

a5ws_Delete_User() - Delete a web security user from the current project. The user_value entered to delete can be a user 'guid' or a user 'userid''. The function can be used on the desktop in a web page or component. A 'request' pointer must be provided if run in a web page or component.

I found this in the release notes (and another unfinished thread) but nowhere else.

I have a lot of users who come and go and maintenance is of a huge concern.

What component did you use?
Did you set it up to delete ALL of the user's records in your various tables?
Actual script examples? :)

Any directions would be appreciated.

Thanks

[EricN]

Re: a5ws_Delete_User()

This works when placed directly in the a5w page or CanDeleteRecord event of a grid

a5ws_Delete_User(session.__protected__userid)

I created a delete user grid where the user can go if user wishes to delete his/her account. The grid has the delete function. In the CanDeleteRecord event I have a5ws_Delete_User(session.__protected__userid). When the user clicks the delete button and submit, the user's account is deleted from the security database.

Within this same grid, you can also create functions to delete all the user's records in any of your other databases.

[Sigrist]

Re: a5ws_Delete_User()

Hi,

I see that this is an old thread, but I am trying to create a grid to celete users as per your message above.

How can I create a grid to show users (I can't relate it to a DBF file). Any suggestion or sample code on how to delete users from the web?

Any help is appreciated

Andy Sigrist

[EricN]

Re: a5ws_Delete_User()

Hello Andy,

I no longer use a grid for this. I give my registered user the option to delete the account. If he decides to do this, he can choose "Yes" which directs the user to a delete page containing a lot of code. What you may be interested in is this:

' ===== Users table Delete Records =====
dim tbl as P
tbl = table.open("[pathalias.adb_path]\users")
query.filter = "Userid =" + quote(session.__protected__userid)
query.order = "Recno()"
qry = tbl.query_create()
tbl.delete_range()
qry.drop()
tbl.close()

a5ws_Delete_User(session.__protected__userid)

' Overkill?
a5ws_logoutuser(session,request,response)

dim session.__protected__userid as c = ""
dim userid as c = ""
dim session.Company_name as c = ""
dim session.First_name as c = ""
dim session.last_name as c = ""
dim session.permissions as c = ""

[Sigrist]

Re: a5ws_Delete_User()

Eric,

thank you for the very quick reply and for the code. However, I don't know how to use it. Do I put it as XBasic code on a A5W page or does it go into a component?

I tried to use the code, but can't make it work. Any further suggestions or samples?

Andy

[Peter.Greulich]

Re: a5ws_Delete_User()

Do I put it as XBasic code on a A5W page or does it go into a component?

It depends upon your circumstances. e.g. If you have a grid of users, you can put this code in the grid's CanDeleteRecord event (btw: this is v10 code):

function CanDeleteRecord as v (DataSubmitted as P, Args as p, PageVariables as p, Result as P)
WITH PageVariables
    Result.Cancel = .f.
    Result.ErrorHTML = ""
    
    'delete the security user
    dim request as p
    dim session as p

    DIM vResults as L

    request = args.GridDefinition.request
    session = PageVariables.session

    vResults = a5ws_Delete_User(DataSubmitted.USER_NAME,request)
    IF vResults = .f.
        Result.Cancel = .t.
        Result.ErrorHTML = DataSubmitted.USER_NAME+" was not deleted"
    END IF
    
END WITH
end function

In the above example the grid has a field called USER_NAME (which corresponds to security's user_id).
===
Oops! Just realized this is the v8 forum, so the above code may be useless to you. Sorry.

[EricN]

Re: a5ws_Delete_User()

Hello Andy,
This is my page minus script not related to this question. I copied this page and here it is. It is NOT in a grid, this is an .a5w page with only code in it. On my account page, I have to option to delete his account. If clicks, "Yes," then this page is activated (behind the scenes without user seeing it). User then redirected to page thanking him for initially trying out my site. His registration in my database AND security are deleted. Hope this helps.

<html>
<head>
<title>User Delete Account SSN</title>
</head>
<body>
<%a5

' ===== Users table Delete Records =====
dim tbl as P
dim qry as P
tbl = table.open("[pathalias.adb_path]\users")
query.filter = "Userid =" + quote(session.__protected__userid)
query.order = "Recno()"
qry = tbl.query_create()
tbl.delete_range()
qry.drop()
tbl.close()

a5ws_Delete_User(session.__protected__userid)

a5ws_logoutuser(session,request,response) ' logs out user so can't access login required pages

dim session.__protected__userid as c = ""
dim userid as c = ""
dim session.Company_name as c = ""
dim session.First_name as c = ""
dim session.last_name as c = ""
dim session.permissions as c = ""

%>
</body>
</html>
<%a5 a5w_include("Z_Footer.a5w") %>

[Sigrist]

Re: a5ws_Delete_User()

Peter, Eric,

I really appreciate your help, but I am totally lost.

I consider myself a reasonably competent A5 programmer, but I just can't figure this out, even with your help.

Couple of questions:

How do you create a grid of users (data from GUID)?
What does the page and code look like of "If clicks, "Yes," then this page is activated"?

Appreciate any further help and guidance of this.

Andy

[EricN]

Re: a5ws_Delete_User()

Andy,
I know this is tough. I've been there. I did a lot of trial and error before things began to "click"

Below are pics of my grid (in design mode). Not pretty but works.

Every user has his personal "Home Page." In this home page are several links. One of them is:
url = "Delete_Account.a5w?"
display = "<font color=#3c61d1 face=arial size=2><strong>Delete Account</strong></font>"
? "<a href=" + url + ">" + display + "</a>"

This brings the user to another page with the grid (pics below). Once the user clicks the, "Delete Entire Account Now" button, the next page, "Account Delete Process" is called and runs. (see pic #2) This "Account Delete Process" page contains the code that I already posted on post #7. The user does NOT see this. Once the page runs, the user is directed to my thanks page --> response.redirect("thanks.a5w")

The account is completely deleted.

FYI: I know you can put the code (post #7) into your grid events page and eliminate the code only page, but this is how I do it.

[Sigrist]

Re: a5ws_Delete_User()

Eric,

thank you for your help once again. I am getting a lot closer by have, hopefully, one last question.

What DBF file is the grid built on. Is it the User Security DBF file on the server (GUID)?

Sincerely

Andy Sigrist

[EricN]

Re: a5ws_Delete_User()

Grid is connected to my users.dbf

a5ws_Delete_User(session.__protected__userid) is connected to the security

[Peter.Greulich]

Re: a5ws_Delete_User()

Grid is connected to my users.dbf

Andy,

What Eric is saying is that you have to create your own user's grid and code that to security, so that both are in synch.

[EricN]

Re: a5ws_Delete_User()

See below pic.

This is the grid I use. Table name is connected to my users table
I defined an argument Userid=:Userid When the grid is called, the argument is activated. The grid finds the user whos userid (session.__protected__userid) equals the argument. When it finds the correct record in the dbf, the fields in the grid are populated.

This grid does nothing to delete any of the user's records. I use it because I hope the user tells me why he wishes to delete his account. Once he clicks "Delete Entire Account Now," this information is sent to be via email and then the user is redirected to the Account Delete Process page which he does not see.

Again, instead of using my approach, you could place a5ws_Delete_User(session.__protected__userid) in the events of your grid to delete your user and not create a code only page. But if you have another database that contains your user's information (like I do), you will want to create a way to delete that also. I do that by the ' ===== Users table Delete Records ===== in my post #7 above.

I have a code only page because I have over 300 lines of code and that is too difficult to maintain in a grid.

[Sigrist]

Re: a5ws_Delete_User()

Eric, Peter,

I really do appreciate your help, but I am still stuck.

I actually think that I was fairly close with what I initially intended to do. I originally created a Dialog that displays a User List from the published security file.

I then tried to add the "delete" function to the validate event of the submit button. See attached picture.

My intend was that the administrator can highlight a user in the dialog, then press the submit button (labeled "Delete User") to delete the specific user.

In the picture you can see that I tried all variations of the a5ws_Delete_User() function, but so far without success.

Am I on the right track and what would be the correct syntax for the a5ws_Delete_user() function in this case?

Andy Sigrist

[Peter.Greulich]

Re: a5ws_Delete_User()

Am I on the right track and what would be the correct syntax for the a5ws_Delete_user() function in this case?

In your image you show this:
a5ws_Delete_user(session.__protected__)
That won't do anything.

The next line might be ok, if you populate the variable first. If not, it won't do anything either.
a5ws_Delete_user(session.__protected__userid)