Пример Паскаль-образа

unit STAFBASE;
{
 +-----------------------------------------------------------+
 ¦			 Словарь : STAFBASE "Проекты_организации"	¦
 +-----------------------------------------------------------+
}
interface
uses Access, DateTime;

type {------ Пользовательские типы ------}
  TNREC				= Comp;
{---------- Таблица : EXCLASS "Классификация затрат" --------}
var pEXCLASSTbl : pTable;
const
  coEXCLASS = 30;
type
  String20		= String[20];
  String40		= String[40];
  pEXCLASS = ^tEXCLASS;
  tEXCLASS = record   { - Классификация затрат }
	NREC		 : comp;  { Номер записи			 }
	CLASSCODE	: string20;  { Классификационный код	 }
	CLASSNAME	: string40;  { Наименование классификатора }
  end;
const
  tiEXCLASS0			 = 0;  { NREC(J Sur Un M)	}
  tiEXCLASS1			 = 1;  { CLASSCODE(M Up)		 }

{------------- Таблица : POSTES "Должности" --------------}
var pPOSTESTbl : pTable;
const
  coPOSTES = 31;
type
  pPOSTES = ^tPOSTES;
  tPOSTES = record   { - Должности }
	NREC		 : comp;  { Номер записи			 }
	NAME		 : string40;   { Должность			}
	MINSALARY	: double;  { Минимальный оклад	}
	MAXSALARY	: double;  { Максимальный оклад	 }
  end;
const
  tiPOSTES0			= 0;  { NREC(J Sur Un M)		 }
  tiPOSTES1			= 1;  { NAME(M Up L=11)		}
  tiPOSTES2			= 2;  { MINSALARY(M <) + MAXSALARY }

{------------- Таблица : DEPARTMENTS "Отделы" --------------}
var pDEPARTMENTSTbl : pTable;
const
  coDEPARTMENTS = 32;
type
  String16		= String[16];
  String70		= String[70];
  pDEPARTMENTS = ^tDEPARTMENTS;
  tDEPARTMENTS = record   { - Отделы }
	NREC		 : comp;  { Номер записи	}
	NUM			: string16;   { Номер отдела	}
	NAME		 : string70;   { Название отдела	 }
	CHIEF		: comp;  { Руководитель	}
  end;
const
  tiDEPARTMENTS0		 = 0;  { NREC(J Sur Un M)	 }
  tiDEPARTMENTS1		 = 1;  { NAME(M Up L=11)}

{------------- Таблица : EMPLOYEE "Сотрудники" --------------}
var pEMPLOYEETbl : pTable;
const
  coEMPLOYEE = 33;
type
  String50		= String[50];
  String1		= String[1];
  pEMPLOYEE = ^tEMPLOYEE;
  tEMPLOYEE = record   { - Сотрудники }
	NREC		 : comp;  { Номер записи		}
	NAME		 : string50;   { Фамилия И.О.		}
	POSTESNREC	 : comp;  { Должность			 }
	DEPARTMENTNREC : comp;  { Отдел				 }
	FORMULANREC	: comp;  {Формула вычисления премии}
	STATUS		 : string1; { Признак совместителя}
	ACCEPTDATE	 : date;  { Дата приема на работу   }
	SALARY		 : double;  { Зарплата			}
	PREMIUM		: double;  { Премия			}
  end;
const
  tiEMPLOYEE0			= 0;  { NREC(J Sur Un M)		 }
  tiEMPLOYEE1			= 1;  { NAME(M Up)				 }
  tiEMPLOYEE2			= 2;  { POSTESNREC(M)+EPARTMENTNREC}
  tiEMPLOYEE3			= 3;  { FORMULANREC(M)			 }

{------------- Таблица : PROJECTS "Проекты" --------------}
var pPROJECTSTbl : pTable;
const
  coPROJECTS = 34;
type
  pPROJECTS = ^tPROJECTS;
  tPROJECTS = record   { - Проекты }
	NREC		 : comp;  { Номер записи		 }
	NAME		 : string50;   { Название			 }
	STATUS		 : string1; { Статус				 }
  end;
const
  tiPROJECTS0			= 0;  { NREC(J Sur Un M)		 }
  tiPROJECTS1			= 1;  { NAME(M Up L=11)	}
  tiPROJECTS3			= 2;  { STATUS(M Up)			 }

{------------- Таблица : STAGES "Этапы" --------------}
var pSTAGESTbl : pTable;
const
  coSTAGES = 35;
type
  pSTAGES = ^tSTAGES;
  tSTAGES = record   { - Этапы }
	NREC		 : comp;  { Номер записи		 }
	PROJECTSNREC   : comp;  { Проект				 }
	NUM			: word;  { Номер этапа		}
	NAME		 : string50;   { Наименование		 }
	BEGDATE		: date;  { Дата начала		}
	ENDDATE		: date;  { Дата окончания		 }
  end;
const
  tiSTAGES0			= 0;  { NREC(J Sur Un M)		 }
  tiSTAGES1			= 1;  { NUM(M) + NAME(Up)	}
  tiSTAGES2			= 2;  { BEGDATE(M)			 }
  tiSTAGES3			= 3;  { ENDDATE(M)			 }
  tiSTAGES4			= 4;  { PROJECTSNREC(M)	}

{------------- Таблица : EXPENS "Расходы" --------------}
var pEXPENSTbl : pTable;
const
  coEXPENS = 36;
type
  pEXPENS = ^tEXPENS;
  tEXPENS = record   { - Расходы }
	NREC		 : comp;  { Номер записи		 }
	PROJECTSNREC   : comp;  { Проект				 }
	STAGESNREC	 : comp;  { Этап				 }
	EXCLASSNREC	: comp;  { Классификатор затрат   }
	EXDATE		 : date;  { Дата				 }
	SUMM		 : double;  { Сумма			}
  end;
const
  tiEXPENS0		= 0;  { EXDATE(M)				 }
  tiEXPENS1		= 1;  { PROJECTSNREC(M) + STAGESNREC}
  tiEXPENS2		= 2;  { EXCLASSNREC(M)		}

{--------- Таблица : EMPPROJ "Сотрудники-Проекты" ----------}
var pEMPPROJTbl : pTable;
const
  coEMPPROJ = 37;
type
  pEMPPROJ = ^tEMPPROJ;
  tEMPPROJ = record   { - Сотрудники-Проекты }
	EMPLOYEENREC   : comp;  { Сотрудник		}
	PROJECTSNREC   : comp;  { Проект				 }
  end;
const
  tiEMPPROJ0	 = 0;  { EMPLOYEENREC(M) + PROJECTSNREC }
  tiEMPPROJ1	 = 1;  { PROJECTSNREC(M) + EMPLOYEENREC }

{------------- Таблица : FORMULAE "Формулы" --------------}
var pFORMULAETbl : pTable;
const
  coFORMULAE = 38;
type
  pFORMULAE = ^tFORMULAE;
  tFORMULAE = record   { - Формулы }
	NREC		 : comp;  { Номер записи		 }
	NAME		 : string40;   { Имя формулы		}
	FORMULA		: string;  { Формула			}
  end;
const
  tiFORMULAE0			= 0;  { NREC(J Sur Un M)		 }
  tiFORMULAE1			= 1;  { NAME(M Up)			 }

implementation {=============================================}
BEGIN
END.