Реферат: Алгоритмизация и программирование процессов на Fox

💣 👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Государственный Университет Управления
по дисциплине «Компьютерная подготовка»

по теме: «Алгоритмизация и программирование процессов
обработки данных в среде СУБД типа Fox»
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 и заканчиваться оператором возврата в вызывающий командный файл.
В данном случае основным командным файлом является файл MainMenu.prg, который формирует полное экранное меню и осуществляет вызов других командных файлов, в зависимости от выбранного пункта меню:
– добавление данных в созданный файл данных;
– выдача сведений о суммарной стоимости продукции заданного вида по каждому предприятию и о среднем выпуске этой продукции одним предприятием;
– выдача сведений о суммарной стоимости и суммарном выпуске каждой продукции;
– выдача на печать продукции пяти видов в порядке возрастания ее суммарной стоимости.
Кроме того, необходимо предоставить пользователю возможность облегчить процесс создания файла данных, т.е. предусмотреть создание файла данных со структурой заданной в программе, а не выбираемой самим пользователем, что полностью исключит возможные ошибки пользователя в задании имен полей файла данных, что в сою очередь может сказаться на корректной работе всей программы.
* Командный файл иерархического меню MainMenu
set Color to n/W* && Выбор цвета экрана
Declare GenMenu(3,2), menuFile(3), menuZad(3), menuExit(2)
* Задание значений элементов массивов
GenMenu(1,2)="Работа с файлом данных"
GenMenu(2,2)="Задания на курсовой проект"
set Color to gr+/g, gr+/b && Установка цвета меню
Read Menu Bar to L1, L2 && Вывод главного меню на экран
Do While L1 > 0 && открыть подменю, если выбран
set Color to gr+/g, gr+/b && Установка цвета подменю
Read Menu Bar to L1, L2 && Вывод меню на экран
set Color to n/W* && Возврат к цвету экрана
Exit && Выход в панель главного меню
Case L2=1 && Выбрано действие 'Создание нового ФД'
Case L2=2 && Выбрано действие 'Чтение данных'
Case L2=3 && Выбрано действие 'Добавление новых данных'
Case L2=1 && Выбрано задание №1 из курсового проекта
Case L2=2 && Выбрано задание №2 из курсового проекта
Case L2=3 && Выбрано задание №3 из курсового проекта
Case L2=1 && Выбран пункт 'Выход в Fox'
Case L2=2 && Выбран пункт 'Выход из Fox'
* Командный файл CreateFd - создание нового файла данных
Zag='Процесс создания нового файла данных'
Accept ' Укажите имя создаваемого файла данных: ' to NameFd
If Len(NameFd) > 0 && Если имя файла не ввели, то делать нечего
@ 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*
Хотите автоматически создать пустую структуру
с указанным именем, по заданию курсового проекта (Д/Н)?
Wait '' to ABC && Ожидание нажатия клавиши
ABC=Chr(Asc(ABC)-32) && Смена регистра
If ABC='Д' && Автоматическое создание ФД
(KodOrg N(3,0), VidProd C(20), Volum N(4,0), Price N(6,2))
Display Structure && Вывод созданной структуры
Else && Создание ФД с возможностью заполнения полей
Wait 'Для возврата в меню нажмите любую клавишу ...'
* Командный файл ReadFd - чтение файла данных
@ 3,27 Say 'Процесс чтения файла данных' Color u/w*
Accept ' Введите имя считываемого файла данных: ' to NameFd
If Len(NameFd) >0 && Если имя файла не ввели, то делать нечего
Zag='Содержимое файла данных: ' + NameFd + '.dbf'
@ 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*
Do While .Not.EOF() && Цикл вывода порций записей ФД
If EOF()=.F. && В последнем цикле не нужно переводить
Skip && Перевод указателя, чтобы новый экран не начинался
&& с последней записи предыдущего экрана
Wait 'Нажмите любую клавишу для просмотра следующих 15 записей ...'
Wait 'Для возврата в меню нажмите любую клавишу ...'
* Командный файл AddFd - добавление файла данных
@ 3,25 Say 'Процесс добавления файла данных' Color u/w*
Accept ' Введите имя файла данных для добавления данных: ' to NameFd
If Len(NameFd) >0 && Если имя файла не ввели, то делать нечего
Zag='Добавление данных в файл данных: ' + NameFd + '.dbf'
@ 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*
Wait 'Для возврата в меню нажмите любую клавишу ...'
* Командный файл Zad1 - печать сведений о заданной продукции
@ 3,18 Say 'Процесс печати сведений о заданной продукции' Color u/w*
Accept ' Введите имя файла данных: ' to NameFd
Accept ' Введите вид продукции: ' to TypeProd
If Len(NameFd) >0 And Len(TypeProd) > 0 && Если имя файла или
Zag='Сведения о продукции: ' + TypeProd
@ 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*
L='+-----------------+---------------+--------+-----------+'
@ 8,12 Say '| Код предприятия | Объем выпуска | Цена | Стоимость |'
Row=10 && Текущий номер строки для вывода данных
@ Row,48 Say Price Picture '###.##'
@ Row,57 Say Volum*Price Picture '## ###.##'
* Формирование итоговой части таблицы
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 '# ###'
Wait 'Для возврата в меню нажмите любую клавишу ...'
* Командный файл Zad2 - печать сведений об объемах и стоимости продукции
@ 3,15 Say 'Процесс печати сведений об объемах всей продукции' Color u/w*
Accept ' Введите имя файла данных: ' to NameFd
If Len(NameFd) >0 && Если имя файла не ввели, то печатать нечего
L='+---------------------+---------------+---------------------+'
@ 8,10 Say '| Вид продукции | Общий объем | Суммарная стоимость |'
* Сортировка данных по виду продукции
Index On VidProd to &NameFd && Создание индексного файла
Row=10 && Текущий номер строки для вывода данных
RNom=RecNo() && Запомнить номер текущей записи
Sum Volum For VidProd=VP to AllVol && Общий объем
Sum Volum*Price For VidProd=VP to AllPrice && Суммарная стоимость
GoTo RNom && Вернуться на текущую запись
@ Row,37 Say AllVol Picture '### ###'
@ Row,55 Say AllPrice Picture '### ###.##'
* Пропуск записей с отработанным видом продукции
Do While VidProd = VP And .Not.EOF()
* Формирование итоговой части таблицы
Delete File NameFd + '.idx' && Удаление индексного файла
Wait 'Для возврата в меню нажмите любую клавишу ...'
* Командный файл Zad3 - печать упорядоченных сведений о стоимости продукции
@ 3,9 Say 'Печать сведений о суммарной стоимости продукции по возрастанию' Color u/w*
Accept ' Введите имя файла данных: ' to NameFd
If Len(NameFd) >0 && Если имя файла не ввели, то печатать нечего
L='+---------------------+---------------------+'
@ 8,17 Say '| Вид продукции | Суммарная стоимость |'
* Поиск продукции с наименьшим значением стоимости
For I=1 to 5 && Цикл для пяти видов продукции
Do While .Not.EOF() && Цикл поиска нового минимума
VP=VidProd && Текущий вид продукции
Sum Volum*Price For VidProd=VP to AllPrice
GoTo RNom+1 && Переход на следующую запись
@ 9+I,46 Say MinAP Picture '### ###.##'
LastAP=MinAP && Предыдущее минимальное значение
&& (нижняя граница минимальных значений)
GoTo Top && Возобновить просмотр с первой строки
* Формирование итоговой части таблицы
Wait 'Для возврата в меню нажмите любую клавишу ...'
Выбор добавления данных в файл данных
Реляционные СУБД, такие как FoxPro действительно являются мощным средством управления большим объемом данных. СУБД этого типа позволяют производить быструю сортировку большого массива данных, осуществлять быстрый переход по записям в произвольном порядке, производить быструю выборку большого количества данных из всего массива данных по заданным критериям. В таких реляционных СУБД каждый файл данных рассматривается как двумерная таблица, столбцы которой соответствуют полям записей, а строки соответствуют отдельным записям файла и обращение к данным идет через указание номера записи имени поля. При этом работа с отдельным полем таблицы данных напоминает работу с переменными – обращение к данным максимально упрощено, и пользователю не нужно знать всю иерархическую структуру данных.
Язык команд СУБД семейства Fox содержит широкий набор команд, выполняющих действия сложных конструкций, например, сортировка записей файла сводится только к двум командам. Помимо этого в СУБД предусмотрены команды создания светового меню для организации прямого диалога с пользователем. Все это максимально упрощают написание программ и подтверждает, что реляционные СУБД семейства Fox действительно являются мощным инструментом для создания и обработки баз данных большого объема.
2. Компьютерный практикум. Программирование в среде Турбо-Паскаль и СУБД типа Fox. Методические указания к выполнению курсового проекта. /Сост.: О.Н. Леонова, И.А. Несмеянов; ГАУ, М.,1998.

