Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/dialogs.sct

VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentaTop = 242
Left = 251
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Top = 20
Left = 10
Height = 90
Width = 95
Alias = "employee"
Database = ..\..\data\testdata.dbc
CursorSource = "employee"
Name = "Cursor1"
22frmsolution..\solution.vcxformfrmsolutionHeight = 237
Width = 300
DoCreate = .T.
Caption = "Use Common Application Dialog Boxes"
Visible = .T.
HelpContextID = 1231602
lsetffcpath = .T.
Name = "frmsolution"
C_solutions1.Top = 204
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 204
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 6
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 276
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "You can use these dialogs in your applications for common operations such as user logins, splash screens, aboutboxes, keyword lookups and file locates."
Label1.Height = 55
Label1.Left = 24
Label1.Top = 24
Label1.Width = 252
Label1.TabIndex = 7
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 9
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 204
Cmdclose1.Left = 216
Cmdclose1.TabIndex = 8
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"

commandbutton
commandbuttoncmdPasswordfrmsolution�Top = 96
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Password..."
TabIndex = 1
Name = "cmdPassword"
�PROCEDURE Click
#DEFINE GOODPASSWORD_LOC	"Good Password provided"
#DEFINE BADPASSWORD_LOC		"Bad Password provided"
#DEFINE GETPASSWORD_LOC		"Enter First Name as password."

LOCAL loForm,loCustom
loForm = NewObject("_login",HOME()+"ffc\_dialogs")
IF VARTYPE(loForm) # "O"
	RETURN
ENDIF
loCustom = Create("custom")
loForm.oPassword = loCustom
loForm.cDBFName = "..\..\data\employee.dbf"
loForm.cTable = "employee"
loForm.cFieldName = "last_name"
loForm.cPassword = "first_name"
loForm.Setup()
BROWSE NORMAL NOWAIT
WAIT WINDOW GETPASSWORD_LOC
loForm.Show(1)
MESSAGEBOX(IIF(loCustom.lValidPassword,GOODPASSWORD_LOC,BADPASSWORD_LOC))

ENDPROC
��� ��E%D �U~����)T��C�_loginC�Q�ffc\_dialogs���%�C����O��M�B��T��C�custom�N��T������'T����..\..\data\employee.dbf��T����employee��T����	last_name��T����
first_name��
��C����	:�'R,��Enter First Name as password.����C�����H��CC��	��Good Password provided��Bad Password provided6�x��U
LOFORMLOCUSTOM	OPASSWORDCDBFNAMECTABLE
CFIELDNAME	CPASSWORDSETUPSHOWLVALIDPASSWORDClick,��1��QAAaq����aq�2�)�
commandbutton
commandbutton	cmdSplashfrmsolution�Top = 96
Left = 96
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Splash"
TabIndex = 2
Name = "cmdSplash"
�PROCEDURE Click
LOCAL loForm
loForm = NewObject("_splash",HOME()+"ffc\_dialogs")
IF VARTYPE(loForm) # "O"
	RETURN
ENDIF
loForm.Picture = HOME()+"fox.bmp"
loForm.Show()

ENDPROC
C�� **G�%��	��Uy���*T��C�_splashC�Q�ffc\_dialogs���%�C����O��J�B��T���C�Q�fox.bmp��
��C����ULOFORMPICTURESHOWClick,��1q�QAA��2�)*
commandbutton
commandbuttoncmdAboutfrmsolution�Top = 96
Left = 180
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<About..."
TabIndex = 3
Name = "cmdAbout"
�PROCEDURE Click
LOCAL loForm
loForm = NewObject("_aboutbox",HOME()+"ffc\_dialogs")
IF VARTYPE(loForm) # "O"
	RETURN
ENDIF
loForm.Show()

ENDPROC
�� '%����U`���,T��C�	_aboutboxC�Q�ffc\_dialogs���%�C����O��L�B��
��C����ULOFORMSHOWClick,��1q�QAA�2�)
commandbutton
commandbuttoncmdKeywordsfrmsolution�Top = 132
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Keywords..."
TabIndex = 4
Name = "cmdKeywords"
TPROCEDURE Click
#DEFINE SELECT_LOC	"You selected: " 
LOCAL loForm,loCustom 
loForm = NewObject("_keywords",HOME()+"ffc\_dialogs")
IF VARTYPE(loForm) # "O"
	RETURN
ENDIF
loCustom = Create("custom")
loForm.oKeywords = loCustom
loForm.Show()
IF !EMPTY(loCustom.cKeywords)
	MESSAGEBOX(SELECT_LOC+loCustom.cKeywords)
ENDIF
ENDPROC
��� ���% I
/�U�����,T��C�	_keywordsC�Q�ffc\_dialogs���%�C����O��P�B��T��C�custom�N��T������
��C����%�C���
����!��C�You selected: ���x���ULOFORMLOCUSTOM	OKEYWORDSSHOW	CKEYWORDSClick,��1��QAAa�1A1I)�
commandbutton
commandbutton	cmdLocatefrmsolution�Top = 132
Left = 96
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Locate Item..."
TabIndex = 5
Name = "cmdLocate"
�PROCEDURE Click
#DEFINE  FILENAME_LOC	'The file returned "'
#DEFINE  FILEEXIST_LOC	'" exists.'
#DEFINE  FILENOEXIT_LOC	'" does not exist.'

LOCAL loForm,loCustom 
loCustom = Create("custom")
loForm = NewObject("_locateitem",HOME()+"ffc\_dialogs","",loCustom,"somefile.xyz")
IF VARTYPE(loForm) # "O"
	RETURN
ENDIF
loForm.Show()
IF !ISNULL(loCustom.cFileName)
	MESSAGEBOX(FILENAME_LOC+loCustom.cFileName+;
		IIF(FILE(loCustom.cFileName),FILEEXIST_LOC,FILENOEXIT_LOC))
ENDIF

ENDPROC
�� ��'�%Szb�U����T��C�custom�N��DT��C�_locateitemC�Q�ffc\_dialogs���somefile.xyz���%�C����O��~�B��
��C����%�C���
����W��C�The file returned "��CC��0��	" exists.��" does not exist.6�x���ULOFORMLOCUSTOMSHOW	CFILENAMEClick,��1�aAQAA�1rA2�)�JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0