FUNCTION EDITDB()                     *changed*

  Short:
  ------
  EDITDB() Customized database browser with edit/add/search
  capabilities

  Returns:
  --------
  Nothing

  Syntax:
  -------
  EDITDB([lModify],[aFields,aFieldDesc],[lBypassAsk],[lBypassLeave],;
         [nLock])

  Description:
  ------------
  Customized browse interface allowing searching, goto,
  vertical view and (if <lModify> is True) add edit delete.

  Also allows limiting of fields viewed.

  [lModify] allows add-edit-delete or not.

  The two arrays [aFields, aFieldDesc] are of field
  names and field descriptions. Default is all fields, field names
  as descriptions.

  [lByPassAsk] allows bypass of the "BROWSE ALL/SELECT
  FIELDS" opening menu choice, and defaults to .f.

  [lByPassLeave] allows bypass of "Quit?" dialog. Just quits

  [nLock] number of columns to lock (default is 0)

  Examples:
  ---------
   USE CUSTOMER

   aFlds := {"FNAME","LNAME","MI"}
   aDesc := {"First","Last","Middle"}
   editdb(.t.,aFlds,aDesc)

  Notes:
  -------
  Allows record deletion, but does not pack. Does not
  'SET DELETED' one way or the other.

  Source:
  -------
  S_EDIT.PRG