Проектирование бази даних підприємствам связи
Pтривалість разговора. Запросы до завдання 4. On sele popup xx2 do basa with bar (). Define popup xx2 from 4,12 to 12,20. Define popup xx1 from 4,1 to 11,11. On sele bar 3 of xx1 do zapros3. On sele bar 2 of xx1 do zapros2. On sele bar 1 of xx1 do zapros1. On pad x2 of ats activ popup xx2. On pad x1 of ats activ popup xx1. Таблиця атрибутов. Таблица атрибутов. Лістинг программ. Лістинг программ… Читати ще >
Проектирование бази даних підприємствам связи (реферат, курсова, диплом, контрольна)
1. Завдання. Лист.
1.1. Опис предметної области.
1.2. Запросы.
2. Таблиця атрибутов.
3. Діаграма ERтипа.
4. Спроектовані отношения.
5. Структура меню.
6. Лістинг меню.
7. Лістинг программ.
1.ЗАДАНИЕ.
1.1.Описание предметної области.
База даних для обліку сплати міжміські разговоры.
На міжміського станції ведеться облік сплати надані нею послуги. МТС реєструє номер телефону, від якого здійснюється междугородняя связь,.
тривалість розмови в хвилинах, час і дату розмови, місто куди телефонував абонент.
З цією, хто телефонує з 18:00 по 8:00 в робочі дні, на вихідні і святкові дні діє пільговий тариф.
Усі міста поділені за дальністю на майже 7 зон.
Оплата ж розмова P обчислюється наступним образом:
P=K*t, де.
— Kтариф зони.
— Pтривалість разговора.
1. Не було внесено аванс, то береться відсоток за кредит P.
2. Якщо було внесено аванс, але сума P перевищила його, то оплата за кредит нараховується у сумі превышения.
3. Якщо оплату не внесений у перебігу двох місяців, то телефон отключается.
1.2.Запросы до завдання 4.
1. Виведіть прізвища абонентів, які мають борг превышает.
100 000 рублей.
2. Відберіть абонентів, телеглядачів до зони № і має аванс менше тарифу даної зони.№ зони повинен вводитися пользователем.
3. Запровадьте № зони і назву місяця — і отримаєте дохід у цій зоні за даний месяц.
2.ТАБЛИЦА АТРИБУТОВ.
Таблиця 1.
имя.
тип.
длина.
примечание.
av.
N.
аванс.
dolg.
N.
долг.
data_v.
Date.
дата.
n_t.
C.
№ телефона.
n_z.
N.
№ зоны.
fio.
C.
Ф.И.О.
tar.
N.
тариф.
t.
N.
час разговора.
data_raz.
Date.
дата разговора.
br.
C.
час дня.
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.PRG.
clear.
set safe off.
set talk off.
close database.
define menu ats bar at line 3.
define 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 xx1.
on pad x2 of ats activ popup xx2.
on 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 zapros3.
define popup xx2 from 4,12 to 12,20.
define 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 ats.
deactiv 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=5.
use zona.
browse.
use.
endcase.
7. ЛІСТИНГ ПРОГРАММ.
zapros1.prg.
close database.
use abon.
use plata in 2.
index on n_t to abon.
sele 2.
index on n_t to plata.
sele 1.
set rela to n_t into 2.
set filter to b. dolg>100 000.
brow fields a. fio, b.dolg.
set rela to.
set filter to.
zapros2.prg.
clear.
set safe off.
close database.
set talk off.
sele 1.
use razg.
index on n_z to k1.
sele 2.
use zona.
index on n_z to k2.
sele 1.
set rela to n_z into 2.
set skip to 2.
c=date ().
@ 2,10 say «Запровадьте дату «get c.
read.
v=0.
@ 4,10 say «Запровадьте номер зони «get v.
read.
set filter to a. data_razg=c.and. b. n_z=v.
browse 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_t.
set filter to.
close database.
zapros3.prg.
clear.
set safe off.
close database.
set talk off.
sele 1.
use razg.
index on n_z to k1.
sele 2.
use zona.
index on n_z to k2.
sele 1.
set rela to n_z into 2.
set skip to 2.
c=date ().
@ 2,10 say «Запровадьте дату «get c.
read.
v=0.
@ 4,10 say «Запровадьте номер зони «get v.
read.
set filter to a. data_razg=c.and. b. n_z=v.
browse 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_t.
set filter to.
close database.