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

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

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

Программный комплекс «Onvision» предназначен для оперативного анализа данных, получаемых из учетных систем.

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

-оперативно получать нужную информацию из хранилищ данных;

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

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

Программный комплекс «Onvision» использует технологию OLAP и предоставляет своим пользователям следующие возможности:

-использование различных типов хранилищ данных (OLAP-сервер, автономный OLAP-куб, XML-файл);

-высокая скорость загрузки нужной информации из хранилища данных;

-оперативная обработка полученной информации:

-фильтрация, группировка и сортировка исходных данных;

-добавление вычисляемых полей и промежуточных итогов;

-определение трендов.

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

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

-публикация отчетов в Интернет. Просмотр опубликованных отчетов можно осуществлять в MS Internet Explorer без установки «Onvision»;

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

-экспорт отчета в MS Excel в виде сводной таблицы, книги или графического изображения.

Программный продукт «Альт - Финансы» предназначен для выполнения комплексной оценки деятельности предприятия, выявления основных тенденций его развития, расчета базовых нормативов для планирования и прогнозирования, оценки кредитоспособности предприятия.

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

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

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

Глава 3. Состав, структура и отладка программного обеспечения для анализа и планирования использования трудовых ресурсов на промышленном предприятии

3.1 Состав и структура программного продукта

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

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

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

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

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

– отчетные формы подготавливающие, полученные в результате обработки данных, отчеты к выводу на печать;

– справочная система, состоит из набор файлов формата стандартной справочной системы Windows9x и файл документа формата Microsoft Word с текстом дипломной работы.

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

Приведём структуру модулей программы с описанием всех процедур, задействованных в этих модулях:

Модуль MainUnt - модуль главного окна программы.

Этот модуль содержит следующие процедуры и функции:

procedure TMainFrm.N2Click(Sender: TObject) - процедура отвечающая за вызов формы «Разрядные коэффициенты»;

procedure TMainFrm.N3Click(Sender: TObject) - процедура отвечающая за вызов формы «Движение рабочей силы»;

procedure TMainFrm.N20Click(Sender: TObject) - процедура отвечающая за вызов формы «Использование трудовых ресурсов»;

procedure TMainFrm.N4Click(Sender: TObject) - процедура отвечающая за вызов формы «Производительность труда»;

procedure TMainFrm.N23Click(Sender: TObject) - процедура отвечающая за вызов формы «Обеспеченность предприятия трудовыми ресурсами»;

procedure TMainFrm.N15Click(Sender: TObject) - процедура отвечающая за генерацию отчета по производительности труда;

procedure TMainFrm.N18Click(Sender: TObject) - процедура отвечающая за генерацию отчета по движению рабочей силы;

procedure TMainFrm.N19Click(Sender: TObject) - процедура отвечающая за генерацию отчета по трудоёмкости продукции;

procedure TMainFrm.N5Click(Sender: TObject) - процедура отвечающая за генерацию отчета по использованию трудовыхресурсов;

procedure TMainFrm.N22Click(Sender: TObject) - процедура отвечающая за генерацию отчета по фонду заработной платы;

procedure TMainFrm.N26Click(Sender: TObject) - процедура отвечающая за вызов калькулятора;

procedure TMainFrm.N17Click(Sender: TObject) - процедура отвечающая за вызов Microsoft Excel;

procedure TMainFrm.Excel1Click(Sender: TObject) - процедура отвечающая за вызов справочной системы;

procedure TMainFrm.N12Click(Sender: TObject) - процедура отвечающая за вызов формы с информацией о разработчике системы;

procedure TMainFrm.N9Click(Sender: TObject) - процедура осуществляющая выход.

Модуль Form1 - модуль формы ввода и редактирования производительности труда. В данном модуле реализованы следующие процедуры и функции:

procedure Button1Click(Sender: TObject) - процедура обеспечивающая сохранение измененных данных и выход из формы;

procedure ComboBox1Change(Sender: TObject) - процедура обеспечивающая заполнение таблицы данными за период выбранный в списке;

procedure Button2Click(Sender: TObject) - процедура обеспечивающая добавление новой записи в таблицу;

procedure Button4Click(Sender: TObject) - процедура обеспечивающая удаление текущей записи из таблицы;

procedure Button3Click(Sender: TObject) - процедура отвечающая за генерацию отчета.

Модуль Form2 - модуль формы ввода и редактирования данных по движению рабочей силы. В данном модуле реализованы следующие процедуры и функции:

procedure Button3Click(Sender: TObject) - процедура обеспечивающая запуск формы с наименованиями продукции;

procedure FormShow(Sender: TObject) - процедура обеспечивающая заполнение таблицы данными при запуске формы;

procedure ComboBox1Change(Sender: TObject) - процедура обеспечивающая заполнение таблицы данными за период выбранный в списке;

procedure Button1Click(Sender: TObject) - процедура отвечающая за генерацию отчета.

Модуль Form3 - модуль формы расчета показателей использования рабочей силы. В данном модуле реализованы следующие процедуры и функции:

procedure FormShow(Sender: TObject) - процедура обеспечивающая заполнение таблицы данными при запуске формы;

procedure ComboBox1Change(Sender: TObject) - процедура обеспечивающая заполнение таблицы данными за период выбранный в списке;

procedure Button1Click(Sender: TObject) - процедура отвечающая за генерацию отчета;

procedure CalcResults(y: Integer) - процедура рассчитывающая итоговые данные.

Модуль Rasch1Frm - модуль формы расчета движения рабочей силы. В данном модуле реализованы следующие процедуры и функции:

procedure ComboBox1Change(Sender: TObject) - процедура обеспечивающая заполнение таблицы данными за период выбранный в списке;

