Subject |
Re: SEARCHING VERY LARGE FILE |
From |
AGOSTINHO <AGOSTINHOTEIXEIRA@YAHOO.COM> |
Date |
Fri, 03 Sep 2021 00:30:31 -0400 |
Newsgroups |
dbase.getting-started |
Attachment(s) |
DbaseError.gif |
Dear Akshat I've tried to run the form but it keeps given me an
ALERT Error: Class does not exist: TESTINGS2FORM::ENTRYFIELD1_ONKEY1
I think that the \"function ENTRYFIELD1_onKey2\" does not execute.
Thanks
Agostinho
Agostinho <Agostinhoteixeira@yahoo.com > Wrote:
> 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
> >
>
|
|
|