autoexec help

[Tom Patten]

Hi,

I am working on a autoexec.bat file and the following lines work just fine - individually

dim password as c
password = :form:field.value
password = "TMP"

But this will not work;

password = :form:field.value .or. password = "TMP"

I notice in the Xbasic explorer I could not find the functions of .or. .and.

The error message I get is, "data is incorrect data type"

What should the syntax be?

Thanks

Tom

[Jim Chapman]

RE: autoexec help

Hi Tom,

>>But this will not work;
password = :form:field.value .or. password = "TMP"

[Tom Cone Jr]

RE: autoexec help

Tom,

the equals sign is an assignment operator.

The statement:

password = :form:field.value .or. password = "TMP"

tells Alpha Five to assign either of two values to password

Alpha Five correctly refuses to do it. You can only 'assign' one thing at a time. Why? because password can have only one value at any one point in time.

-- tom

[crimmelcp]

RE: autoexec help

Tom:
This is what I use.
' Delete $$*.mpx files for cleanup
script_play("delete mpx files")

'Prompts the user for a password
password = "ADMIN"
user = ui_get_text("Password","Enter the password","*****","&&&&&")

IF user == password THEN
ui_msg_box(" ","Administrative Password Accepted.")
:form.view("main menu")
ELSE
ui_msg_box( " "," Will run programs as user, some fuctions are disabled ")
:controlpanel.hide()
f = :form.load("main menu")
'script_play("screencenter")
:form.view("main menu")
END IF
Charlie Crimmel

[Peter.Wayne]

RE: autoexec help

it seems odd, but if you write
password="john" .or. password="temp"

then what you are doing is writing an expression of the
form

password=("john" .or. (password="temp"))
which doesn't really make much sense.

you are making password into a logical variable, after
it is a character variable.
i don't know if i have explained it clearly.
try writing
x=2 .or. 3
in the interactive window, and then
? x
to see what happens.

[Tom Patten]

RE: autoexec help

Thanks all - found a good time as for help!

I understand the "illogic" of what I am trying to do. But I want to keep a "back-door" open for me to get in if the user forgets their password or whatever.

So how do I put in an "over-right" password or skeleton-Key?

Thanks again,

Tom

[Stan Mathews]

RE: autoexec help

Take Charlie's script, and a nice one it is, add an "else if" for a password for yourself.
After the first if, before the else.

[Tom Patten]

RE: autoexec help

PS

I just looked at Charlie Crimmel comments, that looks alot like what I am using. How would you get into the application if you used a field.value for users to develope and change their passwords, yet you, as the developer, want to be able to get in? I notice you hide the control panel.

Thanks

[Tom Patten]

RE: autoexec help

Thanks Charlie and Stan, et al

It works great thanks again to some GREAT folks.

Tom

[CALocklin]

RE: autoexec help

The autoexec script runs before any forms are loaded so I don't think
password = :form:field.value
will get you what you want!?

(OK, I haven't tried it but it shouldn't work according to the 'rules'.)

[Tom Patten]

RE: autoexec help

Prior to this line, I load a form with an attractive bitmap and logo, then ask for the password. The password.value is on this form, but hidden. That part works - even it shouldn't!

Tom

[Pat Bremkamp]

RE: autoexec help

Tom,
I use passwords for several funtions in my application, but I'm too lazy to create a full passwork system, so I created a user defined function. Only thing is, I don't know if this will work in an autoexec script???

function chkpassword as L(pword as C)
' 06/01/98 Useage: if chkpassword("the password") then ...
' Password is not case sensitive. Returns .T. if password is correct, else .F.
dim pwansr as C
dim erransr as N
retry_it:
pwansr=ui_get_password("PASSWORD","Enter the password to continue..","*****","")
pwansr=ut(pwansr)
if pwansr="" ' cancel pressed
chkpassword=.f.
elseif pwansr=alltrim(pword)
chkpassword=.t.
else
erransr=ui_msg_box("PASSWORD", "Sorry, your password was not correct.",21)
if erransr=4
goto retry_it
end if
chkpassword=.f.
end if
end function

[Tom Patten]

RE: autoexec help

Pat,

Thank You. It will take me awhile to absorb the information. I sure appreciate the sharing that goes on here.

Tom