Subject Menu problem still plus others
From Tony Hughes <tamarak1@bigpond.com>
Date Thu, 06 Aug 2020 01:14:44 -0400
Newsgroups dbase.getting-started

Yes Mervy - I would be happy to converse with you on on one if I do not drive you nuts ??

Tony Hughes - tamarak1@bigpond.com


THIS CODE EXECUTES ??

Mbc Menu As below - This code executes OK ??

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

class mbcindexForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      metric = 6        // Pixels
      height = 500.0
      left = 406.0
      top = 6.0
      width = 563.0
      text = "MBC Menu"
   endwith

   this.DATABASE1 = new DATABASE(this)
   with (this.DATABASE1)
      left = 247.0
      top = 223.0
      width = 53.0
      height = 37.0
   endwith

   this.ADMINISTRATION1 = new QUERY(this)
   with (this.ADMINISTRATION1)
      left = 476.0
      top = 27.0
      width = 84.0
      height = 37.0
      sql = 'select * from "C:\Users\Anthony Hughes\Desktop\Mbcdisplay\Administration.DBF"'
      active = true
   endwith

   this.QUERY1 = new QUERY(this)
   with (this.QUERY1)
      left = 241.0
      top = 96.0
      width = 39.0
      height = 37.0
      database = form.database1
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 24.0
      left = 42.0
      top = 270.0
      width = 107.0
      text = "TV Display A- Z"
   endwith

   this.PUSHBUTTON2 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON2)
      onClick = class::PUSHBUTTON2_ONCLICK
      height = 24.0
      left = 42.0
      top = 315.0
      width = 107.0
      text = "Locker Room"
   endwith

   this.PUSHBUTTON3 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON3)
      onClick = class::PUSHBUTTON3_ONCLICK
      height = 24.0
      left = 42.0
      top = 369.0
      width = 107.0
      text = "Maintain"
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 29.0
      left = 105.0
      top = 18.0
      width = 332.0
      text = "MEREWETHER BOWLING CLUB LIMITED"
      colorNormal = "Red/0xf0f0f0"
      fontSize = 13.0
      fontBold = true
      fontItalic = true
      fontUnderline = true
   endwith

   this.IMAGE1 = new IMAGE(this)
   with (this.IMAGE1)
      height = 144.0
      left = 35.0
      top = 63.0
      width = 175.0
      dataSource = 'FILENAME "C:\Users\Anthony Hughes\Desktop\AllproTest\alproicon.jpg"'
      borderStyle = 1        // Raised
   endwith

   this.SPINBOX1 = new SPINBOX(this)
   with (this.SPINBOX1)
      onChange = class::SPINBOX1_ONCHANGE
      dataLink = form.administration1.rowset.fields["displaytime"]
      height = 22.0
      left = 203.0
      top = 270.0
      width = 56.0
      rangeMax = 100
      rangeMin = 1
   endwith

   this.SPINBOX2 = new SPINBOX(this)
   with (this.SPINBOX2)
      onChange = class::SPINBOX2_ONCHANGE
      dataLink = form.administration1.rowset.fields["duration"]
      height = 22.0
      left = 203.0
      top = 324.0
      width = 56.0
      rangeMax = 100
      rangeMin = 1
   endwith

   this.TEXTLABEL2 = new TEXTLABEL(this)
   with (this.TEXTLABEL2)
      height = 22.0
      left = 287.0
      top = 270.0
      width = 175.0
      text = "Set Display Time (Seconds)"
   endwith

   this.TEXTLABEL3 = new TEXTLABEL(this)
   with (this.TEXTLABEL3)
      height = 22.0
      left = 284.0
      top = 326.0
      width = 122.0
      text = "Set Duration (Hours)"
   endwith

   this.DATETIMEPICKER1 = new DATETIMEPICKER(this)
   with (this.DATETIMEPICKER1)
      onOpen = class::DATETIMEPICKER1_ONOPEN
      height = 147.0
      left = 301.0
      top = 63.0
      width = 175.0
   endwith

   this.TEXTLABEL4 = new TEXTLABEL(this)
   with (this.TEXTLABEL4)
      height = 22.0
      left = 295.0
      top = 370.0
      width = 202.0
      text = "23 Caldwell Street, Merewether"
   endwith

   this.TEXTLABEL5 = new TEXTLABEL(this)
   with (this.TEXTLABEL5)
      height = 22.0
      left = 293.0
      top = 415.0
      width = 162.0
      text = "Phone :   02/49631461"
   endwith

   this.PUSHBUTTON4 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON4)
      onClick = class::PUSHBUTTON4_ONCLICK
      height = 24.0
      left = 42.0
      top = 432.0
      width = 122.0
      text = "TV Display Z -- A"
   endwith

   this.rowset = this.administration1.rowset

   function DATETIMEPICKER1_onOpen()
      form.datetimepicker1.value = date()
      return

   function PUSHBUTTON1_onClick()
      form.close()
                do Displaymbc.wfm
      return

   function PUSHBUTTON2_onClick()
      
                do mbclocker.wfm
      return

   function PUSHBUTTON3_onClick()
      form.close()
                do mbcmaintain.wfm
      return

   function PUSHBUTTON4_onClick()
      form.close()
                do mbcdisplay.wfm
      return

