Наименование поля
Тип
Длина Идентификатор
NAME CHAR 15 Имя
FATHERS
CHAR 20
Отчество
PHOTO BLOB Фотография
DATES
DATE Дата составления
DATEBIRTH DATETIME Дата рождения
FLOOR
CHAR 1
Пол
AGREEMENT CHAR 6
Договор
DATEAGREEMENT DATETIME
Дата договора
FORMATION CHAR 30
Образование
DEGREE CHAR 12 Ученая степень
CLOCKS
SHORT Имеет иную оплачиваемую работу (да/нет)
NATUREWORKS
CHAR 16
Характер работы
TYPEWORKS
CHAR 12 Вид работы
LANGUAGE CHAR 50 Язык
PROFESSION CHAR 30 Профессия
CATEGORY CHAR 6 Категория
CATEGORYSHORT SHORT Разряд
SELECTED CHAR 1
Выбор
PLACEBIRTH CHAR 200 Дата рождения
CITIZENCHIP CHAR 20
Гражданство
WEDDING
CHAR 12
Состояние в браке
SERIALPASPORT CHAR 6
Серия паспорта
NUMBERPASPORT CHAR 8
Номер паспорта
DATEPASPORT DATETIME
Дата выдачи паспорта
ISSUEDPASPORT CHAR 50 Орган выдачи паспорта
RESIDENCE CHAR 150
Прописка
POSTCODE CHAR 8 Почтовый индекс
DATERESICTRATIONS
DATETIME Дата регистрации
ADDRESS
CHAR 150 Фактический адрес
PHONEHOME CHAR 10 Телефон домашний
PHONEWORKS
CHAR 8 Телефон рабочий
PHONEMOBILE CHAR 16 Телефон мобильный
INN CHAR 16 ИНН
PENSION CHAR 16
Номер пенсионного
POLIS
CHAR 12
Номер полиса
INSURANCE CHAR 20
Страховое свидетельство
NOTE CHAR 50
Примечание
2. MotionEmployers (Движение сотрудников)
ID
LONG Идентификатор
EMPLOYERS LONG
Сотрудник
DATEORDER DATETIME
Дата приказа
ORDERNUMBER CHAR 6
Номер приказа
JOBTITLE
LONG
Должность
DATEFROM DATETIME
Дата С
DATETO
DATETIME
Дата По
PEDAGOGS
SHORT Гос/муниципальный стаж
UNCEASING
SHORT Непрерывный стаж
3. JobTitles (Должности)
ID
LONG Идентификатор
SHORTJOBTITLE CHAR 25
Сокращенное наименование
JOBTITLE CHAR 70
Наименование
4. Family (Состав семьи)
ID
LONG Идентификатор
EMPLOYERS LONG
Сотрудник
RELATIVES
CHAR 8 Родственники
FAMILYS
CHAR 60
ФИО
DATEBIRTH
LONG
Год рождения
5. ChangeFIO (Изменение ФИО)
ID
LONG Идентификатор
EMPLOYERS LONG
Сотрудник
DATECHANGE DATETIME Дата изменения
FAMILYNEW
CHAR 60 Новая фамилия
NAMENEW
CHAR 60
Новое имя
FATHERSNEW
CHAR 60
Новое отчество
BASIS
CHAR 30
Основание
NOTE CHAR 50
Примечание
6. BookWorks (Трудовая книжка)
ID
LONG Идентификатор
EMPLOYERS LONG
Сотрудник
ORDERNUMBER CHAR 6
Дата приказа
DATEFROM DATETIME
Дата С
DATETO
DATETIME
Дата По
ENTERPRISES
CHAR 80 Организация
JOBTITLE CHAR 60 Должность
NOTE CHAR 30
Примечание
SPECIAL SHORT Гос/муниципальный стаж
PEDAGOGICAL SHORT Общий стаж
KXMT SHORT Стаж работы в организации
QUALIFICATION CHAR 50 Квалификация
PROFESSION CHAR 50 Специальность
DIPLOMA CHAR 50
Номер диплома
DATEORDER DATE
Дата приказа
7. Qualifications (Аттестация)
ID
LONG Идентификатор
EMPLOYERS LONG
Сотрудник
DATES
DATE
Дата
DECISION CHAR 50
Решение
CATEGORY CHAR 12 Категория
CATEGORYSHORT CHAR 12 Разряд
NUMBERPROTOCOL CHAR 6
Номер протокола
DATEPROTOCOL DATE
Дата протокола
NUMBERORDER CHAR 12
Основание (номер приказа)
DATEORDER DATE
Дата приказа
8. Furloughs (Отпуск)
ID
LONG Идентификатор
EMPLOYERS LONG
Сотрудник
TYPES
CHAR 12
Вид отпуска
DATEWORKSFROM DATE Дата работы С
DATEWORKSTO
DATE
Дата работы По
DATEFROM DATE
Дата отпуска С
DATETO
DATE
Дата отпуска По
COUNTDAYS LONG Кол-во дней
NUMBERORDER CHAR 6
Номер приказа
DATEORDER DATE
Дата приказа
9. Military (Военный учет)
ID
LONG Идентификатор
CATEGORYSPARE CHAR 12 Категория запаса
RANK CHAR 16
Звание
COMPOSITION CHAR 50 Состав
CODEPROFESSION CHAR 8
Код ВУС
FITNESS
CHAR 20 Военная пригодность
KOMISSARIAT CHAR 30 Военкомат
COMANDONE CHAR 12
Команда 1
COMANDTWO
CHAR 50
Команда 2
DATEREMOVING
DATE
Дата снятия с учета
DATES
DATE
Дата
10. Formations(Образование)
ID
LONG Идентификатор
EMPLOYERS LONG
Сотрудник
INSTITUTION CHAR 80
Наименование учебного заведения
PROFESSION CHAR 60 Профессия
QUALIFICATION CHAR 50 Специальность
SERIALDOC
CHAR 6
Серия документа
NUMBERDOC
CHAR 10
Номер документа
YAEREND
LONG
Год окончания
11. IncQualifics(Повышение квалификации)
ID
LONG Идентификатор
EMPLOYERS LONG
Сотрудник
DATEFROM DATE
Дата С
DATETO
DATE
Дата По
TYPEQUALIFIC
CHAR 50 Тип повышения квалификации
INSTITUTION CHAR 80
Образовательное учреждение
DOCUMENTS
CHAR 9 Документ
SERIALDOC
CHAR 6
Серия документа
DATEDOCUM DATE
Дата документа
BASIS
CHAR 16
Основание
DATEORDER DATE
Дата приказа
12. Awards (Награждения)
ID LONG Идентификатор
EMPLOYERS LONG
Сотрудник
AWARD CHAR 10
Наименование награды
DOCUMENTS
CHAR 10
Наименование документа
NUMBERDOCUM CHAR 6
Номер документа
DATEDOCUM DATE
Дата документа
2.3.3 Структурная схема пакета (дерево вызова процедур и программ)
На главной форме приложения расположены кнопки, при нажатии на
которые вызываются основные модули программы. Дерево вызова процедур
изображено на рисунке 1825.
/ \
Модуль программы « поиск м
должности» (строка поиска, отчет
о сотрудниках, замещающ их запр
поп.ть!
V
_________
_
_________
С \
Модуль программы поиск
сотрудника по ФИО с ч^.
возможностью перехода в личную
карточку
Модуль программы внесения
сведений об организации
Модуль формы
«Личная карточка
сотрудника»
(личные данные, ПД,
состав семьи,
образование,
повышение
квалификации,
трудовая
деятельность,
аттестация,
награждение,
воинский учет)
Модуль работы с выбором фото
Модуль программы «сведения об
образовании»
Модуль программы «информация об
аттестации»
Модуль программы «сведения о
повышении квалификации»
Модуль программы «сведения об
отпусках»
Рис.18. Дерево вызова процедур
25 Авторская разработка
2.3.4. Описание программных модулей
В таблице приведено описание основных процедур и функций программы.
Таблица 5
Описание программных модулей
№ Наименование Описание
1
Unit Main
Модуль главного окна программного
обеспечения.
2
Unit SaveLoad
procedure TF SaveLoad. ButtonSaveClick;
procedure TFSaveLoad.F ormKeyDown;
procedure TFSaveLoad.ButtonLoadsClick;
procedure TFSaveLoad.F ormActivate;
Модуль формы для выбора
местоположения архива базы данных.
3
unit Select
procedure TF S elect.ButtonJ obTitleClick;
procedure TFSelect.FormActivate;
procedure TFSelect.FormClose;
procedure TFSelect.FormKeyDown;
procedure TF S elect.ButtonSaveLoadClick;
procedure
TFSelect.ButtonEmployersClick;
procedure TF S elect.ButtonClearClick;
procedure
TFSelect.ButtonEnterPrisesClick
Модуль формы для выбора режима
работы (организация, должности,
сотрудники, резервное копирование,
сброс настроек)
4
unit Properties;
procedure TFProperties.FormActivate;
procedure TFProperties.FormClose;
procedure TFProperties. F ormKeyD own;
procedure
TFProperties.EditPathDataBaseEnter;
procedure
TFProperties.EditPathDataBaseExit;
procedure
TFProperties.EditPathDataBaseKeyDown;
procedure
TFProperties.EditPathArhiveEnter;
procedure
TFProperties.EditPathArhiveKeyDown
Модуль формы для настройки
параметров программы (путь к файлу БД,
каталог архива БД )
5
unit JobTitles;
procedure AddJobTitle;
procedure EditJobTitle;
procedure DeleteJobTitle;
procedure JobTitleFound;
procedure TFJobTitles.FormKeyDown;
procedure TFJobTitles.FormActivate;
Модуль формы по наименованию
должности (ввод, изменение, поиск,
удаление должности из базы данных)
6
unit FoundJobTitle;
procedure InitJobTitles;
procedure
TFF oundJ obTitles.F ormActivate
procedure
TFF oundJ obTitles.EditStringChange
procedure TFF oundJ obTitles.F ormClose
procedure
TFFoundJobTitles.FormKeyDown
Модуль формы по поиску должности
(строка поиска, отчет о сотрудниках,
замещающих интересующую должность)
7
unit FoundEmployers;
procedure InitEmployers;
procedure
TFFoundEmployers.EditStringChange;
procedure
TFF oundEmpl oyers.F ormKeyDown;
procedure TFF oundEmpl oyers.FormClose;
Модуль формы по поиску сотрудника по
фамилии, имени, отчеству с
возможностью перехода в его личную
карточку
8
unit Employers;
procedure InitSQL;
procedure TFEmployers.FormClose;
procedure AddEmployer;
procedure EditEmployer;
procedure DeleteEmployer;
procedure EmployerFound;
procedure TFEmployers.FormKeyDown;
procedure TFEmployers.FormActiva
Модуль формы, отображающий базу
данных сотрудников организации с
возможностью добавления записи (F2),
изменения записи^4), поиска (F7),
удаления записи (F8).
9
unit EditMotions;
procedure TFEditMoti ons.F ormActivate;
procedure TFEditMotions.FormClose;
procedure
TFEditMotions.CBDateEndClick;
procedure
TFEditMoti ons.DBEditjobTitl eEnter;
procedure
TFEditMotions.DBEditjobTitleExit
procedure
TFEditMotions.DBEditjobTitleKeyDown
Модуль формы «движение сотрудника в
Местной администрации г.о. Нальчик»
10
unit EditJobTitles;
procedure TFEditJobTitles.FormActivate
procedure TFEditJ obTitles.F ormKeyDown
procedure TFEditJobTitles.FormClose
Модуль формы «Должность» с функцией
изменения наименования
11
unit EditEmployers;
procedure InitMilitary
procedure InitPanel;
procedure CalcFamily;
procedure InitGrid
procedure TFEditEmployers.F ormActivate
procedure TFEditEmployers.FormClose
procedure PrintEmployers
procedure
TFEditEmployers.FormKeyDown
procedure
TFEditEmployers.TCEmployerChange
procedure
TFEditEmployers.EditFamilyExit
procedure TFEditEmployers.EditNameExit
procedure
TFEditEmployers.EditFathersExit
procedure
TFEditEmployers.DBEditJobTitleEnter
procedure
TFEditEmployers.DBEditJobTitleExit
procedure
Модуль формы «Личная карточка
сотрудника»
(личные данные, персональные данные,
близкие состав семьи, образование,
повышение квалификации, трудовая
деятельность, аттестация, награждение,
воинский учет)
TFEditEmployers.DBGrFormationEnter
procedure
TFEditEmployers.DBGFamilyExit
procedure
TFEditEmployers.DBGrChangeFIOEnter
procedure
TFEditEmpl oyers.DBGrChangeFIOExit
procedure AddMotion;
procedure EditMotion;
procedure DeleteMotion;
procedure
TFEditEmployers.DBGMotionKeyDown
procedure
TFEditEmployers.DBGMotionEnter
procedure
TFEditEmployers.DBGMotionExit
procedure
TFEditEmployers.DBGrFormationExit
procedure
TFEditEmployers.CBMilitaryClick
procedure
TFEditEmployers.DBEditJobTitleKeyDow
n
procedure AddFamily;
procedure EditsFamily;
procedure DeleteFamily;
procedure
TFEditEmployers.DBGFamilyKeyDown
procedure AddChangeFIO;
procedure EditChangeFIO;
procedure DeleteChangeFIO;
procedure
TFEditEmployers.DBGrChangeFIOKeyD
own
procedure AddWorkBook;
procedure EditWorkBook;
procedure DeleteWorkBook;
procedure
TFEditEmployers.DBGrBookWorksKeyD
own
procedure AddFormation;
procedure EditFormation;
procedure DeleteFormation;
procedure
TFEditEmployers.DBGrFormationKeyDo
wn
procedure AddQualification;
procedure EditQualification;
procedure DeleteQualification;
procedure
TFEditEmployers.DBGQualificationKeyD
own
procedure AddlncQualific;
procedure EditIncQualific;
procedure DeleteIncQualific;
procedure
TFEditEmployers.DBGIncQualificsKeyDo
wn
procedure AddFurlough;
procedure EditFurlough;
procedure DeleteFurlough;
procedure
TFEditEmployers.DBGFurloughsKeyDow
n
procedure AddAward;
procedure EditAward;
procedure DeleteAward;
procedure
TFEditEmployers.DBGrAwardKeyDown
12
unit SelectPhoto;
Модуль работы с фотографией (выбрать
фото, удалить фото)
13
unit EditFormations;
Модуль программы внесения
информации об образовании
14
unit EditIncQualifics
Модуль программы внесения
информации о повышении квалификации
15
unit EditQualifications;
Модуль программы внесения
информации об аттестации
16
unit EditFurloughs;
Модуль программы о внесении
информации об отпусках
17
unit EditChangesFIO;
Модуль программы «изменение ФИО»
18
unit EditFamilys;
Модуль программы внесения сведения о
родственниках
19
unit EditBookWorks;
Модуль записи в электронную трудовую
книжку
20
unit EditAwards;
Модуль программы награждения
21
unit EditEnterPrises;
Модуль программы внесения сведений
об организации
22
unit DataModule;
Модуль обращения к БД
2.4 Контрольный пример реализации проекта и его описание
Данное программное обеспечение состоит из двух составляющих
(программы и серверной базы данных).
Рассмотрим главное окно программы (рис. 19).
Во йти Н астройка
W Моноп ольно
Орга низац ия
Дол жности
С отр удники
Р е зерв н ое ко пиров ание
С бросбл окирово*
Рис. 19 . Главное окно программы.
В главном окне ПО пользователь может выбрать в меню программы
необходимую ему для работы вкладку в обычном или монопольном режиме,
установив соответствующий флажок (рис.20).
У пр авлен и е кадро в
Рис.20. Окно программы при нажатии кнопки «Войти» в монопольном режиме.
После нажатия кнопки «Войти» в монопольном режиме становятся
активными разделы «организация», «должности», «сотрудники», «резервное
копирование», «сброс блокировок» (рис. 20).
Раздел должности представлен на рисунке 21. Для внесения в базу данных
должности, указанной в штатном расписании Местной администрации
городского округа Нальчик необходимо нажать клавишу F2, затем для
сохранения клавишу Enter. Для внесения изменения в наименование должности
необходимо курсором ее выделить и нажать клавишу F4, далее для сохранения
клавишу Enter. Клавишей F7 осуществляется поиск необходимой должности
(рис. 22), с помощью F8 - удалить запись. Для выхода из данного раздела
необходимо нажать клавишу Esc.
Рис.21. Экранная форма программы «Должности»