PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


	**************************************************
DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	*-- XML Metadata for customizable properties
	_memberdata = ""
	Name = "Form1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  144 , ;
		Left =  156 , ;
		Height =  27 , ;
		Width =  84 , ;
		Caption = "Command1", ;
		Name = "Command1"


	ADD OBJECT text1 AS textbox WITH ;
		Height =  23 , ;
		Left =  144 , ;
		Top =  84 , ;
		Width =  100 , ;
		Name = "Text1"


	PROCEDURE Load
		create cursor tt (id i autoinc, d d)
		for i= 1  to  10 
			insert into tt (d) values (date()-i)
		endfor
	ENDPROC


	PROCEDURE Init
		set date british 
		this.text1.Value = date()
	ENDPROC


	PROCEDURE command1.Click
		LOCAL ldDate 
		ldDate = thisform.text1.Value
		select * from tt where d=ldDate
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************