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

 �VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 566
Top = 178
Width = 520
Height = 200
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Left = 10
Top = 20
Width = 121
Height = 113
Alias = "customer"
BufferModeOverride = 5
Database = ..\..\data\testdata.dbc
CursorSource = "customer"
Name = "Cursor1"
22frmsolution..\solution.vcxformFrmsolution1RHeight = 267
Width = 454
DoCreate = .T.
BufferMode = 0
Caption = "Use Edit Buttons for a Simple Form"
Visible = .T.
HelpContextID = 211
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 16
C_solutions1.Left = 324
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 12
Behindscenes1.Left = 336
Behindscenes1.TabIndex = 9
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 300
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "Use the simple data edit buttons for editing simple forms with a single table. 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 = 276
Label1.TabIndex = 10
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 12
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 12
Cmdclose1.Left = 372
Cmdclose1.TabIndex = 11
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))�textboxtextbox
txtContactFrmsolution1�Comment = "Primary contact for this Customer."
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.contact"
Height = 23
Left = 60
MaxLength = 30
TabIndex = 3
Top = 120
Width = 218
Name = "txtContact"
labellabel
lblContactFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Contact"
Left = 12
Top = 123
Width = 37
TabIndex = 15
Name = "lblContact"
textboxtextbox
txtCust_idFrmsolution1cComment = "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 = 60
ReadOnly = .F.
TabIndex = 1
Top = 84
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
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 = 12
Top = 88
Width = 35
TabIndex = 13
ZOrderSet = 10
Name = "lblCust_id"
textboxtextbox
txtCompanyFrmsolution1Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.company"
Height = 23
Left = 192
ReadOnly = .F.
TabIndex = 2
Top = 84
Width = 180
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
ZOrderSet = 11
Name = "txtCompany"
labellabel
lblCompanyFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Company"
Left = 136
Top = 88
Width = 44
TabIndex = 14
ZOrderSet = 12
Name = "lblCompany"
textboxtextboxtxtTitleFrmsolution1�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.title"
Height = 23
Left = 60
MaxLength = 30
TabIndex = 4
Top = 156
Width = 218
Name = "txtTitle"
labellabellblTitleFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Title"
Left = 12
Top = 159
Width = 20
TabIndex = 16
Name = "lblTitle"
textboxtextboxtxtCityFrmsolution1�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.city"
Height = 23
Left = 60
MaxLength = 15
TabIndex = 5
Top = 192
Width = 114
Name = "txtCity"
labellabellblCityFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "City"
Left = 12
Top = 195
Width = 17
TabIndex = 17
Name = "lblCity"
textboxtextbox
txtCountryFrmsolution1�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.country"
Height = 23
Left = 240
MaxLength = 15
TabIndex = 6
Top = 192
Width = 132
Name = "txtCountry"
labellabel
lblCountryFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Country"
Left = 190
Top = 195
Width = 36
TabIndex = 18
Name = "lblCountry"
picformbtns..\..\..\wizards\wizbtns.vcx	containerPicformbtns1Frmsolution1�Top = 231
Left = 12
TabIndex = 7
Name = "Picformbtns1"
cmdFind.Name = "cmdFind"
cmdPrint.Name = "cmdPrint"
cmdExit.Name = "cmdExit"
cmdAdd.Name = "cmdAdd"
cmdDelete.Name = "cmdDelete"
_nav4picbuttons..\..\..\ffc\_table2.vcx	container_nav4picbuttons1Frmsolution1�Top = 228
Left = 336
TabIndex = 8
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"
kArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Arial, 1, 9, 6, 15, 12, 15, 3, 0
VHeight = 267
Width = 454
DoCreate = .T.
BufferMode = 0
Caption = "Use Edit Buttons for a Simple Form"
Visible = .T.
HelpContextID = 1231597
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 16
C_solutions1.Left = 324
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 12
Behindscenes1.Left = 336
Behindscenes1.TabIndex = 9
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 300
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "Use the simple data edit buttons for editing simple forms with a single table. 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 = 276
Label1.TabIndex = 10
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 12
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 12
Cmdclose1.Left = 372
Cmdclose1.TabIndex = 11
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"