bavit" BAR 4 OF baza PROMPT "Poisk" SELECTION BAR 1 OF baza DO korrSELECTION BAR 2 OF baza DO procmSELECTION BAR 3 OF baza DO vvodBAR 4 OF baza ACTIVATE POPUP poiskPOPUP poisk MARGIN RELATIVE SHADOW COLOR SCHEME 4BAR 1 OF poisk PROMPT "po telefonu" SELECTION BAR 1 OF poisk DO poisk1MENU SpravochnikMENUWINDOW Spravochnik
* PROCEDURA UDALENIA ZAPISIudal1WINDOW ok1 FROM 5,10 to 20,70 TITLE 'Udalenie zapisi iz BD' COLOR SCHEME 10WINDOW ok1 = RECNO () BAR () = 1
@ 2,2 SAY 'Vedite Telefon'
@ 2, col () +2 GET tel1 DEFAULT SPACE (6) FOR tel. Telefon = tel1EOF () 'ne naydeno' WINDOWnDELETE () 'zapis udalena! 'WINDOW
@ 3,2 SAY IIF (DELETE (), 'zapis udalena!', '') GETSWINDOW ok1
* Procedure Korreczii BDkorrtel IN 11WINDOW krok FROM 5,10 to 20, 70 TITLE 'Korreczia BD' COLOR SCHEME 10WINDOW krok
@ 2,2 SAY 'Nomer Telefona'
@ 2, col () +4 GET tel. telefon
@ 3,4 SAY 'FIO Abonenta'
@ 3, col () +6 GET Abonent
@ 4,6 SAY 'Nazvanie Ulizi'
@ 4, col () +10 GET Uliza
@ 5,6 SAY 'Nomer Domaя'
@ 5, col () +4 GET Dom
@ 6,4 SAY 'Nomer Kvartiri'
@ 6, col () +7 GET kvartira
@ 7,2 SAY 'God rojdenia'
@ 7, col () +4 GET god_rojd
@ 8,4 SAY 'Semeynoe polojenie (T-jenat; F-ne jenat)'
@ 8, col () +10 GET Polojenie = 1
@ 10,12 say 'Prodoljit prosmotr bazi DA NET'
@ 10, col () - 7 get ch FUNCTION '* IHT;' SIZE 1,3,1 cyclch <> 1WINDOW krok
* procedura prosmotra BDprocmtel IN 11
* SET RELATION TO regnomer INTO FIOWINDOW prosm FROM 5,10 to 20,70 TITLE 'INFO Abonenta' COLOR SCHEME 10POPUP pr FROM 1,1 to 12,57 PROMPT FIELD str (tel. telefon, 6 ) + '' + tel. abonent + '' +; (tel. God_rojd, 4) TITLE 'Telefon Abonenta FIO Abonenta God Rojdeniya' footer;
'Viberite i najmite ENTER'SELECT POPUP pr DO infWINDOW prosmPOPUP prRELATION TOWINDOW prosm
RETURN
* Procedura, vidaushaya v okne soderjimoe vibrannoy zapisi
PROCEDURE infWINDOW inf FROM 9,45 TO 15,73 TITLE 'Telefon' + str (tel. telefon, 6) COLOR SCHEME 7WINDOW inf = MEC ()
@ 1,1 SAY 'Uliza'
@ 1, col () +1 SAY tel. Uliza
@ 2,1 say 'Dom'
@ 2, col () +1 SAY tel. Dom
