Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

122

1

АННОТАЦИЯ

программа аналитический учет штат

Темой дипломного проекта является «Разработка программы для учета рабочего штата преподавателей». Разрабатываемая программа позволяет контролировать деятельность штата преподавателей, мастеров, руководителей структурных подразделений, заместителей директора, кураторов.

Работа была сделана на заказ, имеет широкие перспективы дальнейшего роста и позволяет автоматизировать работу методиста в процессе своей работы.

Учреждение, на котором собиралась информация, является ГОУ НПО ПЛ 105 (гос обр учрежд нач проф обр).

Данная программа предназначена для аналитического учета методической работы преподавателей. Она позволяет выявить: количество преподавателей с разной категорией, разным уровнем образования, разным процентом качества обучения и так далее. Поддерживать базу данных, наглядно представляет данные в виде диаграммы, предоставляет различные виды печатных форм и выполняет поисковые операции по различным критериям.

Программа была внедрена в 2001 году. Она была написана на FoxPro 2.6 for MS-DOS. В течении 1 года она находилась на стадии сопровождения. В результате совместной работы методиста и разработчика программа была модифицирована. В данной работе представлена новая версия программы написанная на Microsoft Visual Fox Pro 5.0. Новая версия максимально учитывает пожелания пользователя (методиста) и находится на стадии внедрения.

Программа работает на любом современном компьютере, параметры которого отвечают следующим системным требованиям: процессор не ниже Pentium MMX (166 мегагерц), оперативная память 16 мегабайт, 30 мегабайт свободного места на жестком диске, 1 мегабайта видео карты, мышь. На компьютере должна быть установлена операционная система как минимум Windows 95 или выше.

Программный продукт «IPR v 3.1» может использоваться в учебных заведениях школах, училищах, лицеях, техникумах при наличии в данных учреждениях необходимой компьютерной и офисной техники. Предназначен для методиста или директора образовательного учреждения.

ВВЕДЕНИЕ

В настоящее время в различных отраслях производства стало актуальным использование вычислительных средств для различных видов учетов, вычисления, прогнозирования и отслеживания результатов.

Создание системной машинной обработки данных, сетей ЭВМ и вычислительных центров коллективного пользования, решающих разнообразные задачи учета, планирования, контроля, анализа и регулирования процессов производства и управления, а также автоматизация процессов обмена данными способствует повышению уровня обработки информации (данных), эффективности учета и контроля обрабатываемой информации. Это в свою очередь повышает эффективность производственной деятельности предприятия (учреждения), что в конечном итоге, повысит уровень производительности и работоспособности в целом.

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

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

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

Программа выполняет следующие задачи: автоматизирует учет преподавателей, позволяет с экономить средства учебного заведения для ведения подобного учета с использованием ручного труда. Программа проста в управлении и дает возможность максимальной и эффективной работы.

1. ТЕХНИКО-ЭКОНОМИЧЕСКАЯ ХАРАКТЕРИСТИКА ОБЪЕКТА.

Учебное заведение, для которой была разработана моя программа, является Профессиональный лицей информатики бизнеса и дизайна № 105. Этот лицей относится к бюджетным организациям. Структурная схема руководства этого учебного заведения представлена на схеме 1:

Как видно из схемы во главе предприятия стоит совет лицея, далее управление исходит от директора. У него в подчинении находятся: бухгалтерия, зам по УПР, зам по УВР, зам по АХЧ, зав отделениями, преподаватели, мастера, кураторы и.т.д.

Как видно из схемы в главе учреждения находится директор. У него в подчинение весь остальной персонал.

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

2. АНАЛИЗ ИСПОЛЬЗУЕМОЙ ОБРАБОТКИ ИНФОРМАЦИИ НА ПРЕДПРИЯТИИ

Для нормального ведения учета и контроля реализованного в данном программном продукте необходимы следующие реквизиты:

· Фамилия, имя, отчество;

· Табельный номер;

· Разряд квалификационной категории;

· Образование;

· Методические разработки, а также множество другой нормативно-справочной информации которая будет описана ниже более подробно

Вся эта информация хранилась на бумажных носителях.

Затруднен процесс нормального ведения учета и контроля штата сотрудников из за:

· Потребности в большом количестве времени;

· Большого объёма нормативно-справочной документации;

· Возможности возникновения ошибки при работе с соответствующей документацией.

Данная программа позволяет устранить все эти недостатки путем:

· Автоматизации расчетов;

· Предоставление данных в легко восприимчивой форме;

· Упрощается работа сотрудника занимающегося данным видом деятельности.

Так что, данная программа должна использоваться в учебных учреждениях для упрощения подобной работы и ускорения процесса получения исходной информации. Так же эта программа должна позволить сэкономить время, трудовые ресурсы и наладить удобный интерфейс для размещения и поиска информации.

3. ПОСТАНОВКА ЗАДАЧИ

3.1 ВХОДНАЯ ИНФОРМАЦИЯ

В образовательном учреждении, для которого была написана данная программа, входная информация представляет собой совокупность данных о сотрудниках Эти данные имеют значение при работе с программой, но часть из них является не обязательной:

фамилия

табель

образование (высшее, средне тех., средне спец.)

наименование учебного заведения

наименование факультета

специальность

год получения диплома по специальности

общий стаж работы (на сентябрь 2001г.)

педагогический стаж работы (на сентябрь 2001г.)

стаж работы в лицее 105 (на сентябрь 2001г.)

выплняемые в лицее должносные обязанности

результаты контроля образовательного процесса

качество усвения знаний по предшествующему учебному году

качество образования по предшествующему учебному году

активно используемые преподавателем методы и приемы обучения

используемые средства обучения

предпоччитаемые педагогом организационные формы обучения

предпочитаемые виды и методы контроля

индивидуальный план педагога

где закончен курс

наименование курсов

наименование специализации

дата начала курсов

дата окончания курсов

категория (высшая, первая, вторая)

разряд категории

дата присвоения категории

дата присвоения разряда

учреждение в котором присвооена категория

наименование награды

звание

мест поучения награды

дата получения

методические КМО

автрские статьи

урвень (ицей, зна, регион, федерация)

наименование образоватеьного учреждения (доп.обр.)

специаизация (доп.обр.)

дата начала (доп.обр.)

дата окончания (доп.обр.)

преподаваемая дисциплина

номера групп

часов в год

часов в 1 полугодие

часов во 2 полугодие

первое полугодие

второе полугодие

итоговая

Данные заносятся и хранятся в соответствующих массивах информации (базах данных далее БД).

3.2 ВЫХОДНАЯ ИНФОРМАЦИЯ

Выходной информацией являются:

Отчеты, выводимые на экран:

База данных с информацией по сотрудникам

