Ma. Glenda Deloso personal blog site.

*a sample program of searching by menu*
database name:  menu

use menu
index on Empno to IEMPNO
index on Lname to ILNAME
index on Fname to IFNAME

private cEmpno, cLname, cFName, cChoice
activate screen
cEmpno=space(3)
cLName=space(15)
cFName=space(15)
cChoice=” ”
clear
use menu
set color to R/B
@1,1 say “SEARCH BY MENU”
@3,1 say “N – EMPLOYEE NUMBER”
@4,1 say “L – LAST NAME”
@5,1 say “F – FIRST NAME”
@6,1 say “Q – EXIT MENU”
accept “CHOICE NOW: ” to cChoice
clear
set index to IEMPNO,ILNAME,IFNAME
use menu index IEMPNO, ILNAME, IFNAME
do case
case upper (cChoice)=”N”
set order to 1
@8,20 say “ENTER EMPLOYEE NUMBER: ” get cEmpno pict”999″
read
seek cEmpno
case upper (cChoice)=”L”
set order to 2
@8,20 say “ENTER LAST NAME: ” get cLname
read
seek cLName
case upper (cChoice)=”F”
set order to 3
@8,20 say “ENTER FIRST NAME: ” get cFname
read
seek cFName
case upper (cChoice)=”Q”
close databases
quit
otherwise
wait “WRONG CHOICE, PRESS ANY KEY…”
close databases
return
endcase
if found()
clear
@9,2 say menu->Empno
@9,20 say menu->LName
@9,40 say menu->FName
endif