procedure Button1Click(Sender: TObject) - процедура отвечающая за генерацию отчета;

procedure CalcResults - процедура рассчитывающая показатели.

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

Модули Othchsklad, Otchcalc, Normotch, Pokaz, God, Naim - модули форм выбора параметров отчетов.

Подключаемые модули:

1. Windows - стандартный модуль Delphi, отвечающий за стабильное функционирование приложения в ОС Windows,

2. Messages - стандартный модуль Delphi, отвечающий за выдачу сообщений пользователю,

3. SysUtils - модуль подключения системных утилит,

4. Classes - модуль подключения классов Delphi,

5. Graphics - стандартный модуль Delphi, отвечающий за графику,

6. Controls - модуль управляющих элементов Delphi,

7. Forms - модуль отвечающий за прорисовку форм,

8. Dialogs - модуль стандартных диалогов,

9. Menus - модуль подключаемых меню,

10. DBCtrls - модуль управления БД,

11. ExtCtrls - модуль исключительных ситуаций [10,11,25,37].

Код программы представлен в приложении 2.

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

Подробное описание блок - схемы представлено в таблице 7.

Таблица 7

Описание блок - схемы программы

№ блока	Описание блока
1	Начало вычислительного процесса
2	Вывод главного меню на экран
3	Загрузка пункта меню N из памяти компьютера
4	Выбор пункта меню N
5	Если пункт меню N=1, то переход к блоку 6, иначе блок 7
6	Вывод на экран рабочей программы
7	Если пункт меню N=2, то переход к блоку 8, иначе блок 17
8	Вывод на экран Подменю 1
9	Загрузка Подменю 1 из памяти компьютера
10	Выбор подпунктов Подменю 1
11	Выбор первого подпункта N1=1 в подменю 1, при выборе перейти к блоку 12, иначе к блоку 13
12	Запуск формы тестирования с обучением
13	Выбор второго подпункта N1=12 в подменю 1, при выборе перейти к блоку 14, иначе к блоку 15
14	Запуск формы контрольного тестирования
15	Выбор третьего подпункта N1=3 в подменю 1.
16	Запуск формы отчёта
17	Если пункт меню N=3, то переход к блоку 18, иначе к блоку 25
18	Вывод на экран Подменю 2
19	Загрузка Подменю 2 из памяти компьютера
20	Выбор подпунктов Подменю 2
21	Выбор первого подпункта N2=11 в подменю 12, при выборе перейти к блоку 22, иначе к блоку 23
22	Открытие файла с руководством пользователя
23	Выбор второго подпункта N2=12 в подменю 12, при выборе перейти к блоку 24, иначе к блоку 23
24	Если пункт меню N=24, то переход к блоку 36, иначе к блоку 41
25	Если пункт меню N=4, то переход к блоку 26, иначе к блоку 33
26	Вывод на экран Подменю 13
27	Загрузка Подменю 23 из памяти компьютера
28	Выбор подпунктов Подменю 33
29	Выбор первого подпункта N3=1 в подменю 36.
30	Запуск формы пароль
31	Выбор второго подпункта N3=52 в подменю 23, при выборе перейти к блоку 32, иначе к блоку 33
32	Запуск формы редактирование
33	Если пункт меню N=5, то переход к блоку 34, иначе к блоку 35
34	Вывод на экран электронного учебника
35	Завершение работы с программой и выход в ОС
36	Выбор второго подпункта N1=2 в подменю 1, при выборе перейти к блоку 14, иначе к блоку 15
37	Запуск формы контрольного тестирования
38	Выбор третьего подпункта N1=3 в подменю 1.
39	Запуск формы отчёта
40	Если пункт меню N=3, то переход к блоку 18, иначе к блоку 25
41	Конец вычислительного процесса.

Мощность и гибкость Delphi при работе с базами данных основана на низкоуровневом ядре - процессоре баз данных Borland Database Engine (BDE). BDE позволяет осуществлять доступ к данным как с использованием традиционного record-ориентированного (навигационного) подхода, так и с использованием set-ориентированного подхода, используемого в SQL-серверах баз данных. Кроме BDE, Delphi использует технологию Open DataBase Connectivity (ODBC) фирмы Microsoft. Но, как показывает практика, производительность систем с использованием BDE гораздо выше, чем при использовании ODBC. Все инструментальные средства баз данных Borland - Paradox, dBase, Database Desktop - используют BDE. Все особенности, имеющиеся в Paradox или dBase, "наследуются" BDE, и поэтому этими же особенностями обладает и Delphi.

Таблицы сохраняются в базе данных. Некоторые СУБД сохраняют базу данных в виде нескольких отдельных файлов, представляющих собой таблицы (в основном, все локальные СУБД), в то время как другие состоят из одного файла, который содержит в себе все таблицы и индексы (InterBase). Например, таблицы dBase и Paradox всегда сохраняются в отдельных файлах на диске. Директория, содержащая dBase .DBF файлы или Paradox .DB файлы, рассматривается как база данных.

База данных, представленной нами программы находится в директории BASE. Все таблицы базы данных созданы в приложении компании Borland - Database Desktop. Созданы в формате таблиц баз данных Paradox, которые имеют расширение .DB.

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

– Trud.db

– Trud1.db

– Trud2.db

Таблица Trud.db хранит в себе основные реквизиты предприятия. Структура таблицы приведена в таблице 8.

Таблица 8

Структура таблицы Trud.db

Поле	Тип	Описание
Org_Name	A[255]	Название предприятия
Org_Rukovoditel	A[60]	Фамилия имя отчество руководителя предприятия
Org_GlavBuh	A[60]	Фамилия имя отчество главного бухгалтера
Org_NachKadr	A[60]	Фамилия имя отчество начальника отдела кадра

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

