Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/conflicts.sct
�VERSION =   3.00dataenvironmentdataenvironmentDataenvironment`Top = 200
Left = 72
Width = 258
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Top = 20
Left = 10
Height = 113
Width = 121
Alias = "customer"
BufferModeOverride = 5
Database = ..\..\data\testdata.dbc
CursorSource = "customer"
Name = "Cursor1"
22frmsolution..\solution.vcxformfrmConflicts(Height = 261
Width = 326
DoCreate = .T.
BufferMode = 0
Caption = "Handle Data Conflicts"
Visible = .T.
HelpContextID = 1231594
lsetffcpath = .T.
Name = "frmConflicts"
C_solutions1.Top = 228
C_solutions1.Left = 48
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 228
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 7
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 = "Click on the New Form... button to launch a new instance of this form. Then change some of the data and click on the Update... button."
Label1.Height = 41
Label1.Left = 24
Label1.Top = 24
Label1.Width = 276
Label1.TabIndex = 8
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 10
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 228
Cmdclose1.Left = 240
Cmdclose1.TabIndex = 9
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"
textboxtextbox
txtContactfrmConflicts�Comment = "Primary contact for this Customer."
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.contact"
Height = 23
Left = 72
MaxLength = 30
TabIndex = 2
Top = 116
Width = 240
Name = "txtContact"
labellabel
lblContactfrmConflicts�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Contact"
Left = 12
Top = 119
Width = 37
TabIndex = 12
Name = "lblContact"
textboxtextboxtxtTitlefrmConflicts�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.title"
Height = 23
Left = 72
MaxLength = 30
TabIndex = 3
Top = 148
Width = 240
Name = "txtTitle"
labellabellblTitlefrmConflicts�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Title"
Left = 12
Top = 151
Width = 20
TabIndex = 13
Name = "lblTitle"
textboxtextbox
txtCompanyfrmConflicts
Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.company"
Height = 23
Left = 72
ReadOnly = .F.
TabIndex = 1
Top = 84
Width = 240
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
ZOrderSet = 11
Name = "txtCompany"
_nav4picbuttons..\..\..\ffc\_table2.vcx	container_nav4picbuttons1frmConflicts�Top = 180
Left = -1
TabIndex = 4
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.Top = 12
cusTableNav.Left = 108
cusTableNav.Name = "cusTableNav"
cmdTop.TabIndex = 1
cmdTop.Name = "cmdTop"
cmdBottom.TabIndex = 3
cmdBottom.Name = "cmdBottom"
labellabel
lblCompanyfrmConflicts�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Company"
Left = 12
Top = 87
Width = 44
TabIndex = 11
ZOrderSet = 12
Name = "lblCompany"

commandbutton
commandbuttoncmdConflictsfrmConflicts�Top = 185
Left = 240
Height = 24
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Update..."
TabIndex = 6
Name = "cmdConflicts"
PROCEDURE Click
LOCAL loConflicts
loConflicts= NewObject("_conflicts",HOME()+"ffc\_dataquery.vcx")
IF VARTYPE(loConflicts) # "O"
	RETURN
ENDIF
loConflicts.SetAll("fontname","MS Sans Serif")
loConflicts.SetAll("fontsize",8)
loConflicts.Show(1)
THISFORM.Refresh()

ENDPROC
��� ���}%='�U����3T��C�
_conflictsC�Q�ffc\_dataquery.vcx���%�C����O��S�B��(��C�fontname�
MS Sans Serif������C�fontsize�������C�����
��C����ULOCONFLICTSSETALLSHOWTHISFORMREFRESHClick,��1q1QAA���2)�
commandbutton
commandbutton
cmdSessionfrmConflicts�Top = 185
Left = 156
Height = 24
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<New Form..."
TabIndex = 5
ZOrderSet = 15
Name = "cmdSession"
�PROCEDURE Click
#DEFINE NOFILE_LOC	"Could not locate the proper form. Make sure the Samples Directory in the File Locations tab of the Options dialog is properly set."

lcFormName = SYS(2015)

LOCAL lcSamplesDir

DO CASE
CASE FILE(HOME(2)+"solution\ffc\conflicts.scx")
	DO FORM (HOME(2)+"solution\ffc\conflicts.scx") NAME (lcFormName)
CASE FILE(HOME()+"samples\solution\ffc\conflicts.scx")
	DO FORM (HOME()+"samples\solution\ffc\conflicts.scx") NAME (lcFormName)
OTHERWISE
	MESSAGEBOX(NOFILE_LOC)
	RETURN
ENDCASE

WITH EVAL(lcFormName)
	.top = .top + 10
	.left = .left + 10
	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
		.SetAll('FontName', 'Arial')
	ELSE
		.SetAll('FontName', 'MS Sans Serif')
	ENDIF
	.SetAll('FontSize',8)
ENDWITH

ENDPROC
�� ���%*g9�U�T��C��]�����
H�$���0�CC��Q�solution\ffc\conflicts.scx0����3�C��Q�solution\ffc\conflicts.scx�J����5�CC�Q�"samples\solution\ffc\conflicts.scx0����8�C�Q�"samples\solution\ffc\conflicts.scx�J����2������CقCould not locate the proper form. Make sure the Samples Directory in the File Locations tab of the Options dialog is properly set.�x��B����C�����T����
��T����
���%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$���{���C�FontName�Arial������&��C�FontName�
MS Sans Serif������C�FontSize������U
LCFORMNAMELCSAMPLESDIRTOPLEFTSETALLClick,��1r�1Q���AA�11d	��aA�A2�)�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