+------------------------+---------------------+-{31-июл-91}-+
| 4GL Экранные формы | 1 страница 64 строк| файл h4per|
+------------------------+---------------------+-------------+
DDATABASEE { db-name | FORMONLY } [WITHOUT NULL INPUT]
DSCREENE [ SIZE lines [BY columns] ]
D{E
. . . Текст . . . D[Efieldtag D]E
fieldtag (метка поля) - слово из букв и цифр,начинающееся с буквы
. . .
Графические символы для рисования рамок:
\gp-------q\g
\g|\g \g|\g
\gb-------d\g
D}E
DTABLESE # Открывать не более 12 таблиц !
[tab-alias=[owner.]] table ...
DATTRIBUTESE
fieldtag = { table.column | FORMONLY.field-name
[TYPE [datatype [NOT NULL] | LIKE [table.]column]]}
[attrbute-list] [=...][;][=...];
. . .
# datatype любой кроме SERIAL
DВозможные аттрибуты:E
AUTONEXT
COMMENTS = "Строка комментария"
NOENTRY
REQUIRED
VERIFY требовать подтверждения
DEFAULT = "CA"
INCLUDE = ("CA","OR","NV","WA")
INCLUDE = (1 to 50,87,90)
DISPLAY LIKE table.column
FORMAT = "mm/dd/yyyy" для дат
FORMAT = "####.#####" для чисел
PICTURE = "тел.A##-#-###(XX)" A-буква,#-цифра,X-символ
WORDWRAP [COMPRESS] поле расположено в нескольких строках
VALIDATE LIKE tbl.col
UPSHIFT
DOWNSHIFT
REVERSE негатив
COLOR=[цвет] [интенс] ... [WHERE условия1 на fieldtag]
[,COLOR=[цвет2] [интенс2] ... WHERE условия2 на fieldtag]
цвет: интенсивность:
WHITE CYAN DreverseE
YELLOW MAGENTA RED blink
GREEN BLUE BLACK underline
left
[DINSTRUCTIONSE
[DDELIMITERSE "ab"] # по умолчанию "ab"="[]"
[DSCREEN RECORDE record-name [ D[n]E ]
( { table.* | table.col1 THRU table.col2 |
table.column } [,...])
. . . ]
[DENDE]
Last-modified: Thu, 12 Feb 1998 08:47:28 GMT