Таблица 9

Структура таблицы Trud1.db

Поле	Тип	Описание
Year	Integer	Год
Kol_yb_worker	LongInt	Численность персонала на начало года
Kol_ye_worker	LongInt	Численность персонала на конец года
Kol_worker	LongInt	Количество рабочих на предприятии
Kol_rukov	LongInt	Количество руководителей на предприятии
Kol_spec	LongInt	Количество специалистов на предприятии
Prinyto	LongInt	Количество принятых на предприятие работников
Vibil_army	LongInt	Количество выбыло работников на службу в вооруженных силах
Vibil_Pensiy	LongInt	Количество выбыло работников на пенсию или др. причины
Vibil_PoGelan	LongInt	Количество выбыло работников по собственному желанию
Vibil_Narush	LongInt	Количество выбыло работников за нарушения трудовой дисциплины
Otrob_day	LongInt	Отработано дней одним рабочим
Otrob_chas	LongInt	Отработано часов одним рабочим
Pribil_realiz	LongInt	Прибыль от реализации
Viruch_realiz	LongInt	Выручка от реализации продукции
Sred_god_zp	LongInt	Среднегодовая зарплата одного работника
Sred_day_zp	LongInt	Среднедневная зарплата одного работника
Sred_cas_zp	LongInt	Среднечасовая зарплата одного работника

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

Таблица 10

Структура таблицы Trud2.db

Поле	Тип	Описание
Year	Integer	Год
Kol_Uvolino	LongInt	Численность персонала уволенных за год
Sred_Spisok	LongInt	Среднесписочная численность персонала
Kof_priem	Float	Коэффициент оборота по приему работников
Kof_vibit	Float	Коэффициент оборота по выбытью работников
Kof_tekuch	Float	Коэффициент текучести кадров
Kof_postoyn	Float	Коэффициент постоянства кадров
Sred_prod_day	Float	Средняя продолжительность рабочего дня
Fond_Rab_Vrem	LongInt	Общий фонд рабочего времени
Udel_Ves_Worker	Float	Удельный вес рабочих в общей численности работников
Chas_all_work	LongInt	Отработанно часов всеми рабочими
Sred_god_virobot	Float	Среднегодовая выработка одного работника
Sred_day_virobot	Float	Среднедневная выработка одного работника
Sred_chas_virobot	Float	Среднечасовая выработка одного работника
Rent_prodag	Float	Рентабельность продаж
Udel_ves_prodag	Float	Удельный вес продаж в стоимости произведенной продукции
Rent_person	Float	Рентабельность персонала
Fond_ZarPlat	LongInt	Фонд заработной платы
Proiz_rub_zp	Float	Производство продукции на рубль зарплаты
Viruch_rub_zp	Float	Выручка на рубль зарплаты
Sum_BPrib_rub_zp	Float	Сумма брутто-прибыль на рубль зарплаты
Sum_Prib_rub_zp	Float	Сумма чистой прибыли на рубль зарплаты
Sum_Kprib_rub_zp	Float	Сумма капитализированной прибыли на рубль зарплаты

3.2 Тестовый набор данных

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

Тест проводился в двух этапах:

1. ввод исходных данных в тестируемую среду;

2. расчет задач и сравнение результатов.

Проведенные тестовые испытания программы как видно из таблиц 4, 5, 6, 11, 12, 13, показали, что ожидаемые результаты совпали с точностью до 0,000001 с полученными при запуске программы. Это позволяет сделать вывод, что разработанный нами программный комплекс успешно прошел тестирование и программа выдает корректные результаты.

Формулы, по которым рассчитываются показатели, и методика решения этих задач приведены в параграфе 2, главы 1, дипломной работы.

Таблица 11

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

Категория персонала	Численность за предыдущий год	Численность по плану	Численность по отчету	Фактически в %
				к плану (заданию)	к предыдущему году
Всего	900	892	872	97,76	96,89
В том числе по основной деятельности	890	882	864	97,96	97,08
из них:
рабочие	757	756	724	95,77	95,64
служащие	133	132	140	106,06	105,26
из них:
руководители	47	46	55	119,57	117,02
специалисты	86	86	85	98,84	98,84
Не основная деятельность	10	10	8	80	80

Таблица 12

Использование трудовых ресурсов предприятия

Показатель	Прошлый год	Отчетный год	Отклонение (+,- )
		план	факт	от прошлого года	от плана
Среднегодовая численность (количество) рабочих (КР)	810	800	827	+17	+27
Отработано за год одним рабочим: дней (Д) часов (Ч)	119 934	120 960	115 897	-4 -37	-5 -63
Средняя продолжительность рабочего дня (П), ч	7,85	8	7,8	-0,05	-0,2
Фонд рабочего времени, тыс. ч	756,66	768	741,82	-14,84	-26,18
В том числе сверхурочно отработанное время.тыс.ч	9,7	__	7,6	-2,1	+7,6

Таблица 13

Выработка продукции на одного рабочего

Показатель	План	Факт	Отклонение от плана
			абсолютное	% к плану
Выпуск товарной продукции в стоимостном выражении, тыс. руб. (BП)	76715	77468	+753	+0,98
Среднесписочная численность рабочих, чел. (Чр)	800	827	+27	+3,375
Удельный вес рабочих (D)	83,1	83,0	-0,1	-0,1
Отработано всеми рабочими часов, тыс. ч (tч)
	768	741,82	-26,18	-3,4
одним рабочим (tчр)	0,96	0,897	-0,063	-6,56
Продолжительность рабочего дня (П)	8	7,8	-0,2	-2,5
Среднегодовая выработка одного рабочего, тыс. руб. (Вр)	38,31	36,14	-2,17	-5,66
Среднечасовая выработка продукции, руб. (Bч)	60,03	62,24	+2,21	+3,70

