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

if not file('test_floss.dbf')
   create table test_floss  (id autoinc,rec_no integer)
   insert into test_floss  (rec_no) values (74)
   insert into test_floss  (rec_no) values (75)
   insert into test_floss  (rec_no) values (76)
   insert into test_floss  (rec_no) values (78)
   insert into test_floss  (rec_no) values (114)
   insert into test_floss  (rec_no) values (116)
endif

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

class test_coinsForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 3.7143
      top = 0.5455
      width = 119.8571
      text = ""
   endwith

   this.COINS1 = new QUERY(this)
   with (this.COINS1)
      left = 6.0
      width = 5.0
      height = 1.0
      sql = 'select * from "D:\Examples\Plus2019\COINS.DBF"'
      active = true
   endwith

   this.test_floss1 = new QUERY(this)
   with (this.test_floss1)
      left = 75.0
      top = 1.0
      width = 5.0
      height = 1.0
      sql = 'select * from "D:\Examples\Plus2019\test_floss.DBF"'
      active = true
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.coins1.rowset
      height = 7.5
      left = 4.0
      top = 0.2727
      width = 106.1429
   endwith

   this.GRID2 = new GRID(this)
   with (this.GRID2)
      onSelChange = class::GRID2_ONSELCHANGE
      dataLink = form.test_floss1.rowset
      height = 6.8636
      left = 8.7143
      top = 8.5455
      width = 37.8571
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      dataLink = form.coins1.rowset.fields["lr"]
      height = 1.0
      left = 67.7143
      top = 11.1818
      width = 8.0
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.0
      left = 69.2857
      top = 10.0
      width = 12.0
      text = "LR"
   endwith

   this.rowset = this.coins1.rowset

   function GRID2_onSelChange()
      form.coins1.rowset.applyLocate("lr = "+form.test_floss1.rowset.fields['rec_no'].value)
      return

   function form_onOpen()
      form.coins1.rowset.applyLocate("lr = "+form.test_floss1.rowset.fields['rec_no'].value)
      return

endclass