Xdialog: Increment String

[MoGrace]

I am trying to turn my login password script into a splash screen and want to give the user 3 tries to enter his correct user id. The correct user id in this example is "A5". The script should prompt you for the bitmap which I included.

Enter a wrong user id and what the Try Again button is supposed to do is increment the var qi to show the user is on try #2 when it shows vStr1 again. But I can't get it to display - what am I doing wrong?

Test Login_05-13-2015.txt
SKK_logo24.bmp

[Stan Mathews]

Re: Xdialog: Increment String

I don't see this line being modified to change the tries number.

vStr2 = "{sp=43}<%O={F=Arial,10,B}{C=Red}{J=C,C} Try Again%30,2!Try>;{lf};{sp=18}{'%O={F=Arial,12,B}{C=Dark Blue}{J=C,C}Sorry! You have 3 tries or the program will close%75,1.5};"

[Allen Klimeck]

Re: Xdialog: Increment String

I don't think that {include=} works here

Change:
vStr = "{sp=15}{'%O={F=Arial,10}{C=Black}{J=C,C}__vqi__. To Log In Please Enter Your User ID %45,1.5} [%p%.20vPwd!pw_*];"
to
vStr = "__vqi__. To Log In Please Enter Your User ID"

Change your step 1 section to:

{condition=step=1}
{region=a}
{font=arial,10}
{sp=15}{text=50,2vstr1}[%p%.20vPwd!pw_*];;

Change in the 'try' code section:

vStr1 =strtran(vstr,"__vqi__",alltrim(str(qi+1)) )
to
vstr1 = strtran(vstr,"__vqi__",alltrim(str(qi)))

[MoGrace]

Re: Xdialog: Increment String

Thanks guys, I am preparing for an audit for tomorrow, and will try your suggestions afterwards.

[MoGrace]

Re: Xdialog: Increment String

Thanks Allen that worked so well I decided to add a 4th step, string and condition to notify the user the program is about to close and would like it to display for a few seconds then set a_dlg_button = "Cancel". But I can't seem to do both. I tried adding a sleep(2) but then the message doesn't display. Any advice on how to do this?

[johnkoh]

Re: Xdialog: Increment String

Robin,

Did see this sample code ("Dialog Box for User Sign-in") from help?

[MoGrace]

Re: Xdialog: Increment String

I have seen Tom Henkel's example before and he is using msgbox() whereas I wanted to display the message on the original XD before closing it. Stan has an example for having a ui_dlg_box self close and I am thinking that might be a better way to go so it only displays if the program is going to close.

[johnkoh]

Re: Xdialog: Increment String

Robin,

I have a different way to show the message.

msghere="To Log In Please Enter Your User ID"

dlgtitle ="Robin Login"
Delete XdialogStyle
dim XDialogStyle as p
XDialogStyle.AccentColor = "White"
XDialogStyle.Color = "#221+226+176"

dlgbody = <<%dlg%
{removecomments}
{Windowstyle=Gradient Horizontal Middle}
{can_exit=exit}
{startup=init}


{region}
{justify=center}
Enter Code;{lf};
Log In Please Enter Your User ID: [%p%.20vPwd!pw_*];

{lf};

{text=100,2msghere};
{endregion};


{lf};
{justify=center}
<*12Ok!OK?okflag>   <12Cancel!CANCEL>;

%dlg%

dlgcode = <<%code%
if a_dlg_button = "Init"	
	step = 1	
	a_dlg_button = ""	
end if

if a_dlg_button = "exit" then
	'close the dialog
	msgbox("Log In","Log In Cancelled",0)
	'ui_modeless_dlg_close(dlgtitle)
end if

if a_dlg_button = "CANCEL"
	userid = ""
	ui_modeless_dlg_close(dlgtitle)	
end if

if left(a_dlg_button,3) = "pw_" then	
	if a_dlg_button = "pw_killfocus" then	
		a_dlg_button = ""	
		'test without using UDF's
		vTrys = vTrys+1
		if vPwd = ut("a5") then
			okflag = .t.
			msghere="*** Log In Accepted ***"
		else
			okflag = .f.
			vPwd=""
		end if
		msgbox("How many? ",str(vTrys))
		
		'Make it as Dynamic font n color..
		If vTrys =2 .or. vTrys =3 then
			msghere="Try again"
		else if vTrys =4
			msghere="Sorry! You have 3 tries or the program will close"	
			sleep(2) 'too soon, not see the changing msghere
			ui_modeless_dlg_close(dlgtitle)
		else if vTrys = 5
			'close it
			ui_modeless_dlg_close(dlgtitle)	
		end if							
	end if
end if
	

%code%

dlgresult = ui_dlg_box(dlgtitle,dlgbody,dlgcode )

[Mike Wilson]

Re: Xdialog: Increment String

Robin,
I have a pretty robust login sequence that uses a username (8 characters) and a password (8 characters), with the functionality of limiting the number of failed attempts and a timed lockout so the user can't keep trying. The attached is an example. The username is the first 6 characters on my last name first initial and middle initial - wilsonjm. The password is 'password'. There is also a backdoor without having to enter a password with username = 'backdoor'. This may be more than you were seeking, but I thought I would throw it out there since I had it as an example. I threw your logo image into the login dialog since you provided it. Hope it helps.

[MoGrace]

Re: Xdialog: Increment String

Thanks Mike,
I have an old version of your login, this one looks a bit easier...(I hope!)

[MoGrace]

Re: Xdialog: Increment String

Mike,

Easier is apparently relative...until I ran across this line in your other dlg box functions:

vlen=int(max_str_length(input_msg,crlf())+( max_str_length(input_msg,crlf())^.81))

You sent me on a search for exponent syntax for which I didn't find any examples using a decimal (fractions I found).

So how did you come up with this decimal, since each function is using a different value?

[Mike Wilson]

Re: Xdialog: Increment String

Robin,
I did it empirically. I made a bunch of different length input strings with an assortment of different length words and looped through them displaying them in the dialog adjusting the numbers until the strings presented the best. It's there to try and accommodate for higher number font. There is probably a more sophisticated and elegant way, but years ago when I wrote that I didn't know of one and it works OK for the message size and lengths I use it for so I haven't bothered to re-visited it. Yeah, I see that one uses .81 and another .83. Not intentional. I just wrote them at different times and got the number inconsistent in one or more of them.

[Tom Henkel]

Re: Xdialog: Increment String

Robin,
Yes, I did use a msgbox, because way back when I wrote the dialog, I wasn't nearly as comfortable with xdialog coding as I am now. Now you've made me think that I need to revisit the dialog and put an error message box on it and dynamically display the error messages like I do in countless other dialogs I have written since.

Tom