Приклад найпростішої програми на мові Informix-4GL

database zawod<br /> MAIN</p> <p>MENU &quot;Головне меню&quot;<br /> command key (&quot;w&quot;) &quot;вхід&quot; &quot;допомогою облікових даних&quot;<br /> call wwod()<br /> command key (&quot;p&quot;) &quot;перегляд&quot; &quot;Перегляд таблиці kadry&quot;<br /> call prosmotr()<br /> command &quot;OДІНОЧНИЙ ПЕРЕГЛЯД&quot; &quot;Пошук по Табельний номер&quot;<br /> call odin_prosmotr()<br /> command &quot;KОНЕЦ&quot;<br /> clear screen<br /> exit program<br /> end menu</p> <p>END MAIN</p> <p>FUNCTION wwod()<br /> define c char(1) , zapisx record like kadry.*<br /> # Це ОБRЯВЛЕНІЕ еквівалентно такому:<br /> # DEFINE zapisx RECORD<br /> # Nomerceh INT, # НОМЕРЦЕХА<br /> # Tabnom INT, # ТАБЕЛЬН.НОМЕР<br /> # Fio CHAR (20), # ПРІЗВИЩЕ<br /> # Dolvn CHAR (20), # ПОСАДУ<br /> # Zarplata MONEY (16,2), # ЗАРПЛАТА<br /> # Datarovd DATE # ДАТА народж<br /> # END RECORD</p> <p>OPEN WINDOW wwod AT 4,20 WITH FORM &quot;kadry&quot; attribute (border)<br /> MESSAGE &quot;ВВЕДІТЬ ОБЛІКОВІ ДАНІ, І НАТИСНІТЬ ESC&quot; attribute (reverse)<br /> let c=&#8221;Y&#8221;</p> <p>WHILE c NOT MATCHES &quot;[nNНн]&quot; or c is NULL # в циклі<br /> INPUT by name zapisx .* # ввести дані ЧЕРЕЗ Екранна форма<br /> DISPLAY &quot;прийнято&quot; AT 1, 1</p> <p> let zapisx.tabnom=0<br /> INSERT INTO kadry values (zapisx. *) # вставити рядки У ТАБЛИЦЮ kadry<br /> display SQLCA.SQLERRD [2] to tabnom # Який номер ОТРИМАВ serial стовпець?<br /> prompt &quot;прийняті. вводьте наступні (так / ні)?&quot; for char c<br /> END WHILE</p> <p>CLOSE WINDOW WWOD # ліквідуємо ВІКОНЦЕ<br /> END FUNCTION</p> <p>FUNCTION prosmotr()<br /> define zapisx record like kadry.* , c char</p> <p>open window prosmotr at 4,34 with form &quot;kadry&quot; attribute (border)<br /> declare prosmotr cursor for select * from kadry order by nomerceh, tabnom<br /> FOREACH prosmotr INTO zapisx .* # в циклі для КОЖНІЙ РЯДКИ<br /> DISPLAY BY NAME zapisx .* # вивів її на ЕКРАН<br /> prompt &quot;показує наступне (так / ні)?&quot; for char c<br /> IF c matches &quot;[нНNn]&quot; then exit foreach END IF # Якщо ні то КІНЕЦЬ<br /> END foreach<br /> close window prosmotr # ліквідуємо ВІКОНЦЕ<br /> END FUNCTION</p> <p>FUNCTION odin_prosmotr()<br /> define zapisx record like kadry.* , nomer int</p> <p>open window odin_prosmotr at 4,4 with form &quot;kadry&quot; attribute (border)<br /> WHILE 1 = 1 # в циклі<br /> prompt &quot;Який Табельний номер ПОКАЗАТИ:&quot; attribute (reverse)<br /> for nomer attribute (underline)<br /> IF nomer IS NULL THEN exit while END IF # Якщо нічого не ВВІВ ТО КІНЕЦЬ</p> <p> SELECT * INTO zapisx.*<br /> FROM kadry WHERE nomer = tabnom # ЧИТАЄ РЯДКА<br /> if status = NOTFOUND then<br /> error &quot;Немає таких&quot; attribute (reverse) # якщо не знайшли ТО<br /> continue while # ПЕРЕЙТИ НА ПОЧАТОК ЦИКЛУ<br /> end if</p> <p>DISPLAY BY NAME zapisx .* # вивів її на ЕКРАН<br /> END WHILE<br /> close window odin_prosmotr # ліквідуємо ВІКОНЦЕ<br /> END FUNCTION<br />

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*