if not file('fish4.dbf')
   copy table :dbasesamples:fish to fish4
endif
** END HEADER -- do not remove this line
//
// Generated on 2023-09-17
//
parameter bModal
local f
f = new SEEK_FISHForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class SEEK_FISHForm of FORM
   with (this)
      height = 16.0
      left = 50.1429
      top = -0.2273
      width = 55.2857
      text = ""
   endwith

   this.FISH41 = new QUERY(this)
   with (this.FISH41)
      left = 25.0
      top = 4.0
      width = 4.0
      height = 1.0
      sql = 'select * from "FISH4.dbf" where lower(name)  like lower(:ag)'
      params["ag"] = "%"
      active = true
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.fish41.rowset
      height = 6.16
      left = 2.3333
      top = 5.72
      width = 50.5556
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      onKey = class::ENTRYFIELD1_ONKEY
      height = 1.76
      left = 24.1111
      top = 12.76
      width = 24.1111
      value = ""
   endwith

   this.IMAGE1 = new IMAGE(this)
   with (this.IMAGE1)
      height = 3.96
      left = 4.6667
      top = 0.44
      width = 17.1111
      dataSource = form.fish41.rowset.fields["fish image"]
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.76
      left = 0.7778
      top = 12.76
      width = 18.6667
      text = "Search Fish By Name"
   endwith

   this.rowset = this.fish41.rowset

   function ENTRYFIELD1_onKey(nChar, nPosition,bShift,bControl)
      form.fish41.params['ag'] = '%'+this.value+'%'
      try
         form.fish41.requery()
      catch(exception e)
         form.fish41.requery()
      endtry
//      form.fish41.rowset.refreshControls() 
      form.image1.dataSource = form.fish41.rowset.fields["fish image"]
      return

endclass