Проектирование автоматизированной системы принятия управленческих решений

В ООП описания объектов называются классами (class). Классы объектов определяются в секции type глобального блока. Описание класса начинается с ключевого слова class и заканчивается ключевым словом end. Основой объектно-ориентированного программирования являются сами объекты. Каждый объект обладает характеристиками (свойствами, атрибутами) и моделью поведения (методами, реакцией не события).

Как и в большинстве других современных языков ООП (включая Java и C #), класс RAD Studio XE Delphi не выделяет память для объекта, а является только указателем или ссылкой на объект в памяти. Прежде чем использовать объект, необходимо объявить его переменной.

var

Obj1, Obj2: TMyClass;

begin

// создаем новый объект

Obj1 := TMyClass.Create;

// присвоить в существующий объект

Obj2 := ExistingObject;

Метод Create вызовает конструктор по умолчанию для любого класса, если класс не переопределяет его (как описано ниже). Чтобы объявить новый тип данных класса в RAD Studio XE Delphi, используйте следующий синтаксис:

type

TDate = class

Month, Day, Year: Integer;

procedure SetValue (m, d, y: Integer);

function LeapYear: Boolean;

end;

В RAD Studio XE Delphi принято использовать стандартный синтаксис для имени класса, напримерTMyClass (T обозначает тип), чтобы код был более понятным для других разработчиков.

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

В этом случае используется префикс имени каждого метода:

procedureTDate.SetValues (m, d, y: Integer);

begin

Month := m;

Day := d;

Year := y;

end;

function TDate.LeapYear: Boolean;

begin

// call IsLeapYear in SysUtils123.pas

Result :=IsLeapYear1 (Year);

end;

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

Кроме полей и методов, существуют собственно свойства (properties), являющиеся чем-то средним: они могут использовать, скажем, поле, для хранения значения, и функцию для его изменения. Фактически, свойства реализуют механизм доступа к полям. В таком случае поля, как правила, делают защищенными (private), а свойства - общедоступными (published).

3.2 Механизмы доступа к базе данных

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

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

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

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

Механизм внутреннего представления данных является ядром приложения баз данных. Он обеспечивает хранение полученных данных в приложении и предоставляет их по запросу других частей приложения.

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

Источник данных представляет собой хранилище данных (саму базу данных) и СУБД, управляющую данными, обеспечивающую целостность и непротиворечивость данных.

Для обеспечения связи набора данных с визуальными компонентами отображения данных используется специальный компонент TDataSource. Его роль заключается в управлении потоками данных между набором данных и связанными с ним компонентами отображения данных. Этот компонент обеспечивает передачу данных в визуальные компоненты и возврат результатов редактирования в набор данных, отвечает за изменение состояния визуальных компонентов при изменении состояния набора данных, передает сигналы управления от пользователя (визуальных компонентов) в набор данных. Компонент TDataSource расположен на странице Data Access Палитры компонентов.

Таким образом, базовый механизм доступа к данным создается триадой компонентов:

1. компоненты, инкапсулирующие набор данных (потомки класса TDataSet);

2. компоненты TDataSource;

3. визуальные компоненты отображения данных.

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

Еще одна функция компонента TDataSource заключается в синхронизации поведения компонентов отображения данных с состоянием набора данных. Например, если набор данных не активен, то компонент TDataSource обеспечивает удаление данных из компонентов отображения данных и их перевод в неактивное состояние. Или, если набор данных работает в режиме "только для чтения", то компонент TDataSource обязан передать в компоненты отображения данных запрещение на изменение данных.

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

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

Рассмотрим схему взаимодействия этих компонентов в приложении баз данных (рисунок 8).

Рисунок 8 - Механизм доступа к данным приложения баз данных

Пользователь при помощи компонентов отображения данных может просматривать и редактировать данные. Измененные значения сразу же передаются из элемента управления в набор данных при помощи компонента TDataSource [17]. Затем изменения могут быть переданы в базу данных или отменены.

Список компонентов, с описанием которые применялись для созданий системы «Кадры»:

EhLib библиотека классов которая увеличивает возможности оформления и визуализацию данных, так же EhLib содержит компоненты и классы для Borland RAD Studio XE Delphi, CodeGear RAD Studio XE Delphi и C ++ Builder, CodeGear RAD Studio, Embarcadero RAD Studio, предназначенные для увеличения емкости клиентской части приложения базы данных в рамках взаимодействия с пользователем приложений. Компонент DBGridEh (Рисунок 9).

Локальный SQL работает с любым источником данных, который может быть загружен в TDataSet (например, CSV-файлы или запросы из нескольких баз данных), чтобы создать виртуальную базу данных, которая может работать с SQL.

Рисунок 9 - компонент DBGridEh

Компонент btncomps - кнопки для создания более современного приложения. В системе кадры стандартные кнопки были полностью заменены на кнопки btncomps. TreeComboBox - это комбинированное поле с TreeView, встроенным в раскрывающееся окно. Таким образом, вместо поиска и выбора нужного элемента списка из огромного списка раскрывающегося окна пользователь сможет увидеть древовидную структуру, выбрать узлы дерева, развернуть и свернуть их. Как и в стандартном TreeView, TreeComboBox может отображать изображения для каждого узла дерева, отображать изображение в редакторе, принимать выбор на одном или двойном щелчке, содержит метку, прикрепленную к элементу управления, настраиваемое изображение для кнопки + множество других функций, результат комбинации ComboBox и TreeView (Рисунок 10).

Рисунок 10 - Компонент TreeComboBox

Пакет RAD Studio XE Delphi7 компонентов GlobusExtensionLibrary составляет из более чем 40ти бесплатных, визуальный и невизуальных RAD Studio XE Delphi7 и С++ Builder7 компонентов.

Дополнительные возможности, которые были использованы из библиотеки классов Ehlib при разработке системы «Кадры»:

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

- специальные заголовки, которые могут соответствовать нескольким / всем столбцам.

- нижний колонтитул, который может отображать значения суммы / счета / другого поля.

- автоматическое изменение размера столбца для установки ширины сетки равной ширине клиента.

- возможность изменения высоты и высоты заголовка.

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

- название может действовать как кнопка и, необязательно, показывать маркер сортировки.

- автоматическая сортировка.

- возможность усечения длинного текста с многоточием.

- в списке поиска можно указать несколько полей.

- инкрементный поиск в полях поиска.

- замороженные колонны.

- поддержка выбора DateTime для TDateField и TDateTimeField.

- позволяет показывать растровые изображения из TImageList в зависимости от значения поля.

- позволяет скрывать и отслеживать горизонтальные или вертикальные полосы прокрутки.

- позволяет скрыть столбцы.

- позволяет отображать 3D-фрейм для замороженных, нижних колонтитулов и строк данных.

- позволяет рисовать поля memo.

- многострочный редактор inplace.

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

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

- имеет процедуры для сохранения и восстановления макета (видимые столбцы, порядок столбцов, ширина столбцов, сортировщики, высота строки) в / из реестра или ini-файла.

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

- позволяет экспортировать данные в текстовые, Csv, HTML, RTF, XLS и внутренние форматы.

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

- может сортировать данные в разных наборах данных.

- может фильтровать данные в разных наборах данных.

- когда DBGridEh подключен к DataSet типа TMemTable, он позволяет:

- для просмотра всех данных без перемещения активной записи.

- отобразить древовидную структуру записей TMemTable.

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

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

3.3 Функциональность системы

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

- взаимосвязанность всех работ;

- последовательность выполнения работ, определение деятельности работ и обеспечение их выполнения в установленные сроки;

- определение общего объема работ и необходимых для его выполнения трудовых, материальных и денежных ресурсов;

- достижение наилучшего использования ресурсов.

Анализ структуры алгоритма показал, что система обработки и управления компьютерной информацией в сочетании с разными алгоритмами переходит в одну упорядоченную последовательность (рисунок 12). Этот метод объединяет отдельные цепные алгоритмы в один программный модуль (рисунок 11).



Рисунок 11 - Основной программный модуль

Из этой ситуации основаны требования к программному обеспечению [18]:

- модульная (на данный момент программный модуль представляет собой программную программу);

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

- уникальность программного модуля;

- собранность программного обеспечения;

- полные возможности ПК: окно, цвет, графика, таблицы;

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

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



Рисунок 12 - Схема работы системы

На клиентском компьютере устанавливается приложение «Kadrs.exe» с файлом настроек приложения где хранится строка подключения к основному серверу Базы Данных и Файловому серверу базы данных, где хранится прикрепленные файлы приказов, отчётов, файл шаблонов.

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

Функциональные показатели:

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

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

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

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

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

Рисунок 13 - Окно редактирования информации

Кроме того, необходимо учитывать типы информационных запросов, которые предоставляет система. Использованы графические методы анализа и подачи информации(рисунки 14, 15).

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

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



Рисунок 14 - Анализ исполнения задач

Рисунок 15 - Графический анализ информации

Задача персонала - служить системе.

Пользователь использует систему для удовлетворения своих информационных потребностей.

Интерфейс представляет собой набор пользовательских правил и методов взаимодействия с системой. В общем виде интерфейс устанавливает принципы ввода данных и передачи результатов работы пользователям. Большинство современных информационных систем используют концепцию графического интерфейса окна [18].

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

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

- выбор глобальных измерений системы;

- определение структуры организации;

- определение структуры ключевых данных;

- определение списка реализованных функций и процессов, которые их предоставляют;

- описание системных интерфейсов;

- описание и разработка отчетности;

- классификация пользователей системы для обеспечения доступа к данным.

Основные особенности программ [19]:

- алгоритмическая сложность;

- функции информации и обработки;

- количество файлов, используемых программой;

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

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

Основные функции программного приложения:

1. автоматизация учета кадрового состава;

2. анализа кадрового состава;

3. автоматизация кадрового делопроизводства;

4. планирование потребностей в персонале;

5. управление аттестациями работников;

6. планирование занятости персонала;

7. Анализ исполнения обязанностей.

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

3.4 Техничсекая спецификация программы

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

Для работы с информационной системой компьютер пользователя должен быть оснащен ОС Microsoft Windows 7 и выше.

Требования к техническому обеспечению системы

Для нормального функционирования ИС компьютер конечного пользователя должен удовлетворять техническим требованиям, предъявляемым к аппаратному обеспечению,

а именно: - процессор: Intel Celeron Dual-Core 2000Mhz;

- оперативная память: не менее 1024 Мб;

- жесткий диск: не менее 160 Гб;

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

- совместимость с другими программами;

- совместимость с компьютером;

- быстрый доступ к техническим ресурсам;

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

- взаимозаменяемость является параллельным приложением в нескольких процессах.

Техническое задание включает следующие разделы:

- введение;

- обоснование необходимости разработки программного обеспечения;

- программная деятельность;

- требования к программному обеспечению.

Для модификации программы в среде Rad Studio Delphi рекомендуется скопировать файл базы данных «mydb.mdb» в папку, в которой размещаются рабочие файлы проекта. Дальше необходимо создать формы для размещения визуальных компонентов и программировать компонеты для реализации задач проекта.

Заключение

Магистерская работа посвящена исследованию темы « ». Работа состоит из теоретического исследования, проектной части и программной реализации.

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

В теоретической части работы были проанализированы характеристики современных систем управления персоналом.

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

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

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

Для программной реализации системы управления персоналом выбрана интегрированная среда Rad Studio Delphi в связке с СУБД Microsoft SQL Server.

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

- автоматизация учета кадрового состава;

- анализа кадрового состава;

- автоматизация кадрового делопроизводства;

- планирование потребностей в персонале;

- управление аттестациями работников;

- планирование занятости персонала;

- анализ исполнения обязанностей.

Разработанная и предложенная информационная система управления учетом персоналом имеет ряд достоинств, что оправдывает ее реализацию и внедрение.

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

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

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

1. Википедия. Свободная энциклопедия. [Электронный ресурс]. - https:// ru.wikipedia.org/wiki/ Автоматизация управления персоналом (15.03.2018 г.)

2. Lucy Adams HR Disrupted: It's time for something different, 2017 г.

3. Linda Holbeche Aligning Human Resources and Business Strategy, 2009 г.

4. Zorlu Senyucel Managing the Human Resource in the 21st Century, 2009

5. Аппак М.А., "Автоматизированные рабочие места на основе персональных ЭВМ" - М., "Инфра-М", 2011.-236 с.

6. Алексей Цыганов Учет кадров и кадровая документация, 2009, 160 страниц.

7. Малыхина М.П. Базы данных: основы, проектирование, использование.- СПб.: БХВ-Петербург, 2004.-512 с.

8. Дейт К. Введение в системы баз данных/Пер. с англ. М.:Наука, 2005. 463 с.

9. Аббакумов, И.С. Информационные технологии управления. Компьютерный практикум [Текст]: учебное пособие. / И.С. Аббакумов, Л.Г. Безаева, С.А. Домрачев - Москва: РАГС, 2011.

10. Винокуров, М.А. Автоматизация кадрового учета [Текст] / М.А. Винокуров, и др. - Москва: ИНФРА-М, 2011. - 222с.

11. Титоренко, Г.А. Автоматизированные информационные технологии в экономике [Текст]: учебник / под ред. проф. Г.А. Титоренко. -- Москва: ЮНИТИ, 2010.

12. Андреева, В.И. Делопроизводство [Текст]: / практическое пособие. - Москва: ЗАО «Бизнес-школа «Интел-Синтез», 2010. - 192с

13. Архангельский А. Delphi 2006. Справочное пособие: Язык Delphi, классы, функции Win32 и .NET. М.:Бином, 2015 г. 1152 с.

14. Бунаков П., Лопатин А. Практикум по решению задач на ЭВМ в среде Delphi. Учебное пособие. М.:Инфра-м, 2017 г. 304 с.

15. Вернон В. Реализация методов предметно-ориентированного проектирования. М.:Диалектика, 2015 г. 688 с.

16. Джордж К. Введение в системы баз данных. М.:Вильямс , 2017 г. 1328 с

17. Культин Н. Б. К90 Основы программирования в RAD Studio XE Delphi XE. -- СПб.: БХВ-Петербург, 2011. -- 416 с

18. RAD Studio XE Delphi: Руководство разработчика / Под ред. Тейксейра К., Стив М., Пачеко Н., Ксавье М. - СПб.: Издательский дом «Вильямс», 1999.-912 с.

19. Бен Ган. Microsoft SQL Server 2012. Основы T-SQL

20. Гагарина, Л.Г. Разработка и эксплуатация автоматизированных информационных систем [Текст]: учеб. пособие / Л.Г. Гагарина, Д.В. Киселев, Е.Л. Федотова; под ред. проф. Л.Г. Гагариной. - Москва: ИД «ФОРУМ»: ИНФРА-М, 2009. - 384с.

21. Гвоздева, В.А. Основы построения автоматизированных информационных систем [Текст]: учебник / В.А. Гвоздева, И.Ю. Лаврентьева. - Москва: ИД «ФОРУМ»: ИНФРА-М, 2007. - 320с.

22. Годин, В.В. Информационное обеспечение управленческой деятельности [Текст] / В.В. Годин, И.К. Корнеев. - Москва: изд-во «Высшая школа», 2003 г.

23. Голицына, О.Л. Базы данных [Текст]: учебное пособие / О.Л. Голицына, Н.В. Максимов, И.И. Попов. - Москва: ФОРУМ: ИНФРА-М, - 2004. - 610 с.

24. Гордиенко, Ю.Ф. Управление персоналом [Текст] / Ю.Ф. Гордиенко, Д.В. Обухов, С.И. Самыгин. - Ростов н/Д: Феникс, 2014. - 352с.

25. Липаев, В.В. Системное проектирование сложных программных средств для информационных систем [Текст] / В.В. Липаев. - Москва: Синтег, 2009.

26. Фленов М.Е. Библия Delphi - 3-е изд., перераб. и доп. - СПб.: БХВ-Петербург, 2011. - 533 с

27. Осипов Д.Л. Базы данных и Delphi.: Издательская группа BHV, 2011. - 200 с.

28. Роберт Лафоре. Объектно-ориентированное программирование в С++ - ПИТЕР, 2010 - 922.

29. Тимкин А. В. Основы пожарной безопасности: учебное пособие. Директ-Медиа, 2015 - 267 с.

30. А. П. Алешин. Техническое обеспечение безопасности бизнеса. Дашков и К, 2016 г - 160 с.

31. Рыжова В.А. Проектирование и исследование компдексных систем безопасности. - СПб: НИУ ИТМО, 2012. - 157 с.

Приложение А - Листинг приложения

procedure TfrmMain.Svodka_Sotr_Show();

vari: integer;

begin

frmSvodka_Sotr := TfrmSvodka_Sotr.Create(nil);

try

for i:=0 to frmSvodka_Sotr.DBGridEh1.Columns.Count-1 do

frmSvodka_Sotr.DBGridEh1.Columns.Items[i].Title.Caption:=frmSvodka_Sotr.DBGridEh1.Columns.Items[i].Title.Caption+'|'+inttostr(i+1);

for i:=0 to frmSvodka_Sotr.DBGridEh2.Columns.Count-1 do

frmSvodka_Sotr.DBGridEh2.Columns.Items[i].Title.Caption:=frmSvodka_Sotr.DBGridEh2.Columns.Items[i].Title.Caption+'|'+inttostr(i+1);

DM.tbSvodka.Close;

DM.tbSvodka.SQL.Clear;

DM.tbSvodka.SQL.Add('Select * From tbSotrudnik where flag<>3 and flagstate=2');

DM.tbSvodka.Open;

frmSvodka_Sotr.tbInfoObr.close;

frmSvodka_Sotr.tbInfoObr.Open;

frmFunc_Proc.UpdateAllBase;

frmFunc_Proc.Combo(DM.ADOQ_temp,frmSvodka_Sotr.ComboBox2,'dbo.tbNational','NameNational');

frmFunc_Proc.Combo(DM.ADOQ_temp,frmSvodka_Sotr.ComboBox1,'dbo.tbVidSemPolozh','NameVidSemPolozh');

frmFunc_Proc.Combo(DM.ADOQ_temp,frmSvodka_Sotr.ComboBox7,'dbo.tbVUZ','NameVUZ');

frmFunc_Proc.Combo(DM.ADOQ_temp,frmSvodka_Sotr.ComboBox4,'dbo.tbVidObr','NameVidObr');

frmFunc_Proc.Combo(DM.ADOQ_temp,frmSvodka_Sotr.ComboBox5,'dbo.tbKvalif','NameKvalif');

frmFunc_Proc.Combo(DM.ADOQ_temp,frmSvodka_Sotr.ComboBox6,'dbo.tbSpec','NameSpec');

frmSvodka_Sotr.DateEdit2.Date := now;

frmSvodka_Sotr.ShowModal;

finally

FreeAndNil(frmSvodka_Sotr);

end;

end;

procedure TfrmMain.Button1Click(Sender: TObject);

var

Node0,Node1,Node2: TTreeNode;

s: String[255];

du : integer;

begin

clr := true;

TreeView1.Items.Clear;

TreeView1.Items.BeginUpdate; //начало изменений

with DM do

begin

tbUprav.Close;

tbUprav.SQL.Clear;

tbUprav.SQL.Add('Select * From tbUprav where flag<>3 order by sort');

tbUprav.Open;

tbUprav.First;

Node0 := TreeView1.Items.AddFirst(nil,frmFunc_Proc.SimpleTrim(DM.tbOrg.FieldValues['ShortNameOrg']));

while not tbUprav.Eof do

begin

IDFld:=tbUprav.FieldByName('ID').AsInteger;

Node1:=TreeView1.Items.AddChild(Node0,frmFunc_Proc.SimpleTrim(tbUprav.FieldByName('NameUprav').AsString));

//Node4:=TreeView1.Items.AddChild(Node0,frmFunc_Proc.SimpleTrim(tbUprav.FieldByName('NameUprav').AsString));

tbOtdel.Close;

tbOtdel.SQL.Clear;

tbOtdel.SQL.Add('Select * from dbo.tbOtdel where (flag<>3) and UpravID = '+IntToStr(IDFld)+' order by sort');

tbOtdel.Open;

tbOtdel.First;

du := 0;

if tbOtdel.RecordCount > 0 then

begin

while not tbOtdel.Eof do

begin

Node2 := TreeView1.Items.AddChild(Node1,frmFunc_Proc.SimpleTrim(

tbOtdel.FieldByName('NameOtdel').AsString));

tbDolzhnosts.Close;

tbDolzhnosts.SQL.Clear;

tbDolzhnosts.SQL.Add('select * from dbo.tbDolzhnosts where (flag<>3) and (UpravID = '+IntToStr(IDFld)+')');

tbDolzhnosts.SQL.Add('and (OtdelID in ('+IntToStr(tbOtdel.FieldValues['ID'])+',0)) order by ID desc '); //ID sort

tbDolzhnosts.Open;

tbDolzhnosts.First;

iftbDolzhnosts.RecordCount> 0 then

begin

while not tbDolzhnosts.Eof do

begin

s := frmFunc_Proc.NameByID(ADOQ_temp,'dbo.tbDolzhnost',tbDolzhnosts.FieldValues['DolzhnostID']);

kol_ed := tbDolzhnosts.FieldValues['KolShtatEd'];

s := s + ' (Штатных ед.: '+IntToStr(kol_ed)+')';

if str <> s then //исключение дубликатов

if (tbDolzhnosts['otdelid'] = 0) and (du<frmFunc_Proc.SHRPaint(tbDolzhnosts['upravid'])) then

begin//esli odein raz to hvatit

if du = 0 then

Node:=TreeView1.Items.AddChildFirst(Node1,frmFunc_Proc.SimpleTrim(s))

else

Node := TreeView1.Items.AddChildFirst(Node1,frmFunc_Proc.SimpleTrim(s));

inc(du,1);

end;

if (tbDolzhnosts['otdelid'] <> 0) then

Node := TreeView1.Items.AddChildFirst(Node2,frmFunc_Proc.SimpleTrim(s));

str := s; //***исключение дубликатов

tbDolzhnosts.Next;

end;

end

else

begin

tbDolzhnosts.Close;

tbDolzhnosts.SQL.Clear;

tbDolzhnosts.SQL.Add('select * from dbo.tbDolzhnosts where (flag<>3) and (UpravID = '

+IntToStr(IDFld)+') order by ID');

tbDolzhnosts.Open; tbDolzhnosts.First;

if tbDolzhnosts.RecordCount > 0 then

begin

while not tbDolzhnosts.Eof do

begin

s := '*'+frmFunc_Proc.NameByID(ADOQ_temp,'dbo.tbDolzhnost',tbDolzhnosts.FieldValues['DolzhnostID']);

if str <> s then //исключение дубликатов

Node := TreeView1.Items.AddChild(Node1,frmFunc_Proc.SimpleTrim(s));

str := s;

tbDolzhnosts.Next;

end;

end;

end;

tbOtdel.Next;

end;

end

else

begin

tbDolzhnosts.Close;

tbDolzhnosts.SQL.Clear;

tbDolzhnosts.SQL.Add('select * from dbo.tbDolzhnosts where (flag<>3) and (UpravID = '

+IntToStr(IDFld)+') order by ID');

tbDolzhnosts.Open;

tbDolzhnosts.First;

if tbDolzhnosts.RecordCount > 0 then

begin

while not tbDolzhnosts.Eof do

begin

s := frmFunc_Proc.NameByID(ADOQ_temp,'dbo.tbDolzhnost',tbDolzhnosts.FieldValues['DolzhnostID']);

kol_ed := tbDolzhnosts.FieldValues['KolShtatEd'];

s := s + ' (Штатных ед.: '+IntToStr(kol_ed)+')';

if str <> s then //исключение дубликатов

Node := TreeView1.Items.AddChild(Node1,frmFunc_Proc.SimpleTrim(s));

str := s;

tbDolzhnosts.Next;

end;

end;

end;

tbUprav.Next;

end;

//раскрытие только одного узла (0)

//TreeView1.TopItem := TreeView1.Items.Item[1];

//TreeView1.Items.Item[0].Expand(True);//раскрытие всех узлов

end;

TreeView1.Items.EndUpdate; //конец изменений

end;

procedure TfrmMain.DBGridEh1DblClick(Sender: TObject);

var

FF_work : string;

begin

FF_work:='flag<>3 and';

if DM.tbSotrudnik.RecordCount > 0 then

begin

SotrID := DM.tbSotrudnik['ID'];//ID текущего сотрудника

frmSotrudnik := TfrmSotrudnik.Create(nil);

try

with DM do

begin

tbSotrudnikObr.Close;

tbSotrudnikObr.SQL.Clear;

tbSotrudnikObr.SQL.Add('Select * from tbSotrudnikObr where '+FF_work);

tbSotrudnikObr.SQL.Add('SotrID = '+IntToStr(dm.tbSotrudnik['id'])+' order by ID');

tbSotrudnikObr.Open;

tbSotrudnikRodstv.Close;

tbSotrudnikRodstv.SQL.Clear;

tbSotrudnikRodstv.SQL.Add('Select * from tbSotrudnikRodstv where '+FF_work);

tbSotrudnikRodstv.SQL.Add('SotrID = '+IntToStr(dm.tbSotrudnik['id'])+' order by ID');

tbSotrudnikRodstv.Open;

tbSotrudnikPredRab.Close;

tbSotrudnikPredRab.SQL.Clear;

tbSotrudnikPredRab.SQL.Add('Select * from tbSotrudnikPredRab where '+FF_work);

tbSotrudnikPredRab.SQL.Add('SotrID = '+IntToStr(dm.tbSotrudnik['id'])+' order by DateBegin');

tbSotrudnikPredRab.Open;

end;

frmSotrudnik.Caption := 'Карточка сотрудника: '+DM.tbSotrudnik['FIO_Long'];

frmSotrudnik.ShowModal;

GroupBox5.Visible := false;

finally

FreeAndNil(frmSotrudnik);

end;

end;

end;

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

...