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

class show_progressForm of FORM
   with (this)
      height = 16.0
      left = 70.0
      top = 0.0
      width = 40.0
      text = ""
   endwith

   this.SAMPLES1 = new DATABASE(this)
   with (this.SAMPLES1)
      width = 6.0
      height = 1.0
      databaseName = "DBASESAMPLES"
      active = true
   endwith

   this.EMPLOYEES1 = new QUERY(this)
   with (this.EMPLOYEES1)
      left = 7.0
      width = 8.0
      height = 1.0
      database = form.samples1
      sql = "select * from EMPLOYEES.DBF"
      active = true
   endwith

   this.PROGRESS1 = new PROGRESS(this)
   with (this.PROGRESS1)
      height = 1.0
      left = 5.7143
      top = 11.0909
      width = 28.4286
      value = 0
      rangeMin = 0
      rangeMax = 100
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 12.1429
      top = 8.3636
      width = 15.2857
      text = "Process table"
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      dataLink = form.employees1.rowset.fields["lastname"]
      height = 1.0
      left = 8.4286
      top = 4.3636
      width = 20.0
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.0
      left = 2.5714
      top = 13.5455
      width = 36.0
      text = ""
   endwith


   function PUSHBUTTON1_onClick()
      _app.allowYieldOnMsg = true
      form.textlabel1.text = ''
      form.employees1.rowset.first()
      nRecords = form.employees1.rowset.count()
      nPercent = 0
      nCount = 1
      do while not form.employees1.rowset.endofset
          _app.executeMessages()
          nPercent = int(nCount/nRecords*100)
          form.progress1.value = nPercent
          form.textlabel1.text = nCount+ '  records processed.'
          inkey(0.2)
          form.employees1.rowset.next()
          nCount ++          
      enddo
      form.textlabel1.text += '  Process complete'      
      return

   

endclass