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

mVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 251
Top = 242
Width = 520
Height = 200
Name = "Dataenvironment"
12frmsolution..\solution.vcxformfrmError Height = 177
Width = 337
DoCreate = .T.
Caption = "Application Error Handling"
Visible = .T.
HelpContextID = 219
colderror = 
lsetffcpath = .T.
Name = "frmError"
C_solutions1.Top = 144
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 144
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 3
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 312
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "Error handling is an essential part of good application development. This generic error object handles the error and also records details of the application state when error occurred."
Label1.Height = 54
Label1.Left = 24
Label1.Top = 24
Label1.Width = 288
Label1.TabIndex = 4
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 6
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 144
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 5
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"
MPROCEDURE clearerror
LOCAL lcError
lcError=THISFORM.cOldError
IF EMPTY(lcError)
	ON ERROR
ELSE
	ON ERROR &lcError
ENDIF
RELEASE cusError
ENDPROC
PROCEDURE Release
DODEFAULT()
THIS.ClearError()
ENDPROC
PROCEDURE Init
#DEFINE C_NOCLASS_LOC "Error class library (_APP.VCX) not found."
DODEFAULT()
LOCAL lcFile
THISFORM.cOldError=ON("ERROR")
lcfile = HOME()+("FFC\_app.vcx")
IF NOT FILE(lcfile)
	WAIT WINDOW C_NOCLASS_LOC TIMEOUT 3
	RETURN .F.
ENDIF
PUBLIC cusError
cusError = NEWOBJECT("_error",lcFile)
ON ERROR cusError.Handle(ERROR(),PROGRAM(),LINENO())
ENDPROC
�� ���%�`.�UY���T������%�C����.�{���K�ON ERROR &lcError
�<��ULCERRORTHISFORM	COLDERRORCUSERROR	��C��
��C����UTHIS
CLEARERROR�	��C�����T���C�ERROR���T��C�Q�FFC\_app.vcx��%�C�0
����9R,�����)Error class library (_APP.VCX) not found.��B�-���7��T��C�_error����31�+cusError.Handle(ERROR(),PROGRAM(),LINENO())�ULCFILETHISFORM	COLDERRORCUSERROR
clearerror,��Release���Init���1q���QAq2��2�q���qAq�11�
��
�B)�colderror
*clearerror 

commandbutton
commandbuttoncmdErrorfrmError�Top = 96
Left = 12
Height = 27
Width = 84
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Create Error"
TabIndex = 1
Name = "cmdError"
]PROCEDURE Click
LOCAL x,y,z
x = 1
y = '2'
z = x + y
z = TRANS(x) + TRANS(y)

ENDPROC
�� ��.�%����US�����
T�����T���2��T������T��C�_C�_��UXYZClick,��1���Q2R)�
commandbutton
commandbuttoncmdViewfrmError�Top = 96
Left = 108
Height = 27
Width = 84
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<View Error Log"
TabIndex = 2
Name = "cmdView"
6PROCEDURE Click
cusError.DisplayErrorLog()
ENDPROC
�� ��k�%[pj�U
��C����UCUSERRORDISPLAYERRORLOGClick,��1�1+)�JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
#Height = 177
Width = 337
DoCreate = .T.
Caption = "Application Error Handling"
Visible = .T.
HelpContextID = 1231605
colderror =
lsetffcpath = .T.
Name = "frmError"
C_solutions1.Top = 144
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 144
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 3
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 312
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "Error handling is an essential part of good application development. This generic error object handles the error and also records details of the application state when error occurred."
Label1.Height = 54
Label1.Left = 24
Label1.Top = 24
Label1.Width = 288
Label1.TabIndex = 4
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 6
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 144
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 5
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"