Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/login.sct
IVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentKLeft = 10
Top = 245
Width = 394
Height = 113
Name = "Dataenvironment"
cursorcursorCursor1DataenvironmentkLeft = 20
Top = 10
Width = 90
Height = 90
Alias = "login"
CursorSource = login.dbf
Name = "Cursor1"
22formformForm1�DataSession = 2
Top = 0
Left = 0
Height = 113
Width = 397
DoCreate = .T.
BorderStyle = 2
Caption = "Enter Password"
MaxButton = .F.
MinButton = .F.
WindowType = 1
cuser = 
Name = "Form1"
�PROCEDURE Unload
RETURN THIS.cUser

ENDPROC
PROCEDURE Load
THIS.Autocenter = .T.
THIS.BorderStyle = 2 && Fixed Dialog
ENDPROC
�� ���%g~v�UT������
����UTHISFORMCUSERRELEASEClick,��1�28)�Form1Label3labellabelForm1\cuser Holds User Name of a successful login to be returned to the calling form or program.
textboxtextboxtxtUserNameForm1�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 78
TabIndex = 2
Top = 42
Width = 223
Name = "txtUserName"
textboxtextboxtxtPasswordForm1�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 78
TabIndex = 4
Top = 73
Width = 223
PasswordChar = "*"
Name = "txtPassword"
�PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13 && Enter
	NODEFAULT
	THISFORM.cmdOK.Click
ENDIF
ENDPROC
�� ���O%����U4����%���
��-���
������UNKEYCODE
NSHIFTALTCTRLTHISFORMCMDOKCLICKKeyPress,��1�A�A1|)�labellabelLabel1Form1�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<User Name:"
Height = 15
Left = 12
Top = 46
Width = 58
TabIndex = 1
Name = "Label1"
labellabelLabel2Form1�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Password:"
Height = 15
Left = 12
Top = 77
Width = 51
TabIndex = 3
Name = "Label2"

commandbutton
commandbuttoncmdOKForm1�Top = 11
Left = 314
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "OK"
TabIndex = 5
Name = "cmdOK"
�PROCEDURE Click
LOCATE FOR UPPER(login.userid) = UPPER(ALLTRIM(THISFORM.txtUserName.Value))

IF FOUND() AND ALLTRIM(password) == ALLTRIM(THISFORM.txtPassword.Value)
	THISFORM.cUser = ALLTRIM(login.userid)
	THISFORM.Release
ELSE
	#DEFINE MISMATCH_LOC "The user name or password is incorrect. Please try again."
	WAIT WINDOW MISMATCH_LOC TIMEOUT 1.5
	THISFORM.txtUserName.Value = ""
	THISFORM.txtPassword.Value = ""
	THISFORM.txtUserName.SetFocus
ENDIF



ENDPROC
�� ���%~���U�-�C��fCC����f��!%�C4�C��C����	��]�T���C�����
�������QR,���?���9The user name or password is incorrect. Please try again.��T�������T�������
����	��U
LOGINUSERIDTHISFORMTXTUSERNAMEVALUEPASSWORDTXTPASSWORDCUSERRELEASESETFOCUSClick,��1�Q��11�A4�)�
commandbutton
commandbutton	cmdCancel�Top = 40
Left = 314
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "Cancel"
TabIndex = 6
Name = "cmdCancel"
CPROCEDURE Click
THISFORM.cUser = ""
THISFORM.Release

ENDPROC
,�� �S%����UB�����UTHISCUSER!T���a��T������UTHIS
AUTOCENTERBORDERSTYLEUnload,��LoadL��1�3�1%@{)�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Enter your password for database access."
Height = 15
Left = 12
Top = 13
Width = 200
TabIndex = 0
Name = "Label3"
JArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0