Subject Re: SEARCHING VERY LARGE FILE
From Agostinho <Agostinhoteixeira@yahoo.com > <Agostinho <Agostinhoteixeira@yahoo.com >>
Date Thu, 02 Sep 2021 16:21:26 -0400
Newsgroups dbase.getting-started

Thanks you very much I'm on a one day travel when
I reach home tonight will let you know.
I apreciate it very much.
Agostinho

Akshat Kapoor Wrote:

> Good Evening Agostinho,
> > I've added it to my form but it don't works and I'm getting
> > the following error Class does not exist; TESTINGFORM::ENTRYFIELD_ONKEY1
> > Please revise the form and help me to make it work.
>
> I have made the necessary changes.
> test_search.wfm is working.
>
> test_search2.wfm should also work but without your table I had no way to
> check it.
>
> Hope you get better results.
>
> Regards
> Akshat
>
> ** END HEADER -- do not remove this line
> //
> // Generated on 02-09-2021
> //
> parameter bModal
> local f
> f = new testing2Form()
> if (bModal)
>    f.mdi = false // ensure not MDI
>    f.readModal()
> else
>    f.open()
> endif
>
> class testing2Form of FORM
>    with (this)
>       canClose = class::FORM_CANCLOSE
>       onOpen = class::FORM_ONOPEN
>       height = 23.1818
>       left = 19.8889
>       top = 3.68
>       width = 146.5714
>       text = ""
>    endwith
>
>    this.DBASESAMPLES1 = new DATABASE(this)
>    with (this.DBASESAMPLES1)
>       left = 66.0
>       top = 3.0
>       width = 11.0
>       height = 1.0
>       databaseName = "DBASESAMPLES"
>       active = true
>    endwith
>
>    this.VERW_OUD1 = new QUERY(this)
>    with (this.VERW_OUD1)
>       left = 31.0
>       top = 13.0
>       sql = 'select * from "C:\Users\HOME_PC\Desktop\dbasetutorial\verw_oud.dbf" where lower(descript) like lower(:ag)'
>       params["ag"] = "%"
>       active = true
>    endwith
>    
>    this.ENTRYFIELD1 = new ENTRYFIELD(this)
>    with (this.ENTRYFIELD1)
>       onKey = class::ENTRYFIELD1_ONKEY1
>       height = 1.92
>       left = 11.0
>       top = 0.96
>       width = 19.0
>       value = ""
>    endwith
>
>    this.GRID1 = new GRID(this)
>    with (this.GRID1)
>       dataLink = form.verw_oud1.rowset
>       bgColor = "WindowText"
>       height = 19.08
>       left = 1.0
>       top = 3.36
>       width = 136.0
>    endwith
>
>
>    function form_canClose()
>       form.timer.enabled = false
>       return true
>
>    function form_onOpen()
>       _app.select2 = form
>       form.twait = false
>       form.timer = new timer()
>       form.timer.interval = 0.75
>       form.timer.ontimer = {;_app.select2.twait = false;_app.select2.timer.enabled = false; _app.select2.ENTRYFIELD1_onkey2()}
>       form.timer.enabled = false
>     return
>
>     function ENTRYFIELD1_onKey1(nChar, nPosition,bShift,bControl)
>        if form.twait
> //       do nothing
> //       We are waiting for additional key strokes
>        else
>          form.twait = true
>          form.timer.enabled = true
>        endif
>        return
>
>    
>
>    function ENTRYFIELD1_onKey2(nChar, nPosition,bShift,bControl)
>       if form.verw_oud1.params["ag"] <> "%" + rtrim(ltrim(lower(form.ENTRYFIELD1.value))) + "%"
>          form.verw_oud1.params["ag"]  = "%"+rtrim(ltrim(lower(form.ENTRYFIELD1.value)))+"%"
>          form.verw_oud1.requery()
>          form.verw_oud1.rowset.first()
>       endif
>       return
>
> endclass
>
> ** END HEADER -- do not remove this line
> //
> // Generated on 02-09-2021
> //
> parameter bModal
> local f
> f = new testingForm()
> if (bModal)
>    f.mdi = false // ensure not MDI
>    f.readModal()
> else
>    f.open()
> endif
>
> class testingForm of FORM
>    with (this)
>       canClose = class::FORM_CANCLOSE
>       onOpen = class::FORM_ONOPEN
>       height = 23.1818
>       left = 19.8889
>       top = 3.68
>       width = 146.5714
>       text = ""
>    endwith
>
>    this.DBASESAMPLES1 = new DATABASE(this)
>    with (this.DBASESAMPLES1)
>       left = 66.0
>       top = 3.0
>       width = 11.0
>       height = 1.0
>       databaseName = "DBASESAMPLES"
>       active = true
>    endwith
>
>    this.VERW_OUD1 = new QUERY(this)
>    with (this.VERW_OUD1)
>       left = 52.0
>       top = 2.0
>       width = 8.0
>       height = 1.0
>       database = form.dbasesamples1
>       sql = "select * from CUSTOMERS.DBF where lower(company) like lower(:ag)"
>       params["ag"] = "%"
>       active = true
>    endwith
>
>    this.ENTRYFIELD1 = new ENTRYFIELD(this)
>    with (this.ENTRYFIELD1)
>       onKey = class::ENTRYFIELD1_ONKEY1
>       height = 1.92
>       left = 11.0
>       top = 0.96
>       width = 19.0
>       value = ""
>    endwith
>
>    this.GRID1 = new GRID(this)
>    with (this.GRID1)
>       dataLink = form.verw_oud1.rowset
>       bgColor = "WindowText"
>       height = 19.08
>       left = 1.0
>       top = 3.36
>       width = 136.0
>    endwith
>
>
>    function form_canClose()
>       form.timer.enabled = false
>       return true
>
>    function form_onOpen()
>       _app.select2 = form
>       form.twait = false
>       form.timer = new timer()
>       form.timer.interval = 0.75
>       form.timer.ontimer = {;_app.select2.twait = false;_app.select2.timer.enabled = false; _app.select2.ENTRYFIELD1_onkey2()}
>       form.timer.enabled = false
>     return
>
>     function ENTRYFIELD1_onKey1(nChar, nPosition,bShift,bControl)
>        if form.twait
> //       do nothing
> //       We are waiting for additional key strokes
>        else
>          form.twait = true
>          form.timer.enabled = true
>        endif
>        return
>
>    
>
>    function ENTRYFIELD1_onKey2(nChar, nPosition,bShift,bControl)
>       if form.verw_oud1.params["ag"] <> "%" + rtrim(ltrim(lower(form.ENTRYFIELD1.value))) + "%"
>          form.verw_oud1.params["ag"]  = "%"+rtrim(ltrim(lower(form.ENTRYFIELD1.value)))+"%"
>          form.verw_oud1.requery()
>          form.verw_oud1.rowset.first()
>       endif
>       return
>
> endclass
>