if file('test_index.dbf')
  // drop table test_index
endif

if not file('test_index.dbf')
   create table test_index  (id autoinc,data character(15))

   use test_index exclusive
   generate 10
   index on upper(data) tag upper_data
   use
endif   

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

class test_indexForm of FORM
   with (this)
      height = 21.5
      left = 105.8571
      top = 7.0
      width = 51.2857
      text = ""
   endwith

   this.TEST_INDEX1 = new QUERY()
   this.TEST_INDEX1.parent = this
   with (this.TEST_INDEX1)
      width = 8.0
      height = 1.0
      sql = 'select * from "test_index.DBF"'
      active = true
   endwith

   with (this.TEST_INDEX1.rowset)
      indexName = "UPPER_DATA"
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.test_index1.rowset
      height = 13.0
      left = 6.0
      top = 1.5
      width = 42.0
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 12.0
      top = 17.0
      width = 22.0
      text = "Disconnect index"
   endwith

   this.PUSHBUTTON2 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON2)
      onClick = class::PUSHBUTTON2_ONCLICK
      height = 1.0909
      left = 12.0
      top = 19.0
      width = 22.0
      text = "Connect index"
   endwith

   this.rowset = this.test_index1.rowset

   function PUSHBUTTON1_onClick()
      form.rowset.indexName := ""
      return

   function PUSHBUTTON2_onClick()
      form.rowset.indexName := "UPPER_DATA"
      return

endclass