Алгоритмізація і програмування процесів на Fox

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

Державний Університет Управління

Інститут заочного навчання

Спеціальність - менеджмент

Пояснювальна записка до курсового проекту з дисципліни «Комп'ютерна підготовка»

по темі: «Алгоритмізація та програмування процесів обробки даних у середовищі СУБД типу 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

Введення

Реляційні системи управління базами даних (СУБД), такі як FoxBase,
FoxBase plus, FoxPro, Visual FoxPro відносяться до нового покоління СУБДреляційного типу з сімейства dBase - подібних СУБД. Пакети цьогосімейства одержали широке поширення, і багато з них булирусифіковані.

СУБД типу Fox зберігає спадкоємність по відношенню до більш ранніхпредставникам dBase - подібних СУБД, щодо структури баз даних,команд створення та обробки даних, основних типів даних. У той же часкожна наступна СУБД володіє великими можливостями в порівнянні зпопередніми. Так, наприклад, Visual FoxPro в порівнянні з FoxPro володієбільш значними образотворчими можливостями.

Дана робота використовує мову команд СУБД сімейства Fox. Використовуванікоманди, в основному, застосовуються в усіх СУБД цього типу, але налагодження веласяна русифікованою СУБД FoxPro для Windows версії 2.5b.

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

Необхідно:

1. Визначити сумарну вартість продукції заданого виду і її середній випуск одним підприємством.

2. Для кожного з п'яти видів продукції визначити сумарну вартість і сумарний випуск.

3. Видати на друк у порядку зростання сумарної вартості продукцію п'яти видів.

Аналіз і постановка задачі

Вихідні дані завдання є записи заданої структури,які повинні вводитися з клавіатури, а потім у який файл даних намагнітний диск. Отже, однією з підзадач повинна бути завданнястворення файла даних на магнітному диску.

Створений файл даних необхідно переглянути на екрані або вивести надрук у вигляді таблиці з печаткою заголовка і шапки цієї таблиці. Для цьогонаступної підзадачі повинна бути завдання переглянути файл даних. Такожповинна бути можливість додавання записів в створений файл даних.

Потім необхідні ще три підзадачі, вирішення яких дозволяє виконатитри пункти курсової роботи:

1. Видача відомостей про сумарної вартості продукції заданого виду по кожному підприємству та про середню випуску цієї продукції одним підприємством.

2. Видача відомостей про сумарної вартості і сумарному випуску кожної продукції.

3. Видача на друк продукції п'яти видів у порядку зростання її сумарної вартості.

Крім того, для діалогу користувача з системою необхідно створити такзване, «Меню».

Формалізація завдання

У середовищі СУБД типу Fox кожна підзадача може оформлятися у виглядіокремого командного файлу з розширенням. prg і закінчуватися операторомповернення в викликає командний файл.

Крім того, необхідно надати користувачеві можливість полегшитипроцес створення файла даних, тобто передбачити створення файла даних зіструктурою заданої в програмі, а не вибирається самим користувачем, щоповністю виключить можливі помилки користувача в завданні імен полів файлуданих, що в сою чергу може позначитися на коректній роботі всієїпрограми.

Алгоритми

1 Створення дворівневого світлового меню

2 Створення файлу даних

3 Читання файлу даних

4 Додавання даних у файл даних

5 Друк відомостей про сумарної вартості продукції заданого виду по кожному підприємству та про середню випуску цієї продукції одним підприємством.

6 Друк відомостей про сумарної вартості і сумарному випуску кожної продукції.

7 Друк упорядкованого за сумарною вартістю списку продукції п'яти видів

Програми

1 Створення дворівневого світлового меню

* Командний файл ієрархічного меню MainMenuset Talk offset 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

EndDo
EndDo

2 Створення файлу даних

* Командний файл CreateFd - створення нового файлу данихset Talk offset Status offset 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

3 Читання файлу даних

* Командний файл ReadFd - читання файлу данихset Talk offset Status offset 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

4 Додавання даних у файл даних

* Командний файл AddFd - додавання файлу данихset Talk offset Status offset 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

* Командний файл Zad1 - друк відомостей про заданої продукціїset Talk offset Status offset 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

@ 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 Друк відомостей про сумарної вартості і сумарному випуску кожної продукції.

* Командний файл Zad2 - друк відомостей про обсяги та вартість продукціїset Talk offset Status offset 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

7 Друк упорядкованого за сумарною вартістю списку продукції п'яти видів

* Командний файл Zad3 - друк упорядкованих відомостей про вартістьпродукціїset Talk offset Status offset 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

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 & & Відновити перегляд з першого рядка

* Формування підсумковій частині таблиці

@ 15,17 Say L

Close DataBases & & Закриття ФД
EndIf
* Кінець роботи
@ 24,0
Wait 'Для повернення в меню натисніть будь-яку клавішу ...' @ 24,0 Clear
Return

Результати рішень

Вибір створення файлу даних

| 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 |

Вибір читання файлу даних

Вибір додавання даних у файл даних

| 6 | Гумка | 600 | 1,55 |
| 6 | Чорнила | 800 | 3,10 |
| 6 | Олівець | 1000 | 1,55 |

