Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/multi.sct
yVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 104
Top = 199
Width = 623
Height = 352
Name = "Dataenvironment"
cursorcursorcursor1Dataenvironment�Left = 20
Top = 10
Width = 98
Height = 108
Alias = "employee"
Database = ..\..\data\testdata.dbc
CursorSource = "employee"
Name = "cursor1"
22formformfrmmulti�DataSession = 2
ScaleMode = 3
Top = 6
Left = 6
Height = 92
Width = 320
DoCreate = .T.
BufferMode = 2
BorderStyle = 3
Caption = "Multiple Instances"
MaxButton = .F.
Name = "frmmulti"
vPROCEDURE savechanges
nStatus = THIS.vcr1.datachecker1.CheckConflicts()
IF nStatus = 2
	WAIT WINDOW 'Unable to make one or more updates.'
ENDIF
=THIS.vcr1.datachecker1.VerifyChanges()
ENDPROC
PROCEDURE Init
*---------------------------------------------------------------*
* Accept parameters from the code in frmLaunch.cmdLaunch.Click
* in Launch.scx.  If no parameters are passed, the default Top, Left
* and Caption properties of this form are used
*---------------------------------------------------------------*

PARAMETERS nTop, nLeft, cCaption
IF TYPE('nTop') = 'N'
	IF nTop < _SCREEN.Height - THIS.Height
		THIS.Top = nTop
	ENDIF
ENDIF
IF TYPE('nLeft') = 'N'
	IF nLeft < _SCREEN.Width - THIS.Width
		THIS.Left = nLeft
	ENDIF
ENDIF
IF TYPE('cCaption') = 'C'
	THIS.Caption = cCaption
ENDIF
ENDPROC
PROCEDURE Destroy
THISFORM.SaveChanges

ENDPROC

�� ��MI%$�X�UoT��C������%�����U�-R,��#Unable to make one or more updates.�����C������UNSTATUSTHISVCR1DATACHECKER1CHECKCONFLICTS
VERIFYCHANGES�4����%�C�nTopb�N��U�%���9���
��Q�T��������%�C�nLeftb�N����%���9���
����T��������%�C�cCaptionb�C����T�������U	NTOPNLEFTCCAPTIONHEIGHTTHISTOPWIDTHLEFTCAPTION

����UTHISFORMSAVECHANGESsavechanges,��Init���Destroy���1q�A12���AA��AA�A2�2��7Uk)�1*savechanges Prompt to save or discard changes.
editboxeditbox	last_namefrmmulti�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Format = "K"
Height = 23
Left = 166
TabIndex = 4
Top = 27
Width = 145
ControlSource = "employee.last_name"
Name = "last_name"
editboxeditbox
first_namefrmmulti�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 9
TabIndex = 2
Top = 27
Width = 145
ControlSource = "employee.first_name"
Name = "first_name"
cmdclose..\solution.vcx
commandbutton	Cmdclose1frmmultiHAutoSize = .F.
Top = 60
Left = 238
TabIndex = 6
Name = "Cmdclose1"
vcr..\solution.vcx	containerVcr1frmmulti�Top = 59
Left = 9
Width = 104
Height = 24
TabIndex = 5
Name = "Vcr1"
cmdTop.Name = "cmdTop"
cmdPrior.Name = "cmdPrior"
cmdNext.Name = "cmdNext"
cmdBottom.Name = "cmdBottom"
Datachecker1.Name = "Datachecker1"
labellabelLabel1frmmulti�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<First name:"
Height = 15
Left = 9
Top = 10
Width = 53
TabIndex = 1
Name = "Label1"
labellabelLabel2frmmulti�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Last name:"
Height = 15
Left = 166
Top = 10
Width = 54
TabIndex = 3
Name = "Label2"
rArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Courier New, 1, 11, 9, 17, 12, 10, 5, 0