home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1991
/
11
/
relate.prg
< prev
next >
Wrap
Text File
|
1991-05-09
|
1KB
|
67 lines
*
* RELATE.PRG
*
* This program illustrates whether or not your dBASE
* implementation respects the SET DELETED ON setting
* when using SET RELATION
*
* The sample databases CLIENT and TRANSACT can be downloaded
* from PC-MagNet
*
SET TALK OFF
SET ECHO OFF
SET ALTE TO TEST && Results saved in TEST.TXT
SET ALTE ON
?
? VERSION()
?
SET DELETED OFF && First try with SET DELETED OFF
SELE 1
USE client INDEX client_id
SELE 2
USE transact
SET RELATION TO client_id INTO client
GO 1
SELE 1
DELETE && Delete the record
SELE 2
?
? '1. EOF should be false -- '
? ' EOF()=',EOF()
? ' CLIENT name should appear -- '
? ' CLIENT->CLIENT='+CLIENT->CLIENT
?
SELE 1
?
? '2. EOF should be false -- '
? ' EOF()=',EOF()
?
*
* Now try the same thing with SET DELETED ON
*
SET DELETED ON && Now try with SET DELETED ON
SELE 1
USE client INDEX client_id
SELE 2
USE transact
SET RELATION TO client_id INTO client
GO 1
SELE 1
DELETE && Make sure it's deleted
SELE 2
?
? '3. EOF should be false -- '
? ' EOF()=',EOF()
? ' CLIENT name should be blank -- '
? ' CLIENT->CLIENT='+CLIENT->CLIENT
?
SELE 1
?
? '4. EOF should be true -- '
? ' EOF()=',EOF()
?
?
SET ALTE TO
RETURN