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

%�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 364
Width = 348
DoCreate = .T.
Caption = "Add Navigation to Forms"
WindowState = 0
HelpContextID = 213
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 331
C_solutions1.Left = 49
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 331
Behindscenes1.Left = 13
Behindscenes1.TabIndex = 10
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 324
Shape2.Name = "Shape2"
Label1.Caption = "Data navigation is a common operation used in many Visual FoxPro applications. Use these controls to add navigation support in your forms. To try samples, first click on Pick a Table button."
Label1.Height = 56
Label1.Left = 24
Label1.Top = 24
Label1.Width = 300
Label1.TabIndex = 12
Label1.Name = "Label1"
Label4.TabIndex = 13
Label4.Name = "Label4"
Cmdclose1.Top = 331
Cmdclose1.Left = 265
Cmdclose1.TabIndex = 11
Cmdclose1.Name = "Cmdclose1"
�PROCEDURE Init
IF NOT DODEFAULT()
	RETURN .F.
ENDIF
SET MULTILOCKS ON

ENDPROC
PROCEDURE Refresh
DODEFAULT()
THIS.Label3.Caption = STR(RECNO())

ENDPROC
0�� �%��	��U"%�C�
���B�-���G_ �U 	��C��T����CCOZ��UTHISLABEL3CAPTIONInit,��RefreshR��1�qAa3�A2Ki�)
commandbutton
commandbuttonCommand1Frmsolution1�Top = 96
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Pick a Table:"
TabIndex = 1
Name = "Command1"
=PROCEDURE Click
#DEFINE FORMCAPTION_LOC	"Data Navigation"
USE ? AGAIN SHARED
IF NOT EMPTY(ALIAS())
  THIS.Parent.Text1.ControlSource = ALIAS()+"."+FIELD(1)
  CURSORSETPROP("BUFFERING",3)
  THIS.Parent.Label3.Caption = STR(RECNO())
  THISFORM.Caption = FORMCAPTION_LOC+" - "+ALLTRIM(ALIAS())
ENDIF

ENDPROC
��� ss}�%	*	�U�
Q�?��%�CC�
���� T�����C�.C�/����C�	BUFFERING���T�����CCOZ��+T����Data Navigation� - CC����UTHISPARENTTEXT1
CONTROLSOURCELABEL3CAPTIONTHISFORMClick,��1���q�A22)slabellabelLabel3Frmsolution1zAutoSize = .T.
Caption = (STR(RECNO()))
Height = 17
Left = 180
Top = 101
Width = 36
TabIndex = 14
Name = "Label3"
_nav2buttons..\..\..\ffc\_table.vcx	container_table2navbuttons1Frmsolution1@Top = 139
Left = 49
TabIndex = 3
Name = "_table2navbuttons1"
cmgNav.Command1.Top = 5
cmgNav.Command1.Left = 5
cmgNav.Command1.Name = "Command1"
cmgNav.Command2.Top = 5
cmgNav.Command2.Left = 35
cmgNav.Command2.Name = "Command2"
cmgNav.BorderStyle = 0
cmgNav.Name = "cmgNav"
cusTableNav.Name = "cusTableNav"
_nav4buttons..\..\..\ffc\_table.vcx	container_table4navbuttons1Frmsolution1Top = 139
Left = 133
Width = 137
TabIndex = 4
Name = "_table4navbuttons1"
cmgNav.Command1.Top = 5
cmgNav.Command1.Left = 33
cmgNav.Command1.Name = "Command1"
cmgNav.Command2.Top = 5
cmgNav.Command2.Left = 63
cmgNav.Command2.Name = "Command2"
cmgNav.BorderStyle = 0
cmgNav.TabIndex = 2
cmgNav.Name = "cmgNav"
cusTableNav.Name = "cusTableNav"
cmdTop.Top = 6
cmdTop.Left = 9
cmdTop.TabIndex = 1
cmdTop.Name = "cmdTop"
cmdBottom.Top = 6
cmdBottom.Left = 101
cmdBottom.TabIndex = 3
cmdBottom.Name = "cmdBottom"
labellabelLabel2Frmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Current Record:"
Height = 15
Left = 96
Top = 101
Width = 77
TabIndex = 15
Name = "Label2"
textboxtextboxText1Frmsolution1xFontName = "MS Sans Serif"
FontSize = 8
Height = 36
Left = 13
TabIndex = 9
Top = 283
Width = 324
Name = "Text1"
	_tablenav..\..\..\ffc\_table.vcxcustom	_tablenavFrmsolution1*Top = 331
Left = 85
Name = "_tablenav"
PROCEDURE dotopmessage
#DEFINE BOF_LOC	"TOP"
WAIT WINDOW NOWAIT BOF_LOC
?? CHR(7)