Результаты всеч поисков

Вся информация по выбранному сотруднику

Графики

Отчеты, выводимые на принтер:

Результаты всех поисков

Вся информация по выбранному сотруднику

3.3 АППАРАТНЫЕ И ПРОГРАММНЫЕ СРЕДСТВА ОБЕСПЕЧЕНИЯ РЕШЕНИЯ ЗАДАЧИ

Данный программный продукт создавался в СУБД Visual FoxPRO 5.0. Это один из наиболее популярных пакетов для работы с большими базами данных. Для функционирования СУБД необходимо наличие свободного дискового пространства не меньше 60 мегабайт, оперативной памяти 16 мегабайт, а так же наличие установленной операционной системы Windows 9x и выше.

Основные файлы системы:

VFP.exe - среда пользователя и разработчика;

Foxhelp.dbf - помощь к системе;

FoxUser.dbf - фаилы внутрених установок;

Genmenu.prg - генератор программы кодов меню;

DEMO.* - демонстрационый ролик

Genpd.app - Пограмма поддержки принтера.

Aplication wizard - мастер создания проекта

Documenting wizard - мастер создания профессионально оформленного листинга программы

Query wizard - мастер создания запросов с генерацией кода SQL

Report wizard - мастер создания отчетов выводимых на экран, печать, файл, базу данных

Setup wizard - мастер создания инсталляционного пакета разработанного проекта

Данная программа требует наличие принтера так как она содержит отчеты, которые могут быть выведены на печать.

Программа работает на любом современном компьютере, параметры которого отвечают следующим системным требованиям: процессор не ниже Pentium MMX (166 мегагерц), оперативная память 16 мегабайт, 20 мегабайт свободного места на жестком диске, 4 мегабайта видео карты, мышь. На компьютере должна быть установлена операционная система Windows 95 или более современная версия.

4. ИНФОРМЦИОННОЕ ОБЕСПЕЧЕНИЕ

4.1 ОПИСАНИЕ ВХОДНОЙ ОПЕРАТИВНОЙ ИНФОРМАЦИИ

Программа «IPR v 3.1» использует следующую входную информацию:

Фамилия - заносотся в поле fam (character 50)

Табель - заносотся в поле tab (numeric 4)

образование - заносотся в поле obr (character 50)

наименование учебного заведения - заносотся в поле uch (character 50)

наименование факультета - заносотся в поле nfak (character 50)

специальность - заносотся в поле spc (character 50)

год получения диплома по специальности - заносотся в поле gpd (numeric 4)

общий стаж работы - заносотся в поле ost (numeric 4)

педагогический стаж работы - заносотся в поле pst (numeric 4)

стаж работы в лицее 105 - заносотся в поле lst (numeric 4)

