ALTER TABLE wr1 ADD PRIMARY KEY id_z TAG id_z
ALTER TABLE wr2 ADD FOREIGN KEY id_z TAG id_z REFERENCES wr1
CLOSE DATABASE      && закрыть БД
USE work2.dbc IN  0   && открыть эту БД, как таблицу
LOCATE FOR ObjectType="Table" AND ObjectName="wr2"
nObjID=ObjectID && ??? что за переменные и чему равен ObjectID и откуда берется ???
LOCATE FOR ObjectType="Relation" AND ObjectID=nObjID
REPLACE RiInfo WITH "CCR"

lnFH=Fopen("KONTAKT.DBC", 2 )
If m.lnFH< 0 
  Messagebox("Для выполнения данной операции требуется эксклюзивный доступ к данным."+Chr( 13 )+ ;
    "Закройте все окна, завершите работу программы на других компьютерах и повторите попытку"+Chr( 13 )+Chr( 13 )+ ;
    "p.s. Если ничего не помогло, будите админа", 16 )
  Do RestorySet
  Return .f.
Endif
Fclose(m.lnFH)
USE KONTAKT.DBC EXCLUSIVE
DELETE ALL FOR ALLTRIM(UPPER(ObjectType)) = "INDEX"
DELETE ALL FOR ALLTRIM(UPPER(ObjectType)) = "RELATION"
REPLACE ALL PROPERTY WITH DelPrimaryKey(PROPERTY) ;
  FOR ALLTRIM(UPPER(ObjectType)) = "TABLE"
PACK
USE
FLUSH

***** Реиндексация таблицы ZEX *****
 IF FILE("ZEX.CDX")
   ERASE (FULLPATH("ZEX.CDX"))
 ENDIF
 USE ZEX EXCLUSIVE
 SET COLLATE TO ""
 PACK
 ALTER TABLE ZEX ADD PRIMARY KEY ZEX TAG ZEX_ZEX
***** Реиндексация таблицы S_ZEX *****
 IF FILE("S_ZEX.CDX")
   ERASE (FULLPATH("S_ZEX.CDX"))
 ENDIF
 USE S_ZEX EXCLUSIVE
 SET COLLATE TO ""
 PACK
 INDEX ON AZEX TAG S_ZEX_ZEX COMPACT ASCENDING

ALTER TABLE S_ZEX 	  ADD FOREIGN KEY TAG S_ZEX_ZEX  REFERENCES ZEX 	 TAG ZEX_ZEX

 CLOSE DATABASES ALL && закрытие 
 USE KONTAKT.DBC EXCLUSIVE && открытие базы как таблицы
 LOCATE FOR ALLTRIM(UPPER(ObjectType)) = "TABLE" .AND. ALLTRIM(UPPER(ObjectName)) = "S_ZEX" && ? UPPER('abcd') && Displays ABCD
* ищем таблицу с именем S_ZEX
 IF FOUND() && если нашли
   lnObjectID = ObjectID && ХренЗнает
   LOCATE FOR ALLTRIM(UPPER(ObjectType)) = "RELATION" .AND. ; && ищем отношения
     ATC("S_ZEX_ZEX",PROPERTY) >  0  .AND. ; && тэг таблицы (s_zex) в property ищется s_zex_zex слева на право
     ATC("ZEX",PROPERTY) >  0  .AND. ; && тут или таблица или поле опять ХЗ
     ATC("ZEX_ZEX",PROPERTY) >  0  .AND. ; && это тэг таблицы zex.dbf
     PARENTID = m.lnObjectID && тут мучает вопрос что такое символ "эм" с точкой m.* что означает??? скажи пожалуйста 
   IF FOUND()
     REPLACE RiInfo WITH "RRR   " && что есть RiInfo и с чем его едят и где оно храниться ???
   ELSE
     MESSAGEBOX("База дынных испорчена, и все тут...суши весла",  48 )
   ENDIF
 ENDIF
 USE

REPLACE RiInfo WITH "RRR   "

alter tables NK_OTZSPEC add FOREIGN  key RN_NKOTZ TAG NKOTZSP_NK REFERENCES NK_OTZ TAG NK_OTZ_NKO

  CREATE TRIGGER ON <имя таблици> FOR DELETE AS <имя триггера>
  CREATE TRIGGER ON <имя таблици> FOR INSERT AS <имя триггера>
  CREATE TRIGGER ON <имя таблици> FOR UPDATE AS <имя триггера>