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
>
|
|