вується вікно krok для корекції одного або декількох полів БД.
. Процедура перегляду БД procm .
При виборі процедури procm на екран вимальовується вікно prosm для перегляду трьох параметрів записів БД.
. Процедура inf , що видає у вікні вміст вибраної запису .
Процедура inf викликається лише в тому випадку, якщо була обрана певна запис у процедурі procm. При виконанні процедури inf на екран вимальовується вікно inf, що містить додаткову інформацію про записи. p align="justify">. Процедура додавання нового запису в БД vvod .
При виборі даної процедури vvod на екран вимальовується вікно ok_v. Після внесення параметрів нового запису вона заноситься в БД. p align="justify">. Процедура пошуку запису за ознакою poisk1 .
При виборі процедури poisk1 на екрані вимальовується вікно ok для пошуку запису за ознакою.
5. Лістинг програми KURS. PRG
tel1 = 0
tel2 = 0
tel3 = 0
Fio1 =''
uliza1 =''
dom1 = 0
kvar1 = 0
god1 = 0
polo1 =''
* POSTROENIE MENU
DEFINE WINDOW Spravochnik FROM 1,1 TO 24,79 fill;
'-' color b/WWINDOW SpravochnikTALK OFFtel In 1MENU SpravochnikPAD system OF Spravochnik PROMPT "system" AT 1,5 COLOR SCHEME 3PAD baza OF Spravochnik PROMPT "basa spravochnika" AT 1,25 COLOR SCHEME 3PAD vih OF Spravochnik PROMPT "exit in DOS" AT 1,55 COLOR SCHEME 3PAD system OF Spravochnik ACTIVATE POPUP systPAD baza OF Spravochnik ACTIVATE POPUP bazaSELECTION PAD vih OF Spravochnik DO _18b16pgbhPOPUP syst MARGIN RELATIVE SHADOW COLOR SCHEME 4BAR 1 OF syst PROMPT "LOAD" ; BAR 2 OF syst PROMPT "SAVE" BAR 3 OF syst PROMPT "DELETE" SELECTION BAR 1 OF syst BROWSESELECTION BAR 2 OF syst SAVE TO Telefonniy_spravochnikBAR 3 OF syst ACTIVATE POPUP udalenPOPUP udalen MARGIN RELATIVE SHADOW COLOR SCHEME 4BAR 1 OF udalen PROMPT " ; DELETE ALL BASA "BAR 2 OF udalen PROMPT" DELETE for call "SELECTION BAR 1 OF udalen ZAPBAR 2 OF udalen ACTIVATE POPUP udalpPOPUP udalp MARGIN RELATIVE SHADOW COLOR SCHEME 4BAR 1 OF udalp PROMPT" po telefonu "SELECTION BAR 1 OF udalp DO udal1POPUP baza MARGIN RELATIVE SHADOW COLOR SCHEME 4BAR 1 OF baza PROMPT "Correction" BAR 2 OF baza PROMPT "Prosmotret" BAR 3 OF baza PROMPT "Do...