В результате проведенного тестирования можно сделать следующий вывод: разработанное нами программное обеспечение производит расчёты равнозначно системе MS Excel с точностью до десятитысячной, что позволяет использовать её для расчёта задач данного типа.

3.3 Справочное руководство пользователя

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

Для работы с программой потребуется:

-PC-совместимый компьютер с процессором Pentium II и выше или полностью совместимым, 16 Мб оперативной памяти и более 10 Мб свободного дискового пространства;

-параллельный («принтерный») порт для присоединения электронного ключа (имеется у подавляющего большинства компьютеров);

-операционная система Windows 95/ 98 / ME/ NT 4.0/2000/ XP;

-установленный на компьютер Microsoft Office (для вывода и распечатки результатов и формирования отчетных аналитических документов).

После запуске приложения «Trud.exe», на экране появится главное окно программы «АРМ для анализа и планирования использования трудовых ресурсов на промышленном предприятии», содержащее главное горизонтальное меню (см. рис. 1).

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

- Справочники;

- Анализ и планирование;

- Отчёты;

- Справка;

- Сервис;

- Помощь.

Каждый пункт (кроме последнего) содержит вертикальное меню из нескольких пунктов. Работа с меню организована стандартно - при выборе пункта меню запускается соответствующая форма для ввода или расчетов данных.

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

При выборе пункта меню «Справочники» появляется выпадающий список, состоящий из следующих пунктов:

- разрядные коэффициенты;

- производительность труда;

- движение рабочей силы;

- использование трудовых ресурсов.

При выборе пункта «Разрядные коэффициенты» на экране появляется форма (см. рис. 1) для ввода и редактирования исходных данных по разряду работ и рабочих и тарифных коэффициентов в базу данных программы.

Рис. 1. Форма «разрядные коэффициенты»

Аналогичные действия осуществляются и для остальных подпунктов меню пункта «Справочники».

При выборе пункта меню «Анализ и планирование» появляется выпадающий список, состоящий из следующих пунктов:

- использование трудовых ресурсов;

- обеспеченности предприятия рабочей силой;

- движение рабочей силы;

- производительность труда;

- трудоёмкости продукции;

- фонда заработной платы.

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

Рис. 2. Форма «использование трудовых ресурсов предприятия»

После нажатия на кнопке «Отчёт» на этой форме (см. рис. 2), на экран выводиться отчётная форма с исходными и расчётными показателями (см. рис. 3).

Аналогичные действия осуществляются и для остальных подпунктов меню пункта «Анализ и планирование».

Подменю пункта «Отчёты» состоит из четырёх подпунктов.

Первый пункт «Движение рабочей силы» вызывает на экран монитора форму отчёта (рис. 3) где представлены исходные и расчётные данные по анализа движения трудовых ресурсов предприятия.

Соответствующие действия осуществляются и для остальных подпунктов меню пункта «Отчёты», и соответствующие формы этих подпунктов представлены в приложении 3.

Рис. 3. Форма отчёта «Анализ и планирование использования трудовых ресурсов предприятия»

Пункт меню «Сервис» включает два подпункта: «Калькулятор» и «Excel», основное предназначение которых выполнение вспомогательных операций, т.е. проведения математических расчётов и проверки правильности проведённых расчётов.

Пункт меню «Помощь» включает следующие подпункты:

«Справка», «О программе».

При выборе подпункта меню «Справка» запуститься документ MS Word c справочной информацией по работе с программой.

При выборе пункта меню «Выход» осуществляется выход из приложения.

Заключение

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

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

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

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

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

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

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

– ввод исходной информации для расчёта данных необходимых для проводимого анализа;

– возможность редактирования и обновления данных;

– автоматизация расчётов;

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

– предоставление отчетов;

– вывод данных на экран или на печать при желании пользователя.

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

В программе предусмотрена контекстная помощь, облегчающая пользователю работу с программой. Сам интерфейс программы прост и понятен даже человеку, не имеющему специальной компьютерной подготовки. Разработанное нами в виде стандартного HLP - файла методическое руководство пользователя облегчает освоение программы на начальной стадии использования.

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

-минимальные навыки работы пользователя на ПК благодаря удобству и простоте интерфейса программы;

-небольшой объём занимаемой памяти и соответственно невысокие требования к аппаратной части ПК;

-легкость редактирования данных;

-максимально развернутый, комплексный анализ использования трудовых ресурсов промышленного предприятия;

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

Список использованной литературы

1. Абрамов А.Е. Основы анализа финансовой, хозяйственной и инвестиционной деятельности предприятия в 2-х ч. М.: Экономика и финансы АКДИ, 2004-05.

2. Адамадзиев К.Р. Разработка и автоматизация рабочего места экономистов, Уч. Пособие. - Махачкала: ДГУ, 2005 70 с.

3. Асхабова A.M., Чапаев Н.М., «Информационные технологии в экономике», Уч. Пособие. - Махачкала: «Юпитер», 2003г.

4. Баканов М.И., Шеремет А.Д. Теория экономического анализа. - М.: Финансы и статистика, 2001. - 656с.

5. Балабанов И.Т. Финансовый менеджмент. - М.: Финансы и статистика, 2004.

6. Благодатских В.А., Енгибарян М.А., Ковалевская Е.В. и др. Экономика, разработка и использование программного обеспечения ЭВМ: Учебник -М.: Финансы и статистика, 2006.-288 с.

7. Богатин Ю.В. Экономическая оценка качества и эффективности работы предприятия: М.: изд. стандартов, 2002. - 214с.

