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

Государственный Университет Управления Институт заочного обучения Специальность менеджмент Объяснительная записка к курсовому проекту по дисциплине Компьютерная подготовка по теме Алгоритмизация и программирование процессов обработки данных в среде СУБД типа Fox Выполнил студент Студенческий билет Группа УП4-1-982 Вариант 2 Адрес Москва, 1999 г. Содержание.

1. Введение 2. Задание на курсовой проект 3. Анализ и постановка задачи 4. Формализация задачи 5. Алгоритмы 1. Создание двухуровневого светового меню 2. Создание файла данных 3. Чтение файла данных 4. Добавление данных в файл данных 5. Печать сведений о суммарной стоимости продукции заданного вида по каждому предприятию и о среднем выпуске этой продукции одним предприятием.

6. Печать сведений о суммарной стоимости и суммарном выпуске каждой продукции. 7. Печать упорядоченного по суммарной стоимости списка продукции пяти видов 6. Программы 1. Создание двухуровневого светового меню 2. Создание файла данных 3. Чтение файла данных 4. Добавление данных в файл данных 5. Печать сведений о суммарной стоимости продукции заданного вида

по каждому предприятию и о среднем выпуске этой продукции одним предприятием. 6. Печать сведений о суммарной стоимости и суммарном выпуске каждой продукции. 7. Печать упорядоченного по суммарной стоимости списка продукции пяти видов 7. Результаты решений 8. Заключение 9. Список литературы 1. Введение Реляционные системы управления базами данных

СУБД, такие как FoxBase, FoxBase plus, FoxPro, Visual FoxPro относятся к новому поколению СУБД реляционного типа из семейства dBase подобных СУБД. Пакеты этого семейства получили широкое распространение, и многие из них были русифицированы. СУБД типа Fox сохраняет преемственность по отношению к более ранним представителям dBase подобных СУБД, в отношении структуры баз данных, команд создания и обработки данных, основных типов данных.

В тоже время каждая последующая СУБД обладает большими возможностями по сравнению с предыдущими. Так, например, Visual FoxPro по сравнению с 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. Алгоритмы 1. Создание двухуровневого светового меню 5.2.

Создание файла данных 3. Чтение файла данных 4. Добавление данных в файл данных 5. Печать сведений о суммарной стоимости продукции заданного вида по каждому предприятию и о среднем выпуске этой продукции одним предприятием. 6. Печать сведений о суммарной стоимости и суммарном выпуске каждой продукции. 7. Печать упорядоченного по суммарной стоимости списка продукции пяти видов 6.

Программы 6.1. Создание двухуровневого светового меню Командный файл иерархического меню MainMenu set Talk off set Color to nW Выбор цвета экрана Clear Описание массивов данных меню Declare GenMenu3,2, menuFile3, menuZad3, menuExit2 Задание значений элементов массивов GenMenu1,1 Файл данных

GenMenu1,2Работа с файлом данных GenMenu2,1 Задание GenMenu2,2Задания на курсовой проект GenMenu3,1 Выход GenMenu3,2Выход из программы menuFile1Создание menuFile2Чтение menuFile3Добавление menuZad1Задание 1 menuZad2Задание 2 menuZad3Задание 3 menuExit1Выход в Fox menuExit2Выход из Fox Формировние главного меню

Do While .T. set Color to grg, grb Установка цвета меню Menu Bar GenMenu, 3 Read Menu Bar to L1, L2 Вывод главного меню на экран Do While L1 0 открыть подменю, если выбран любой пункт главного меню Формирование подменю set Color to grg, grb Установка цвета подменю Menu 1, menuFile, 3,3 Menu 2, menuZad, 3,3 Menu 3, menuExit,

2,2 Read Menu Bar to L1, L2 Вывод меню на экран set Color to nW Возврат к цвету экрана Обработка выбранного пункта меню Do Case Case L10 Exit Выход в панель главного меню Case L11 Do Case Case L21 Выбрано действие Создание нового ФД Do CreateFd Case L22 Выбрано действие Чтение данных

