home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
ext_key.zip
/
EXT_MENU.CLA
< prev
next >
Wrap
Text File
|
1992-03-10
|
2KB
|
59 lines
MEMBER('ext_key')
main PROCEDURE
SCREEN SCREEN PRE(SCR),WINDOW(15,50),AT(6,16),HUE(0,7)
ROW(2,2) PAINT(1,48),HUE(15,0)
ROW(1,1) STRING('<201,205{48},187>')
ROW(2,1) STRING('<186,0{48},186>')
ROW(3,1) STRING('<199,196{48},182>')
ROW(4,1) REPEAT(11);STRING('<186,0{48},186>') .
ROW(15,1) STRING('<200,205{48},188>')
ROW(2,14) STRING('External Key Demo Program')
ENTRY,USE(?FIRST_FIELD)
ENTRY,USE(?PRE_MENU)
MENU,USE(MENU_FIELD"),REQ
ROW(5,17) STRING(' Show By Last Name')
ROW(7,16) STRING(' Show By First Name ')
ROW(9,10) STRING(' Show By Social Security Number ')
ROW(11,20) STRING(' Show By Age ')
ROW(13,23) STRING(' Quit ')
. .
EJECT
CODE
OPEN(SCREEN) !OPEN THE MENU SCREEN
SETCURSOR !TURN OFF ANY CURSOR
MENU_FIELD" = '' !START MENU WITH FIRST ITEM
LOOP !LOOP UNTIL USER EXITS
ALERT !TURN OFF ALL ALERTED KEYS
ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY
ACCEPT !READ A FIELD OR MENU CHOICE
IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT
IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY
UPDATE ! MOVE ALL FIELDS FROM SCREEN
SELECT(?) ! START WITH CURRENT FIELD
SELECT ! EDIT ALL FIELDS
CYCLE ! GO TO TOP OF LOOP
. !
CASE FIELD() !JUMP TO FIELD EDIT ROUTINE
OF ?FIRST_FIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY
OF ?PRE_MENU !PRE MENU FIELD CONDITION
IF KEYCODE() = ESC_KEY ! BACKING UP?
SELECT(?-1) ! SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(?+1) ! SELECT MENU FIELD
.
OF ?MENU_FIELD" !FROM THE MENU FIELD
EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE
ext_table(emp:lnam_key) ! Pass last name key
ext_table(emp:fnam_key) ! Pass first name key
ext_table(emp:ssn_key) ! Pass ssn key
ext_table(emp:age_key) ! Pass age key
return
. . .