8. Бухгалтерский учет в промышленности" Под ред. проф. Новиченко П.П., М, 2003

9. Ветров А.А. Операционный аудит-анализ. - М.: Перспектива, 2004.

10. Гарнаев А.Ю. Excel, VBA, Internet в экономике и финансах. - СПб.: БХВ-Петербург, 2003. - 816 с.: ил.

11. Гофман В.Э., Хомоненко А.Д. Delphi 6. - CПб.: БХВ-Петербург, 2001. - 1152с.: ил.

12. Грибов В.Д., Грузинов В.П. Экономика предприятия: Учебник. Практикум. - 3-е изд., перер. и доп. - М.: Финансы и статистика, 2004. -336 с.

13. Добров В.Н., Крашенинников В.И., "Финансирование и кредитование в промышленности", М, 1999.

14. Донцова Л.В., Никифорова Н.А. Анализ финансовой отчетности: учебник. - 3-е изд., перер. и доп. - М.: Дело и Сервис, 2005. -368 с.

15. Ефимова О.В. Финансовый анализ - М.: Бухгалтерский учет, 1996.

16. Кейлер В.А., Санкт-Петербург, 2000г. «Экономика предприятия»

17. Ковалев В.В. Финансовый анализ. - М.: Финансы и статистика, 2006.

18. Ковалев В.В. Финансовый анализ: Управление капиталом. Выбор инвестиций. Анализ отчетности. - М.: Финансы и статистика, 2005. - 512с.

19. Ковалев В.В., Волкова О.Н. Анализ хозяйственной деятельности предприятия: учеб. - М.: ТК Велби, Изд-во Проспект, 2005. - 424с.

20. Ковалева А. М. Финансы в управлении предприятием. - М.: Финансы и статистика, 2005.

21. Любушин Н.П., Лещева В.Б., Дьякова В.Г. «Анализ финансово - экономической деятельности предприятия», Москва, «Финансы и статистика», 2003г.

22. Макаров Д.В. Экономический и финансовый анализ. Конспект лекций. - Калининград, 2001. - 68с.

23. Макаров Д.В. Экономический и финансовый анализ. Конспект лекций. - Калининград, 2001. - 68с.

24. Моляков Д.С. Финансы предприятий отраслей народного хозяйства.-М.: Финансы и статистика, 2006.

25. Мусина Т.В., Пушенко В.А. Visual FoxPro 7.0. K.:BookStar, 2001г. - 400 с.

26. Основы предпринимательского дела" Под рук. ДЭН профессора Осипова Ю.М., М, 2002.

27. Прыкин Б.В. Экономический анализ предприятия. - М.: ЮНИТИ-ДАНА, 2000. - 360с.

28. Прыкин Б.В. Экономический анализ предприятия. - М.: ЮНИТИ-ДАНА, 2000. - 360с.

29. Раицкий К.А., Москва, 2002 г. «Экономика предприятия»

30. Русак Н.А., Русак В.А. Финансовый анализ субъекта хозяйствования - Минск: Высшая школа, 2006.

31. Савицкая Г.В Анализ хозяйственной деятельности предприятия: 3-е изд. - Мн.: ИП «Экоперспектива», «Новое знание», 2004.

32. Савицкая Г.В. Анализ хозяйственной деятельности предприятия. М.: ИНФРА - М, 2003. - 498с.

33. Самоучитель по бухгалтерскому учету.-М.: ПРИОР, 2001 -160с.

34. Свод кодексов и законов Российской Федерации. - СПб.: ИД «Весь», 2003- 992С.

35. Сергеев И.В. «Экономика предприятия»: «Финансы и статистика» Москва, 2002г.

36. Титоренко Г.А. Автоматизированные информационные технологии в экономике. - М.:ЮНИТИ, 2003.-286 с.

37. Фараонов В.В., Шумаков П.В. Delphi 6 Руководство разработчика баз данных - М.: «Нолидж», 2001.-550с., ил.

38. Финансовый анализ деятельности фирмы. Москва Ист-сервис, 2005.

39. Хеддевик К. Финансово-экономический анализ деятельности предприятий. - М.: Финансы и статистика, 2001.

40. Швандара В.А., Москва, 2003г. «Экономика предприятия»

41. Шеремет А.Д., Сайфулин Р.С. Методика финансового анализа - М.: ИНФРА - М, 1999.

42. Экономика и статистика фирм. Под ред. Ильенковой С.Д., М., 2001.

43. Экономика предприятия” Под ред. проф. В.Я. Горфинкеля, М.,1996.

Приложение 1

Код программы

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {fmMain},

Unit2 in 'Unit2.pas' {fmSprPokazateli},

Unit3 in 'Unit3.pas' {AboutBox},

Unit4 in 'Unit4.pas' {fmInputData},

Unit5 in 'Unit5.pas' {fmAnaliz};

{$R *.res}

begin

Application.Initialize;

Application.Title := 'Временные ряды';

Application.CreateForm(TfmMain, fmMain);

Application.Run;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, sSkinProvider, StdCtrls, sButton, sSkinManager, Menus, Buttons,

ComCtrls, sStatusBar, ToolWin, sToolBar, sLabel, Mask, sMaskEdit,

sCustomComboEdit, sTooledit, sPageControl;

type

sSkinManager1: TsSkinManager;

MainMenu1: TMainMenu;

N1: TMenuItem;

mmSpravka: TMenuItem;

smPokazateli: TMenuItem;

sSkinProvider1: TsSkinProvider;

smHelp: TMenuItem;

smAbout: TMenuItem;

mmData: TMenuItem;

smInputDat: TMenuItem;

smAnaliz: TMenuItem;

N5: TMenuItem;

smQuit: TMenuItem;

sStatusBar1: TsStatusBar;