выплняемые в лицее должносные обязанности - заносотся в поле dbz ((character 50)

результаты контроля образовательного процесса - заносотся в поле kop (character 50)

качество усвения знаний по предшествующему учебному году - заносотся в поле kus (numeric 4)

качество образования по предшествующему учебному году

4.2 ОПИСАНИЕ БАЗЫ ДАННЫХ, ИСПОЛЬЗУЕМОЙ ДЛЯ РЕШЕНИЯ ЗАДАЧИ

Так как в программе используется одна база данных - ipr.dbf, то она предназначена для хранения всей информации по сотрудникам. Структура базы данных приведена ниже, в таблице 1.

Таблица 1

Поле	Тип	Размер
Fam	Character	50
Tab	Numeric	5
Obr	Character	50
Nuz	Character	50
Nfk	Character	50
Spc	Character	50
Gpd	Numeric	4
Ost	Numeric	3
Pst	Numeric	4
Lst	Numeric	4
Dbz	Memo	4
Kop	Character	50
Kus	Character	50
Kbe	Memo	4
Ind	Memo	4
Sro	Memo	4
Ofo	Character	50
Vmk	Character	50
Ipp	Memo	4
Sme	Memo	4
Dkkur	Date	8
Dknak	Memo	4
Dknas	Character	50
Dkdan	Character	50
Dkdak	Character	50
Dkkat	Character	50
Dkraz	Character	50
Dkdpk	Date	8
Dkdpr	Memo	4
Dkuch	Date	8
Dnnag	Memo
Dnzva	Date	8
Dngde	Character	150
Dndat	Character	50
Dakmo	Character	50
Daavs	Memo	4
Dauro	Memo	4
Ddnou	Memo	4
Ddcpe	Character	50
Dddna	Date	8
Dddok	Character	150
Dpone	Character	50
Dptwo	Date	8
Dpito	Character	50
Dipre	Character	50
Dingr	Character	150
Dicvg	Memo	4
Dipuc	Memo	4
Divuc	Character	150

fam-фамилия

tab - табель

obr - образование (высшее, средне тех., средне спец.)

nuz - наименование учебного заведения

nfk - наименование факультета

spc - специальность

gpd - год получения диплома по специальности

ost - общий стаж работы (на сентябрь 2001г.)

pst - педагогический стаж работы (на сентябрь 2001г.)

lst - стаж работы в лицее 105 (на сентябрь 2001г.)

dbz - выплняемые в лицее должносные обязанности

kop - результаты контроля образовательного процесса

kus - качество усвения знаний по предшествующему учебному году

kbe качество образования по предшествующему учебному году

ind - активно используемые преподавателем методы и приемы обучения

sro - используемые средства обучения

ofo - предпоччитаемые педагогом организационные формы обучения

vmk - предпочитаемые виды и методы контроля

ipp - индивидуальный план педагога

kur - где закончен курс

nak - наименование курсов

nas -= наименование специализации

dan - дата начала курсов

dak - дата окончания курсов

kat - категория (высшая, первая, вторая)

raz - разряд категории

dpk - дата присвоения категории

dpr - дата присвоения разряда

uch - учреждение в котором присвооена категория

nag - наименование награды

zva - звание

gde - мест поучения награды

dat - дата получения

kmo - методические КМО

avs - автрские статьи

uro - урвень (ицей, зна, регион, федерация)

nou - наименование образоватеьного учреждения

cpe - специаизация

dna - дата начаа

dok - дата окончания

pre - преподаваемая дисциплина

ngr - номера групп

cvg - часов в год

puc - часов в 1 полугодие

vuc - часов во 2 полугодие

one - первое полугодие

two - второе полугодие

ito - итоговая

5. ПРОГРАМНОЕ ОБЕСПЕЧЕНИЕ ЗАДАЧИ

5.1 ОПИСАНИЕ ТЕХНОЛОГИЧЕСКОГО ПРОЦЕССА РЕШЕНИЯ ЗАДАЧИ

При разработке программы использовалась объектно- ориентированная технология. Были применены методы визуального программирования Visual FoxPro. Для ввода денных по сотрудникам бала создана форма «addgl.scx». Для редактирования - форма «edit.scx», для хранения данных таблица ipr.dbf и для отчетов были созданы формы «rap1 - rap14b.frx» c использованием встроенного генератора отчетов. Меню программы создано при помощи встроенного генератора меню. После создания всех форм, отчетов и процедур был создан файл проекта, который объединил в себе все необходимые файлы программы, а после этого был создан ЕХЕ - файл ipr.exe

Задачей программы «ipr» является поддержание базы данных преподавателей с разной категорией, разным уровнем образования, разным процентом качества обучения и так далее, наглядное представление данных в виде диаграммы, предоставление различных видов печатных форм и выполнение поисковых операций по различным критериям.

Программу «ipr» можно условно разделить на три части: модуль заполнения базы, модуль редактирования и поиска, модуль графиков.

Что происходит в главном меню можно увидеть в алгоритме, приведенном в приложении 1.

При загрузке программы устанавливаются некоторые системные параметры, которые так же можно назвать установками среды программирования Visual FoxPro. После этого загружается системное меню программы.

При загрузке модуля заполнения справочника происходит открытие необходимых баз данных (Personal.dbf, servis.dbf, tovar.dbf ) и активизация соответствующего подменю, состоящего из пунктов Комплектующие, Сервис, Менеджер.

При выборе пункта меню Дополнение, загружается форма addgl.scx, присваиваются начальные значения всем переменным, формируются объекты, описанные в форме (заголовки, текстовые поля, кнопки и иные элементы управления). Загружается среда окружения формы с базой данных ipr.dbf. После загрузки система находится в режиме ожидания действий пользователя. После ввода необходимой информации и занесения ее во временные переменные необходимо нажать на одну из трех кнопок («Следующая», «Отмена»). При нажатии на первую из них происходит дополнение БД из временных переменных. При нажатии кнопки «Отмена» происходит обнуление переменных, а так же закрытие самой формы.

Внешний вид формы представлен на рисунке 1.

Рисунок 1. Окно заполнения БД.

При выборе пункта База\Поиск, вызывается окно поиска, со списком критериев поиска (рис 2).



Рисунок 2. Окно со списком критериев поиска

Выбрав нужный, нажатием кнопки Поиск вызывается окно ввода значения критерия либо его выбора из списка (второй вариант представлен на рисунке 3.).

Рисунок 3. Выбор значения критерия поиска

По нажатию кнопки Найти, появляется окно результата поиска, в котором отображон список фамилий (рис 4).

Рис 4. Окно результата поиска.

5.2 АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ

Алгоритм решения данной задачи можно описать следующим образом (блок-схема алгоритма представлена в приложении 1.):

Изучение предметной области, сбор материалов и информации, необходимых для написания программы

Создание всех необходимых баз данных

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

Подвязка баз данных к экранным формам, определение переменных, создание процедур для различных методов, применяемых для экранных форм и элементов управления.

Создание процедурных файлов системного меню, запросов к базам данных, выдачи печатных отчетов.

Создание проекта и включение в него всех ранее созданных форм, процедур, источников данных.

Создание главного процедурного файла, управляющего всеми модулями программы и компиляция проекта в .exe-файл.

Отладка программы.

Создание инсталляционного пакета, с помощью встроенного в Visual FoxPro 5.0 мастера Setup.

5.3 ОПИСАНИЕ ИНТЕРФЕЙСА РАБОТЫ ПОЛЬЗОВАТЕЛЯ С ПРОГРАММНЫМ ПРОДУКТОМ РЕАЛИЗУЮЩИМ ЗАДАЧУ

Интерфейс программы имеет графический вид (в стиле Windows 9x). При создании программы использовались стандартные элементы управления и ввода данных, что привело к созданию интуитивно понятной оболочки пользователя.

5.4 ОТЛАДКА ПРОГРАММ И КОНТРОЛЬНЫЙ ПРИМЕР РЕШЕНИЯ ЗАДАЧИ

При отладке программных продуктов часто бывает необходимо детально проследить поведение программы и ее переменных в сомнительных местах, то есть выполнить трассировку.

Visual FoxPro обладает удобным и гибким отладчиком программ.

Два специальных отладочных окна Debug и Trace, могут могут вызываться раздельно или вместе. В окне Trace выводится команды исполняемой программы, а в окне Debug - значение указанных в нем переменных и выражений. Находясь в окне Trace в момент останова программы, мы можем управлять трассировкой, пользуясь горизонтальным Trace-меню, расположенным в верхней его части. Если есть сомнения касающиеся некоторых переменных, значение которых сложно отследить, то следует начинать отладку с вызова окна Debug.

Режим отладки и его средства могут быть вызваны непосредственным применением следующих set-команд:

SET ECHO ON/OFF - осуществляет выдачу всех исполняемых команд программы в окне TRACE

SET DEBUG ON/OFF - разрешает использование окон отладки

SET TALK ON/OFF - отключает автоматическую выдачу на экран результатов большинства исполняемых команд

SET STATUS ON/OFF - выводит статус строку на экран

SET STEP ON/OFF - устанавливает пошаговый темп исполнения программы с выводом окна TRACE.

Эти команды могут включаться в текст программы в нужных для этого местах с последующим их удалением.

Тестирование отдельных компонентов

Обычное тестирование компонентов проходит в 2 этапа:

Сначала отлаживается компонент отдельно, затем проверяется их работа в составе предложения.

Использование средств отладки

Если в приложении обнаружились ошибки, можно локализовать и исправить их с помощью отладочных средств Visual FoxPro.

Отладочные средства предлагают интерактивные возможности для:

Прямого ввода команд. Окно Command позволяет проверить отдельные строки кодов в среде разработки Visual FoxPro.

Динамического отображения переменных. Окно Debug можно использовать для динамического отображения значений переменных как в среде разработки, так и в среде выполнения.

Просмотр параметров функции и команд set. В окне Debug можно отображать возвращаемые функциями значения м просматривать установки команд set.

Установки точек останова. Можно приостановить выполнение программы, установив точки останова. Для этого в окне Debug надо установить маркер останова и указать значение, при котором выполнение программы должно прерваться.

Трассировки программ и форм. Можно использовать окно Trace, для выполнения программ с заданной скоростью и проверкой результатов выполнения кода. В окне Trace можно управлять скоростью выполнения программ, устанавливая конкретную скорость выполнения, применять пошаговое выполнение строка за строкой пропуская уже отлаженную часть кода, и устанавливать точки останова. Дополнительно можно трассировать формы и устанавливать точки останова в обработчиках событий.

Доступность некоторых средств отладки зависит от текущего состояния FoxPro Visual.

Среда разработки Visual FoxPro - это интерфейс разработки и конструирования приложения.

Среда выполнения - это интерфейс приложения, в котором активна команда Read Events.

Окно Debug и Trace доступны в обеих средах. Окно Command доступно только в среде разработки.

Контрольный пример

В качестве контрольного примера рассмотрим процедуру занесения сотрудника в базу данных, с последующим построением графика по критерию «Образование» учитывая занесенного сотрудника.

Для осуществления операции занесения в базу нового сотрудника, нужно запустить программу, выбрать пункт меню База / Дополнение, внести все необходимые данные и нажать кнопку «Следующая» (рисунок 2)

Рис.2 Закладка «Общие» окна «Заполнение базы данных»

После этого необходимо выбрать подпункт Отчет\Построение графика. Сделав это, появится окно представленное на рисунке 3.

В нем при необходимости можно распечатать табличное представление графика на принтер.

Рисунок 3. Построение графика

Рисунок 4. Список фамилий соответствующих выбранному критерию.

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

В появившемся окне, при желании можно выбрав сотрудника просмотреть всю информацию по нему, нажав клавишу Enter. Результат этих манипуляций приведен на рисунке 5. Кнопка «Печать», отраспечатает всю информацию по сотруднику.

Рисцнок 5. Окно просмотра информации по сотруднику.

5.5 Инструкция по эксплуатации

Установить программу с помощью дистрибутивного пакета, указав рабочий каталог.

Запустить программу двойным щелчком мыши по ярлыку на рабочем

Запустить программу двойным щелчком мыши по ярлыку на рабочем столе или по запускаемому файлу.

Появляется меню со следующими пунктами: База, Отчет, Выход.

Для работы с базой данных, используется пункт главного меню База включающий в себя подпункты:а)Дополнение: используется для дополнения базы данных новыми преподавателями. При его выборе, появляется окно с несколькими страницами, перемещаясь между которыми можно занести необходимую информацию. После этого, при нажатии на кнопку Следующая, введенные данные будут занесены в базу. При нажатии кнопки Отмена, данные не будут занесены в базу.б)Поиск: в появившемся окне отображаются несколько критериев (номера учебных групп, должностная обязанность, педагогическая нагрузка, процент качества, методы обучения, формы обучения, образование, педагогический стаж, квалификационная категория, звания и награды, уровень проведения, преподаваемая дисциплина, виды методы и формы контроля) для осуществления поиска по базе данных. После выбора любого из них, появляется соответствующее этому критерию окно с полем для ввода. После ввода значения, нажатием кнопки Найти, осуществляем поиск. Результат поиска (фамилии) выводится в окно (при нажатии клавиши F1 - распечатывается на принтер текущий список фамилий учитывая критерий поиска). При нажатии клавиши Enter, появляется окно с подробной информацией по выбранной фамилии (с возможностью распечатки на принтер). На любом этапе поиска, кнопкой Отмена можно закрыть текущее окно.в)Редактирование: в появившемся окне, из раскрывающегося списка, необходимо выбрать фамилию. После нажатия кнопки Изменить, появляется окно редактирования информации по выбранному преподавателю. Внеся необходимую корректировку в соответствующие поля, нажатием кнопки Изменить, вносим изменения в базу данных. На любом этапе, кнопкой Отмена можно закрыть текущее окно.г)Удаление: в появившемся окне, из раскрывающегося списка, необходимо выбрать фамилию. После ее выбора, подтверждаем удаление кнопкой Удалить. Удаленная запись помещается в корзину. На любом этапе, кнопкой Отмена можно закрыть текущее окно.д)Корзина: служит для восстановления (клавишей Enter) ранее удаленных записей.