Название: Алгоритмизация и программирование процессов на Fox
Раздел: Рефераты по информатике
Тип: реферат
Добавлен 20:04:50 20 ноября 2010 Похожие работы
Просмотров: 11
Комментариев: 26
Оценило: 2 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Если Вам нужна помощь с учебными работами, ну или будет нужна в будущем (курсовая, дипломная, отчет по практике, контрольная, РГР, решение задач, онлайн-помощь на экзамене или "любая другая" учебная работа...) - обращайтесь: https://clck.ru/P8YFs - (просто скопируйте этот адрес и вставьте в браузер) Сделаем все качественно и в самые короткие сроки + бесплатные доработки до самой сдачи/защиты! Предоставим все необходимые гарантии.
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Реферат: Алгоритмизация и программирование процессов на Fox
Двигательно Координационные Способности Реферат
Реферат: Физкультурный комплекс при язвенных болезнях. Скачать бесплатно и без регистрации
Исполнительная власть субъектов РФ (на примере Оренбургской области)
Реферат: Графическое и шрифтовое оформление рекламы. Скачать бесплатно и без регистрации
Реферат На Тему Официально Деловой Стиль
Реферат: Сравнительный анализ конституции России и США. Скачать бесплатно и без регистрации
Оборот Оружия Курсовая
Реферат: Различия между версиями 33 Выбор версии 35 Вопросы и ответы 37
Реферат: Финансово-правовые акты
Сочинение Об Экологических Проблемах Великого Новгорода
Реферат: Функции современного государства 2
Математика 3 Класс Первая Четверть Контрольная Работа
Реферат: Принципы обеспечения безопасности АС на этапах, предшествующих эксплуатации. Скачать бесплатно и без регистрации
Зебра Для Реферата А4
Анализ рентабельности предприятия ОАО "Аскольд"
Реферат: Арденнская операция 1945
Дипломная работа по теме Совершенствование организации и оплаты труда в производстве зерна СПК "Ермак" Нововаршавского района Омской области
Реферат: Клонирование. Скачать бесплатно и без регистрации
Курсовая работа по теме Бухгалтерский и финансовый учёт
Реферат: Фармакология нервной системы
Дипломная работа: Совершенствование организации цепей поставок авиационно-технического имущества с использованием
Доклад: Ошибки при написании сочинения
Реферат: Особенности сельскохозяйственной проблематики в современный период. Структура, типология аграрной прессы; формы и методы пропаганды