procedure smQuitClick(Sender: TObject);

procedure smPokazateliClick(Sender: TObject);

procedure smAboutClick(Sender: TObject);

procedure smInputDatClick(Sender: TObject);

procedure smAnalizClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmMain: TfmMain;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TfmMain.smQuitClick(Sender: TObject);

begin

Application.Terminate;

end;

procedure TfmMain.smPokazateliClick(Sender: TObject);

begin

if not Assigned(fmSprPokazateli) then fmSprPokazateli:= TfmSprPokazateli.Create(Self);

fmSprPokazateli.Show

end;

procedure TfmMain.smAboutClick(Sender: TObject);

begin

if not Assigned(AboutBox) then AboutBox:= TAboutBox.Create(Self);

AboutBox.ShowModal;

end;

procedure TfmMain.smInputDatClick(Sender: TObject);

begin

if not Assigned(fmInputData) then fmInputData:= TfmInputData.Create(Self);

fmInputData.Show;

end;

procedure TfmMain.smAnalizClick(Sender: TObject);

begin

if not Assigned(fmAnaliz) then fmAnaliz:= TfmAnaliz.Create(Self);

fmAnaliz.Show;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, sSkinProvider, Grids, DBGrids, sAdapter, sGridAdapter, DB,

DBTables, Buttons, sBitBtn, StdCtrls, sButton, ExtCtrls, sPanel;

type

TfmSprPokazateli = class(TForm)

sSkinProvider1: TsSkinProvider;

sGridAdapter1: TsGridAdapter;

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

sPanel1: TsPanel;

sbAdd: TsButton;

sbEdit: TsButton;

sbDelete: TsButton;

sbSave: TsButton;

sbCancel: TsButton;

procedure sbAddClick(Sender: TObject);

procedure sbSaveClick(Sender: TObject);

procedure sbCancelClick(Sender: TObject);

procedure sbEditClick(Sender: TObject);

procedure sbDeleteClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmSprPokazateli: TfmSprPokazateli;

implementation

{$R *.dfm}

procedure TfmSprPokazateli.sbAddClick(Sender: TObject);

begin

with sbAdd do Visible:= not Visible;

with sbEdit do Visible:= not Visible;

with sbDelete do Visible:= not Visible;

with sbSave do Visible:= not Visible;

with sbCancel do begin

Caption:= 'Отмена';

SetFocus;

end;

DBGrid1.DataSource.DataSet.Append;

end;

procedure TfmSprPokazateli.sbEditClick(Sender: TObject);

begin

with sbAdd do Visible:= not Visible;

with sbEdit do Visible:= not Visible;

with sbDelete do Visible:= not Visible;

with sbSave do Visible:= not Visible;

with sbCancel do begin

Caption:= 'Отмена';

SetFocus;

end;

DBGrid1.DataSource.DataSet.Edit;

end;

procedure TfmSprPokazateli.sbSaveClick(Sender: TObject);

begin

with sbAdd do Visible:= not Visible;

with sbEdit do Visible:= not Visible;

with sbDelete do Visible:= not Visible;

with sbSave do Visible:= not Visible;

sbCancel.Caption:= 'Закрыть';

DBGrid1.DataSource.DataSet.Post;

end;

procedure TfmSprPokazateli.sbCancelClick(Sender: TObject);

begin

if sbCancel.Caption = 'Отмена' then

begin

with sbAdd do Visible:= not Visible;

with sbEdit do Visible:= not Visible;

with sbDelete do Visible:= not Visible;

with sbSave do Visible:= not Visible;

sbCancel.Caption:= 'Закрыть';

DBGrid1.DataSource.DataSet.Cancel;

end

else

Close;

end;

procedure TfmSprPokazateli.sbDeleteClick(Sender: TObject);

begin

DBGrid1.DataSource.DataSet.Delete;

end;

procedure TfmSprPokazateli.FormShow(Sender: TObject);

begin

if not Table1.Active then Table1.Open;

end;

procedure TfmSprPokazateli.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

Table1.Close;

end;

end.

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, sSkinProvider, sSpeedButton, sButton, sPanel, sLabel;

type

TAboutBox = class(TForm)

sSkinProvider1: TsSkinProvider;

sButton1: TsButton;

sPanel1: TsPanel;

sLabelFX1: TsLabelFX;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

sWebLabel1: TsWebLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, sSkinProvider, DB, DBTables, StdCtrls, DBCtrls, sDBComboBox,

ExtCtrls, sPanel, sLabel, sGroupBox, Grids, DBGrids, sAdapter,

sGridAdapter, sComboBox, sDBNavigator, sEdit, sButton;

type

TfmInputData = class(TForm)

sSkinProvider1: TsSkinProvider;

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

sPanel1: TsPanel;

sLabel1: TsLabel;

Query1: TQuery;

DataSource2: TDataSource;

sGridAdapter1: TsGridAdapter;

sComboBox1: TsComboBox;

sPanel2: TsPanel;

sLabel2: TsLabel;

sEdit1: TsEdit;

sLabel3: TsLabel;

sEdit2: TsEdit;

sbEdit: TsButton;

sbAdd: TsButton;

Query2: TQuery;

sbDelete: TsButton;

sbClose: TsButton;

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure sComboBox1Change(Sender: TObject);

procedure sbCloseClick(Sender: TObject);

procedure sEdit1Change(Sender: TObject);

procedure sEdit2Change(Sender: TObject);

procedure sbEditClick(Sender: TObject);

procedure sbAddClick(Sender: TObject);

procedure sbDeleteClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmInputData: TfmInputData;

implementation

{$R *.dfm}

var

N_pok: Longint;

blEdit: Boolean;