Для формирования различных отчетов служит пункт главного меню Отчет:а)Построение графика: при выборе этого подпункта, появляется окно в котором необходимо выбрать критерий построения графика. На любом этапе поиска, кнопкой Отмена можно закрыть текущее окно.б)Просмотр: вызывает полный список фамилий хранящихся в базе данных. При желании, клавишей Enter можно вызвать окно подробного просмотра информации по выбранной записи. (с возможностью распечатки на принтер). На любом этапе, кнопкой Отмена можно закрыть текущее окно.

Выход: При желании можно выйти из программы с откатом базы данных (не сохраняя внесенные изменения начиная с текущего запуска программы) поставив флажок С откатом базы данных?. Если флажок не установлен, все изменения будут сохранены. На любом этапе, кнопкой Отмена можно закрыть текущее окно.

6. ЗАКЛЮЧЕНИЕ

На сегодняшний день, автоматизированное рабочее место оператора продолжает изменяться с учетом появления новых требований к обработке данных или разнообразия систем введения статистического учета на разных предприятиях. Программы постоянно совершенствуются, изменяется пользовательский интерфейс - он становится более удобным и интуитивно понятным пользователю.

Создание системной машинной обработки данных, сетей ЭВМ и вычислительных центров коллективного пользования, решающих разнообразные задачи учета, планирования, контроля, анализа и регулирования процессов производства и управления, а также автоматизация процессов обмена данными способствует повышению уровня обработки информации (данных), эффективности учета и контроля обрабатываемой информации. Это в свою очередь повышает эффективность производственной деятельности предприятия (учреждения), что, в конечном итоге, повысит уровень производительности и работоспособности в целом.

Создание сетей ЭВМ и ВЦ, решающих разнообразные задачи учета, автоматизации производств обмена данными способствует повышению уровня обработки данных, эффективности учета и контроля обрабатываемой информации.

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

7. ПЕРЕЧЕНЬ СОКРАЩЕНИЙ

MS - MicroSoft

VFP - VisualFox Pro

БД - база данных

Лкм- левая кнопка мыши

ОС - операционная система

ПК - персональный компьютер

СУБД - система управления базами данных

8. СПИСОК ЛИТЕРАТУРЫ

1. Попов А.А. FoxPro 2.5/2.6 г. Москва изд. ДЕСС КОММ 2000 г.

2. Менахем Базиян Использование VisualFox Pro 6.0 г. Москва изд. Вильямс 2000 г.

ПРИЛОЖЕНИЕ 1

ПРИЛОЖЕНИЕ 2

Листинг:

on error do or.prg

clea

set talk off

set curs off

set safety off

set bell to 10000,1

set talk off

set date german

set curs on

set dele on

*set hour to 24

*set cloc on

on key label ESC do or

on key label F1 do or

on key label F2 do or

on key label F3 do or

on key label F4 do or

on key label F5 do or

on key label F6 do or

on key label F7 do or

on key label F8 do or

on key label F9 do or

on key label F10 do or

on key label F11 do or

on key label F12 do or

