** END HEADER -- do not remove this line
//
// Generated on 2022-10-07
//
parameter bModal
local f
f = new fish_likeForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class fish_likeForm of FORM
   with (this)
      height = 21.0909
      left = 18.7143
      top = 0.1818
      width = 112.2857
      text = ""
   endwith

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

   this.FISH1 = new QUERY(this)
   with (this.FISH1)
      left = 21.0
      width = 3.0
      height = 1.0
      database = form.dbasesamples1
      sql = "select * from FISH.DBF where upper(name) like upper(:name)"
      params["name"] = "%"
      active = true
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.fish1.rowset
      height = 13.2727
      left = 2.8571
      top = 4.1818
      width = 104.1429
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.8182
      left = 8.8571
      top = 18.5455
      width = 15.2857
      text = "Records containing"
   endwith

   this.PUSHBUTTON2 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON2)
      onClick = class::PUSHBUTTON2_ONCLICK
      height = 1.8182
      left = 54.1429
      top = 18.5455
      width = 15.2857
      text = "All records"
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      height = 1.0
      left = 26.0
      top = 19.0
      width = 18.0
      value = "blUE"
   endwith

   this.rowset = this.fish1.rowset

   function PUSHBUTTON1_onClick()
      form.fish1.params['name'] = '%'+form.entryfield1.value+'%'
      form.fish1.requery()
      return

   function PUSHBUTTON2_onClick()
      form.fish1.params['name'] = '%'
      form.fish1.requery()      
      return

endclass