procedure TfmInputData.FormShow(Sender: TObject);

begin

if not Table1.Active then Table1.Open;

sComboBox1.SetFocus;

end;

procedure TfmInputData.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

Table1.Close;

end;

procedure TfmInputData.FormCreate(Sender: TObject);

begin

blEdit:= False;

with Table1 do begin

Open;

First;

while not Eof do begin

sComboBox1.Items.Append(Fields[1].AsString);

Next;

end;

Close;

sComboBox1.ItemIndex:= 0;

sComboBox1Change(Self);

end;

end;

procedure TfmInputData.sComboBox1Change(Sender: TObject);

begin

with Query2 do begin

if Active then Close;

SQL.Clear;

SQL.Text:='Select id_pok From Pokazateli.db Where Name_Pok=:NPar1';

ParamByName('NPar1').AsString:= sComboBox1.Text;

Open;

N_pok:= Fields[0].AsInteger;

Close;

end;

with Query1 do begin

if Active then Close;

ParamByName('NPar1').AsInteger:= N_pok;

Open;

end

end;

procedure TfmInputData.sbCloseClick(Sender: TObject);

begin

if sbClose.Caption = 'Отмена' then

begin

sEdit1.Clear;

sEdit2.Clear;

sbClose.Caption:= 'Закрыть';

with sbAdd do Enabled:= False;

with sbEdit do begin

if Caption = 'Сохранить' then Caption:= 'Изменить';

Enabled:= True;

end;

with sbDelete do Enabled:= not Enabled;

blEdit:= False;

end

else

Close;

end;

procedure TfmInputData.sEdit1Change(Sender: TObject);

begin

sbAdd.Enabled:= not blEdit;

sbEdit.Enabled:= blEdit;

sbDelete.Enabled:= False;

sbClose.Caption:= 'Отмена';

end;

procedure TfmInputData.sEdit2Change(Sender: TObject);

begin

sbAdd.Enabled:= not blEdit;

sbEdit.Enabled:= blEdit;

sbDelete.Enabled:= False;

sbClose.Caption:= 'Отмена';

end;

procedure TfmInputData.sbEditClick(Sender: TObject);

begin

sEdit1Change(Self);

with sbEdit do begin

if Caption = 'Изменить' then

begin

blEdit:= True;

Caption:= 'Сохранить';

sEdit1.Text:= Query1.Fields[0].AsString;

sEdit2.Text:= Query1.Fields[2].AsString;

sEdit1.SetFocus;

with Query2 do begin

SQL.Clear;

SQL.Text:= 'UPDATE Data.db SET Yaer=:P1, Data=:P2 Where (Yaer=:P3) and (Data=:P4)';

ParamByName('P3').AsInteger:= StrToInt(sEdit1.Text);

ParamByName('P4').AsFloat:= StrToFloat(sEdit2.Text);

end;

end

else begin

with Query2 do begin

ParamByName('P1').AsInteger:= StrToInt(sEdit1.Text);

ParamByName('P2').AsFloat:= StrToFloat(sEdit2.Text);

ExecSQL;

end;

sEdit1.Clear;

sEdit2.Clear;

Caption:= 'Изменить';

sComboBox1Change(Self);

end

end

end;

procedure TfmInputData.sbAddClick(Sender: TObject);

begin

with Query2 do begin

SQL.Clear;

SQL.Text:= 'Insert Into Data.db (Yaer,Id_Pok,Data) Values (:P1,:P2,:P3)';

ParamByName('P1').AsInteger:= StrToInt(sEdit1.Text);

ParamByName('P2').AsInteger:= N_pok;

ParamByName('P3').AsFloat:= StrToFloat(sEdit2.Text);

ExecSQL;

end;

sEdit1.Clear;

sEdit2.Clear;

sbAdd.Enabled:= False;

sbEdit.Enabled:= True;

sbDelete.Enabled:= True;

sbClose.Caption:= 'Закрыть';

sComboBox1Change(Self);

end;

procedure TfmInputData.sbDeleteClick(Sender: TObject);

begin

with Query2 do begin

SQL.Clear;

SQL.Text:= 'Delete From Data.db Where (Yaer=:P1) And (Id_Pok=:P2) And (Data=:P3)';

ParamByName('P1').AsInteger:= Query1.Fields[0].AsInteger;

ParamByName('P2').AsInteger:= N_pok;

ParamByName('P3').AsInteger:= Query1.Fields[2].AsInteger;

ExecSQL;

end;

sComboBox1Change(Self);

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, sAdapter, sGridAdapter, StdCtrls, sComboBox,

sLabel, ExtCtrls, sPanel, sSkinProvider, DBTables, DB, sButton, Buttons,

sSpeedButton, sBevel, sGroupBox, sCheckBox, sRadioButton;

type

TfmAnaliz = class(TForm)

sSkinProvider1: TsSkinProvider;

sPanel1: TsPanel;

sPanel2: TsPanel;

sPanel3: TsPanel;

sLabel1: TsLabel;

sComboBox1: TsComboBox;

sGridAdapter1: TsGridAdapter;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Table1: TTable;

Query1: TQuery;

DataSource1: TDataSource;

Query2: TQuery;

DataSource2: TDataSource;

sSpeedButton1: TsSpeedButton;

ssLeftRigth: TsSpeedButton;

ssRigthLeft: TsSpeedButton;

sSpeedButton4: TsSpeedButton;

sSpeedButton5: TsSpeedButton;

ssbClose: TsSpeedButton;

sBevel1: TsBevel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sBevel2: TsBevel;

sSpeedButton2: TsSpeedButton;

sSpeedButton3: TsSpeedButton;

sSpeedButton6: TsSpeedButton;

sGroupBox1: TsGroupBox;

