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

class test_requeryForm of FORM
   with (this)
      height = 23.9545
      left = 9.8571
      top = 0.0
      width = 119.5714
      text = ""
   endwith

   this.DBASESAMPLES1 = new DATABASE(this)
   with (this.DBASESAMPLES1)
      left = 17.0
      top = 2.0
      width = 11.0
      height = 1.0
      databaseName = "DBASESAMPLES"
      active = true
   endwith

   this.CUSTOMERS1 = new QUERY(this)
   with (this.CUSTOMERS1)
      left = 18.0
      top = 2.0
      width = 9.0
      height = 1.0
      database = form.dbasesamples1
      sql = "select * from CUSTOMERS.DBF where lower(company) like :cstr"
      params["cstr"] = "%"
      active = true
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.customers1.rowset
      allowEditing = false
      anchor = 1	// Bottom
      height = 14.0
      left = 0.0
      top = 9.8636
      width = 119.2857
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      onKey = class::ENTRYFIELD1_ONKEY
      height = 1.0
      left = 37.0
      top = 3.5
      width = 33.0
      value = ""
   endwith


   function ENTRYFIELD1_onKey(nChar, nPosition,bShift,bControl)
      form.customers1.params["cstr"] = lower(ltrim(rtrim(this.value))+ "%")
      form.customers1.requery()
      return

endclass