Lenny,
Thank you for your reply. I have setup following (basically a paste of the WEBDEMO) LOGINDIALOG component at the validate event:
Code:
if user_name = "" .or. password = "" then
currentform.has_error = .t.
currentform.error_message = "User name or password cannot be blank."
else
dim correct_password as c
DIM level AS N
correct_password = lookup("[PathAlias.ADB_Path]\person","user_name=" + quote(user_name),"password")
if correct_password = password then
level = lookup("[PathAlias.ADB_Path]\person","user_name=" + quote(user_name),"level")
session.__protected__SecurityLevel = level
session.SUMA.UserName = user_name
ELSE
currentform.has_error = .t.
currentform.error_message = "Invalid user name or password."
end if
end if
Now I want the user to give an option to logout. How should I do that? Create a button with something like:
currentform.has_error = .t.
so the user is forced to re-login? I am not experienced with xbasic yet.
Thanks for your help, Ron
Bookmarks