** END HEADER -- do not remove this line
//
// Generated on 31/08/2020
//
parameter bModal
local f
f = new agostinhoForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class agostinhoForm of FORM
   with (this)
      height = 23.1818
      left = 81.1429
      top = 6.4091
      width = 80.7143
   endwith

   this.QUERY1 = new QUERY(this)
   with (this.QUERY1)
      left = 9.0
      top = 3.0
      width = 5.0
      height = 1.0
      sql = "select 'Stock number','Vendor code',description from 'c:\dbasetutorial\tables\products.dbf' where description like '%'"
      active = true
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.0
      left = 26.2857
      top = 3.9091
      width = 17.7143
      text = "search argument"
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      height = 1.0
      left = 49.2857
      top = 3.9091
      width = 16.7143
      value = ""
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.query1.rowset
      height = 11.8636
      left = 4.0
      top = 7.5
      width = 73.0
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 51.0
      top = 5.5
      width = 15.2857
      text = "Apply filter"
   endwith

   this.rowset = this.query1.rowset

   function PUSHBUTTON1_onClick()		
		form.query1.sql="select 'Stock number','Vendor code',description from 'c:\dbasetutorial\tables\products.dbf' where description like '"+form.entryfield1.value+"'"
		form.query1.requery()
		
      return

endclass