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

class test_paramsForm of FORM
   with (this)
      height = 16.0
      left = 50.8571
      top = -0.9091
      width = 79.5714
      text = ""
   endwith

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

   this.PRODUCTS1 = new QUERY(this)
   with (this.PRODUCTS1)
      left = 9.0
      top = 2.0
      width = 9.0
      height = 1.0
      database = form.dbasesamples1
      sql = "select * from PRODUCTS.DBF where lower(merk) like lower(:merk)"
      params["ag"] = '%'
      active = true
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.customers1.rowset
      height = 7.5
      left = 8.0
      top = 6.0
      width = 59.0
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      onKey = class::ENTRYFIELD1_ONKEY
      height = 1.0
      left = 21.0
      top = 14.0
      width = 24.0
      value = ""
   endwith

   this.rowset = this.customers1.rowset

   function ENTRYFIELD1_onKey(nChar, nPosition,bShift,bControl)
      form.customers1.params['ag'] = '%'+this.value+'%'
      form.customers1.requery()
      return

endclass