Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/complus/events/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/complus/events/books.sct

�VERSION =   3.00events.hdataenvironmentdataenvironmentDataenvironmentJLeft = 8
Top = 327
Width = 520
Height = 186
Name = "Dataenvironment"
cursorcursorCursor1DataenvironmentkLeft = 10
Top = 20
Width = 95
Height = 90
Alias = "books"
CursorSource = books.dbf
Name = "Cursor1"
21formformForm1�Height = 276
Width = 430
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "My Book Company"
MaxButton = .F.
Name = "Form1"
bPROCEDURE Init
THIS.cThisPath = JUSTPATH(SUBSTR(SYS(16),ATC(".INIT",SYS(16))+6))+"\"

ENDPROC
�� ����%s���U2/T���CCC�]C�.INITC�]��\���\��UTHIS	CTHISPATHInit,��1�2W)�cthispath
editboxeditboxedtDescForm1|Comment = ""
Height = 75
Left = 12
TabIndex = 3
Top = 156
Width = 408
ControlSource = "books.desc"
Name = "edtDesc"
labellabellblDescForm1�AutoSize = .T.
WordWrap = .T.
BackStyle = 0
Caption = "\<Description"
Left = 12
Top = 142
Width = 63
TabIndex = 2
Name = "lblDesc"
gridgridGrid1Form1-ColumnCount = 2
Height = 120
Left = 12
Panel = 1
ReadOnly = .T.
SplitBar = .F.
TabIndex = 1
Top = 12
Width = 408
Name = "Grid1"
Column1.Width = 315
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.Width = 58
Column2.ReadOnly = .T.
Column2.Sparse = .F.
Column2.Name = "Column2"
OPROCEDURE AfterRowColChange
LPARAMETERS nColIndex
THISFORM.REFRESH
ENDPROC
�� ��94%b�}�U���
����U	NCOLINDEXTHISFORMREFRESHAfterRowColChange,��1q�1D)�headerheaderHeader1Form1.Grid1.Column1%Caption = "Title"
Name = "Header1"
textboxtextboxText1Form1.Grid1.Column1iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
headerheaderHeader1Form1.Grid1.Column2%Caption = "Price"
Name = "Header1"
textboxtextboxText1Form1.Grid1.Column2�BorderStyle = 0
InputMask = "$$99.99"
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"

commandbutton
commandbuttonCommand1Form1kTop = 240
Left = 336
Height = 27
Width = 84
Caption = "\<Audit File"
TabIndex = 6
Name = "Command1"
uPROCEDURE Click
IF FILE(LOGFILE)
	MODIFY FILE LOGFILE
ELSE
	WAIT WINDOW NOLOGFILE_LOC TIMEOUT 2
ENDIF
ENDPROC
�� ]i%����Ul%�C�c:\booksub1.txt0��7�/��c:\booksub1.txt���e�&R,�����No log file available.���UClick,��1���aA1j)
commandbutton
commandbuttonCommand2Form1lTop = 240
Left = 108
Height = 27
Width = 96
Caption = "\<New Book..."
TabIndex = 4
Name = "Command2"
\PROCEDURE Click
DO FORM (THISFORM.cThisPath + "NewBook.SCX")
THISFORM.Refresh

ENDPROC
�� ��t%x���U*����NewBook.SCX��
����UTHISFORM	CTHISPATHREFRESHClick,��1��2Q)�
commandbutton
commandbuttonCommand3Form1pTop = 240
Left = 216
Height = 27
Width = 96
Caption = "\<Change Price..."
TabIndex = 5
Name = "Command3"
NPROCEDURE Click
DO FORM (THISFORM.cThisPath + "PriceChange.SCX")

ENDPROC
�� ���%i~x�U$!����PriceChange.SCX��UTHISFORM	CTHISPATHClick,��12C)�!Arial, 0, 9, 5, 15, 12, 32, 3, 0
events.hNG0��(