Разработка телефонного справочника
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
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 "Dobavit"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,1cyclch<>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 ENTERSELECT 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
@3,1 say Kvartira
@3,col () +1 SAY tel. KvartiraWINDOW 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,1cyclch<>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
@ 7,3 SAY Nomer doma abonenta:
@ 7,col () +1 SAY tel. dom
@ 8,3 SAY Nomer kvartiri aboenta:
@ 8,col () +1 SAY tel. kvartira
@ 9,3 SAY God rojdeniya abonentaя:
@ 9,col () +1 SAY tel. god_rojd
@ 10,3 SAY Semeynoe polojenie abonentaя:
@ 10,col () +1 SAY tel. polojenieWINDOW ok_18b16pgbhWINDOW poiskALL
6. Прикладной пакет экранных форм программы KURS. PRG
Заключение
В данной курсовой работе были обсуждены основные концепции построения реляционных СУБД, базовые принципы проектирования данных, а также то, какие объекты могут быть созданы в базах данных.
При выполнении данного курсового проекта я приобрел навыки в разработке и создании информационно - справочных систем, и в работе с ними. А также приобрел опыт в реализации файлов данных, т.е. файлов в которых хранятся необходимые данные. В разработанной в данном проекте справочной системе за единицу данных принимается переменная типа запись. При написании программы, которая позволяла бы вводить, удалять, выполнять поиск данных не возникло трудностей, так как имелся опыт в написании программ.
Список литературы
1.Курс лекций по дисциплине Базы Данных
2.Вейскас. Д., В26 Эффективная работа с Мicrosoft Access 97 - Спб: ЗАО "Издательство Питер", 1999. - 976 с.: ил
.Кауфельд. Дж., К45 FoxPro для "чайников". - К.: "Диалекика", 1995. - 264 с., ил
4.Microsoft Excel для Windows 95. Шаг за шагом: Практ. Пособ\Пер. с англ. - М: Издательство ЭКОМ, 1997. - 432с.: ил.
.Селиджтаун М., В26 "FoxPro 2.5 Практическое пособие" - М: изд. "Москва-Пресс", 1994. - 296 с.: ил.; 3-е Издание