Do FORM Login READ EVENTS>>I have a program that executes a login form. If I run the form it works as expected. If I run the form form for the program "DO FORM login" it stops at the init method which has the following code in it
>PUBLIC gnuseridcnt , gnpasswordcnt , lcweekday >LOCAL x > >gnuseridcnt = 0 >gnpasswordcnt = 0 >gnUserLev = 0 >m.glValid = .F. > >Thisform.lblErrorMsg.Caption = '' >Thisform.lbltoday.Caption = 'Today is ' + CDOW(DATE()) + ', ' + ; > CMONTH(DATE()) + ' ' + STR(DAY(DATE()),2) + ', ' + STR(YEAR(DATE()),4) >Thisform.lblPC.Caption = 'You are using a ' + SYS(17) + ' PC' > >IF ! USED('sysuse') > USE (gcDATA) + '\sysuse' ORDER TAG cid ALIAS sysuse > SELECT sysuse >ELSE > SELECT sysuse > SET ORDER TO TAG cid >ENDIF > >x = 1 >>I can add the "DODEFAUL()" command with out any change in behavior. The x = 1 is there so I could have a place to stop in the debugger.