Subject Re: grid focus
From Mustansir Ghor <mustan31@hotmail.com>
Date Fri, 30 Dec 2022 03:42:06 -0500
Newsgroups dbase.getting-started

Dear Meryn Sir

case empty(this.value)

The above case was put in case statement for case where nothing is entered in the entryfield and user moves to another record in the grid2. In that case other cases need not be evaluated at all.

Regards
Mustansir



Mervyn Bick Wrote:

> On 2022/12/28 21:30, Mustansir Ghor wrote:
 > > Dear All
 > >
> > I have a rowset datalinked to grid.
 > >
> > The grid behaves different with keyboard uparrow or downarrow and mouse click. The difference is observed in the behavoiur of onnavigate method. Keyboard arrows does respond but onclick event does not.
 > >
> > Can anybody advise how to simulate onclick event to also respond.
 > >
> > Best Regards
 > > Mustansir
 >
> I have no idea why the behaviour is different when using the keyboard
> and using the mouse but a simple fix is to use each grid's onLeftMouseUp
> event handler to force focus to the ESCAN entryfield.
 >
>     function GRID1_onLeftMouseUp(flags, col, row)
 >        if form.escan.visible = true
 >           form.escan.setfocus()
 >        endif
 >        return
 >
> To indicate if a grid has focus you can use the grid's onGotFocus and
> onLostFocus to change the borderstyle property or, perhaps, the
> background property.
 >
>     function GRID1_onGotFocus()
 >        this.borderstyle := 5
 >        return
 >
>     function GRID1_onLostFocus()
 >        this.borderstyle := 0
 >        return
 >
> I use a different date format (YMD) so your form opened with empty
> grids.  I've added code to the form's onOpen event handler so that the
> form will run no matter what the date format is set to.
 >
> You have used a CASE construct in the ESCAN entryfield's onLostFocus
> event handler.  Bear in mind that in a CASE construct dBASE stops
> testing as soon as the first test returns true.  You have no code after
> the test for case empty(this.value) which means, unless this is actually
> what you want, the user can simply move focus elsewhere leaving the
> value unverified.
 >
> do case                
 >     case empty(this.value)
 >     //no code here
 >    case not
> form.qsales.rowset.fields["CODE"].lookuprowset.fields["code"].value==this.value
 >     and ;
 >     empty(form.qsales.rowset.fields["VERIFY"].value)        
 >     msgbox("Scan Code Unmatched","",48)
 > .....
 > endcase
 >
> A revised version of your form is attached.
 >
> Mervyn.
 >
>
>
>
> ** END HEADER -- do not remove this line
 > //
 > // Generated on 2022-12-30
 > //
 > parameter bModal
 > local f
 > f = new ghor_aForm()
 > if (bModal)
 >    f.mdi = false // ensure not MDI
 >    f.readModal()
 > else
 >    f.open()
 > endif
 >
> class ghor_aForm of FORM
 >    with (this)
 >       onOpen = class::FORM_ONOPEN
 >       height = 29.0
 >       left = -75.8571
 >       top = 0.9545
 >       width = 190.2857
 >       text = ""
 >    endwith
 >
>    this.QSALES = new QUERY(this)
 >    with (this.QSALES)
 >       left = 15.0
 >       top = 1.0
 >       sql = "select * from sales where sno=:msno"
 >       params["msno"] = ""
 >       active = true
 >    endwith
 >
>    with (this.QSALES.rowset)
 >       onNavigate = class::ROWSET_ONNAVIGATE
 >    endwith
 >
>    this.QTEMPSAL = new QUERY(this)
 >    with (this.QTEMPSAL)
 >       left = 21.0
 >       sql = "select distinct sno,sdate,op from sales where sdate between :mdate1 and :mdate2"
 >       params["mdate1"] = {2019-10-14}
 >       params["mdate2"] = {2019-10-14}
 >       active = true
 >    endwith
 >
>    with (this.QTEMPSAL.rowset)
 >       onNavigate = class::ROWSET_ONNAVIGATE1
 >    endwith
 >
>    this.LINE3 = new LINE(this)
 >    with (this.LINE3)
 >       left = 68.0
 >       right = 68.0
 >       top = 3.0
 >       bottom = 22.0
 >       width = 1
 >    endwith
 >
