TyBcom.com Logo  
 Home
Navigation
 
Sponsors

 
Search
Google

Web TyBcom.com
Foxpro Programs
 

FoxPro Solved Programs

Program # 1
Use stock.dbf and ask user to enter item name & search it in the file, if found then ask user whether he wants to change the price or not & if answer is yes then change the price or ask whether he wants to continue or not. This process must continued as many times as user wants.
clear all
set talk off
set confirm on

clear
use stock.dbf
item 
space(30)
ans "Y"
user "Y"
nup 0
test1 
=0
do while user="y" or user="Y"

ans="y"

clear
1,3 say "Enter the name of the Item" get item
read
go top
locate 
for item=iname

if found()

2,3 say "Unit Price of this Product is : Rs."
?? up

do while ans="y" or ans="Y"
3,0 say "Do you want to change it Y/N?" get ans Picture "y"
read

if ans="Y" or ans="y"
5,0 say "Enter the new price for the item :" get nup
read
replace up with nup
clear
endif
10,50 say "Want to check more Items Y/N?" get user Picture "y"
read

if user="n" or user ="N"
exit
else 
ans="n"
endif
enddo
endif
if 
item!=iname
clear
"Record Doesn't Exist"
2,0 say "Want to check more Items Y/N?" get user Picture "y"
read
clear
endif
enddo
set talk on
set confirm off 
Top

Quick Links : C Language Programs | FoxPro Programs | Predict The Output
Concept & Design : Web1 
- Home - Notes N' Tips - University Papers - Notice Board - Discussion Forums - Career Options - Express It - Contact Us -
Copyright 2017 TyBcom.com. All Rights Reserved.