Do ReadFd Case L23 Выбрано действие Добавление новых данных Do AddFd EndCase Case L12 Do Case Case L21 Выбрано задание 1 из курсового проекта Do Zad1 Case L22 Выбрано задание 2 из курсового проекта Do Zad2 Case L23 Выбрано задание 3 из курсового проекта Do Zad3 EndCase Case L13 Do Case Case L21 Выбран пункт

Выход в Fox Return Case L22 Выбран пункт Выход из 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 uw 3,22 Say Zag Color uw 12,0 Accept Укажите имя создаваемого файла данных to

NameFd If LenNameFd 0 Если имя файла не ввели, то делать нечего Изменение заголовка ZagZag NameFd .dbf LenZagIntLenZag 4,Int80-lenZag2 to 4,Int80-lenZag2LenZag Color uw 3,Int80-LenZag2 Say Zag Color uw 14,0 Text Хотите автоматически создать пустую структуру с указанным именем, по заданию курсового проекта ДН EndText Ответ на поставленный вопрос Do While .T.

16,57 Wait to ABC Ожидание нажатия клавиши If ABCн Or ABCд ABCChrAscABC-32 Смена регистра EndIf If ABCН Or ABCД Exit EndIf EndDo Создание ФД If ABCД Автоматическое создание ФД Create Table NameFd KodOrg N3,0, VidProd C20, Volum N4,0, Price N6,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 uw 3,27 Say Процесс чтения файла данных Color uw 12,0 Accept Введите имя считываемого файла данных to NameFd If LenNameFd 0 Если имя файла не ввели, то делать нечего Изменение заголовка 3,0 Clear to 5,79 ZagСодержимое файла данных NameFd .dbf LenZagIntLenZag 4,Int80-lenZag2 to 4,Int80-lenZag2LenZag

Color uw 3,Int80-LenZag2 Say Zag Color uw Вывод содержимого файла 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 uw 3,25 Say Процесс добавления файла данных Color uw 12,0 Accept Введите имя файла данных для добавления данных to NameFd If LenNameFd 0 Если имя файла не ввели, то делать нечего Изменение заголовка 3,0 Clear ZagДобавление данных в файл данных NameFd .dbf LenZagIntLenZag 4,Int80-lenZag2 to 4,Int80-lenZag2LenZag

Color uw 3,Int80-LenZag2 Say Zag Color uw Добавление данных в ФД 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 uw 3,18 Say Процесс печати сведений о заданной продукции Color uw 12,0 Accept Введите имя файла данных to NameFd 12,0 Clear 12,0 Accept Введите вид продукции to TypeProd

If LenNameFd 0 And LenTypeProd 0 Если имя файла или вид продукции не ввели, то делать нечего Изменение заголовка 3,0 Clear ZagСведения о продукции TypeProd LenZagIntLenZag 4,Int80-lenZag2 to 4,Int80-lenZag2LenZag Color uw 3,Int80-LenZag2 Say Zag Color uw Use NameFd Формирование шапки L 7,12 Say L 8,12 Say Код предприятия

Объем выпуска Цена Стоимость 9,12 Say L Row10 Текущий номер строки для вывода данных Do While .Not.EOF If VidProdTypeProd Формирование строки 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 VolumPrice Picture . Row,67

Say RowRow1 EndIf Skip EndDo Формирование итоговой части таблицы Row,12 Say L RowRow1 Расчет суммарной стоимости Sum VolumPrice For VidProdTypeProd to AllPrice Расчет среднего выпуска Average Volum For VidProdTypeProd to AvVol Row,29 Say Общая суммарная стоимость Row,56 Say AllPrice Picture .

