Телефонний довідник

Інформатика, програмування

Державний комітет Російської Федерації по зв'язку та інформатизації

УРСС-СібГАТІ

Затверджую:

Декан факультету

Комарова Т.І .

____________

Проектування бази даних для підприємства зв'язку

Курсова робота

Альбом

612.004КР

1998р.

УРСС-СібГАТІ

Завдання для курсового проектування

по предмету:
___________________________________________________________________

студента____________________курса____________________________________группи

____________________________________________________________________________ ____

(прізвище, ім'я, по батькові)

ТЕМА
ЗАВДАННЯ :________________________________________________________________

ВИХІДНІ ДАНІ:

ВАРІАНТ______

____________________________________________________________________________ ______

при виконанні курсового проекту на вказану тему повинні бутипредставлені:

1. Пояснювальна записка:

____________________________________________________________________________ ______

2. Графічна частина проекту:

____________________________________________________________________________ ______

Дата видачі_________________ Термінокончанія______________

Викладач руководітель____________________________________________

Голова циклової коміссіі________________________________________

ВІДГУК КОНСУЛЬТАНТА

ЗМІСТ

1. Завдання. Лист
2. Опис предметної області.
3. Запити.
4. Таблиця атрибутів.
5. Діаграма ER-типу.
6. Спроектовані відносини.
7. Структура меню.
8. Лістинг меню.
9. Лістинг програм.

1.ЗАДАНІЕ.

1.1.Опісаніе предметної області.

База даних для обліку оплати за міжміські розмови.
На міжміського станції ведеться облік оплати за надані нею послуги.
МТС реєструє номер телефону, з якого здійснюється міжміський зв'язок, тривалість розмови у хвилинах, час і дату розмови, місто куди телефонував абонент.
Для тих, хто телефонує з 18:00 по 8:00 в робочі дні, у вихідні та святкові дні діє пільговий тариф.

Всі міста поділені по дальності на 7 зон.
Плата за розмову P обчислюється наступним чином:

P = K * t, де

- K-тариф зони

- P-тривалість розмови
1. Якщо не був внесений аванс, то береться відсоток за кредит P.
2. Якщо був внесений аванс, але сума P перевищила його, то оплата за кредит нараховується на суму перевищення.
3. Якщо оплата не внесена на протязі двох місяців, то телефон вимикається.

1.2.Запроси до завдання 4.

1. Виведіть прізвища абонентів, у яких борг перевищує

100000 рублів.
2. Відберіть абонентів, що дзвонили в зону № і мають аванс менше тарифу даної зони. № зони повинен вводитися користувачем.
3. Введіть № зони і назва місяця та отримайте дохід по цій зоні за даний місяць.

2.ТАБЛІЦА Атрибути.

Таблиця 1.
| ім'я | тип | довжина | примітка |
| av | N | 7 | аванс |
| dolg | N | 7 | борг |
| data_v | Date | 8 | дата |
| n_t | C | 8 | № телефону |
| n_z | N | 1 | № зони |
| fio | C | 20 | П.І.Б. |
| tar | N | 7 | тариф |
| t | N | 3 | час розмови |
| data_raz | Date | 8 | дата розмови |
| br | C | 5 | час дня |

3. ER-ДІАГРАМА.

4. Спроектований ВІДНОСИНИ
Abon Таблиця 2

| FIO | N_t |
| | |

ZONA Таблиця 3.
| N_Z | Tar |
| | |

Plata Таблиця 4.
| AV | DOLG | DATA_V | N_T | N_Z |
| | | | | |

Razg Таблиця 5.
| t | Br | Data-razg | N_z | N_t |
| | | | | |

5. СТРУКТУРА МЕНЮ

6. Лістинг МЕНЮ
Z 4.PRGclearset safe offset talk offclose databasedefine menu ats bar at line 3define pad x1 of ats prompt "запити 1-3"define pad x2 of ats prompt "дані"define pad x3 of ats prompt "вихід"on pad x1 of ats activ popup xx1on pad x2 of ats activ popup xx2on pad x3 of ats quit define popup xx1 from 4,1 to 11,11 define bar 1 of xx1 prompt "запит 1" define bar 2 of xx1 prompt "запит 2" define bar 3 of xx1 prompt "запит 3" on sele bar 1 of xx1 do zapros1 on sele bar 2 of xx1 do zapros2 on sele bar 3 of xx1 do zapros3define popup xx2 from 4,12 to 12,20define bar 1 of xx2 prompt "абонент"define bar 2 of xx2 prompt "плата"define bar 3 of xx2 prompt "розмова"define bar 4 of xx2 prompt "зона"on sele popup xx2 do basa with bar ()activ menu atsdeactiv menu ats procedure basa parameters k close database do case case k = 1 use abon browse use case k = 2 use mts browse use case k = 3 use plata browse use case k = 4 use razg browse use case k = 5use zonabrowseuseendcase

7. Лістинг ПРОГРАМ.

zapros1.prgclose databaseuse abonuse plata in 2index on n_t to abonsele 2index on n_t to platasele 1set rela to n_t into 2set filter to b.dolg> 100000brow fields a.fio, b.dolgset rela toset filter to

zapros2.prgclearset safe offclose databaseset talk offsele 1use razgindex on n_z to k1sele 2use zonaindex on n_z to k2sele 1set rela to n_z into 2set skip to 2c = date ()
@ 2,10 say "Введіть дату" get creadv = 0
@ 4,10 say "Введіть номер зони" get vreadset filter to a.data_razg = c.and. b.n_z = vbrowse fields a.data_razg, b.n_z, a.t, b.tar
X1 = a.T
X2 = b.Tar h = a.T * b.tar
? h, a.n_tset filter toclose databasezapros3.prgclearset safe offclose databaseset talk offsele 1use razgindex on n_z to k1sele 2use zonaindex on n_z to k2sele 1set rela to n_z into 2set skip to 2c = date ()
@ 2,10 say "Введіть дату" get creadv = 0
@ 4,10 say "Введіть номер зони" get vreadset filter to a.data_razg = c.and. b.n_z = vbrowse fields a.data_razg, b.n_z, a.t, b.tar
X1 = a.T
X2 = b.Tar h = a.T * b.tar
? h, a.n_tset filter toclose database

-----------------------

ВЕДЕ

ЗНАХОДИТЬСЯ

Вносить

ЗДІЙСНЮЄТЬСЯ С

ЗОНА

МІСТО РАЗГОВОРР

АБОНЕНТ

ПЛАТА

АБОНЕНТ

ЗОНА

ПЛАТА

ДАНІ

ЗАПИТ 3

ЗАПИТ 2

ЗАПИТ 1

ЗАПИТИ

РОЗМОВА

ВИХІД