FoxPro Tutorial & Source Code
* Author: Arun Acharya
* Date : 23/09/2004
* Place : Natraj Infosys
* Source: relation.prg
* Database file: item.dbf, inv.dbf
* Desc. : Relation in Two Database file.
set talk off
set safe off
close all
sele a
use item
index on item_code to item
sele b
use inv
index on trans_date to inv for .not. dele()
SET RELATION TO item_code INTO A
define popup tpop from 5, 0 to 24, 79 prompt field space(5)+ ;
dtoc(trans_date)+" "+a->item_name+" "+str(item_qty,8) ;
color w, w scroll
acti popup tpop
close all
Also download:
database/item.dbf database/inv.dbf
|
|