on key label Ctrl-h do or

on key label Ctrl-leftarrow do or

on key label Ctrl-rightarrow do or

use ipr

inde on fam to ifam

use

copy file ifam.idx to ifamcopy.idx

copy file ipr.dbf to iprcopy.dbf

copy file ipr.fpt to iprcopy.fpt

use ipr index ifam

modi wind screen from 1,0 to 0,25 titl 'IPR v 3.1' icon file 'C:\Dutch\ipr v 3.1\ico\ipr.ico' NOGROW noclose nozoo

do ipr.prg

read even

Меню

*modi wind screen from 48,2 to 47,1 titl 'Пароль' NOGROW noclose nozoo

*do form password

SET SYSMENU SAVE

SET SYSMENU TO

DEFINE PAD База OF _MSYSMENU PROMPT 'База' COLOR SCHEME 3

DEFINE PAD Отчет OF _MSYSMENU PROMPT 'Отчет' COLOR SCHEME 3

DEFINE PAD Выход OF _MSYSMENU PROMPT 'Выход'COLOR SCHEME 3

*DEFINE PAD Справка OF _MSYSMENU PROMPT 'Справка'COLOR SCHEME 3

ON PAD База OF _MSYSMENU ACTIVATE POPUP база

ON PAD Отчет OF _MSYSMENU ACTIVATE POPUP отчет

ON PAD Выход OF _MSYSMENU ACTIVATE POPUP ex

*ON PAD Справка OF _MSYSMENU ACTIVATE POPUP справка

DEFINE POPUP база MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF база PROMPT 'Дополнение'

DEFINE BAR 2 OF база PROMPT 'Поиск'

DEFINE BAR 3 OF база PROMPT 'Редактирование'

DEFINE BAR 4 OF база PROMPT 'Удаление'

DEFINE BAR 5 OF база PROMPT 'Корзина'

on sele bar 1 of база do form addgl

on sele bar 2 of база do form findgl

on sele bar 3 of база do form edit

on sele bar 4 of база do form del

on sele bar 5 of база do recicled.prg

DEFINE POPUP отчет MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF отчет PROMPT 'Построение графика'

DEFINE BAR 2 OF отчет PROMPT 'Просмотр'

on sele bar 1 of отчет do form graph

on sele bar 2 of отчет do view.prg

DEFINE POPUP ex MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF ex PROMPT 'Выйти'

on sele bar 1 of ex do form exit

Файл просмотра

set filt to

pop key

on key label Enter do form view

on key label RIGHTARROW do or

on key label LEFTARROW do or

on key label TAB do or

defi wind view from 5,30 to 35,70 title "Просмотр всвей базы данныйых" font '',9 close nomini nozoom in desktop

acti wind view

brow wind view nome noed noap node field fam:h="Фамилия"

*brow wind view part 45 redit lpar nome noed noap node field fam:h="Фамилия",;

*tab:h="Табель",;

*obr:h="Образование",;

*nuz:h="Учебное заведение",;

*nfk:h="Факультет",;

*spc:h="Специальность",;

*gpd:h="Год получения диплома по специальности",;

*ost:h="Общий стаж работы (на сентябрь 2001г.)",;

*pst:h="Педагогический стаж работы (на сентябрь 2001г.)",;

*lst:h="Стаж работы в лицее 105 (на сентябрь 2001г.)",;

*dbz:h="Выплняемые в лицее должносные обязанности",;

*kop:h="Результаты контроля образовательного процесса",;

*kus:h="Процент успеваемости",;

*kBE:h="Процент качества",;

*ind:h="Активно используемые методы и приемы обучения",;

*sro:h="Используемые средства обучения",;

*ofo:h="Предпоччитаемые организационные формы обучения",;

*vmk:h="Предпочитаемые виды и методы контроля",;

*ipp:h="Индивидуальный план педагога" ,;

*sme:h="Совмещение",;

*dkkur:h="Где закончен курс повышения квалификации",;

*dknak:h="Наименование курсов повышенния квалификации",;

*dknas:h="Наименование специализации",;

*dkdan:h="Дата начала курсов повышения кваллификации",;

*dkdak:h="Дата окончания курсов повышения кваллификации",;

*dkkat:h="Категория",;

*dkraz:h="Разряд категории",;

*dkdpk:h="Дата присвоения категории",;

*dkdpr:h="Дата присвоения разряда",;

*dkuch:h="Учреждение в котором присвоена категория",;

*dnnag:h="Наименование награды",;

*dnzva:h="Звание",;

*dngde:h="Место полуения награды",;

*dndat:h="Дата получения",;

*dakmo:h="Методические КМО",;

*daavs:h="Авторские статьи",;

*dauro:h="Уровень проведения",;

*ddnou:h="Наименование обр. учреждения (Доп. Обр.)",;

*ddcpe:h="Специализация (Доп. Обр.)",;

*dddna:h="Дата начала (Доп. Обр.)",;

*dddok:h="Дата окончания (Доп. Обр.)",;

*dipre:h="Преподаваемая дисциплина",;

*dingr:h="Номара групп",;

*dicvg:h="Часов в год",;

*dipuc:h="Часов в 1 полугодие",;

*divuc:h="Часов во 2 полугодие",;

*dpone:h="Часов в 1 полугодие (итог)",;

*dptwo:h="Часов во 2 полугодие (итог)",;

*dpito:h="Итог"

pop key

rele wind view

Корзина

do rec

proc rec

set dele off

on key label Enter do form recicled

on key label RIGHTARROW do or

on key label LEFTARROW do or

on key label TAB do or

on key label F1 do form pack

defi wind view from 0,0 to 47,100 title "Восстановить запись - Enter; Очистка корзины - F1" foot "Корзина" color scheme 10 close nozoom nofloat font'roman',9 in desktop

acti wind view

brow wind view for dele()=.t. part 25 redit lpar nome noed noap node field fam:h="Фамилия",;

tab:h="Табель",;

obr:h="Образование",;

nuz:h="Учебное заведение",;

nfk:h="Факультет",;

spc:h="Специальность",;

gpd:h="Год получения диплома по специальности",;

ost:h="Общий стаж работы (на сентябрь 2001г.)",;

pst:h="Педагогический стаж работы (на сентябрь 2001г.)",;

lst:h="Стаж работы в лицее 105 (на сентябрь 2001г.)",;

dbz:h="Выплняемые в лицее должносные обязанности",;

kop:h="Результаты контроля образовательного процесса",;

kus:h="Процент успеваемости",;

kBE:h="Процент качества",;

ind:h="Активно используемые методы и приемы обучения",;

sro:h="Используемые средства обучения",;

ofo:h="Предпоччитаемые организационные формы обучения",;

