[RBG7-L] - Re: making a form to be use only in edit mode orenter mode

[A. Razzak Memon]

At 03:07 PM 5/27/2005, J Blaustein wrote:

How do I make a form usable only in a edit or enter mode?


J,

Take a look at the following forms using the appropriate RBG7
version:

Using R:BASE 7.1 for Windows:
   Database: RRBYW9
   Forms: Contacts, Customers, Employees, Products
   Application: RUN RRBYW9.DAT

Using R:BASE 7.5 for Windows:
   Database: RRBYW10
   Forms: Contacts, Customers, Employees, Products
   Application: RUN RRBYW10.DAT

Using R:BASE V-8 "Turbo"
   Database: RRBYW12
   Forms: Contacts, Customers, Employees, Products
   Application: RUN RRBYW12.DAT

Notice that the same form, such as Customers, is used for
ENTERing, EDITing and BROWSing.

All custom DB navigation buttons such as First, Previous,
Next, Last, Add, Delete, Save, Cancel, and Close along
with the appropriate Enhanced Tab Page Caption are
handled accordingly using the PROPERTY command, embedded
as "On After Start EEP" as following:

-- Start
PROPERTY RBASE_FORM DONTSHOWSAVEDIALOG 'TRUE'
PROPERTY RBASE_FORM DONTSHOWDELETEDIALOG 'TRUE'
PROPERTY RBASE_FORM TOP 180
PROPERTY RBASE_FORM LEFT 390
SWITCH (.vMode)
  CASE 'ENTER'
    PROPERTY EnhancedTab_Page0 CAPTION 'New Customer'
    PROPERTY EGB_First ENABLED 'FALSE'
    PROPERTY EGB_Prev ENABLED 'FALSE'
    PROPERTY EGB_Next ENABLED 'FALSE'
    PROPERTY EGB_Last ENABLED 'FALSE'
    PROPERTY EGB_Add ENABLED 'FALSE'
    PROPERTY EGB_Del ENABLED 'FALSE'
    PROPERTY DBEdit_Company SET_FOCUS 'TRUE'
    BREAK
  CASE 'EDIT'
    PROPERTY EnhancedTab_Page0 CAPTION 'Existing Customer'
    PROPERTY EGB_First ENABLED 'FALSE'
    PROPERTY EGB_Prev ENABLED 'FALSE'
    PROPERTY EGB_Next ENABLED 'FALSE'
    PROPERTY EGB_Last ENABLED 'FALSE'
    PROPERTY EGB_Add ENABLED 'FALSE'
    PROPERTY EGB_Save SET_FOCUS 'TRUE'
    BREAK
  CASE 'VIEWALL'
    PROPERTY EnhancedTab_Page0 CAPTION 'Existing Customers'
    PROPERTY DBComboBox_PaymentTerms ENABLED 'FALSE'
    PROPERTY EGB_Add ENABLED 'FALSE'
    PROPERTY EGB_Del ENABLED 'FALSE'
    PROPERTY EGB_Save ENABLED 'FALSE'
    PROPERTY EGB_Cancel ENABLED 'FALSE'
    PROPERTY EGB_Next SET_FOCUS 'TRUE'
    BREAK
  DEFAULT
    BREAK
ENDSW
RETURN
-- End

The required variable "vMode" is SET at the application menu
level.

Example:

To Enter New Customer:
  SET VAR vMode TEXT = 'ENTER'
  ENTER USING Customers

To Edit Existing Customers:
  SET VAR vMode TEXT = 'EDIT'
  EDIT USING Customers WHERE ...

To View All Existing Customers:
  SET VAR vMode TEXT = 'VIEWALL'
  BROWSE USING Customers WHERE ...

For complete details, take a look at the entire application
bundled with RBG7, RBG75 and RBG8.

Hope that helps!

Very Best R:egards,

Razzak.