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/datasort.sct

�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1
Top = 220
Width = 520
Height = 200
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 332
Width = 346
DoCreate = .T.
Caption = "Add Data Sorting and Filtering to Forms"
Visible = .T.
HelpContextID = 215
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 305
C_solutions1.Left = 144
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 300
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 7
Behindscenes1.Name = "Behindscenes1"
Shape2.Name = "Shape2"
Label1.Caption = "You can easily add advanced querying options to your forms. Try right-clicking on the form to bring up a shortcut menu."
Label1.TabIndex = 8
Label1.Name = "Label1"
Label4.TabIndex = 10
Label4.Name = "Label4"
Cmdclose1.Top = 300
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 9
Cmdclose1.Name = "Cmdclose1"
tPROCEDURE Load
DODEFAULT()
SET MULTILOCKS ON

ENDPROC
PROCEDURE RightClick
THIS._NavMenu1.DoMenu()

ENDPROC
PROCEDURE Refresh
DODEFAULT()
IF !EMPTY(ALIAS())
	THIS.Label3.Caption = STR(RECNO())
ENDIF

ENDPROC
PROCEDURE Init
DODEFAULT()
IF VARTYPE(THISFORM._NavToolbarClass1.oToolbar) = "O"
	THISFORM._NavToolbarClass1.oToolbar.Refresh
ENDIF

ENDPROC
"�� 		�Q%/�p�U	��C��G_ �U��C�����UTHIS	_NAVMENU1DOMENU3	��C��%�CC�
��,�T����CCOZ���UTHISLABEL3CAPTION;	��C��%�C������O��4��������UTHISFORM_NAVTOOLBARCLASS1OTOOLBARREFRESHLoad,��
RightClickB��Refreshr��Init���1�a33��AA3��A20Qj��
�i)	gridgridGrid1Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Height = 132
Left = 12
RowHeight = 16
TabIndex = 2
Top = 108
Width = 324
Name = "Grid1"
QPROCEDURE AfterRowColChange
LPARAMETERS nColIndex
THISFORM.REFRESH()
ENDPROC
�� ��5�%e���U���
��C����U	NCOLINDEXTHISFORMREFRESHAfterRowColChange,��1q�1F)�
_filterbutton..\..\..\ffc\_table2.vcx
commandbutton	cmdFilterFrmsolution1{Top = 252
Left = 96
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 4
Name = "cmdFilter"
EPROCEDURE Click
IF !EMPTY(ALIAS())
	DODEFAULT()
ENDIF

ENDPROC
�� ���%Oh^�U%�CC�
���	��C���UClick,��1��A2:)�_sortbutton..\..\..\ffc\_table2.vcx
commandbutton_sortbutton1Frmsolution1~Top = 252
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 3
Name = "_sortbutton1"
bPROCEDURE Click
DODEFAULT()
IF !EMPTY(ALIAS())
	GO TOP
	THISFORM.REFRESH()
ENDIF

ENDPROC
�� ��4S%t���U1	��C��%�CC�
��*�#)�
��C�����UTHISFORMREFRESHClick,��1��Q�A2W)�_navmenu..\..\..\ffc\_table2.vcx	container	_navmenu1Frmsolution1cTop = 300
Left = 60
TabIndex = 11
Name = "_navmenu1"
oMenu.Name = "oMenu"
oNav.Name = "oNav"

_filterbutton..\..\..\ffc\_table2.vcx
commandbutton
cmdFilter2Frmsolution1�Top = 252
Left = 180
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Adv Filter..."
TabIndex = 5
lexprdialog = .T.
Name = "cmdFilter2"
EPROCEDURE Click
IF !EMPTY(ALIAS())
	DODEFAULT()
ENDIF

ENDPROC
�� ���%Oh^�U%�CC�
���	��C���UClick,��1��A2:)�_navtoolbarclass..\..\..\ffc\_table2.vcx	container_navtoolbarclass1Frmsolution1�Top = 300
Left = 168
Width = 24
Height = 24
TabIndex = 12
Name = "_navtoolbarclass1"
tmrCheckToolbar.Name = "tmrCheckToolbar"

commandbutton
commandbuttoncmdPickTableFrmsolution1�Top = 72
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Pick a Table:"
TabIndex = 1
ZOrderSet = 13
Name = "cmdPickTable"
�PROCEDURE Click
#DEFINE FORMCAPTION_LOC	"Sorting and Filtering"

SELECT 0
USE ? AGAIN SHARED
IF !EMPTY(ALIAS())
	THISFORM.Caption = FORMCAPTION_LOC+" - "+ALLTRIM(ALIAS())	
	THISFORM.Grid1.RecordSource = ALIAS()
	THISFORM.Refresh()
	IF VARTYPE(THISFORM._NavToolbarClass1.oToolbar) = "O"
		THISFORM._NavToolbarClass1.oToolbar.Refresh
	ENDIF
ENDIF
THISFORM.Grid1.SetFocus()
ENDPROC
�� ���|%?h
N�U�F��
Q�?��%�CC�
����1T����Sorting and Filtering� - CC���T����C��
��C����%�C������O��������������C�����UTHISFORMCAPTIONGRID1RECORDSOURCEREFRESH_NAVTOOLBARCLASS1OTOOLBARSETFOCUSClick,��1���!��AA1)�
commandbutton
commandbuttoncmdClearFilterFrmsolution1�Top = 252
Left = 264
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Clear Filter"
TabIndex = 6
ZOrderSet = 13
Name = "cmdClearFilter"
ePROCEDURE Click
IF !EMPTY(ALIAS())
	SET FILTER TO
	GO TOP
	THISFORM.Refresh()
ENDIF

ENDPROC
�� ��G�%q���U.%�CC�
��'�G(�#)�
��C�����UTHISFORMREFRESHClick,��1�aQ�A2Z)�labellabelLabel3Frmsolution1yAutoSize = .T.
Caption = (STR(RECNO()))
Height = 17
Left = 172
Top = 77
Width = 44
TabIndex = 13
Name = "Label3"
labellabelLabel2Frmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Current Record:"
Height = 15
Left = 92
Top = 77
Width = 77
TabIndex = 14
Name = "Label2"
JArial, 0, 9, 5, 15, 12, 16, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�Height = 332
Width = 346
DoCreate = .T.
Caption = "Add Data Sorting and Filtering to Forms"
Visible = .T.
HelpContextID = 1231600
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 305
C_solutions1.Left = 144
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 300
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 7
Behindscenes1.Name = "Behindscenes1"
Shape2.Name = "Shape2"
Label1.Caption = "You can easily add advanced querying options to your forms. Try right-clicking on the form to bring up a shortcut menu."
Label1.TabIndex = 8
Label1.Name = "Label1"
Label4.TabIndex = 10
Label4.Name = "Label4"
Cmdclose1.Top = 300
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 9
Cmdclose1.Name = "Cmdclose1"