Алгоритмизация і програмування процесів обробки даних серед СУБД типу Fox

1.

Введение

.

Реляционные системи управління базами даних (СУБД), такі як FoxBase,.

FoxBaseplus, FoxPro, Visual FoxPro ставляться до нового поколінню СУБД.

реляционного типаиз сімейства dBase — подібних СУБД. Пакети цього сімейства.

отримали стала вельми поширеною, і з них былирусифицированы.

СУБД типу Fox зберігає наступність стосовно більш раннім.

представникам dBase — подібних СУБД, в отношенииструктуры баз даних, команд.

створення і методи обробки даних, основних типів даних. У водночас кожна.

наступна СУБД має більші можливості посравнению з. Так,.

наприклад, VisualFoxPro проти FoxPro володіє більш як значними.

изобразительнымивозможностями.

Ця робота використовує мову команд СУБД сімейства Fox. Використовувані команди,.

восновном, застосовні переважають у всіх СУБД цього, але налагодження велася на.

зрусифікована СУБД FoxPro для Windows версії 2.5b.

2.Задание на курсової проект.

Структура ЗАПИСИ вихідного ДОКУМЕНТА:

Код предприятияВид продукцииОбъем выпускаЦена одиниці продукции.

Необходимо:

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

одним предприятием.

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

сумарний выпуск.

3. Видати на печатку гаразд зростання сумарною вартості продукцію п’яти.

видов.

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

Вихідні ці завдання є записи заданої структури, які.

повинні вводитися з клавіатури, а затемвыводиться в файл даних на магнітний.

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

на магнітному диске.

Створений файл даних необхідно переглянути на екрані чи вивести на печатку в.

вигляді таблиці з пресою заголовкаи шапки цієї таблиці. І тому наступній.

подзадачей має бути завдання перегляду файла даних. Також має бути.

можливість додавання записів всозданный файл данных.

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

пункту курсової работы:

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

підприємству і среднемвыпуске цієї категорії продукції одним предприятием.

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

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

стоимости.

З іншого боку, для діалогу користувача і системи необхідно створити так.

зване, «Меню».

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 «Печатка даних про сумарною вартості продукції з зростанню «.

Coloru/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 Or MinAP=0>

MinAP=AllPrice.

MinVP=VP.

EndIf.

EndIf.

If RNom < RecCount ()>

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,3.

6Ластик 600 1,55.

6Чернила 800 3,10.

6Карандаш 1000 1,55.

8.

Заключение

.

Реляционные СУБД, такі як FoxPro справді є потужним засобом.

управління великою обсягом данных. СУБД цього дозволяють виробляти швидку.

сортування великого масиву даних, здійснювати швидкий перехід за записами в.

довільному порядку, производитьбыструю вибірку великої кількості даних із.

всього масиву даних із заданим критеріям. У цих реляционных СУБД кожен файл.

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

записів, а рядки відповідають окремим записів файла і звернення до даним.

йде через указаниеномера записи імені поля. У цьому роботу з окремим полем.

таблиці даних нагадує роботи з перемінними — звернення до даних максимально.

спрощено, ипользователю непотрібно знати всю ієрархічну структуру данных.

Мова команд СУБД сімейства Fox містить широкий набір команд, виконують.

действиясложных конструкцій, наприклад, сортування записів файла зводиться.

до двох командам. До того ж в СУБД передбачені команди створення світлового.

меню дляорганизации прямого діалог із користувачем. Усе це максимально.

спрощують написання програм, тож підтверджує, що реляционные СУБД сімейства Fox.

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

великого объема.

1. Лемашко Є.В., Романчуков В. Г. Програмування у системі команд СУБД.

сімейства Fox: навчальних посібників / ГАУ, М., 1998.

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

Fox. Методичні вказівки до виконання курсовогопроекта. /Сост.: О. Н. Леонова,.

И.А.Несмеянов; ГАУ, М., 1998.