Реферат Розробка телефонного довідника

Тема: Курсовые обзорные

> @ 3,1 say 'Kvartira'

@ 3, col () +1 SAY tel. Kvartira'' WINDOW infmec ='' = fio

SELECT 1fio1

* Procedura dobavleniya novoy zapisi

PROCEDURE vvodtel IN 1EXACT ONWINDOW ok_v FROM 5,10 to 20,70 TITLE 'Dobavlenie novoy zapisi v BD' COLOR SCHEME 10popup mesto from 1,1 to 6,16 prompt field polWHILE. t.10 TO tel3WINDOW ok_v

@ 2,2 SAY 'Vedite telefon'

@ 2, col () +6 GET tel1 size 1,15

@ 3,4 SAY 'Vedite FIO Abonenta'

@ 3, col () +5 GET FIO1 size 1,15

@ 4,6 SAY 'Vedite nazvanie ulizi'

@ 4, col () +8 GET Uliza1 size 1,15

@ 5,6 SAY 'Vedite nomer doma'

@ 5, col () +6 GET dom1 size 1,15

@ 6,4 SAY 'Vedite nomer kvartiri'

@ 6, col () +6 GET kvar1 size 1,15

@ 7,2 SAY 'Vedite god rojdeniya'

@ 7, col () +1 GET god1 size 1,15

@ 8,4 SAY 'Vedite semeynoe polojenie'

@ 8, col () +1 GET polo1 size 1,15

SELECT 1

@ 10,5 SAY 'Vi uvereni v pravilnosti vvoda? DA NET '

@ 10, col () - 7 GET ch FUNCTION '* IHT;' SIZE 1,3,1 default 1cyclch = 11BLANKtel. telefon WITH tel1tel. abonent WITH fio1tel. uliza WITH uliza1tel. dom WITH dom1tel. kvartira WITH kvar1tel. god_rojd WITH god1tel. polojenie WITH polo1

@ 10,1 TO 15,78 CLEAR

@ 10,5 SAY 'Prodoljit vvod? DA NET '

@ 10, col () - 7 get ch FUNCTION '* IHT;' SIZE 1,3,1 cyclch <> 1WINDOW ok_vDATA ALLPOPUP kor

* procedura poiska zapisipoisk1WINDOW ok FROM 5,10 to 20,70 TITLE 'Poisk zapisi v bd' COLOR SCHEME 10WINDOW ok = RECNO () BAR () = 1

@ 2,2 SAY 'Vvedite Telefon abonenta'

@ 2, col () +2 GET tel2 DEFAULT SPACE (6) FOR tel. telefon = tel2EOF () 'NE NAYDENO' WINDOWn

@ 4,3 SAY 'Telefon abonenta:'

@ 4, col () +1 SAY tel. telefon

@ 5,3 SAY 'FIO abonenta:'

@ 5, col () +1 SAY tel. abonent

@ 6,3 SAY 'Uliza abonenta:'

@ 6, col () +1 SAY tel. uliza