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

class swap_tablesForm of FORM
   with (this)
      metric = 6	// Pixels
      height = 352.0
      left = 126.0
      top = 10.0
      width = 280.0
      text = ""
   endwith

   this.DBASESAMPLES1 = new DATABASE(this)
   with (this.DBASESAMPLES1)
      left = 126.0
      width = 78.0
      height = 37.0
      databaseName = "DBASESAMPLES"
      active = true
   endwith

   this.FISH2 = new QUERY(this)
   with (this.FISH2)
      left = 91.0
      width = 27.0
      height = 37.0
      database = form.dbasesamples1
      sql = "select * from FISH.DBF where id = 1"
      active = true
   endwith

   this.FISH1 = new QUERY(this)
   with (this.FISH1)
      left = 35.0
      width = 27.0
      height = 37.0
      database = form.dbasesamples1
      sql = "select * from FISH.DBF where id = 2"
      active = true
   endwith

   this.IMAGE1 = new IMAGE(this)
   with (this.IMAGE1)
      height = 140.0
      left = 37.0
      top = 85.0
      width = 200.0
      dataSource = form.fish1.rowset.fields["fish image"]
   endwith

   this.RADIOBUTTON1 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON1)
      onChange = class::RADIOBUTTON1_ONCHANGE
      height = 24.0
      left = 64.0
      top = 273.0
      width = 110.0
      text = "Table 1"
      group = true
      value = true
   endwith

   this.RADIOBUTTON2 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON2)
      height = 24.0
      left = 63.0
      top = 310.0
      width = 110.0
      text = "Table 2"
   endwith

   this.rowset = this.fish1.rowset

   function RADIOBUTTON1_onChange()
      if this.value = true
         form.image1.dataSource = form.fish1.rowset.fields["fish image"]
      else   
         form.image1.dataSource = form.fish2.rowset.fields["fish image"]
      endif   
      return

endclass