FoxPro Tutorial & Source Code
* Author : Shiv Kumar Vyas Student of Natraj Infosys
* Date : 15/10/2004
* Source : teldir.prg
* Description : Program to locate subscriber detail while typeing Telephone Number
SET TALK OFF
CLEAR
PHONENUM=0
@2,15 SAY"TELEPHONE DIRECTORY SEARCH SYSTEM"
@5,10 SAY "ENTER TELEPHONE NUMBER TO BE SEARCHED: " GET PHONENUM
READ
USE TELE
GO TOP
LOCATE FOR PHONE_NO=PHONENUM
IF FOUND()
@7,10 SAY "NAME: "
@7,40 SAY NAME
@8,10 SAY "CODE_NO: "
@8,40 SAY CODE_NO
@9,10 SAY "PHONE_NO: "
@9,40 SAY PHONE_NO
@11,10 SAY "ADDRESS1: "
@11,40 SAY ADDRESS1
@12,10 SAY "ADDRESS: "
@12,40 SAY ADDRESS
@13,10 SAY "CITY: "
@13,40 SAY CITY
@15,10 SAY "STATE: "
@15,40 SAY STATE
@16,10 SAY "COUNTRY: "
@16,40 SAY COUNTRY
ELSE
@7,10 SAY "THIS TELEPHONE NUMBER WAS NOT FOUND!"
ENDIF
USE
RETURN
Also download:
database/tele.dbf
|
|