>    this.PBCLOSE = new PUSHBUTTON(this)
 >    with (this.PBCLOSE)
 >       onClick = class::PBCLOSE_ONCLICK
 >       height = 1.5
 >       left = 48.0
 >       top = 18.5
 >       width = 16.0
 >       text = "Close The Form"
 >    endwith
 >
>    this.GRID2 = new GRID(this)
 >    with (this.GRID2)
 >       onGotFocus = class::GRID2_ONGOTFOCUS
 >       onLostFocus = class::GRID2_ONLOSTFOCUS
 >       onLeftMouseUp = class::GRID2_ONLEFTMOUSEUP
 >       dataLink = form.qtempsal.rowset
 >       columns["COLUMN1"] = new GRIDCOLUMN(form.GRID2)
 >       with (columns["COLUMN1"])
 >          dataLink = form.qtempsal.rowset.fields["sno"]
 >          editorType = 1        // EntryField
 >          width = 8.5714
 >       endwith
 >       columns["COLUMN2"] = new GRIDCOLUMN(form.GRID2)
 >       with (columns["COLUMN2"])
 >          dataLink = form.qtempsal.rowset.fields["sdate"]
 >          editorType = 1        // EntryField
 >          width = 12.0
 >       endwith
 >       columns["COLUMN4"] = new GRIDCOLUMN(form.GRID2)
 >       with (columns["COLUMN4"])
 >          dataLink = form.qtempsal.rowset.fields["op"]
 >          editorType = 1        // EntryField
 >          width = 11.4286
 >       endwith
 >       with (columns["COLUMN1"].headingControl)
 >          value = "SNO"
 >       endwith
 >
>       with (columns["COLUMN2"].headingControl)
 >          value = "DATE"
 >       endwith
 >
>       with (columns["COLUMN4"].headingControl)
 >          value = "OPERATO"
 >       endwith
 >
>       allowEditing = false
 >       allowAddRows = false
 >       height = 13.5
 >       left = 24.0
 >       top = 3.5
 >       width = 40.0
 >    endwith
 >
>    this.GRID1 = new GRID(this)
 >    with (this.GRID1)
 >       onGotFocus = class::GRID1_ONGOTFOCUS
 >       onLostFocus = class::GRID1_ONLOSTFOCUS
 >       onLeftMouseUp = class::GRID1_ONLEFTMOUSEUP
 >       fontSize = 13.0
 >       dataLink = form.qsales.rowset
 >       columns["COLUMN1"] = new GRIDCOLUMN(form.GRID1)
 >       with (columns["COLUMN1"])
 >          dataLink = form.qsales.rowset.fields["code"]
 >          editorType = 1        // EntryField
 >          width = 22.0
 >       endwith
 >       columns["COLUMN2"] = new GRIDCOLUMN(form.GRID1)
 >       with (columns["COLUMN2"])
 >          dataLink = form.qsales.rowset.fields["qty"]
 >          editorType = 1        // EntryField
 >          width = 10.5714
 >       endwith
 >       columns["COLUMN5"] = new GRIDCOLUMN(form.GRID1)
 >       with (columns["COLUMN5"])
 >          dataLink = form.qsales.rowset.fields["verify"]
 >          editorType = 1        // EntryField
 >          width = 12.2857
 >       endwith
 >       with (columns["COLUMN1"].headingControl)
 >          value = "CODE"
 >       endwith
 >
>       with (columns["COLUMN2"].editorControl)
 >          picture = "999,999"
 >       endwith
 >
>       with (columns["COLUMN2"].headingControl)
 >          value = "QTY"
 >       endwith
 >
>       with (columns["COLUMN5"].headingControl)
 >          value = "VERIFIED BY"
 >       endwith
 >
>       allowEditing = false
 >       allowAddRows = false
 >       height = 17.5
 >       left = 69.0
 >       top = 3.0
 >       width = 53.0
 >    endwith
 >
>    this.ESCAN = new ENTRYFIELD(this)
 >    with (this.ESCAN)
 >       onLostFocus = class::ESCAN_ONLOSTFOCUS
 >       onChange = class::ESCAN_ONCHANGE
 >       visible = false
 >       height = 1.0
 >       left = 102.0
 >       top = 21.0
 >       width = 20.0
 >       value = ""
 >    endwith
 >