THIS CODE DOES NOT EXECUTE.??

I can not see the reason ??

// Allpro Menu As below

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

class StartForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      metric = 6        // Pixels
      height = 497.0
      left = 564.0
      top = 35.0
      width = 484.0
      text = ""
   endwith

   this.ALLPROICON = new IMAGE(this)
   with (this.ALLPROICON)
      height = 99.0
      left = 0.0
      top = 0.0
      width = 117.0
      dataSource = 'FILENAME "C:\Users\Anthony Hughes\Desktop\allprotest\alproicon.jpg"'
      alignment = 3        // Keep Aspect Stretch
      borderStyle = 1        // Raised
   endwith

   this.PUSHCLOSE = new PUSHBUTTON(this)
   with (this.PUSHCLOSE)
      onClick = class::PUSHCLOSE_ONCLICK
      height = 24.0
      left = 147.0
      top = 441.0
      width = 119.0
      text = "Close Menu"
      fontSize = 12.0
      fontBold = true
      colorNormal = "Red/BtnFace"
   endwith

   this.PUSHEMP = new PUSHBUTTON(this)
   with (this.PUSHEMP)
      onClick = class::PUSHEMP_ONCLICK
      height = 24.0
      left = 147.0
      top = 99.0
      width = 120.0
      text = "Employee's"
   endwith

   this.PUSHRAWS = new PUSHBUTTON(this)
   with (this.PUSHRAWS)
      onClick = class::PUSHRAWS_ONCLICK
      height = 24.0
      left = 147.0
      top = 225.0
      width = 120.0
      text = "Raws Product"
   endwith

   this.PUSHRAWSADJ = new PUSHBUTTON(this)
   with (this.PUSHRAWSADJ)
      onClick = class::PUSHRAWSADJ_ONCLICK
      height = 24.0
      left = 147.0
      top = 45.0
      width = 120.0
      text = "Adjust Raws"
   endwith

   this.PUSHFORMULA = new PUSHBUTTON(this)
   with (this.PUSHFORMULA)
      onClick = class::PUSHFORMULA_ONCLICK
      height = 24.0
      left = 147.0
      top = 153.0
      width = 120.0
      text = "Formula's"
   endwith

   this.PUSHTESTBATCH = new PUSHBUTTON(this)
   with (this.PUSHTESTBATCH)
      onClick = class::PUSHTESTBATCH_ONCLICK
      height = 46.0
      left = 147.0
      top = 306.0
      width = 120.0
      text = "Tast Batch Make Batch"
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 46.0
      left = 336.0
      top = 306.0
      width = 120.0
      text = "Forward Estimates"
   endwith

   this.PUSHBUTTON2 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON2)
      onClick = class::PUSHBUTTON2_ONCLICK
      height = 24.0
      left = 329.0
      top = 45.0
      width = 107.0
      text = "Order Raws"
   endwith

   this.PUSHBUTTON3 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON3)
      onClick = class::PUSHBUTTON3_ONCLICK
      height = 24.0
      left = 329.0
      top = 99.0
      width = 107.0
      text = "Receive Raws"
   endwith

   this.PUSHBUTTON4 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON4)
      onClick = class::PUSHBUTTON4_ONCLICK
      height = 24.0
      left = 329.0
      top = 153.0
      width = 107.0
      text = "Raws Grid"
   endwith


   function PUSHBUTTON1_onClick()
      do allproahead.wfm
      form.close()
      return

   function PUSHBUTTON2_onClick()
      do allproorders.wfm
      form.close()
      return

   function PUSHBUTTON3_onClick()
      do allproreceivals.wfm
      form.close()
      return

   function PUSHBUTTON4_onClick()
      do allprodetail.wfm
      form.close()
                return

   function PUSHCLOSE_onClick()
   form.close()  
      return

   function PUSHEMP_onClick()
      do allproemp.wfm
      form.close()
                return

   function PUSHFORMULA_onClick()
      msgbox (" Try One "  )
                do allproformula.wfm
                form.close()
      return

   function PUSHRAWSADJ_onClick() // = {;msgbox(set("directory")); do MbcDisplay.wfm}
    do allproadjust.wfm
         form.close()
                return

   function PUSHRAWS_onClick()
      do allproraws.wfm
      Form.Close()
                return

   function PUSHTESTBATCH_onClick()
      do allprobatch.wfm
      return