It has been a while since this thread has come up, maybe a year or so, but I
believe many list members have come to more or less the same conclusion
about using forms as menus.
Create your Form with its buttons and set the properties to call Exit.eep.
Place the Following Code in the Exit.eep.
*(Exit.eep MByerley 050196)
SET VAR vpick1 = (CVAL('form_field_name'))
CLOSEWINDOW
RETURN
Call your Driving Form in The Following Code (modify to reflect the buttons
on your form).
This structure has worked reliably since 5.0 windows which says a lot.
*(SubMain.rmd authored MByerley 050196)
*(Note1 - The Constant must be exactly the Text Value of The Button)
MAXIMIZE
CLS
SET VAR MICRORIM_NOSTATUS = 1
LABEL bgproc
EDIT USING someformname AT 0,0,640,480 +
CAPTION 'Some Caption Value For The Form'
SWITCH (.vpick1)
CASE '&ButtonOne' -- * Note1
CLEAR VAR vpick1
RUN matter IN ovl1.apx
BREAK
CASE 'B&uttonTwo' -- * Note1
CLEAR VAR vpick1
RUN nonfunc.eep IN ovl1.apx
BREAK
CASE 'Bu&ttonThree' -- * Note1
CLEAR VAR vpick1
RUN repsel IN ovl1.apx
BREAK
CASE 'Butt&onFour' -- * Note1
CLEAR VAR vpick1
RUN nonfunc.eep IN ovl1.apx
BREAK
CASE 'Butto&nFive' -- * Note1
CLEAR VAR vpick1
RUN maint IN ovl1.apx
BREAK
CASE 'E&XIT' -- * Note1
CLEAR VAR vpick1
GOTO ndproc
BREAK
DEFAULT
CLEAR VAR vpick1
BREAK
ENDSW
GOTO bgproc
LABEL ndproc
-- clear varar
-- EXIT -- uncomment if this is the Main Driving Form
RETURN
----- Original Message -----
From: "Farnsworth Midge D Contr 388 RANS" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 17, 2001 6:11 PM
Subject: RE: Merging forms into one database - Razzak's Reply
> Thank you for your help. Here's another one that came up that is
> intermittent:
> in the application that we are developing we have utilized many push
buttons
> to take us to different forms and screens, as the program returns to the
> originating point (after the push button eep has executed) we are getting
an
> application error (fatal) "DR WATSON type" which shuts down the program
and
> returns us to the desktop. Any ideas?
>
> -----Original Message-----
> From: A. Razzak Memon [mailto:[EMAIL PROTECTED]]
> Sent: July 17, 2001 4:51 PM
> To: [EMAIL PROTECTED]
> Subject: Re: Merging forms into one database - Razzak's Reply
>
>
>
> At 04:12 PM 7/17/2001 -0600, Farnsworth Midge D Contr wrote:
>
> >Using R:base 6.1a is it possible to merge forms from
> >two different databases into one database? Both databases
> >contain the same tables that the forms are based on.
>
> Follow these steps to accomplish your task:
>
> I'm assuming you're using R:BASE 6.1a for Windows!
>
> To Copy/Replace ALL Forms:
>
> 01. CONNECT RBDBMS1
>
> 02. SET NULL -0-
>
> 03. OUTP Forms.FRM
> UNLOAD DATA FOR SYS_FORMS2
> OUTP SCREEN
>
> This step will create two files:
>
> . Forms.FRM
> . Forms.LOB
>
> 04. Copy both files to the other directory where
> RBDBMS2 resides
>
> 05. Change directory where other RBDBMS2 resides
>
> 06. CONNECT RBDBMS2
>
> 07. SET NULL -0-
>
> 08. DELETE ROWS FROM SYS_FORMS2
>
> 09. INPUT Forms.FRM
>
> There you have it ...
>
> To Copy/Replace Any Given Form(s):
>
> 01. CONNECT RBDBMS1
>
> 02. SET NULL -0-
>
> 03. OUTP Forms.FRM
> UNLOAD DATA FOR SYS_FORMS2 WHERE +
> SYS_FORM_NAME = 'FormName'
> OUTP SCREEN
>
> OR
>
> OUTP Forms.FRM
> UNLOAD DATA FOR SYS_FORMS2 WHERE +
> SYS_FORM_NAME IN (FormName1, FormName2, ...)
> OUTP SCREEN
>
> This step will create two files:
>
> . Forms.FRM
> . Forms.LOB
>
> 04. Copy both files to the other directory where
> RBDBMS2 resides
>
> 05. Change directory where other RBDBMS2 resides
>
> 06. CONNECT RBDBMS2
>
> 07. SET NULL -0-
>
> 08. DELETE ROWS FROM SYS_FORMS2 WHERE +
> SYS_FORM_NAME = 'FormName'
>
> OR
>
> DELETE ROWS FROM SYS_FORMS2 WHERE +
> SYS_FORM_NAME IN 'FormName1, FormName2, ...'
>
> 09. INPUT Forms.FRM
>
> Last but not least, you could ALSO use R:BASE ODBC
> method to achieve the same goal!
>
> Enjoy and make sure to have fun!
>
> Very Best Regards,
>
> Razzak.
>
>
> ===================================-============================
> R:BASE Developers's Conference: http://www.rbase.com/conference
> Official R:BASE List Server: mailto:[EMAIL PROTECTED]
> RBTI Events/Training: http://www.rbase2000.com/events
> R:DCC Members: http://www.rbase2000.com/rdcc
> ================================================================
> R:BASE, Oterro & R:Tango are registered trademarks of RBTI.
> ==================================-=============================
