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

class test_paramForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 26.0909
      left = 24.4286
      top = 0.0
      width = 105.0
      text = ""
   endwith

   this.ADODATABASE1 = new ADODATABASE(this)
   with (this.ADODATABASE1)
      left = 11.0
      top = 1.0
      width = 10.0
      height = 1.0
      connectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=dbasesample;UID=root;PWD=;Port=3306;option=71303680"
      active = true
   endwith

   this.ADOQUERY1 = new ADOQUERY(this)
   with (this.ADOQUERY1)
      left = 41.0
      top = 2.0
      width = 8.0
      height = 1.0
      database = form.adodatabase1
      connected = true
      sql = "select * from customers where company like :P_comp"
      with (parameters["P_comp"])
         type = "Char"
         value = "A%"
      endwith
      active = true
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.adoquery1.rowset
      height = 14.5
      left = 6.0
      top = 6.5
      width = 80.0
   endwith

   this.rowset = this.adoquery1.rowset

   function form_onOpen()
      form.adoquery1.parameters["p_comp"].value = "B%"
      form.adoquery1.requery()
      return

endclass

<br />
<b>Warning</b>:  Unknown: write failed: No space left on device (28) in <b>Unknown</b> on line <b>0</b><br />
<br />
<b>Warning</b>:  Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in <b>Unknown</b> on line <b>0</b><br />