Mini Kabibi Habibi

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

*hVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentKLeft = 14
Top = 110
Width = 172
Height = 181
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Left = 10
Top = 20
Width = 95
Height = 90
Alias = "orditems"
CursorSource = orditems.dbf
Exclusive = .T.
Name = "Cursor1"
22formformForm1�DataSession = 2
Top = 4
Left = 8
Height = 265
Width = 439
DoCreate = .T.
BorderStyle = 3
Caption = "Create Small Indexes Using BinToC()"
MaxButton = .F.
HelpContextID = 125
Name = "Form1"
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
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
��� ��<�%�'�U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP	�%�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�����UTHISSETALL
Deactivate,��Activate���Init���1Q�A2�2d	��A�3d����	)�textboxtextboxText1Form1mEnabled = .F.
Height = 160
Left = 11
ReadOnly = .T.
TabIndex = 0
Top = 64
Width = 417
Name = "Text1"

commandbutton
commandbuttonCommand1Form1�Top = 234
Left = 267
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Run Test"
Enabled = .T.
TabIndex = 1
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,savecomp,olblref
m.saveComp = SET("COMP")
SET COMP OFF
FOR i = 1 TO 5
m.saveComp = SET("COMP")
	IF !USED("orditems")
		USE orditems EXCLUSIVE
	ELSE
		SELECT orditems
	ENDIF
	IF EMPTY(ALIAS()) OR !ISEXCLUSIVE()
		USE orditems EXCLUSIVE
		IF EMPTY(ALIAS())
			MESSAGEBOX(C_FILEINUSE_LOC)
			RETURN
		ENDIF
	ENDIF

	DELETE TAG ALL
	DO CASE
	CASE m.i = 1
		INDEX on line_no TAG line_no
	CASE m.i = 2	
		INDEX on line_no2 TAG line_no2
	CASE m.i = 3
		INDEX on STR(line_no) TAG line_no
	CASE m.i = 4
		INDEX on BINTOC(line_no,1)TAG line_no 
	CASE m.i = 5
		INDEX on BINTOC(line_no,2)TAG line_no2 
	ENDCASE
	USE
	SET COMP ON
	olblref = EVAL("thisform.fsize"+ALLTRIM(STR(m.i)))
	olblref.caption = ALLTRIM(STR(FSIZE("orditems.cdx")))
	SET COMP OFF
ENDFOR

SET COMP &savecomp
ENDPROC
��� ���%�Z'�U������T�
��C�COMPv��GA������(����o�T�
��C�COMPv��%�C�orditems�
��~�Q��orditems����F���%�CC��C�
��F�Q��orditems�%�CC���B�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�_����
������& �������
������& �������
������& �C�Z�����
������& �C�������
�����& �C������Q�GA �'T��C�thisform.fsizeCC�
�Z���"T���CCC�orditems.cdx�Z���GA���SET COMP &savecomp
UISAVECOMPOLBLREFORDITEMSALLLINE_NOLINE_NO2CAPTIONClick,��1�QaqQ��qAa��AAA��1�1�11A1AAAaq!aAb1�)�labellabelLabel1Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Index Expression"
Enabled = .T.
Height = 15
Left = 102
Top = 77
Width = 82
TabIndex = 0
Name = "Label1"
labellabelLabel2Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "line_no"
Enabled = .T.
Height = 15
Left = 102
Top = 102
Width = 36
TabIndex = 0
Name = "Label2"
labellabelLabel3Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "line_no2"
Enabled = .T.
Height = 15
Left = 102
Top = 126
Width = 42
TabIndex = 0
Name = "Label3"
labellabelLabel4Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "STR(line_no)"
Enabled = .T.
Height = 15
Left = 102
Top = 150
Width = 64
TabIndex = 0
Name = "Label4"
labellabelLabel5Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "BINTOC(line_no)"
Enabled = .T.
Height = 15
Left = 102
Top = 174
Width = 82
TabIndex = 0
Name = "Label5"
labellabelLabel6Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "BINTOC(line_no2)"
Enabled = .T.
Height = 15
Left = 102
Top = 198
Width = 88
TabIndex = 0
Name = "Label6"
labellabelLabel7Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "File Size:"
Enabled = .T.
Height = 15
Left = 282
Top = 77
Width = 44
TabIndex = 0
Name = "Label7"
labellabelfsize1Form1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "???"
Enabled = .T.
Height = 17
Left = 282
Top = 101
Width = 49
TabIndex = 0
Name = "fsize1"
labellabelfsize2Form1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "???"
Enabled = .T.
Height = 17
Left = 282
Top = 125
Width = 49
TabIndex = 0
Name = "fsize2"
labellabelfsize3Form1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "???"
Enabled = .T.
Height = 17
Left = 282
Top = 149
Width = 49
TabIndex = 0
Name = "fsize3"
labellabelfsize4Form1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "???"
Enabled = .T.
Height = 17
Left = 282
Top = 173
Width = 49
TabIndex = 0
Name = "fsize4"
labellabelfsize5Form1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "???"
Enabled = .T.
Height = 17
Left = 282
Top = 197
Width = 49
TabIndex = 0
Name = "fsize5"
c_solutions..\solution.vcxcustomC_solutions1Form1FTop = 234
Left = 55
Height = 18
Width = 25
Name = "C_solutions1"
behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 234
Left = 13
TabIndex = 3
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose1Form1aTop = 234
Left = 356
Height = 23
Width = 72
Enabled = .T.
TabIndex = 2
Name = "Cmdclose1"
shapeshapeShape2Form1bTop = 14
Left = 11
Height = 43
Width = 418
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel12Form1FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Use the BinToC() function to help reduce your index file sizes.  To see the effect on file sizes for these scenarios, click Run Test."
Height = 28
Left = 20
Top = 24
Width = 395
TabIndex = 0
Name = "Label12"
labellabelLabel13Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 19
Top = 8
Width = 62
TabIndex = 0
Name = "Label13"
shapeshapeShape1Form1RTop = 91
Left = 102
Height = 2
Width = 84
SpecialEffect = 0
Name = "Shape1"
shapeshapeShape3Form1RTop = 91
Left = 282
Height = 2
Width = 55
SpecialEffect = 0
Name = "Shape3"
labellabelLabel8Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Type"
Enabled = .T.
Height = 15
Left = 209
Top = 77
Width = 26
TabIndex = 0
Name = "Label8"
shapeshapeShape4Form1RTop = 91
Left = 209
Height = 2
Width = 26
SpecialEffect = 0
Name = "Shape4"
labellabelLabel9Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "numeric (8)"
Enabled = .T.
Height = 15
Left = 209
Top = 102
Width = 54
TabIndex = 0
Name = "Label9"
labellabelLabel10Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "integer"
Enabled = .T.
Height = 15
Left = 209
Top = 126
Width = 34
TabIndex = 0
Name = "Label10"
labellabelLabel11Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "string"
Enabled = .T.
Height = 15
Left = 209
Top = 150
Width = 27
TabIndex = 0
Name = "Label11"
labellabelLabel14Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "string"
Enabled = .T.
Height = 15
Left = 209
Top = 174
Width = 27
TabIndex = 0
Name = "Label14"
labellabelLabel15Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "string"
Enabled = .T.
Height = 15
Left = 209
Top = 198
Width = 27
TabIndex = 0
Name = "Label15"
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 = 265
Width = 439
DoCreate = .T.
BorderStyle = 3
Caption = "Create Small Indexes Using BinToC()"
MaxButton = .F.
HelpContextID = 1231543
Name = "Form1"