>    this.LBSCAN = new TEXTLABEL(this)
 >    with (this.LBSCAN)
 >       visible = false
 >       height = 1.0
 >       left = 71.0
 >       top = 21.0
 >       width = 31.0
 >       text = "For this item verification , Scan Here"
 >    endwith
 >
>
>         
 >    
 >         
 >
>    function GRID1_onGotFocus()
 >       this.borderstyle := 5
 >       return
 >
>    function GRID1_onLeftMouseUp(flags, col, row)
 >       if form.escan.visible = true
 >          form.escan.setfocus()
 >       endif  
>       return
 >
>    function GRID1_onLostFocus()
 >       this.borderstyle := 0
 >       return
 >
>    function GRID2_onGotFocus()
 >       this.borderstyle := 5
 >       return
 >
>    function GRID2_onLeftMouseUp(flags, col, row)
 >       if form.escan.visible = true
 >          form.escan.setfocus()
 >       endif  
>       return
 >
>    function GRID2_onLostFocus()
 >       this.borderstyle := 0
 >       return
 >
>    function PBCLOSE_onClick()
 >         
 >       close databases
 >                 form.close()
 >         
 >       return
 >
>
>    function form_onOpen()
 >      with (this)
 >    
>       height = 24.5909
 >       left = 1.7143
 >       top = 4.0
 >       width = 179
 >    
>      endwith
 >             
 >       form.qtempsal.params['mdate1'] = new date(2022,11,28)
>       form.qtempsal.params['mdate2'] = new date(2022,11,28)
 >       form.qtempsal.requery()      
 > //                form.qtempsal.active=true        
 >                 if form.qtempsal.rowset.count()>0
 >                  form.qtempsal.rowset.first()
 >                  form.qsales.active=true
 >                 endif
 >  
>         
 >         
 >       return
 >                 
 >
>
>       function ESCAN_onChange()
 >      
>       this.keyboard("{Tab}")
 >                 class::escan_onlostfocus()
 >                 
 >       return
 >
>    function ESCAN_onLostFocus()
 >            do case
 >                 
 >                 case empty(this.value)
 >                 
>                 
 >                 case not form.qsales.rowset.fields["CODE"].lookuprowset.fields["code"].value==this.value and ;
 >                  empty(form.qsales.rowset.fields["VERIFY"].value)
 >                 
>        msgbox("Scan Code Unmatched","",48)
 >                  form.qsales.rowset.next()
 >
>             if form.qsales.rowset.endofset
 >                  form.lbscan.visible=false
 >                  form.escan.visible=false
 >                 
 >                  form.grid2.setfocus()
 >                  endif
 >         
 >                 
>       case  form.qsales.rowset.fields["CODE"].lookuprowset.fields["code"].value==this.value
>                  form.qsales.rowset.fields["VERIFY"].value=_app.session.user()
 >                  form.qsales.rowset.save()
 >                 
>             form.qsales.rowset.next()
 >
>             if form.qsales.rowset.endofset
 >                  form.lbscan.visible=false
 >                  form.escan.visible=false
 >                 
>                  form.grid2.setfocus()
 >                  endif
 >                 
>                 endcase
 >       return
 >
>
>    function rowset_onNavigate(type, nRows)
 >           
>       pref = this.parent.parent
 >                 if this.endofset
 >                  pref.grid2.setfocus()
 >                  return
 >                 endif
 >                 
 >                 pref.escan.value=""
 >                 if empty(this.fields["verify"].value)
>                  pref.lbscan.visible=true
 >                  pref.escan.visible=true
 >                  pref.escan.setfocus()
 >                 else
 >                  pref.lbscan.visible=false
 >                  pref.escan.visible=false
 >                 endif
>                 
 >       return
 >
>    function rowset_onNavigate1(type, nRows)
 >       this.parent.parent.qsales.params["msno"]=this.fields["sno"].value
 >            this.parent.parent.qsales.requery()
 >                 this.parent.parent.qsales.rowset.first()
 >                 oref = this.parent.parent
 >                 do while not oref.qsales.rowset.endofset
 >                  if not empty(oref.qsales.rowset.fields["verify"].value)
 >                   oref.qsales.rowset.next()
 >                  else
 >                   exit
 >                  endif
 >                 enddo
>      return
 >
> endclass
 >