Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/complus/events/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/complus/events/newbook.sct
eVERSION =   3.00events.hdataenvironmentdataenvironmentDataenvironmentwLeft = 1
Top = 220
Width = 520
Height = 200
AutoOpenTables = .F.
AutoCloseTables = .F.
Name = "Dataenvironment"
cursorcursorCursor1DataenvironmentkLeft = 10
Top = 20
Width = 95
Height = 90
Alias = "books"
CursorSource = books.dbf
Name = "Cursor1"
21formformForm1�Height = 189
Width = 416
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "New Book"
MaxButton = .F.
MinButton = .F.
WindowType = 1
Name = "Form1"
�PROCEDURE Init
IF ATC("BOOKS.DBF",DBF()) = 0
	WAIT WINDOW RUNFROMBOOKSLONLY_LOC TIMEOUT 2
	RETURN .F.
ENDIF
THIS.SavePrice = price
ENDPROC
<�� ##h(%����Uv%�C�	BOOKS.DBFC&����_�:R,�����*This form must be run from BOOKS.SCX form.��B�-���T������UTHIS	SAVEPRICEPRICEInit,��1��qA1�)#saveprice
textboxtextboxtxtTitleForm1_Height = 23
Left = 48
MaxLength = 50
TabIndex = 2
Top = 8
Width = 358
Name = "txtTitle"
labellabellblTitleForm1�AutoSize = .T.
WordWrap = .T.
BackStyle = 0
Caption = "\<Title:"
Left = 12
Top = 12
Width = 26
TabIndex = 1
Name = "lblTitle"
textboxtextboxtxtPriceForm1�Alignment = 3
Value = 0
Height = 23
InputMask = "$99.99"
Left = 48
SelectOnEntry = .T.
TabIndex = 4
Top = 44
Width = 152
Name = "txtPrice"
labellabellblPriceForm1�AutoSize = .T.
WordWrap = .T.
BackStyle = 0
Caption = "\<Price:"
Left = 12
Top = 48
Width = 31
TabIndex = 3
Name = "lblPrice"
editboxeditboxedtDescForm1eHeight = 53
Left = 12
TabIndex = 6
Top = 96
Width = 396
IntegralHeight = .T.
Name = "edtDesc"
labellabellblDescForm1�AutoSize = .T.
WordWrap = .T.
BackStyle = 0
Caption = "\<Description:"
Left = 12
Top = 76
Width = 66
TabIndex = 5
Name = "lblDesc"

commandbutton
commandbuttonCommand1Form1pTop = 156
Left = 234
Height = 27
Width = 84
Caption = "OK"
Default = .T.
TabIndex = 7
Name = "Command1"
<PROCEDURE Click
* Cause COM+ Events

IF THISFORM.txtPrice.Value <= 0 OR;
	EMPTY(ALLTRIM(THISFORM.txtTitle.Value))
	WAIT WINDOW BADNEWBOOK_LOC TIMEOUT 2
	RETURN
ENDIF

WAIT WINDOW PROCESS_LOC NOWAIT

INSERT INTO books (title, price, desc);
	VALUES(ALLTRIM(THISFORM.txtTitle.Value),;
	THISFORM.txtPrice.Value,;
	ALLTRIM(THISFORM.edtDesc.Value))

LOCAL oPublisher
oPublisher = CREATEOBJECT("foxbook_pub.bookpub")
oPublisher.NewBook(ALLTRIM(THISFORM.txtTitle.Value), THISFORM.txtPrice.Value)
RELEASE oPublisher

WAIT CLEAR

THISFORM.Release

ENDPROC
d�� KK��%���UG(%������CC�������e�9R,�����)You must enter book title or valid price.��B��6R,:��+Please be patient while processing order...��Dr��books�����C�����������C���������#T��C�foxbook_pub.bookpub�N��!��CC���������	��<��R�
���
�UTHISFORMTXTPRICEVALUETXTTITLETITLEPRICEDESCEDTDESC
OPUBLISHERNEWBOOKRELEASEClick,��1��AAbEr1qR�21)K
commandbutton
commandbuttonCommand2Form1sTop = 156
Left = 324
Height = 27
Width = 84
Cancel = .T.
Caption = "Cancel"
TabIndex = 8
Name = "Command2"
,PROCEDURE Click
THISFORM.RELEASE
ENDPROC
�� ����%Pe_�U

����UTHISFORMRELEASEClick,��1�1!)�!Arial, 0, 9, 5, 15, 12, 32, 3, 0
events.h�0��(