Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : GOFER002.ZIP
Filename : EXAMPLE2.PRG

* Program.:example2.prg
* Author..:Fred C. Wampler
* Date....:01/28/91
* Notice..:Copyright, 1991, Fred C. Wampler
* Notes...:Example showing speed and flexibility with a large database
example2=prog()
CLOSE DATA
USE zip
IF !(FILE('town.idx'))
INDEX ON UPPER(town) TO town
ENDIF
SET INDEX TO town
DEFINE WINDOW DATA FROM 1,0 TO 10,50 TITLE [ Zip Example ] SHAD
ACTI WINDOW DATA
ON KEY LABEL f2 DO getzip WITH example2=prog()
mzip=SPACE(5)
mtown=SPACE(25)
@ 0,0 SAY [Town (F2-lookup)] GET mtown
@ 1,0 SAY [ Zip] GET mzip
READ
ON KEY LABEL f2 DO getgtown WITH example2=prog()
CLEAR
mzip=SPACE(5)
mtown=SPACE(25)
@ 0,0 SAY [G-towns (F2-lookup)] GET mtown
@ 1,0 SAY [ Zip] GET mzip
READ
ON KEY LABEL f2
CLOSE DATA
CLEAR WINDOW
RETURN

PROCEDURE getzip
PARA ok
IF !m.ok
RETURN
ENDIF
KEY=UPPER(mtown) && initial lookup value- string OR numeric depending ON INDEX
* && can be empty.
alias=[zip] && alias of any open workarea
norder =1 && gofer will SET INDEX TO ORDER . Use 0 FOR DEFAULT.
loval=[] && leave empty FOR string WHEN no BROWSE KEY RANGE is required.
hival=[] && must be numberic FOR numeric INDEX
subset=!EMPTY(loval+hival) && IF .t. then BROWSE uses the BROW KEY option
ok2edit=1 && 1 TO EDIT, 0 TO disallow any EDIT (ALL FIELDS)
keydelay=.4 && delay FOR KEYBOARD search AND leftmouse DOUBLE click
coord=[1,51,23,79] && BROWSE WINDOW coordinates
TITLE=[ Select by Town ] && TITLE of BROWSE WINDOW
FIELDS=[town,zip] && :R TO disallow indiv FIELD EDIT. List FIELDS separated by
* a ',' or leave blank to disp all fields. ok2edit must =1 for :R option.
F1=IIF(TYPE([F1])#[C],[on key label F1],F1) && SAVE hotkey STATUS
F5=IIF(TYPE([F5])#[C],[on key label F5],F5) && SAVE hotkey STATUS
msgclr=scheme(2,5) && COLOR of HELP ON TOP line (0)
hlpclr=scheme(2) && COLOR HELP SCREEN (F1)
brwclr=scheme(10) && COLOR of BROWSE WINDOW
edtclr=scheme(7) && COLOR of EDIT WINDOW (^L)
wrdclr=scheme(7) && COLOR of word EDIT
genpara=[NOEDIT NOAPPEND NODELE KEY loval,hival WIDTH 16 TIMEOUT 600]
IF gofer(&coord) && .OR. golfer(1,40,23,79)
mtown=zip.town
mzip=zip.zip
ELSE
WAIT [False] WINDOW TIMEOUT .3 && returns false IF ESCAPED
ENDIF
RETURN

PROCEDURE getgtown
PARA ok
IF !m.ok
RETURN
ENDIF
KEY=UPPER(mtown) && initial lookup value- string OR numeric depending ON INDEX
* && can be empty.
alias=[zip] && alias of any open workarea
norder =1 && gofer will SET INDEX TO ORDER . Use 0 FOR DEFAULT.
loval=[G] && leave empty FOR string WHEN no BROWSE KEY RANGE is required.
hival=[G] && must be numberic FOR numeric INDEX
subset=!EMPTY(loval+hival) && IF .t. then BROWSE uses the BROW KEY option
ok2edit=1 && 1 TO EDIT, 0 TO disallow any EDIT (ALL FIELDS)
keydelay=.4 && delay FOR KEYBOARD search AND leftmouse DOUBLE click
coord=[1,51,23,79] && BROWSE WINDOW coordinates
TITLE=[ Select by Town ] && TITLE of BROWSE WINDOW
FIELDS=[town,zip] && :R TO disallow indiv FIELD EDIT. List FIELDS separated by
* a ',' or leave blank to disp all fields. ok2edit must =1 for :R option.
F1=IIF(TYPE([F1])#[C],[on key label F1],F1) && SAVE hotkey STATUS
F5=IIF(TYPE([F5])#[C],[on key label F5],F5) && SAVE hotkey STATUS
msgclr=scheme(2,5) && COLOR of HELP ON TOP line (0)
hlpclr=scheme(2) && COLOR HELP SCREEN (F1)
brwclr=scheme(10) && COLOR of BROWSE WINDOW
edtclr=scheme(7) && COLOR of EDIT WINDOW (^L)
wrdclr=scheme(7) && COLOR of word EDIT
genpara=[NOEDIT NOAPPEND NODELE KEY loval,hival WIDTH 16 TIMEOUT 600]
IF gofer(&coord) && .OR. golfer(1,40,23,79)
mtown=zip.town
mzip=zip.zip
ELSE
WAIT [False] WINDOW TIMEOUT .3 && returns false IF ESCAPED
ENDIF
RETURN