vmk:h="Предпочитаемые виды и методы контроля",;

ipp:h="Индивидуальный план педагога" ,;

sme:h="Совмещение",;

dkkur:h="Где закончен курс повышения квалификации",;

dknak:h="Наименование курсов повышенния квалификации",;

dknas:h="Наименование специализации",;

dkdan:h="Дата начала курсов повышения кваллификации",;

dkdak:h="Дата окончания курсов повышения кваллификации",;

dkkat:h="Категория",;

dkraz:h="Разряд категории",;

dkdpk:h="Дата присвоения категории",;

dkdpr:h="Дата присвоения разряда",;

dkuch:h="Учреждение в котором присвоена категория",;

dnnag:h="Наименование награды",;

dnzva:h="Звание",;

dngde:h="Место полуения награды",;

dndat:h="Дата получения",;

dakmo:h="Методические КМО",;

daavs:h="Авторские статьи",;

dauro:h="Уровень проведения",;

ddnou:h="Наименование обр. учреждения (Доп. Обр.)",;

ddcpe:h="Специализация (Доп. Обр.)",;

dddna:h="Дата начала (Доп. Обр.)",;

dddok:h="Дата окончания (Доп. Обр.)",;

dipre:h="Преподаваемая дисциплина",;

dingr:h="Номара групп",;

dicvg:h="Часов в год",;

dipuc:h="Часов в 1 полугодие",;

divuc:h="Часов во 2 полугодие",;

dpone:h="Часов в 1 полугодие (итог)",;

dptwo:h="Часов во 2 полугодие (итог)",;

dpito:h="Итог"

rele wind view

pop key

set dele on

*proc restor

*push key clea

*defi wind me from 10,10 to 16,60 titl "Восстановление записи" font'roman',9 close zoom

*acti wind me

*@1,5 say 'Вы действительно хотите восстановить'+' '+fam+' из корзины'

*@3,18 get a func "*ht Да хочу;Неочень" defa 1

*read

*if a=1

*reca

*wait wind 'Запись востановлена'

*rele wind me

*endi

*rele wind me

*do rec

Форма Добавления

PUBLIC gfam,gtab,gobr,gnuz,gnfk,gspc,ggpd,gost,gpst,glst,gdbz,gkop,gkus,gkbe,gind,gsro,gofo,gvmk,gipp,kkur,knak,knas,kdan,kdak,kkat,kraz,kdpk,kdpr,kuch,nnag,nzva,ngde,ndat,akmo,aavs,auro,dnou,dcpe,ddna,ddok,pone,ptwo,pito,ipre,ippr,ingr,icvg,ipuc,ivuc,gsme

gfam=spac(50)

gtab=0

gobr=spac(50)

gnuz=spac(1000)

gnfk=spac(1000)

gspc=spac(1000)

ggpd=0

gost=0

gpst=0

glst=0

gdbz=spac(50)

gkop=spac(1000)

gkus=0

gkbe=0

gind=spac(150)

gsro=spac(1000)

gofo=spac(50)

gvmk=spac(150)

gipp=spac(150)

gsme=spac(50)

gsme1=spac(50)

*****кваификация

kkur=spac(1000)

knak=spac(1000)

knas=spac(1000)

kdan={}

kdak={}

kkat=spac(10)

kraz=0

kdpk={}

kdpr={}

kuch=spac(1000)

*****награды

nnag=spac(50)

nzva=spac(50)

ngde=spac(50)

ndat={}

*****автрские разрабтки

akmo=spac(1000)

aavs=spac(1000)

auro=spac(20)

*****дополнительне бразование

dnou=spac(1000)

dcpe=spac(1000)

ddna={}

ddok={}

*****итоговая педагогичческая нагрузка

pone=0

ptwo=0

pito=0

*****итог

ipre=spac(50)

ippr=spac(50)

ingr=spac(25)

icvg=0

ipuc=0

ivuc=0

LPARAMETERS nButton, nShift, nXCoord, nYCoord

thisform.pageframe1.page1.image1.picture='C:\Dutch\ipr v 3.1\ico\Button Studuo\next.bmp'

thisform.pageframe1.page1.image2.picture='C:\Dutch\ipr v 3.1\ico\Button Studuo\close.bmp' LPARAMETERS nButton, nShift, nXCoord, nYCoord

thisform.pageframe1.page1.image1.picture='C:\Dutch\ipr v 3.1\ico\Button Studuo\next.bmp'

thisform.pageframe1.page1.image2.picture='C:\Dutch\ipr v 3.1\ico\Button Studuo\close.bmp'

cMessageTitle='Общие данные'

cMessageText='Ввода общей информации'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle) cMessageTitle='Общие данные'

cMessageText='Ввода общей информации'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

loca for fam=gfam

if empty(ggpd)=.f. .and. ggpd<1920

cMessageTitle='Ошибка ввода в поле "Год получения диплома"'

cMessageText='Год должен записываться четырехзначным числом'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

endi

if found()=.t. or gfam=spac(30)

cMessageTitle='Ошибка ввода в поле "Фамилия"'

cMessageText='Поле фамилия не заполнено,либо такая фамилия уже есть в базе данных'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

else

appen blan

repl fam with gfam

repl tab with gtab

repl obr with gobr

repl nuz with gnuz

repl nfk with gnfk

repl spc with gspc

repl gpd with ggpd

repl ost with gost

repl pst with gpst

repl lst with glst

repl dbz with gdbz

repl kop with gkop

repl kus with gkus

repl kbe with gkbe

repl ind with gind

repl sro with gsro

repl ofo with gofo

repl vmk with gvmk

repl ipp with gipp

if thisform.pageframe1.page1.Embos.visible=.f.

repl sme with gsme

else

repl sme with gsme1

endi

*****кваификация

repl dkkur with kkur

repl dknak with knak

repl dknas with knas

repl dkdan with kdan

repl dkdak with kdak

repl dkkat with kkat

repl dkraz with kraz

repl dkdpk with kdpk

repl dkdpr with kdpr

repl dkuch with kuch

*****награды

repl dnnag with nnag

repl dnzva with nzva

repl dngde with ngde

repl dndat with ndat

*****автрские разрабтки

repl dakmo with akmo

repl daavs with aavs

repl dauro with auro

*****дополнительне бразование

repl ddnou with dnou

repl ddcpe with dcpe

repl dddna with ddna

repl dddok with ddok

*****итоговая педагогичческая нагрузка

repl dpone with pone

repl dptwo with ptwo

repl dpito with pito

*****итог

repl dipre with ipre

repl dippr with ippr

repl dingr with ingr

repl dicvg with icvg

repl dipuc with ipuc

repl divuc with ivuc

endi

*****restore

gfam=spac(50)

