Описание словаря БД

create dictionary Deldict "Пример для Drag-n-Drop а";

!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!

create table D_DEL.Personal "Сотрудники"
  using "Personal.dat"
  with  table_Code = 21000
  with  replace
(
  PersonID  : comp	 "Код сотрудника",
  Name	: string[80] "Имя сотрудника",
  DepID	 : comp	 "Код подразделения",
  MonthPay  : double	 "Месячный заработок",
  Character : lVar	 "Характеристика"
)
with index
(
  ByID	 = PersonID(surrogate, unique, journal),
  Person01 = Name,
  Person02 = DepID
);

!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!

create table D_DEL.Deps "Отделы"
  using "Deps.dat"
  with  table_Code = 21001
  with  replace
(
  DepID   : comp		"Код подразделения",
  DepName : string [80] "Название",
  DepDesc : lvar		"Описание"
)
with index
(
  ByID  = DepID(surrogate, unique, journal),
  Dep00 = DepName
);

!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!

create table D_DEL.Projects "Проекты"
  using "Projects.dat"
  with  table_Code = 21002
  with  replace
(
  ProjectID	: comp		"Код проекта",
  ProjectName  : string [80] "Название проекта",
  ResponsID	: comp		"Ответственный сотрудник",
  AuthorID	 : comp		"Автор проекта",
  ProjectMoney : double	"Стоимость проекта",
  Stage		: integer	 "Стадия проекта",
  ProjectData  : lVar		"Описание"
)
with index
(
  ByID	= ProjectID(surrogate, unique, journal),
  ByStage = Stage,
  ByName  = ProjectName
);