* 生成数据库中表间关系名
CLEAR
CLOSE DATABASES ALL 
SET SAFETY OFF 
CREATE TABLE T_Rela (父表 c(20),子表 c(20),父表索标 c(20),子表索标 c(20))
OPEN DATABASE Mdf\Comm_Dbf
nRelas=ADBOBJECTS(aRela,"RELATION")
=ASORT(aRela)
FOR i=1 TO nRelas
    INSERT INTO T_Rela VALUES (aRela[i,2],aRela[i,1],aRela[i,4],aRela[i,3])
ENDFOR 
BROWSE