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

�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 419
Top = 194
Width = 520
Height = 200
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Left = 10
Top = 20
Width = 121
Height = 113
Alias = "customer"
Database = ..\..\data\testdata.dbc
CursorSource = "customer"
Name = "Cursor1"
cursorcursorCursor2Dataenvironment�Left = 164
Top = 24
Width = 136
Height = 84
Alias = "orders"
Database = ..\..\data\testdata.dbc
CursorSource = "orders"
Name = "Cursor2"
relationrelation	Relation1DataenvironmentyParentAlias = "customer"
RelationalExpr = "cust_id"
ChildAlias = "orders"
ChildOrder = "cust_id"
Name = "Relation1"
42frmsolution..\solution.vcxformFrmsolution1XHeight = 264
Width = 529
DoCreate = .T.
BufferMode = 0
Caption = "Use Edit Buttons for a Complex Form"
Visible = .T.
HelpContextID = 210
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 16
C_solutions1.Left = 396
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 12
Behindscenes1.Left = 408
Behindscenes1.TabIndex = 5
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 372
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "Use the complex data edit buttons for editing forms involving 1 to Many relationships. These buttons, which are used by the Form Wizard, can be dropped right on to your form."
Label1.Height = 41
Label1.Left = 24
Label1.Top = 24
Label1.Width = 353
Label1.TabIndex = 6
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 8
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 12
Cmdclose1.Left = 444
Cmdclose1.TabIndex = 7
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"
4PROCEDURE Load
LOCAL lcFFCPath,lcSetPath
IF THIS.lSetFFCPath
	DODEFAULT()
	lcSetPath = SET("PATH")
	lcFFCPath = HOME()+"WIZARDS"
	IF ATC(lcFFCPath,lcSetPath)#0
		RETURN
	ENDIF
	IF EMPTY(lcSetPath)
		SET PATH TO (lcFFCPATH)
	ELSE
		SET PATH TO (lcSetPath)+";"+(lcFFCPATH)
	ENDIF
ENDIF
ENDPROC
��� ��M%
8�U�����%�������	��C��T��C�PATHv��T��C�Q�WIZARDS��%�C������i�B��%�C������G)(�������G)(���;�����U	LCFFCPATH	LCSETPATHTHISLSETFFCPATHLoad,��1��1�aAA���aAA1))�gridgrid	grdOrdersFrmsolution1�ColumnCount = -1
FontName = "MS Sans Serif"
FontSize = 8
Height = 96
Left = 12
RecordSource = "orders"
RecordSourceType = 1
RowHeight = 16
TabIndex = 4
Top = 120
Width = 504
Name = "grdOrders"
labellabel
lblCompanyFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Company"
Left = 148
Top = 88
Width = 44
TabIndex = 10
ZOrderSet = 12
Name = "lblCompany"
textboxtextbox
txtCust_idFrmsolution1'Comment = "Unique Customer ID code made up of the first five character of the Customer's Company name."
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.cust_id"
Height = 23
Left = 72
ReadOnly = .F.
TabIndex = 2
Top = 85
Width = 52
ZOrderSet = 9
Name = "txtCust_id"
labellabel
lblCust_idFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Cust_id"
Left = 16
Top = 89
Width = 35
TabIndex = 9
ZOrderSet = 10
Name = "lblCust_id"
picbtns..\..\..\wizards\wizbtns.vcx	containerPicbtns1Frmsolution1;Top = 228
Left = 12
TabIndex = 1
Name = "Picbtns1"
cmdPrev.Name = "cmdPrev"
cmdNext.Name = "cmdNext"
cmdTop.Name = "cmdTop"
cmdEnd.Name = "cmdEnd"
cmdFind.Name = "cmdFind"
cmdPrint.Name = "cmdPrint"
cmdExit.Name = "cmdExit"
cmdAdd.Name = "cmdAdd"
cmdDelete.Name = "cmdDelete"
cmdEdit.Name = "cmdEdit"
textboxtextbox
txtCompanyFrmsolution1�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.company"
Height = 23
Left = 204
ReadOnly = .F.
TabIndex = 3
Top = 84
Width = 216
ZOrderSet = 11
Name = "txtCompany"
JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
\Height = 264
Width = 529
DoCreate = .T.
BufferMode = 0
Caption = "Use Edit Buttons for a Complex Form"
Visible = .T.
HelpContextID = 1231596
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 16
C_solutions1.Left = 396
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 12
Behindscenes1.Left = 408
Behindscenes1.TabIndex = 5
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 372
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "Use the complex data edit buttons for editing forms involving 1 to Many relationships. These buttons, which are used by the Form Wizard, can be dropped right on to your form."
Label1.Height = 41
Label1.Left = 24
Label1.Top = 24
Label1.Width = 353
Label1.TabIndex = 6
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 8
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 12
Cmdclose1.Left = 444
Cmdclose1.TabIndex = 7
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"