gtab=0

gobr=spac(50)

gnuz=spac(1000)

gnfk=spac(1000)

gspc=spac(1000)

ggpd=0

gost=0

gpst=0

glst=0

gdbz=spac(50)

gkop=spac(1000)

gkus=0

gkbe=0

gind=spac(150)

gsro=spac(1000)

gofo=spac(50)

gvmk=spac(150)

gipp=spac(150)

gsme=spac(50)

gsme1=spac(30)

*****кваификация

kkur=spac(1000)

knak=spac(1000)

knas=spac(1000)

kdan={}

kdak={}

kkat=spac(10)

kraz=0

kdpk={}

kdpr={}

kuch=spac(1000)

*****награды

nnag=spac(50)

nzva=spac(50)

ngde=spac(50)

ndat={}

*****автрские разрабтки

akmo=spac(1000)

aavs=spac(1000)

auro=spac(20)

*****дополнительне бразование

dnou=spac(1000)

dcpe=spac(1000)

ddna={}

ddok={}

*****итоговая педагогичческая нагрузка

pone=0

ptwo=0

pito=0

*****итог

ipre=spac(50)

ippr=spac(50)

ingr=spac(25)

icvg=0

ipuc=0

ivuc=0

*****refresh

thisform.pageframe1.page1.Embos.visible=.f.

thisform.pageframe1.page1.refresh

thisform.pageframe1.page2.refresh

thisform.pageframe1.page3.refresh

thisform.pageframe1.page4.refresh

thisform.pageframe1.page5.refresh

thisform.pageframe1.page6.refresh

thisform.pageframe1.page7.refresh

if empt(gfam)

cMessageTitle='Ошибка ввода'

cMessageText='Необходимо выбрать фамилию из списка'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

endi

loca for fam=gfam

if found()=.t.

do form del1

else

cMessageTitle='Ошибка ввода'

cMessageText='Ввод фамилии недопустим. Необходимо выбрать ее из списка'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

endi

thisform.release

delete

on key label ESC do or.prg

cMessageTitle='Внимание!'

cMessageText='Запись была удалена'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

Форма редактирования

PUBLIC gfam,gtab,gobr,gnuz,gnfk,gspc,ggpd,gost,gpst,glst,gdbz,gkop,gkus,gkbe,gind,gsro,gofo,gvmk,gipp,kkur,knak,knas,kdan,kdak,kkat,kraz,kdpk,kdpr,kuch,nnag,nzva,ngde,ndat,akmo,aavs,auro,dnou,dcpe,ddna,ddok,pone,ptwo,pito,ipre,ippr,ingr,icvg,ipuc,ivuc,gsme

gfam=fam

gtab=tab

gobr=obr

gnuz=nuz

gnfk=nfk

gspc=spc

ggpd=gpd

gost=ost

gpst=pst

glst=lst

gdbz=dbz

gkop=kop

gkus=kus

gkbe=kbe

gind=ind

gsro=sro

gofo=ofo

gvmk=vmk

gipp=ipp

gsme=sme

*****кваификация

kkur=dkkur

knak=dknak

knas=dknas

kdan=dkdan

kdak=dkdak

kkat=dkkat

kraz=dkraz

kdpk=dkdpk

kdpr=dkdpr

kuch=dkuch

*****награды

nnag=dnnag

nzva=dnzva

ngde=dngde

ndat=dndat

*****автрские разрабтки

akmo=dakmo

aavs=daavs

auro=dauro

*****дополнительне бразование

dnou=ddnou

dcpe=ddcpe

ddna=dddna

ddok=dddok

*****итоговая педагогичческая нагрузка

pone=dpone

ptwo=dptwo

pito=dpito

*****итог

ipre=dipre

ippr=dippr

ingr=dingr

icvg=dicvg

ipuc=dipuc

ivuc=divuc

loca for fam=allt(ggfam)

if empty(ggfam)=.t.

cMessageTitle='Ошибка ввода'

cMessageText='Выберите фамилию!'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

else

do form edit1

endi

if empty(ggpd)=.f. .and. ggpd<1920

cMessageTitle='Ошибка ввода в поле "Год получения диплома"'

cMessageText='Год должен записываться четырехзначным числом'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

endi

if gfam=spac(30)

cMessageTitle='Ошибка ввода в поле "Фамилия"'

cMessageText='Поле фамилия не заполнено'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

else

dele for fam=ggfam

appen blan

repl fam with gfam

repl tab with gtab

repl obr with gobr

repl nuz with gnuz

repl nfk with gnfk

repl spc with gspc

repl gpd with ggpd

repl ost with gost

repl pst with gpst

repl lst with glst

repl dbz with gdbz

repl kop with gkop

repl kus with gkus

repl kbe with gkbe

repl ind with gind

repl sro with gsro

repl ofo with gofo

repl vmk with gvmk

repl ipp with gipp

if thisform.pageframe1.page1.Embos.visible=.f.

repl sme with gsme

else

repl sme with gsme1

endi

*****кваификация

repl dkkur with kkur

repl dknak with knak

repl dknas with knas

repl dkdan with kdan

repl dkdak with kdak

repl dkkat with kkat

repl dkraz with kraz

repl dkdpk with kdpk

repl dkdpr with kdpr

repl dkuch with kuch

*****награды

repl dnnag with nnag

repl dnzva with nzva

repl dngde with ngde

repl dndat with ndat

*****автрские разрабтки

repl dakmo with akmo

repl daavs with aavs

repl dauro with auro

*****дополнительне бразование

repl ddnou with dnou

repl ddcpe with dcpe

repl dddna with ddna

repl dddok with ddok

*****итоговая педагогичческая нагрузка

repl dpone with pone

repl dptwo with ptwo

repl dpito with pito

*****итог

repl dipre with ipre

repl dippr with ippr

repl dingr with ingr

repl dicvg with icvg

repl dipuc with ipuc

repl divuc with ivuc

endi

*****refresh

thisform.pageframe1.refresh

cMessageTitle='Внимание'

cMessageText='Запись обновлена'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

ggfam=gfam

if gsme='Мастер ПО' .or. gsme='Преподаватель' .or. gsme='Руководитель с/п' .or. gsme='Преподаватель ц.к.' .or. gsme='Зам. директора' .or. gsme='Куратор'

thisform.pageframe1.page1.Embos.visible=.f.

gsme1=spac(30)

else

thisform.pageframe1.page1.Embos.visible=.t.

gsme1=gsme

gsme='Другое'

endi

thisform.pageframe1.width=650

thisform.pageframe1.height=398

thisform.width=648

thisform.height=385

do case

case fsel=1.00

if a=1

retu

endi

do form findngr

a=a+1

case fsel=2.00

