Apr26

5 outstanding salesman

by glenda on April 26th, 2011 at 2:41 pm
Posted In: Tutorials, Tutorials, Visual FoxPro


<running mode for 5 outstanding salesman with background color>
database name:   salesman

** DELOSO , MA. GLENDA A. CP-13
** FIVE OUTSTANDING SALESMAN
** PROGRAM DATE: FEBRUARY 10 , 2010

private I, nRctr
activate screen
nRctr=6
select 1
use salesman
clear
set color to B/W
@2,2 say “FIVE OUTSTANDING SALESMAN”
go top
I=1
set color to R/W
@4,2 say “NAME”
@4,29 say “SALES”
do while I<=5
set color to B/W
@nRctr,2 say salesman->name
@nRctr,27 say salesman->sales
nRctr=nRctr+1
skip+1
I=I+1
enddo
└ Tags: