Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/db/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/db/index2.sct
+VERSION =   3.00dataenvironmentdataenvironmentDataenvironment`Top = 110
Left = 14
Width = 172
Height = 181
DataSource = .NULL.
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Top = 20
Left = 10
Height = 90
Width = 95
Alias = "orditems"
CursorSource = orditems.dbf
Exclusive = .T.
Name = "Cursor1"
22formformForm1�DataSession = 2
Top = 4
Left = 8
Height = 229
Width = 355
DoCreate = .T.
Caption = "Index on Expressions"
MaxButton = .F.
HelpContextID = 49
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
this.setall('fontname', 'Tahoma')  
this.setall('fontsize',8)


ENDPROC
�� ���%
U
A�U
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP?!��C�fontname�Tahoma������C�fontsize�����UTHISSETALLActivate,��
Deactivate^��Init���1�2Q�A2�3.O���	)�shapeshapeShape1Form1nTop = 160
Left = 11
Height = 34
Width = 253
BackStyle = 0
SpecialEffect = 0
Style = 3
Name = "Shape1"
labellabelLabel1Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Index Size "
Height = 15
Left = 19
Top = 154
Width = 57
TabIndex = 0
Style = 3
Name = "Label1"

commandbutton
commandbuttonCommand1Form1�Top = 171
Left = 274
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "B\<rowse..."
TabIndex = 3
Name = "Command1"
PROCEDURE Click
#DEFINE C_FILEINUSE_LOC	"The Orditems table could not be used exclusively to run test. Try closing all open tables and rerun the test."
LOCAL i, lcRunPath
lcRunPath = ADDBS(JUSTPATH(SYS(1271,this)))
m.i = thisform.ogpindex.value

IF !USED("orditems")
	USE (lcRunPath+"orditems.dbf") EXCLUSIVE
ELSE
	SELECT orditems
ENDIF
IF EMPTY(ALIAS()) OR !ISEXCLUSIVE()
	USE (lcRunPath+"orditems.dbf") EXCLUSIVE
	IF EMPTY(ALIAS())
		MESSAGEBOX(C_FILEINUSE_LOC)
		RETURN
	ENDIF
ENDIF

DELETE TAG ALL

DO CASE
CASE m.i = 1
	INDEX on product_id TAG product_id
CASE m.i = 2	
	INDEX on VAL(product_id) TAG product_id
CASE m.i = 3
	INDEX on BINTOC(VAL(product_id),1) TAG product_id
ENDCASE

USE
SET COMP ON
thisform.fsize.caption = ALLTRIM(STR(FSIZE(lcRunPath+"orditems.cdx")))
SET COMP OFF
USE (lcRunPath+"orditems.dbf") ORDER product_id
BROWSE NORMAL
ENDPROC
m�� TT�l%� ��U2����T��CCC���]�����T�
�������%�C�orditems�
��l�Q����orditems.dbf���{�F���%�CC��C�
��?�Q����orditems.dbf��%�CC���;�y��C�mThe Orditems table could not be used exclusively to run test. Try closing all open tables and rerun the test.�x��B�����
H�X�����
����y�& �������
������& �C�g�����
������& �CC�g�����Q�GA �)T��	�
�CCC��orditems.cdx�Z���GA�(Q���orditems.dbf��
product_id�	�UI	LCRUNPATHTHISTHISFORMOGPINDEXVALUEORDITEMSALL
PRODUCT_IDFSIZECAPTIONClick,��1��Q���qAa���AAA��1�11aABa�a�Q1t)Tc_solutions..\solution.vcxcustomC_solutions1Form1FTop = 201
Left = 55
Height = 18
Width = 25
Name = "C_solutions1"
behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 199
Left = 12
TabIndex = 4
Name = "Behindscenes1"
optiongroupoptiongroupogpIndexForm1ButtonCount = 3
BackStyle = 0
Value = 1
Height = 68
Left = 11
Top = 81
Width = 253
TabIndex = 2
Name = "ogpIndex"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.Caption = "\<product_id"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 8
Option1.Top = 7
Option1.Width = 92
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.Caption = "\<VAL(product_id)"
Option2.Value = 0
Option2.Height = 17
Option2.Left = 8
Option2.Top = 26
Option2.Width = 128
Option2.Name = "Option2"
Option3.FontName = "MS Sans Serif"
Option3.FontSize = 8
Option3.Caption = "\<BINTOC(VAL(product_id))"
Option3.Value = 0
Option3.Height = 17
Option3.Left = 8
Option3.Top = 45
Option3.Width = 164
Option3.Name = "Option3"
labellabelfsizeForm1�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "???"
Height = 17
Left = 22
Top = 170
Width = 97
TabIndex = 0
Name = "fsize"
cmdclose..\solution.vcx
commandbutton	Cmdclose1Form1RTop = 199
Left = 274
Height = 23
Width = 72
TabIndex = 5
Name = "Cmdclose1"
shapeshapeShape2Form1mTop = 13
Left = 11
Height = 54
Width = 334
BackStyle = 0
SpecialEffect = 0
Style = 3
Name = "Shape2"
labellabelLabel6Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 19
Top = 7
Width = 62
TabIndex = 0
Style = 3
Name = "Label6"
labellabelLabel3Form1_FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Different index expressions produce different results.  To see the effect of different expresssions on product_id (a 6-character field in orditems) select an expression and Click Browse."
Height = 42
Left = 20
Top = 22
Width = 319
TabIndex = 0
Name = "Label3"
labellabelLabel4Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Index \<Expression "
Height = 15
Left = 18
Top = 73
Width = 88
TabIndex = 1
Style = 3
Name = "Label4"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 4
Left = 8
Height = 229
Width = 355
DoCreate = .T.
Caption = "Index on Expressions"
MaxButton = .F.
HelpContextID = 1231518
Name = "Form1"