Реферат: База данных для учета оплаты за междугородние разговоры

Государственный комитет РоссийскойФедерации по

связи и информатизации

УрКСИ-СибГАТИ

Утверждаю:

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

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

____________

Проектирование базы данных

для предприятия связи

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

Альбом

612.004КР

1998г.

УрКСИ-СибГАТИ

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

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

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

________________________________________________________________________________

(фамилия, имя, отчество)

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

ИСХОДНЫЕ ДАННЫЕ:

ВАРИАНТ______

__________________________________________________________________________________

привыполнении курсового проекта на указанную тему должны быть представлены:

1.

Пояснительная записка:

__________________________________________________________________________________

2.

Графическая часть проекта:

__________________________________________________________________________________

Датавыдачи_________________ Срококончания______________

Преподавательруководитель____________________________________________

Председательцикловой комиссии________________________________________

ОТЗЫВ КОНСУЛЬТАНТА

СОДЕРЖАНИЕ

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. Выведитефамилии абонентов, у которых долг превышает

100000 рублей.

2. Отберите абонентов,звонивших в зону № и имеющих аванс меньше тарифа данной зоны.№ зоны долженвводиться пользователем.

3. Введите № зоны и названиемесяца и получите доход по этой зоне за данный месяц.

2.ТАБЛИЦА АТРИБУТОВ.

Таблица 1.

имя

тип

длина

примечание

аванс

dolg

долг

data_v

Date

дата

n_t

№ телефона

n_z

№ зоны

fio

Ф.И.О.

tar

тариф

время разговора

data_raz

Date

дата разговора

время дня

3.<img src="/cache/referats/2946/image001.gif" v:shapes="_x0000_s1029"><img src="/cache/referats/2946/image002.gif" v:shapes="_x0000_s1028"><img src="/cache/referats/2946/image003.gif" v:shapes="_x0000_s1026">ER-ДИАГРАММА.

ВЕДЕТ

НАХОДИТСЯ

ВНОСИТ

ЗОНА

ОСУЩЕСТВЛЯЕТСЯ С

ПЛАТА

РАЗГОВОРР

АБОНЕНТ

ГОРОД

4.СПРОЕКТИРОВАННЫЕОТНОШЕНИЯ

Abon Таблица 2

FIO

N_t

ZONA Таблица 3.

N_Z

Tar

Plata Таблица 4.

DOLG

DATA_V

N_T

N_Z

Razg Таблица 5.

Data-razg

N_z

N_t

АБОНЕНТ

ЗОНА

ПЛАТА

ДАННЫЕ

ЗАПРОС 3

ЗАПРОС 2

ЗАПРОС 1

ЗАПРОСЫ

РАЗГОВОР

ВЫХОД

<img src="/cache/referats/2946/image017.gif" v:shapes="_x0000_s1069 _x0000_s1070 _x0000_s1071 _x0000_s1072 _x0000_s1073 _x0000_s1074 _x0000_s1075 _x0000_s1076 _x0000_s1077 _x0000_s1078 _x0000_s1079 _x0000_s1080 _x0000_s1081 _x0000_s1082 _x0000_s1083 _x0000_s1084 _x0000_s1085 _x0000_s1086 _x0000_s1087 _x0000_s1088 _x0000_s1089 _x0000_s1090 _x0000_s1091 _x0000_s1092 _x0000_s1093 _x0000_s1094 _x0000_s1095 _x0000_s1096 _x0000_s1097 _x0000_s1098 _x0000_s1099 _x0000_s1100 _x0000_s1101 _x0000_s1102 _x0000_s1103 _x0000_s1104">5. СТРУКТУРА МЕНЮ

6. ЛИСТИНГ МЕНЮ

Z 4.PRG

clear

set safe off

set talk off

close database

define menu ats bar at line3

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 xx1from 4,1 to 11,11

define bar 1 ofxx1 prompt "запрос 1"

define bar 2 ofxx1 prompt "запрос 2"

define bar 3 ofxx1 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,12to 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 popupxx2 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 into2

set

filter to b.dolg>100000

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

еще рефераты

Еще работы по программированию, базе данных

Реферат по программированию, базе данных

Разработка информационно-справочной системы "Технический паспорт автомобиля"

29 Августа 2013

Реферат по программированию, базе данных

Интерфейс пользователя системой

29 Августа 2013

Реферат по программированию, базе данных

Разработка Интерфейса Пользователя АСУ в Среде Delphi

29 Августа 2013

Реферат по программированию, базе данных

Построение реалистичных изображений предметов сервировки стола (стакана, фужера, рюмки, заполненных напитками) ([Курсовая])

29 Августа 2013