login coding visual foxpro

In an application program (visual foxpro) is common if the first time the program is run for a user login form will appear. One method is to run the login form first and then the main form. There is also the method still run form the main form at the same time raise login first before the user can access other programs. Here are some tips for both methods:
• Set properties Form login
windowstype = Modal
ShowWindow = 1 - InTopLevelForm
• Declare variables to accommodate the public the results of the login form on the main form
FormUtama.Load:
Public n_login
n_login = 0
• Run the login form on the main form activate
FormUtama.Activate :
IF n_Login = 0
DO FORM formlogin.scx
ENDIF
in the form log added:
cmdOK.click:
n_Login = 1