do form finddbz

case fsel=3.00

do form findpnag

case fsel=4.00

do form findkbe

case fsel=5.00

do form findmet

case fsel=6.00

do form findofo

case fsel=7.00

do form findobr

case fsel=8.00

do form findsta

case fsel=9.00

do form findkva

case fsel=10.00

do form findzva

case fsel=11.00

do form finduro

case fsel=12.00

do form findpre

case fsel=13.00

do form findkon

endcase

thisform.release

on key label ENTER do view.prg

use ipr inde ifam

rein

do case

case gkbe='50%-60%'

loca for kbe>=50 and kbe<60

if found()=.t.

go top

on key label ENTER do view.prg

on key label F1 do rap3.prg

thisform.visible=.f.

acti wind itog

brow for kbe>=50 and kbe<60 fields kbe:h="% качества", fam:h="Фамиия" noed noap

rele wind itog

pop key

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

case gkbe='60%-70%'

loca for kbe>=60 and kbe<70

if found()=.t.

go top

on key label ENTER do view.prg

on key label F1 do rap3.prg

thisform.visible=.f.

acti wind itog

brow for kbe>=60 and kbe<70 fields kbe:h="% качества", fam:h="Фамиия" noed noap

rele wind itog

pop key

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

case gkbe='70%-80%'

loca for kbe>=70 and kbe<80

if found()=.t.

go top

on key label ENTER do view.prg

on key label F1 do rap3.prg

thisform.visible=.f.

acti wind itog

brow for kbe>=70 and kbe<80 fields kbe:h="% качества", fam:h="Фамиия" noed noap

rele wind itog

pop key

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

case gkbe='80%-90%'

loca for kbe>=80 and kbe<90

if found()=.t.

go top

on key label ENTER do view.prg

on key label F1 do rap3.prg

thisform.visible=.f.

acti wind itog

brow for kbe>=80 and kbe<90 fields kbe:h="% качества", fam:h="Фамиия" noed noap

rele wind itog

pop key

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

case gkbe='90%-100%'

loca for kbe>=90 and kbe<100

if found()=.t.

go top

on key label ENTER do view.prg

on key label F1 do rap3.prg

thisform.visible=.f.

acti wind itog

brow for kbe>=90 and kbe<100 fields kbe:h="% качества", fam:h="Фамиия" noed noap

rele wind itog

pop key

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

case gkbe='100%'

loca for kbe=100

if found()=.t.

go top

on key label ENTER do view.prg

on key label F1 do rap3.prg

thisform.visible=.f.

acti wind itog

brow for kbe=100 fields kbe:h="% качества", fam:h="Фамиия" noed noap

rele wind itog

pop key

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

endc

Формы поиска

if empt(gdbz)

cMessageTitle='Ошибка ввода'

cMessageText='Выберите критерий поиска'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

endi

loca for dbz=allt(gdbz)

if found()=.t.

go top

on key label ENTER do form view

on key label F1 do rap2.prg

thisform.visible=.f.

acti wind itog

brow for dbz=allt(gdbz) fields dbz:h="Должносные обязанности", fam:h="Фамиия" noed noap

rele wind itog

pop key

else

if empt(gdbz)

cMessageTitle='Ошибка ввода'

cMessageText='Для поиска необходимо сначала выбрать должностную обязанность'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

endi

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

thisform.release

if empty(kkat)

cMessageTitle='Ошибка ввода'

cMessageText='Выберите критерий поиска'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

endi

on key label ENTER do view.prg

use ipr inde ifam

rein

loca for dkkat=allt(kkat)

if found()=.t.

go top

on key label ENTER do view.prg

on key label F1 do rap5.prg

thisform.visible=.f.

brow wind itog for dkkat=allt(kkat) fields dkkat:h="Квалификационная категория", fam:h="Фамиия" noed noap

deac wind itog

pop key

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

if empt(gobr)

cMessageTitle='Ошибка ввода'

cMessageText='Выберите критерий поиска'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

endi

on key label ENTER do view.prg

use ipr inde ifam

rein

loca for obr=allt(gobr)

if found()=.t.

go top

on key label ENTER do view.prg

on key label F1 do rap8.prg

thisform.visible=.f.

brow wind itog for obr=allt(gobr) fields obr:h="Образование", fam:h="Фамиия" noed noap

deac wind itog

pop key

else

cMessageTitle='Ошибка ввода'

cMessageText='Такой записи не найдено'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

on key label ENTER do view.prg

use ipr inde ifam

rein

if sel=1

loca for dpone<=pone+100 .and. dpone>=pone-100

if found()=.t.

set filt to dpone<=pone+100 .and. dpone>=pone-100

on key label ENTER do view.prg

on key label F1 do rap10.prg

thisform.visible=.f.

brow wind itog fields dpone:h="1 Полугодие", fam:h="Фамиия" noed noap

deac wind itog

pop key

set filt to

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

endi

if sel=2

loca for dptwo<=ptwo+100 .and. dptwo>=ptwo-100

if found()=.t.

set filt to dptwo<=ptwo+100 .and. dptwo>=ptwo-100

on key label ENTER do view.prg

on key label F1 do rap10.prg

thisform.visible=.f.

brow wind itog fields dptwo:h="2 Полугодие", fam:h="Фамиия" noed noap

deac wind itog

pop key

set filt to

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

endi

if sel=3

loca for dpito<=pito+100 .and. dpito>=pito-100

if found()=.t.

set filt to dpito<=pito+100 .and. dpito>=pito-100

on key label ENTER do view.prg

on key label F1 do rap10.prg

thisform.visible=.f.

brow wind itog fields dpito:h="Итог", fam:h="Фамиия" noed noap

deac wind itog

pop key

set filt to

else

cMessageTitle='Внимание'

cMessageText='Поиск неудачен'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

endi

if empt(auro)

cMessageTitle='Ошибка ввода'

cMessageText='Выберите критерий поиска'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

retu

endi

on key label ENTER do view.prg

use ipr inde ifam

rein

loca for dauro=allt(auro)

if found()=.t.

go top

on key label ENTER do view.prg

on key label F1 do rap13.prg

thisform.visible=.f.

brow wind itog for dauro=allt(auro) fields dauro:h="Уровень проведения", fam:h="Фамиия" noed noap

deac wind itog

pop key

else

cMessageTitle='Ошибка ввода'

cMessageText='Такой записи не найдено'

nDialogType=0+64+0

nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)

pop key

endi

thisform.label13.visible=.f.

thisform.refresh

thisform.image1.visible=.f.

thisform.text1.visible=.f.

thisform.label1.visible=.f.

thisform.image2.visible=.f.

thisform.text2.visible=.f.

thisform.label2.visible=.f.