ENDPROC
PROCEDURE docycletopmessage
#DEFINE CYCLETOP_LOC	"Cycling Top"
WAIT WINDOW NOWAIT CYCLETOP_LOC
?? CHR(7)
ENDPROC
PROCEDURE docyclebottommessage
#DEFINE CYCLEEND_LOC	"Cycling Bottom"
WAIT WINDOW NOWAIT CYCLEEND_LOC
?? CHR(7)
ENDPROC
PROCEDURE dobottommessage
#DEFINE BOTTOM_LOC	"Bottom"
WAIT WINDOW NOWAIT BOTTOM_LOC
?? CHR(7)
ENDPROC
PROCEDURE refreshuiafterchange
DODEFAULT()
THIS.Parent.Label3.Caption = STR(RECNO())
ENDPROC
\�� CC9O%���UR,:��TOP����C� ��U'R,:��Cycling Top����C� ��U*R,:��Cycling Bottom����C� ��U"R,:��Bottom����C� ��U#	��C��T�����CCOZ��UTHISPARENTLABEL3CAPTIONdotopmessage,��docycletopmessageO��docyclebottommessagez��dobottommessage���refreshuiafterchange���1��3b�2��2�2�q1V~��H
n�
�)C
commandbutton
commandbuttonCommand4Frmsolution1�AutoSize = .F.
Top = 240
Left = 69
Height = 23
Width = 192
FontName = "MS Sans Serif"
FontSize = 8
Caption = "THISFORM._TableNav.GoNext()"
TabIndex = 8
Name = "Command4"
YPROCEDURE Click
LOCAL lcDo
lcDo = STRTRAN(THIS.Caption,SPACE(1),"")
&lcDo

ENDPROC
�� ����%r���U-���T��C��C�X����	&lcDo
ULCDOTHISCAPTIONClick,��1q��2N)�
commandbutton
commandbuttonCommand3Frmsolution1�AutoSize = .F.
Top = 216
Left = 69
Height = 23
Width = 192
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "THISFORM._TableNav.GoPrevious()"
TabIndex = 7
Name = "Command3"
YPROCEDURE Click
LOCAL lcDo
lcDo = STRTRAN(THIS.Caption,SPACE(1),"")
&lcDo

ENDPROC
�� ����%r���U-���T��C��C�X����	&lcDo
ULCDOTHISCAPTIONClick,��1q��2N)�_nav4picbuttons..\..\..\ffc\_table2.vcx	container_nav4picbuttons1Frmsolution1�Top = 175
Left = 49
TabIndex = 5
Name = "_nav4picbuttons1"
cmgNav.Command1.Top = 5
cmgNav.Command1.Left = 29
cmgNav.Command1.Name = "Command1"
cmgNav.Command2.Top = 5
cmgNav.Command2.Left = 53
cmgNav.Command2.Name = "Command2"
cmgNav.BorderStyle = 0
cmgNav.TabIndex = 2
cmgNav.Name = "cmgNav"
cusTableNav.Name = "cusTableNav"
cmdTop.TabIndex = 1
cmdTop.Name = "cmdTop"
cmdBottom.TabIndex = 3
cmdBottom.Name = "cmdBottom"
_nav2picbuttons..\..\..\ffc\_table2.vcx	container_nav2picbuttons1Frmsolution1'Top = 175
Left = 205
TabIndex = 6
Name = "_nav2picbuttons1"
cmgNav.Command1.Top = 5
cmgNav.Command1.Left = 5
cmgNav.Command1.Name = "Command1"
cmgNav.Command2.Top = 5
cmgNav.Command2.Left = 29
cmgNav.Command2.Name = "Command2"
cmgNav.Name = "cmgNav"
cusTableNav.Name = "cusTableNav"
_gotobutton..\..\..\ffc\_table2.vcx
commandbutton_gotobutton1Frmsolution1~Top = 96
Left = 264
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 2
Name = "_gotobutton1"
kArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
�Height = 364
Width = 348
DoCreate = .T.
Caption = "Add Navigation to Forms"
WindowState = 0
HelpContextID = 1231599
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 331
C_solutions1.Left = 49
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 331
Behindscenes1.Left = 13
Behindscenes1.TabIndex = 10
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 324
Shape2.Name = "Shape2"
Label1.Caption = "Data navigation is a common operation used in many Visual FoxPro applications. Use these controls to add navigation support in your forms. To try samples, first click on Pick a Table button."
Label1.Height = 56
Label1.Left = 24
Label1.Top = 24
Label1.Width = 300
Label1.TabIndex = 12
Label1.Name = "Label1"
Label4.TabIndex = 13
Label4.Name = "Label4"
Cmdclose1.Top = 331
Cmdclose1.Left = 265
Cmdclose1.TabIndex = 11
Cmdclose1.Name = "Cmdclose1"