Row1,21 Say Средний выпуск одним предприятием Row1,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 uw 3,15 Say Процесс печати сведений об объемах всей продукции Color uw 12,0 Accept Введите имя файла данных to NameFd 12,0 Clear If LenNameFd 0 Если имя файла не ввели, то печатать нечего Use NameFd Формирование шапки таблицы L 7,10 Say L 8,10

Say Вид продукции Общий объем Суммарная стоимость 9,10 Say L Сортировка данных по виду продукции Index On VidProd to NameFd Создание индексного файла Use NameFd Index NameFd Формирование строк таблицы Row10 Текущий номер строки для вывода данных Do While .Not.EOF VPVidProd RNomRecNo Запомнить номер текущей записи

Sum Volum For VidProdVP to AllVol Общий объем Sum VolumPrice For VidProdVP 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 RowRow1 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 uw 3,9 Say Печать сведений о суммарной стоимости продукции по возрастанию Color uw 12,0 Accept Введите имя файла данных to NameFd 12,0

Clear If LenNameFd 0 Если имя файла не ввели, то печатать нечего Use NameFd Формирование шапки таблицы L 7,17 Say L 8,17 Say Вид продукции Суммарная стоимость 9,17 Say L Поиск продукции с наименьшим значением стоимости Store 0 to MinAP, LastAP For I1 to 5 Цикл для пяти видов продукции Do While .Not.EOF Цикл поиска нового минимума VPVidProd

Текущий вид продукции RNomRecNo Текущая запись Sum VolumPrice For VidProdVP to AllPrice If AllPrice LastAP If AllPrice MinAP Or MinAP0 MinAPAllPrice MinVPVP EndIf EndIf If RNom RecCount GoTo RNom1 Переход на следующую запись EndIf EndDo Формирование строки таблицы 9I,17 Say 9I,19

Say MinVP 9I,39 Say 9I,46 Say MinAP Picture . 9I,61 Say LastAPMinAP Предыдущее минимальное значение нижняя граница минимальных значений MinAP0 GoTo Top Возобновить просмотр с первой строки Next Формирование итоговой части таблицы 15,17 Say L Close DataBases Закрытие ФД EndIf Конец работы 24,0

Wait Для возврата в меню нажмите любую клавишу 24,0 Clear Return 7. Результаты решений Выбор создания файла данных 1Ручка10002,001Карандаш5001,501Фломастер 10004,701Чернила5003,002Ручка12001,852Фл омастер7505,002Ластик50001,202Карандаш15 001,353Чернила4003,203Ручка8001,903Каран даш12001,403Фломастер20004,504Ручка9001, 854Ластик2002,004Фломастер14004,704Черни ла5003,055Карандаш7001,455Чернила11002,6 05Ластик14001,655Фломастер5005,30 Выбор чтения файла данных Выбор добавления данных в файл данных 6Ластик6001,556Чернила8003,106Карандаш10 001,55

Выбор выполнения Задания 1 Выбор выполнения Задания 2 Выбор выполнения Задания 3 Выход из СУБД 8. Заключение Реляционные СУБД, такие как FoxPro действительно являются мощным средством управления большим объемом данных. СУБД этого типа позволяют производить быструю сортировку большого массива данных, осуществлять быстрый переход по записям в произвольном порядке, производить быструю выборку большого количества данных

из всего массива данных по заданным критериям. В таких реляционных СУБД каждый файл данных рассматривается как двумерная таблица, столбцы которой соответствуют полям записей, а строки соответствуют отдельным записям файла и обращение к данным идет через указание номера записи имени поля. При этом работа с отдельным полем таблицы данных напоминает работу с переменными обращение к данным максимально упрощено, и пользователю не нужно знать всю иерархическую структуру данных.

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

объема. Список литературы 1. Лемашко Е.В Романчуков В.Г. Программирование в системе команд СУБД семейства Fox учебное пособие ГАУ, М 1998. 2. Компьютерный практикум. Программирование в среде Турбо-Паскаль и СУБД типа Fox. Методические указания к выполнению курсового проекта.

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