Ocenite etot tekst:


opisanie sostoit iz 5 razdelov:
DATABASE, SCREEN, TABLES, ATTRIBUTES, INSTRUCTIONS
--------------------------------------------------
#  baza dannyh, s kotoroj vedetsya rabota
DATABASE zawod

#  Kartinka, kotoraya vyvoditsya na ekran.
#  ekrannye polya oboznacheny tak:    [metka polya  ]
#  metka polya ispol'zuetsya v razdele ATTRIBUTE
SCREEN
{
 nomer ceha [nceh  ]             zarplata   [f002       ]
 familiya    [fio                 ]
 dolzhnost'  [dol                 ]
                  Tak v ekrannoj forme risuetsya ramka.
  Znachok \g ispol'zuetsya dlya vhoda i vyhoda v graficheskij rezhim
                    \gp-----------------------------q\g
                    \g|\g |krannyj massiv         \g|\g
                    \g|\g [s1     ]  [s2            ] \g|\g
                    \g|\g [s1     ]  [s2            ] \g|\g
                    \g|\g [s1     ]  [s2            ] \g|\g
                    \g|\gnomer ceha  nazvanie ceha    \g|\g
                    \gb-----------------------------d\g
        v graficheskom rezhime simvoly r q b d - |  zamenyayutsya
        simvolami risovaniya ramki    ƒ‘ ƒ’ ƒ“ ƒ” ƒ› ƒš
}
TABLES          #  imena tablic, s kotorymi associirovanna forma
  kadry
  ceh
ATTRIBUTES      # Imena ekrannyh polej v forme i ih atributy.
# sleva ot znaka (=) pishetsya metka polya (kotoraya  figuriruet  v
# razdele SCREEN), sprava - imya ekrannogo polya, kotoroe obychno,
# dlya udobstva, dolzhno sovpadat' s imenem kakogo-nibud' stolbca
# iz tablic, perechislennyh v razdele TABLES

nceh     = kadry.nomerceh;
f002     = zarplata, COLOR=REVERSE WHERE f002 >500;
#  esli v pole vyvedeno znachenie bol'she 500, to ono budet
#  vydeleno s atributom REVERSE (negativ)
fio  = fio;
dol  = dolvn, comments="Prover'te nalichie v shtatnom raspisanii";
s1      = ceh.nomerceh;
s2      = ceh.nameceh;
                            #  zdes' ekrannye polya mozhno
INSTRUCTIONS                #   obฎedinit' v ekrannye zapisi
    screen record   kad (kadry.nomerceh, dolvn, zarplata)
                #  i opisat' ekrannye massivy
    screen record   scr[3] (ceh.nomerceh, nameceh)
END
---------------------------------------------------------------------
a vot chto uvidit na ekrane pol'zovatel', ispol'zuyushchij etu formu:
+--------------------------------------------------------------+
|nomer ceha [      ]            zarplata   [f002       ]       |
|familiya    [                    ]                             |
|dolzhnost'  [                    ]                             |
|                 Tak v ekrannoj forme risuetsya ramka.         |
| Znachok  ispol'zuetsya dlya vhoda i vyhoda v graficheskij rezhim  |
|                   +-----------------------------+            |
|                   | |krannyj massiv             |            |
|                   | [       ]  [              ] |            |
|                   | [       ]  [              ] |            |
|                   | [       ]  [              ] |            |
|                   |nomer ceha  nazvanie ceha    |            |
|                   +-----------------------------+            |
|       v graficheskom rezhime simvoly r q b d - |  zamenyayutsya   |
|       simvolami risovaniya ramki    + + + + - |               |
+--------------------------------------------------------------+
        V etoj ekrannoj forme opredeleny ekrannye polya:
kadry.nomerceh, zarpllata, fio, dolvp, ceh.nomerceh, nameceh
        A tak zhe ekrannye zapisi:
kadru (po umolchaniyu), ceh (po umolchaniyu), kad, scr[3]

Last-modified: Tue, 25 Nov 1997 07:11:18 GMT
Ocenite etot tekst: