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/logform.sct
�VERSION =   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
Height = 194
Width = 316
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Return a Value from a Form"
MaxButton = .F.
MinButton = .T.
HelpContextID = 167
Name = "Form1"
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Init
IF  fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
	fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
	fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
	fontmetric(7, 'MS Sans Serif', 8, '') # 11
	this.setall('fontname', 'Tahoma')  
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)


ENDPROC
��� ��<�%�'�U
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP	�%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$�����!��C�fontname�Tahoma�������(��C�fontname�
MS Sans Serif�������C�fontsize�����UTHISSETALLActivate,��
Deactivate^��Init���1�2Q�A2d	��A�3.O���	)�textboxtextboxtxtPasswordForm1�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "login.password"
Height = 23
Left = 10
TabIndex = 4
Top = 133
Width = 209
Name = "txtPassword"
comboboxcomboboxcboUserForm1�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
RowSourceType = 6
RowSource = "login.userid"
ControlSource = "login.userid"
Height = 21
Left = 10
Style = 2
TabIndex = 2
Top = 92
Width = 209
Name = "cboUser"
:PROCEDURE InteractiveChange
THISFORM.Refresh

ENDPROC
�� ��Ҥ%Pqk�U

����UTHISFORMREFRESHInteractiveChange,��1�2/)�labellabelLabel1Form1�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Valid users:"
Height = 15
Left = 11
Top = 76
Width = 56
TabIndex = 1
Name = "Label1"
labellabelLabel2Form1�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<User's password:"
Height = 15
Left = 11
Top = 117
Width = 82
TabIndex = 3
Name = "Label2"
behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 164
Left = 11
TabIndex = 6
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose2Form19Top = 164
Left = 234
TabIndex = 7
Name = "Cmdclose2"
c_solutions..\solution.vcxcustomC_solutions1Form1XTop = 90
Left = 273
Height = 18
Width = 25
centerform = .F.
Name = "C_solutions1"

commandbutton
commandbuttoncmdLoginForm1�Top = 133
Left = 234
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Login..."
TabIndex = 5
Name = "cmdLogin"
PROCEDURE Click
#DEFINE NOLOG_LOC "User not logged in."
#DEFINE YESLOG_LOC " successfully logged in."

DO FORM Login TO cUser
IF EMPTY(cUser)
	THISFORM.lblLoggedIn.Caption = NOLOG_LOC
ELSE
	THISFORM.lblLoggedIn.Caption = cUser + YESLOG_LOC
ENDIF

ENDPROC
c�� JJ�P%���U��Login(��%�C����F�&T�����User not logged in.���}�/T������ successfully logged in.���ULOGINCUSERTHISFORMLBLLOGGEDINCAPTIONClick,��1�a��A2)JlabellabellblLoggedInForm1�AutoSize = .T.
FontBold = .F.
FontSize = 10
BackStyle = 0
Caption = "   "
Height = 18
Left = 41
Top = 167
Width = 14
TabIndex = 0
ForeColor = 255,255,255
Name = "lblLoggedIn"
shapeshapeShape2Form1bTop = 14
Left = 10
Height = 56
Width = 297
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel5Form1!FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Click Login to open the log in form.  Log in as one of the valid users listed below.  The password is case-sensitive; the user name is not."
Height = 43
Left = 20
Top = 24
Width = 279
TabIndex = 0
Name = "Label5"
labellabelLabel6Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 18
Top = 8
Width = 62
TabIndex = 0
Name = "Label6"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Height = 194
Width = 316
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Return a Value from a Form"
MaxButton = .F.
MinButton = .T.
HelpContextID = 1231555
Name = "Form1"