ПЕРЕЛІК ДИСЦИПЛІН:
  • Адміністративне право
  • Арбітражний процес
  • Архітектура
  • Астрологія
  • Астрономія
  • Банківська справа
  • Безпека життєдіяльності
  • Біографії
  • Біологія
  • Біологія і хімія
  • Ботаніка та сільське гос-во
  • Бухгалтерський облік і аудит
  • Валютні відносини
  • Ветеринарія
  • Військова кафедра
  • Географія
  • Геодезія
  • Геологія
  • Етика
  • Держава і право
  • Цивільне право і процес
  • Діловодство
  • Гроші та кредит
  • Природничі науки
  • Журналістика
  • Екологія
  • Видавнича справа та поліграфія
  • Інвестиції
  • Іноземна мова
  • Інформатика
  • Інформатика, програмування
  • Юрист по наследству
  • Історичні особистості
  • Історія
  • Історія техніки
  • Кибернетика
  • Комунікації і зв'язок
  • Комп'ютерні науки
  • Косметологія
  • Короткий зміст творів
  • Криміналістика
  • Кримінологія
  • Криптология
  • Кулінарія
  • Культура і мистецтво
  • Культурологія
  • Російська література
  • Література і російська мова
  • Логіка
  • Логістика
  • Маркетинг
  • Математика
  • Медицина, здоров'я
  • Медичні науки
  • Міжнародне публічне право
  • Міжнародне приватне право
  • Міжнародні відносини
  • Менеджмент
  • Металургія
  • Москвоведение
  • Мовознавство
  • Музика
  • Муніципальне право
  • Податки, оподаткування
  •  
    Бесплатные рефераты
     

     

     

     

     

     

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

     

    Інформатика, програмування
    ЗМІСТ
    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.
    ім'я
    тип
    довжина
    примітка
    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.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> 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

         
     
         
    Реферат Банк
     
    Рефераты
     
    Бесплатные рефераты
     

     

     

     

     

     

     

     
     
     
      Все права защищены. Reff.net.ua - українські реферати ! DMCA.com Protection Status