* 生成数据库中表间关系名 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]...

* 生成数据库中表结构明细 CLOSE DATABASES ALL SET SAFETY OFF CREATE TABLE Made_Dbf\T_Name (表名 c(30),字段名 c(20),字段说明 c(100),字段类型 c(1),索引类型 c(10),索引方式 c(4),宽度 n(3),小数位 n(1),表说明 c(100)) OPEN DATABASE Made_Dbf\Comm_Dbf nTables=ADBOBJECTS(aTable,"TABLE") =ASORT(aTable) FOR i=1 TO nTables USE ("Made_D...