Dec 212017
 
Create DBASE IV field selection popup with up to 3 fields rather than the standard 1 field.
File PICKLIST.ZIP from The Programmer’s Corner in
Category Dbase Source Code
Create DBASE IV field selection popup with up to 3 fields rather than the standard 1 field.
File Name File Size Zip Size Zip Type
DEMO1.PRG 4845 1731 deflated
NAMES.DBF 1325 507 deflated
NAMES.MDX 4097 1181 deflated
PICKLIST.DBO 6648 3023 deflated
PICKLIST.DOC 4160 1592 deflated
TSCR.ASM 2449 907 deflated
TSCR.BIN 48 41 deflated

Download File PICKLIST.ZIP Here

Contents of the PICKLIST.DOC file


Files included in picklist.zip

- PICKLIST.DOC
- DEMO1.PRG
- TSCR.ASM
- TSCR.BIN
- PICKLIST.DBO
- NAMES.DBF
- NAMES.MDX
===============================================================================
PICKLIST 1.0 DOCUMENTATION

About PICKLIST:

What does PICKLIST do?

After PICKLIST is called, the program displays a box containing
a list of records. The user can navigate throughout the list
with the pgup, pgdn, and up/down arrow keys. The user then has
the option of selecting an item from the list (by pressing enter)
or (escape or left/right arrow) to do nothing. If enter is pressed
then the record pointer is positioned to the selected record. If
escape or left/right arrow are pressed then the record pointer
is not re-positioned.

The programer needs only to decide on the screen location
of the list, the fields to be displayed, and the number of
items to be displayed (height).

Upon return from PICKLIST the record pointer is positioned to
the selected record, providing that the user actually selected
an item. (WAS_PICK=.T.)

SEE DEMO1.PRG FOR AN EXAMPLE

USAGE:

DO PICKLIST WITH "FIELD","FIELD","FIELD",ROW,COLUMN,# TO DISPLAY,WAS_PICK

Where: FIELD IS A .DBF FIELD NAME (MUST BE IN QUOTES)
If only one or two fields need to be displayed then create a
variable such as NULL="" and use "NULL" in place of "FIELD".

Example: DO PICKLIST WITH "LASTNAME",FIRSTNAME","NULL",0,0,5,WAS_PICK

ROW = starting row of list window
COLUMN = starting column of list window
# TO DISPLAY = number of records to display in list (height of window)
WAS_PICK = a logical value that is returned true if the user presses
the [Enter] key within the picklist. A false value is
returned when the user presses escape or left/right arrow.

Note: PICKLIST does not validate ANY parameters. You must make sure that
you enter valid screen coordinates and at the same time making sure
that the width and height of the displayed picklist will also fit
on the screen.

NOTES ABOUT PICKLIST:

- THE FILE TSCR.BIN MUST BE IN THE DEFAULT DIRECTORY. THIS ROUTINE
IS ESSENTIAL TO THE OPERATION OF PICKLIST.
- For ver 1.1 only and was compiled on a color system
- Numeric fields are converted to a length of 10 with two decimals
- Only works with indexed .dbf's (.mdx works, haven't tried .ndx)
- Window refresh is acceptable on 286 machine, do not know about 8088
- Refresh is faster with less items displayed. (5-10)
- Do not use work area #10. PICKLIST creates a "mirror" image of the
current .dbf in use by using the USE IN AGAIN statement.
- Variables used: (all are RELEASED after return from PICKLIST)
row col cnt p1 p2 p3 p4 height
end_row end_col startrow ptr beg_row beg_col
parm top_rec width curr_dbf curr_ord
- Navigation keys
[Esc], left/right arrow = exit list
[Return] = select item in list
PgUp, PgDn, up/down arrow = just what they imply
===============================================================================
Please leave comments, suggestions, or questions via mail on the
Ashton Tate BBS addressed to user name SLICE.




 December 21, 2017  Add comments

 Leave a Reply

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

(required)

(required)