Contents of the README.1ST file
The programs in this ZIP file are intended to demonstrate a
number of useful procedures I developed while creating a program
to capture receiving inspection data. I am offering these
procedures to the public domain in the hopes that they will
prove helpful for others. I have made no changes to these
procedures from the form I used them in. Most could be modified
to behave in a more general fashion. The functions that these
procedures provide are:
menu Display a pop up menu with 1-20 choices.
Allow the user to choose an option with
either the cursor keys or by pressing a
letter/number option. Menu options,
position, colors, size are stred in a
errormsg Displays a centered message on line 24 of
the screen in yellow on red and waits for
a key press.
title Displays a centered title in yellow on
the top line of the display.
blankmenu Blanks the last menu displayed.
clrwindow Clears a window (rectangular area) on
dispinst Displays instructions on line 23 of the screen
using the same colors as the last menu.
picklist Displays a list of items from the
currently selected database and allows
the user to choose from them. The items
displayed can be any string expression.
The files included are:
main.prg Explains each procedure and gives a demonstration.
The code may be examined as an example
of how to use the procedures.
procs.prg Code for procedures and also for
menu.dbf Database that contains menu information.
menuscrn.ndx Menu.dbf is indexed on field menuscrn.
sample.dbf Sample database and index are used to demonstrate
sample.ndx the picklist function.
readme.1st This file.
I hope these routines prove useful or instructive. The
procedure that was most critical for me was the picklist
function which allowed me to force choices to those already
existing in a database and to allow the user to point and choose
instead of entering complex key fields.
If you have any questions or comments you can direct them
through the Ashton-Tate bulletin board to username Kaufman, or
you can contact me at my workplace at (219) 423-2552 x3379.