sCheckBox1: TsCheckBox;

sCheckBox2: TsCheckBox;

sCheckBox3: TsCheckBox;

sCheckBox4: TsCheckBox;

sCheckBox5: TsCheckBox;

sCheckBox6: TsCheckBox;

sGroupBox2: TsGroupBox;

sRadioButton1: TsRadioButton;

sRadioButton2: TsRadioButton;

sRadioButton3: TsRadioButton;

procedure FormCreate(Sender: TObject);

procedure sComboBox1Change(Sender: TObject);

procedure ssbCloseClick(Sender: TObject);

procedure ssLeftRigthClick(Sender: TObject);

procedure ssRigthLeftClick(Sender: TObject);

procedure sSpeedButton1Click(Sender: TObject);

procedure sSpeedButton4Click(Sender: TObject);

procedure sSpeedButton5Click(Sender: TObject);

procedure sSpeedButton6Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmAnaliz: TfmAnaliz;

implementation

{$R *.dfm}

procedure TfmAnaliz.FormCreate(Sender: TObject);

begin

with Table1 do begin

Open;

First;

while not Eof do begin

sComboBox1.Items.Append(Fields[1].AsString);

Next;

end;

Close;

sComboBox1.ItemIndex:= 0;

sComboBox1Change(Self);

end;

end;

procedure TfmAnaliz.sComboBox1Change(Sender: TObject);

var

N_pok: Longint;

begin

with Query1 do begin

if Active then Close;

SQL.Clear;

SQL.Text:='Select id_pok From Pokazateli.db Where Name_Pok=:NPar1';

ParamByName('NPar1').AsString:= sComboBox1.Text;

Open;

N_pok:= Fields[0].AsInteger;

Close;

end;

with Query1 do begin

SQL.Clear;

SQL.Text:='Delete From AnalizA.db';

ExecSQL;

SQL.Clear;

SQL.Text:='Delete From AnalizB.db';

ExecSQL;

SQL.Clear;

SQL.Text:= 'Insert Into AnalizA.db (Yaer,Id_Pok,Data) ' +

'Select * from Data.DB Where Id_Pok=:P1';

ParamByName('P1').AsInteger:= N_pok;

ExecSQL;

if Active then Close;

SQL.Clear;

SQL.Text:= 'Select * From AnalizA.db';

Open;

end;

with Query2 do begin

Close;

Open;

end

end;

procedure TfmAnaliz.ssbCloseClick(Sender: TObject);

begin

Close;

end;

procedure TfmAnaliz.ssLeftRigthClick(Sender: TObject);

begin

with Query2 do begin

if Active then Close;

SQL.Clear;

SQL.Text:='Insert Into AnalizB.db Select * From AnalizA.db';

ExecSQL;

SQL.Clear;

SQL.Text:='Delete From AnalizA.db';

ExecSQL;

SQL.Clear;

SQL.Text:='Select * From AnalizB.db';

Open;

end;

with Query1 do begin

Close;

Open;

end

end;

procedure TfmAnaliz.ssRigthLeftClick(Sender: TObject);

begin

with Query1 do begin

if Active then Close;

SQL.Clear;

SQL.Text:='Insert Into AnalizA.db Select * From AnalizB.db';

ExecSQL;

SQL.Clear;

SQL.Text:='Delete From AnalizB.db';

ExecSQL;

SQL.Clear;

SQL.Text:='Select * From AnalizA.db';

Open;

end;

with Query2 do begin

Close;

Open;

end

end;

procedure TfmAnaliz.sSpeedButton1Click(Sender: TObject);

var TmpInt: Longint;

begin

TmpInt:= Query1.Fields[0].AsInteger;

with Query2 do begin

if Active then Close;

SQL.Clear;

SQL.Text:='Insert Into AnalizB.db Select * From AnalizA.db Where Yaer=:P1';

ParamByName('P1').AsInteger:= TmpInt;

ExecSQL;

SQL.Clear;

SQL.Text:='Delete From AnalizA.db Where Yaer=:P1';

ParamByName('P1').AsInteger:= TmpInt;

ExecSQL;

SQL.Clear;

SQL.Text:='Select * From AnalizB.db';

Open;

end;

with Query1 do begin

Close;

Open;

end

end;

procedure TfmAnaliz.sSpeedButton4Click(Sender: TObject);

var TmpInt: Longint;

begin

TmpInt:= Query2.Fields[0].AsInteger;

with Query1 do begin

if Active then Close;

SQL.Clear;

SQL.Text:='Insert Into AnalizA.db Select * From AnalizB.db Where Yaer=:P1';

ParamByName('P1').AsInteger:= TmpInt;

ExecSQL;

SQL.Clear;

SQL.Text:='Delete From AnalizB.db Where Yaer=:P1';

ParamByName('P1').AsInteger:= TmpInt;

ExecSQL;

SQL.Clear;

SQL.Text:='Select * From AnalizA.db';

Open;

end;

with Query2 do begin

Close;

Open;

end

end;

procedure TfmAnaliz.sSpeedButton5Click(Sender: TObject);

begin

sPanel1.Visible:= False;

sPanel2.Visible:= True;

fmAnaliz.Caption:= 'Шаг 2. Настройка отчета.'

end;

procedure TfmAnaliz.sSpeedButton6Click(Sender: TObject);

begin

sPanel1.Visible:= True;

sPanel2.Visible:= False;

fmAnaliz.Caption:= 'Шаг 1. Отбор данных для анализа.'

end;

procedure TfmAnaliz.FormShow(Sender: TObject);

begin

sPanel1.Visible:= True;

sPanel2.Visible:= False;

end;

end.

Приложение 2

Блок-схема программы

Размещено на Allbest.ru