use :dbasesamples:customers excl
index on upper(company) tag upco
use
** END HEADER -- do not remove this line
//
// Generated on 2021-05-04
//
parameter bModal
local f
f = new test_seekerForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class test_seekerForm of FORM
   set procedure to :FormControls:seeker.cc additive
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 25.0
      left = 9.7143
      top = 1.6364
      width = 108.1429
      text = ""
   endwith

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

   this.CUSTOMERS1 = new QUERY(this)
   with (this.CUSTOMERS1)
      left = 18.0
      width = 9.0
      height = 1.0
      database = form.dbasesamples1
      sql = "select * from CUSTOMERS.DBF"
      active = true
   endwith

   with (this.CUSTOMERS1.rowset)
      indexName = "CITY"
   endwith

   this.CUSTOMERS2 = new QUERY(this)
   with (this.CUSTOMERS2)
      left = 30.0
      width = 9.0
      height = 1.0
      database = form.dbasesamples1
      sql = "select * from CUSTOMERS.DBF"
      active = true
   endwith

   with (this.CUSTOMERS2.rowset)
      onNavigate = class::ROWSET_ONNAVIGATE
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.customers1.rowset
      height = 7.9545
      left = 2.1429
      top = 4.5
      width = 50.0
   endwith

   this.GRID2 = new GRID(this)
   with (this.GRID2)
      dataLink = form.customers2.rowset
      height = 7.6364
      left = 58.4286
      top = 4.6364
      width = 47.1429
   endwith

   this.SEEKER1 = new SEEKER(this)
   with (this.SEEKER1)
      height = 1.0
      left = 20.0
      top = 15.7727
      width = 24.5714
   endwith

   this.TEXT1 = new TEXT(this)
   with (this.TEXT1)
      height = 3.0
      left = 59.5714
      top = 0.2727
      width = 43.5714
      text = "This grid is for the example only.  It is used to show the Seeker in operation.  Any records selected here is then used to move to the rowpointer in the main rowset."
   endwith

   this.rowset = this.customers1.rowset

   function form_onOpen()
      form.customers2.rowset.indexName := "upco"
      form.rowset = this.customers2.rowset
      return

   function rowset_onNavigate(type, nRows)
      this.parent.parent.customers1.rowset.applyLocate( "CustomerID = " + this.fields['CustomerID'].value )
      return

endclass