Державний Університет Управління
Інститут заочного навчання
Спеціальність - менеджмент
Пояснювальна записка до
курсового проекту
з дисципліни «Комп'ютерна підготовка»
за темою: «Алгоритмізація та програмування процесів
обробки даних у середовищі СУБД типу Fox »
Виконав студент
Студентський квиток №
Група № УП4-1-98/2
Варіант № 2
Адреса:
Москва, 1999 р.
Зміст.
1. Введеніе_______________________________________________ 3
2. Завдання на курсовій проект______________________________ 4
3. Аналіз і постановка задачі______________________________ 4
4. Формалізація задачі___________________________________ 5
5. Алгорітми____________________________________________ 6
5.1. Створення дворівневого світлового меню_____________________________ 6
5.2. Створення файлу данних_____________________________________________ 7
5.3. Читання файлу данних_______________________________________________ 8
5.4. Додавання даних у файл данних___________________________________ 9
5.5. Друк відомостей про сумарної вартості продукції заданого виду по кожному підприємству та про середню
випуск цієї продукції одним предпріятіем.____________________ 10
5.6. Друк відомостей про сумарної вартості і сумарному випуску кожної продукції. 11
5.7. Друк упорядкованого за сумарною вартістю списку продукції п'яти видів 12
6. Программи___________________________________________ 13
6.1. Створення дворівневого світлового меню____________________________ 13
6.2. Створення файлу данних____________________________________________ 15
6.3. Читання файлу данних______________________________________________ 16
6.4. Додавання даних у файл данних__________________________________ 17
6.5. Друк відомостей про сумарної вартості продукції заданого виду по кожному підприємству та про середню
випуск цієї продукції одним предпріятіем.____________________ 18
6.6. Друк відомостей про сумарної вартості і сумарному випуску кожної продукції. 20
6.7. Друк упорядкованого за сумарною вартістю списку продукції п'яти видів 21
7. Результати решеній__________________________________ 22
8. Заключеніе___________________________________________ 29
9. Список літератури___________________________________ 30
1.
Введення
Реляційні системи управління базами даних (СУБД), такі як FoxBase, FoxBaseplus, FoxPro, Visual FoxPro відносяться до нового покоління СУБД реляційного типу
з сімейства dBase - подібних СУБД. Пакети цього сімейства одержали широке поширення, і багато з них були
русифіковані.
СУБД типу Fox зберігає спадкоємність по відношенню до більш ранніх представникам dBase - подібних СУБД, щодо
структури баз даних, команд створення та обробки даних, основних типів даних. У той же час кожна наступна СУБД володіє великими можливостями по
порівняно з попередніми. Так, наприклад, VisualFoxPro в порівнянні з FoxPro володіє значними образотворчими
можливостями.
Дана робота використовує мову команд СУБД сімейства Fox. Використовувані команди, в
основному, застосовуються в усіх СУБД цього типу, але налагодження велася на русифікованою СУБД FoxPro для Windows версії 2.5b.
2.
Завдання на курсовий проект
Структура ЗАПИСИ вихідного ДОКУМЕНТА:
Код підприємства
Вид продукції
Обсяг випуску
Ціна одиниці продукції
Необхідно:
1. Визначити сумарну вартість продукції заданого виду і її середній випуск одним підприємством.
2. Для кожного з п'яти видів продукції визначити сумарну вартість і сумарний випуск.
3. Видати на друк у порядку зростання сумарної вартості продукцію п'яти видів.
3.
Аналіз і постановка задачі
Вихідні дані завдання є записи заданої структури, які повинні вводитися з клавіатури, а потім
у який файл даних на магнітний диск. Отже, однією з підзадач повинна бути задача створення файла даних на магнітному диску.
Створений файл даних необхідно переглянути на екрані або вивести на друк у вигляді таблиці з печаткою заголовка
і шапки цієї таблиці. Для цього наступного підзадачі повинна бути завдання переглянути файл даних. Також повинна бути можливість додавання записів у
створений файл даних.
Потім необхідні ще три підзадачі, вирішення яких дозволяє виконати три пункти курсової роботи:
1. Видача відомостей про сумарної вартості продукції заданого виду по кожному підприємству та про середню
випуск цієї продукції одним підприємством.
2. Видача відомостей про сумарної вартості і сумарному випуску кожної продукції.
3. Видача на друк продукції п'яти видів у порядку зростання її сумарної вартості.
Крім того, для діалогу користувача з системою необхідно створити так зване, «Меню».
4.
Формалізація завдання
У середовищі СУБД типу Fox кожна підзадача може оформлятися у вигляді окремого командного файлу з розширенням. prg і
закінчуватися оператором повернення в викликає командний файл.
У даному випадку основним командним файлом є файл MainMenu.prg, який формує повне екранне меню і
здійснює виклик інших командних файлів, залежно від обраного пункту меню:
CreateFd.prg
- Створення файлу даних;
ReadFd.prg
- Читання створеного файлу даних;
AddFd.prg
- Додавання даних в створений файл даних;
Zad1.prg
-Видача відомостей про сумарної вартості продукції заданого виду по кожному підприємству та про середню випуску цієї продукції одним підприємством;
Zad2.prg
-Видача відомостей про сумарної вартості і сумарному випуску кожної продукції;
Zad3.prg
-Видача на друк продукції п'яти видів у порядку зростання її сумарної вартості.
Крім того, необхідно надати користувачеві можливість полегшити процес створення файла даних,
тобто передбачити створення файлу даних із структурою заданої в програмі, а не вибирається самим користувачем, що повністю виключить можливі помилки
користувача в завданні імен полів файлу даних, що в сою чергу може позначитися на коректній роботі всієї програми.
5.
Алгоритми
5.1. Створення дворівневого світлового меню
5.2. Створення файлу даних
5.3. Читання файлу даних
5.4. Додавання даних у файл даних
5.5.
Друк відомостей про
сумарної вартості продукції заданого виду по кожному підприємству та про середню
випуск цієї продукції одним підприємством.
5.6.
Друк відомостей про
сумарної вартості і сумарному випуску кожної продукції.
5.7. Друк упорядкованого за сумарною вартістю списку
продукції п'яти видів
6.
Програми
6.1. Створення дворівневого світлового меню
* Командний файл ієрархічного меню MainMenu
set Talk off
set Color to n/W * & & Вибір кольору екрана
Clear
* Опис масивів даних меню
Declare GenMenu (3,2), menuFile (3), menuZad (3), menuExit (2)
* Завдання значень елементів масивів
GenMenu (1,1) = "Файл даних"
GenMenu (1,2) = "Робота з файлом даних"
GenMenu (2,1) = "Завдання"
GenMenu (2,2) = "Завдання на курсовий проект"
GenMenu (3,1) = "Вихід"
GenMenu (3,2) = "Вихід з програми"
menuFile (1) = "Створення"
menuFile (2) = "Читання"
menuFile (3) = "Додавання"
menuZad (1) = "Завдання № 1"
menuZad (2) = "Завдання № 2"
menuZad (3) = "Завдання № 3"
menuExit (1) = "Вихід в Fox"
menuExit (2) = "Вихід з Fox"
* Форміровніе головного меню
Do While. T.
set Color to gr +/g, gr +/b & & Установка кольору меню
Menu Bar GenMenu, 3
Read Menu Bar to L1, L2 & & Висновок головного меню на екран
Do While L1> 0 & & відкрити підменю, якщо вибраний
& & будь-який пункт головного меню
* Формування підменю
set Color to gr +/g, gr +/b & & Установка кольору підменю
Menu 1, menuFile, 3,3
Menu 2, menuZad, 3,3
Menu 3, menuExit, 2,2
Read Menu Bar to L1, L2 & & Висновок меню на екран
set Color to n/W * & & Повернення до кольору екрана
* Обробка вибраного пункту меню
Do Case
Case L1 = 0
Exit & & Вихід до панелі головного меню
Case L1 = 1
Do Case
Case L2 = 1 & & Обрано дію 'Створення нового ФД'
Do CreateFd
Case L2 = 2 & & Обрано дію 'Читання даних'
Do ReadFd
Case L2 = 3 & & Обрано дію 'Додавання нових даних'
Do AddFd
EndCase
Case L1 = 2
Do Case
Case L2 = 1 & & Обрано завдання № 1 з курсового проекту
Do Zad1
Case L2 = 2 & & Обрано завдання № 2 з курсового проекту
Do Zad2
Case L2 = 3 & & Обрано завдання № 3 з курсового проекту
Do Zad3
EndCase
Case L1 = 3
Do Case
Case L2 = 1 & & Обрано пункт 'Вихід в Fox'
Return
Case L2 = 2 & & Обрано пункт 'Вихід з Fox'
Quit
EndCase
EndCase
EndDo
EndDo
6.2. Створення файлу даних
* Командний файл CreateFd - створення нового файлу даних
set Talk off
set Status off
set Escape off
Clear
Zag = 'Процес створення нового файлу даних'
@ 4,22 to 4,58 Color u/w *
@ 3,22 Say Zag Color u/w *
@ 12,0
Accept 'Вкажіть ім'я створюваного файла даних:' to NameFd
If Len (NameFd)> 0 & & Якщо ім'я файлу не ввели, то робити нічого
* Зміна заголовка
Zag = Zag + ':' + NameFd + '. dbf'
LenZag = Int (Len (Zag))
@ 4, Int ((80-lenZag)/2) to 4, Int ((80-lenZag)/2) + LenZag Color u/w *
@ 3, Int ((80-LenZag)/2) Say Zag Color u/w *
@ 14,0
Text
Хочете автоматично створити порожню структуру
з вказаним ім'ям, за завданням курсового проекту (Д/Н)?
EndText
* Відповідь на поставлене питання
Do While. T.
@ 16,57
Wait''to ABC & & Очікування натискання клавіші
If ABC = 'н' Or ABC = 'д'
ABC = Chr (Asc (ABC) -32) & & Зміна регістра
EndIf
If ABC = 'Н' Or ABC = 'Д'
Exit
EndIf
EndDo
* Створення ФД
If ABC = 'Д' & & Автоматичне створення ФД
Create Table & NameFd;
(KodOrg N (3,0), VidProd C (20), Volum N (4,0), Price N (6,2))
@ 8,0
set Talk on
Display Structure & & Висновок створеної структури
set Talk off
Else & & Створення ФД з можливістю заповнення полів
Create & NameFd
EndIf
EndIf
* Кінець роботи
@ 24,0
Wait 'Для повернення в меню натисніть будь-яку клавішу ...'
@ 24,0 Clear
Return
6.3.
Читання файлу даних
* Командний файл ReadFd - читання файлу даних
set Talk off
set Status off
set Escape off
Clear
@ 4,27 to 4,54 Color u/w *
@ 3,27 Say 'Процес читання файлу даних' Color u/w *
@ 12,0
Accept 'Введіть ім'я зчитує файла даних:' to NameFd
If Len (NameFd)> 0 & & Якщо ім'я файлу не ввели, то робити нічого
* Зміна заголовка
@ 3,0 Clear to 5,79
Zag = 'Вміст файлу даних:' + NameFd + '. dbf'
LenZag = Int (Len (Zag))
@ 4, Int ((80-lenZag)/2) to 4, Int ((80-lenZag)/2) + LenZag Color u/w *
@ 3, Int ((80-LenZag)/2) Say Zag Color u/w *
* Висновок вмісту файлу
Use & NameFd
Do While. Not.EOF () & & Цикл виведення порцій записів ФД
& & У певну область екрану
@ 7,0
Display Next 15
If EOF () =. F. & & В останньому циклі не треба перекладати
& & покажчик і тримати паузу
Skip & & Переклад покажчика, щоб новий екран не починався
& & з останнього запису попереднього екрану
@ 24,0
Wait 'Натисніть будь-яку клавішу для перегляду наступних 15 записів ...'
EndIf
EndDo
Close DataBases & & Закриття ФД
EndIf
* Кінець роботи
@ 24,0
Wait 'Для повернення в меню натисніть будь-яку клавішу ...'
@ 24,0 Clear
Return
6.4.
Додавання даних у файл
даних
* Командний файл AddFd - додавання файлу даних
set Talk off
set Status off
set Escape off
Clear
@ 4,25 to 4,56 Color u/w *
@ 3,25 Say 'Процес додати файл даних' Color u/w *
@ 12,0
Accept 'Введіть ім'я файлу даних для додавання даних:' to NameFd
If Len (NameFd)> 0 & & Якщо ім'я файлу не ввели, то робити нічого
* Зміна заголовка
@ 3,0 Clear
Zag = 'Додавання даних у файл даних:' + NameFd + '. dbf'
LenZag = Int (Len (Zag))
@ 4, Int ((80-lenZag)/2) to 4, Int ((80-lenZag)/2) + LenZag Color u/w *
@ 3, Int ((80-LenZag)/2) Say Zag Color u/w *
* Додавання даних у ФД
Use & NameFd
Append
Close DataBases & & Закриття ФД
EndIf
* Кінець роботи
@ 24,0
Wait 'Для повернення в меню натисніть будь-яку клавішу ...'
@ 24,0 Clear
Return
6.5.
Друк відомостей про
сумарної вартості продукції заданого виду по кожному підприємству та про середню
випуск цієї продукції одним підприємством.
* Командний файл Zad1 - друк відомостей про заданої продукції
set Talk off
set Status off
set Escape off
Clear
@ 4,18 to 4,62 Color u/w *
@ 3,18 Say 'Процес друку відомостей про заданої продукції' Color u/w *
@ 12,0
Accept 'Введіть ім'я файлу даних:' to NameFd
@ 12,0 Clear
@ 12,0
Accept 'Введіть вид продукції:' to TypeProd
If Len (NameFd)> 0 And Len (TypeProd)> 0 & & Якщо ім'я файлу або
& & вид продукції не ввели,
& & то робити нічого
* Зміна заголовка
@ 3,0 Clear
Zag = 'Відомості про продукцію:' + TypeProd
LenZag = Int (Len (Zag))
@ 4, Int ((80-lenZag)/2) to 4, Int ((80-lenZag)/2) + LenZag Color u/w *
@ 3, Int ((80-LenZag)/2) Say Zag Color u/w *
Use & NameFd
* Формування шапки
L ='+-----------------+---------------+--------+ -----------+'
@ 7,12 Say L
@ 8,12 Say '| Код підприємства | Обсяг випуску | Ціна | Вартість |'
@ 9,12 Say L
Row = 10 & & Поточний номер рядка для виводу даних
Do While. Not.EOF ()
If VidProd = TypeProd
* Формування рядка
@ Row, 12 Say'|'
@ Row, 20 Say KodOrg
@ Row, 30 Say'|'
@ Row, 36 Say Volum Picture '# ###'
@ Row, 46 Say'|'
@ Row, 48 Say Price Picture'###.##'
@ Row, 55 Say'|'
@ Row, 57 Say Volum * Price Picture '# # ###.##'
@ Row, 67 Say'|'
Row Row = 1
EndIf
Skip
EndDo
* Формування підсумковій частині таблиці
@ Row, 12 Say L
Row Row = 1
* Розрахунок сумарної вартості
Sum Volum * Price For VidProd = TypeProd to AllPrice
* Розрахунок середнього випуску
Average Volum For VidProd = TypeProd to AvVol
@ Row, 29 Say 'Загальна сумарна вартість:'
@ Row, 56 Say AllPrice Picture '# # # ###.##'
@ Row +1,21 Say 'Середній випуск одним підприємством:'
@ Row +1,58 Say AvVol Picture '# ###'
Close DataBases & & Закриття ФД
EndIf
* Кінець роботи
@ 24,0
Wait 'Для повернення в меню натисніть будь-яку клавішу ...'
@ 24,0 Clear
Return
6.6. Друк відомостей про сумарної вартості і сумарному випуску
кожної продукції.
* Командний файл Zad2 - друк відомостей про обсяги та вартість продукції
set Talk off
set Status off
set Escape off
Clear
@ 4,15 to 4,64 Color u/w *
@ 3,15 Say 'Процес друку відомостей про обсяги всієї продукції' Color u/w *
@ 12,0
Accept 'Введіть ім'я файлу даних:' to NameFd
@ 12,0 Clear
If Len (NameFd)> 0 & & Якщо ім'я файлу не ввели, то друкувати нічого
Use & NameFd
* Формування шапки таблиці
L ='+---------------------+---------------+----- ----------------+'
@ 7,10 Say L
@ 8,10 Say '| Вид продукції | Загальний обсяг | Загальна вартість |'
@ 9,10 Say L
* Сортування даних за видом продукції
Index On VidProd to & NameFd & & Створення індексного файлу
Use & NameFd Index & NameFd
* Формування рядків таблиці
Row = 10 & & Поточний номер рядка для виводу даних
Do While. Not.EOF ()
VP = VidProd
RNom = RecNo () & & Запам'ятати номер поточного запису
Sum Volum For VidProd = VP to AllVol & & Загальний обсяг
Sum Volum * Price For VidProd = VP to AllPrice & & Сумарна вартість
GoTo RNom & & Повернутися на поточний запис
@ Row, 10 Say'|'
@ Row, 12 Say VidProd
@ Row, 32 Say'|'
@ Row, 37 Say AllVol Picture '# # # ###'
@ Row, 48 Say'|'
@ Row, 55 Say AllPrice Picture '# # # ###.##'
@ Row, 70 Say'|'
* Пропуск записів з відпрацьованим видом продукції
Do While VidProd = VP And. Not.EOF ()
Skip
EndDo
Row Row = 1
EndDo
* Формування підсумковій частині таблиці
@ Row, 10 Say L
Close DataBases & & Закриття ФД
Delete File NameFd + '. idx' & & Видалення індексного файлу
EndIf
* Кінець роботи
@ 24,0
Wait 'Для повернення в меню натисніть будь-яку к?? Авішая ...'
@ 24,0 Clear
Return
6.7. Друк упорядкованого за сумарною вартістю списку
продукції п'яти видів
* Командний файл Zad3 - друк упорядкованих відомостей про вартість продукції
set Talk off
set Status off
set Escape off
Clear
@ 4,9 to 4,71 Color u/w *
@ 3,9 Say 'Друк відомостей про сумарної вартості продукції за зростанням' Color
u/w *
@ 12,0
Accept 'Введіть ім'я файлу даних:' to NameFd
@ 12,0 Clear
If Len (NameFd)> 0 & & Якщо ім'я файлу не ввели, то друкувати нічого
Use & NameFd
* Формування шапки таблиці
L ='+---------------------+--------------------- + '
@ 7,17 Say L
@ 8,17 Say '| Вид продукції | Сумарна вартість |'
@ 9,17 Say L
* Пошук продукції з найменшим значенням вартості
Store 0 to MinAP, LastAP
For I = 1 to 5 & & Цикл для п'яти видів продукції
Do While. Not.EOF () & & Цикл пошуку нового мінімуму
VP = VidProd & & Поточний вид продукції
RNom = RecNo () & & Поточний запис
Sum Volum * Price For VidProd = VP to AllPrice
If AllPrice> LastAP
If AllPrice
MinAP = AllPrice
MinVP = VP
EndIf
EndIf
If RNom
GoTo RNom 1 & & Перехід на наступну запис
EndIf
EndDo
* Формування рядки таблиці
@ 9 + I, 17 Say'|'
@ 9 + I, 19 Say MinVP
@ 9 + I, 39 Say'|'
@ 9 + I, 46 Say MinAP Picture '# # # ###.##'
@ 9 + I, 61 Say'|'
LastAP = MinAP & & Попереднє мінімальне значення
& & (нижня межа мінімальних значень)
MinAP = 0
GoTo Top & & Відновити перегляд з першого рядка
Next
* Формування підсумковій частині таблиці
@ 15,17 Say L
Close DataBases & & Закриття ФД
EndIf
* Кінець роботи
@ 24,0
Wait 'Для повернення в меню натисніть будь-яку клавішу ...'
@ 24,0 Clear
Return
7.
Результати рішень
Вибір створення файлу даних
1
Ручка
1000
2,00
1
Олівець
500
1,50
1
Фломастер
1000
4,70
1
Чорнило
500
3,00
2
Ручка
1200
1,85
2
Фломастер
750
5,00
2
Гумка
5000
1,20
2
Олівець
1500
1,35
3
Чорнило
400
3,20
3
Ручка
800
1,90
3
Олівець
1200
1,40
3
Фломастер
2000
4,50
4
Ручка
900
1,85
4
Гумка
200
2,00
4
Фломастер
1400
4,70
4
Чорнило
500
3,05
5
Олівець
700
1,45
5
Чорнило
1100
2,60
5
Гумка
1400
1,65
5
Фломастер
500
5,30
Вибір читання файлу даних
