+------------------------+---------------------+-{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]

Популярность: 26, Last-modified: Thu, 12 Feb 1998 08:47:28 GmT