Вибір виконання Завдання № 1

Вибір виконання Завдання № 2

Вибір виконання Завдання № 3

Вихід з СУБД

Висновок

Реляційні СУБД, такі як FoxPro дійсно є потужнимзасобом управління великим обсягом даних. СУБД цього типу дозволяютьвиробляти швидку сортування великого масиву даних, здійснюватишвидкий перехід за записами в довільному порядку, виробляти швидкувибірку великої кількості даних з усього масиву даних за заданимикритеріям. У таких реляційних СУБД кожен файл даних розглядається якдвовимірна таблиця, стовпці якої відповідають полям записів, а рядкивідповідають окремим записам файла і звернення до даних йде череззазначення номера запису імені поля. При цьому робота з окремим полемтаблиці даних нагадує роботу зі змінними - звернення до данихмаксимально спрощено, і користувачеві не потрібно знати усі ієрархічніструктуру даних.

Мова команд СУБД сімейства Fox містить широкий набір команд,виконують дії складних конструкцій, наприклад, сортування записівфайлу зводиться тільки до двох команд. Крім цього в СУБД передбаченікоманди створення світлового меню для організації прямого діалогу зкористувачем. Все це максимально спрощують написання програм іпідтверджує, що реляційні СУБД сімейства Fox дійсно єпотужним інструментом для створення і обробки баз даних великого обсягу.

Список літератури

1. Лемашко О.В., Романчук В.Г. Програмування в системі команд СУБД сімейства Fox: учебное пособие/ГАУ, М., 1998.

2. Комп'ютерний практикум. Програмування в середовищі Турбо-Паскаль та СУБД типу Fox. Методичні вказівки до виконання курсового проекту.

/Сост.: О.Н. Леонова, І.А. Несмеянов; ГАУ, М., 1998.

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

Do While. Not . EOF ()

Заборона реакції команд

Завдання кольору екрана

Len (NameFd)> 0

Wait

Формування головного меню

Вибір пункту головного меню

Вибір пункту підменю

Do While. T .

Формування підменю

Case

L1 = 0

Exit

L1 = 1

L1 = 2

L1 = 3

Case

L2 = 3

L2 = 2

L2 = 1

AddFd

ReadFd

CreateFd

VidProd = TypeProd

Висновок шапки таблиці

Zad3

Zad2

Zad1

L2 = 3

L2 = 2

L2 = 1

Case

True

Введення виду продукції, TypeProd

Quit

Return

Очищення екрану

L2 = 2

L2 = 1

Case

Кінець

False

Do While. T.

початок

True

Wait

Заборона виводу реакції команд

Заборона зміни рядка стану

Заборона переривання виконання програми

Введення імені ФД, NameFd

Wait

Return

Do While. Not.EOF ()

False

Return

Wait

Return

початок

Wait

False

True

Висновок питання

Читання 15 записів з ФД

Заборона виводу реакції команд

Заборона зміни рядка стану

Заборона переривання виконання програми

Зміна заголовка

ABC = 'Д'

Формування заголовка

Очищення екрану

Create & NameFd

False

Create Table & NameFd ()

True

Введення імені ФД , NameFd

Append

Введення імені файлу, NameFd

Введення відповіді (Д/Н) to ABC

Заборона виводу реакції команд

Заборона зміни рядка стану

Заборона переривання виконання програми

початок

Зміна заголовка

Формування заголовка

Очищення екрану

Len (NameFd)> 0

початок

True

False

Return

Заборона виводу реакції команд

Заборона зміни рядка стану

Заборона переривання виконання програми

Введення імені ФД, NameFd

Перехід на наступну запис

Зміна заголовка

Формування заголовка

Очищення екрану

Len (NameFd)> 0 And

Len (TypeProd)> 0

початок

True

Висновок рядки таблиці

2 1

Висновок укладання таблиці

AvVol = Average (Volum)

AllPrice = Sum (Volum * Price)

Висновок

AllPrice

AvVol

Wait

False

Return

Заборона виводу реакції команд

Заборона зміни рядка стану

Заборона переривання виконання програми

Введення імені ФД, NameFd

Формування заголовка

Очищення екрану

Len (NameFd)> 0

початок

True

Висновок рядки таблиці

Висновок шапки таблиці

Висновок укладання таблиці

Сортування по полю VidProd за допомогою індексного файлу

Do While. Not.EOF ()

AllVol = Sum (Volum)

Висновок укладання таблиці

AllPrice = Sum (Volum * Price)

Перехід на запис з новим видом продукції

Wait

Return

Перехід на наступну запис

AllPrice = Sum (Volum * Price)

Store 0 to MinAP, LastAP

початок

Do While. Not.EOF ()

For I = 1 to 5

Висновок в рядку таблиці MinVP, MinAP

Висновок шапки таблиці

False Заборона виводу реакції команд

Введення імені ФД, NameFd

Формування заголовка

Очищення екрану

Len (NameFd)> 0

True

Перехід до першого запису

LastAP = MinAP

Заборона переривання виконання програми

Заборона зміни рядка стану

VP = VidProd

AllPrice> LastAP

AllPrice