Рисунок 12. Окно вывода на печать личных карточек сотрудников

Свойства и события компонентов:

Свойства:

Caption = Полные данные о сотрудниках

Color = clBtnFace

Name = OtchetForm1

Visible = True

1 - QuickRep1 класса TQuickRep.

Свойства:

DataSet = DataModule1. Query1

Page. Orientation = poPortrait

Page. PaperSize = A4

PrintIfEmpty = True

2 - QRBand1 класс TQRBand.

Свойства:

Color = clWhite

BandType = rbPageHeader

3 - QRBand2 класс TQRBand.

Свойства:

Color = clWhite

BandType = rbTitle

4 - QRLabel1 класс TQRLabel.

Свойства: Caption = Краткие данные о сотрудниках ТОО «ПКФ «Гренада»

5 - QRBand3 класс TQRBand.

Свойства:

Color = clWhite

BandType = rbDetail

6 - QRDBImage1 класс TQRDBImage.

Свойства:

DataField = Foto

DataSet = DataModule1. Query1

7 - QRBand4 класс TQRBand

Свойства:

Color = clWhite

BandType = rbPageFooter

8 - QRLabel2 класс TQRLabel

Свойства: Caption = Фамилия

9 - QRLabel3 класс TQRLabel.

Свойства: Caption = Имя

10 - QRLabel4 класс TQRLabel.

Свойства: Caption = Отчество

11 - QRLabel5 класс TQRLabel.

Свойства: Caption = Дата рождения

12 - QRLabel6 класс TQRLabel.

Свойства: Caption = Должность

13 - QRLabel7 класс TQRLabel.

Свойства: Caption = Дата принятия на работу

14 - QRLabel8 класс TQRLabel.

Свойства: Caption = Удостоверение №

15 - QRLabel9 класс TQRLabel.

Свойства: Caption = Кем выдано

16 - QRLabel10 класс TQRLabel.

Свойства: Caption = Дата выдачи удостоверения

17 - QRLabel11 класс TQRLabel.

Свойства: Caption = РНН

18 - QRLabel12 класс TQRLabel.

Свойства: Caption = Пенсионный фонд

19 - QRLabel13 класс TQRLabel.

Свойства: Caption = СИК

20 - QRLabel14 класс TQRLabel.

Свойства: Caption = Домашний телефон

21 - QRLabel15 класс TQRLabel.

Свойства: Caption = Сотовый телефон

22 - QRLabel16 класс TQRLabel.

Свойства: Caption = Домашний адрес

23 - QRLabel17 класс TQRLabel.

Свойства: Caption = Название учебного заведения

24 - QRLabel18 класс TQRLabel.

Свойства: Caption = Образование

25 - QRLabel19 класс TQRLabel.

Свойства: Caption = Специальность по диплому

26 - QRLabel20 класс TQRLabel.

Свойства: Caption = Квалификация по диплому

27 - QRLabel21 класс TQRLabel.

Свойства: Caption = Стаж работы по основной профессии

28 - QRLabel22 класс TQRLabel.

Свойства: Caption = Общий стаж

29 - QRLabel23 класс TQRLabel.

Свойства: Caption = Непрерывный стаж

30 - QRLabel24 класс TQRLabel.

Свойства: Caption = Разряд

31 - QRDBText1 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = SurName

32 - QRDBText2 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = FirstName

33 - QRDBText3 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = OtchName

34 - QRDBText4 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Birthbay

35 - QRDBText5 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Dolz

36 - QRDBText6 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Dayprim

37 - QRDBText7 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = YdostNomer

38 - QRDBText8 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Ydostvidan

39 - QRDBText9 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = YdostDate

40 - QRDBText10 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = PHH

41 - QRDBText11 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = PensDogovor

42 - QRDBText12 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Sik

43 - QRDBText13 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = HomeTel

44 - QRDBText14 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = SotTel

45 - QRDBText15 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Adress

46 - QRDBText16 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Schollname

47 - QRDBText17 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Obrazov

48 - QRDBText18 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Spez

49 - QRDBText19 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Kvalif

50 - QRDBText20 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Staz

51 - QRDBText21 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Stazob

52 - QRDBText22 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Staznepr

53 - QRDBText23 класс TQRDBText

Свойства:

DataSet = DataModule1. Query1

DataField = Razrad

54 - QRSysData1 класс TQRSysData. Показывает системное время.

Свойства: Data = qrsTime

2.6 Описание работы программы

Рассмотрим методы вызова окон программы. При запуске программы, открывается главное окно программ «База данных «Отдел кадров». Для ввода данных о новом сотруднике открывается специальное окно с помощью меню «Данные» «Новый сотрудник». Для ввода данных о новом пенсионном фонде или должности, также открываются специальные окна с помощью меню «Данные» «Перечень пенсионных фондов» и «Перечень должностей» соответственно.

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

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

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

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

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

2.7 Спецификация программы

В состав программы сходят следующие файлы:

- Otdel kadrov.exe - исполняемый файл программы;

- Sotrudnik. - файл базы данных «Данные о сотруднике»;

- Dopoln. - файл базы данных «Дополнительно»;

- Dolznost. - файл базы данных «Должности»;

- PensFond. - файл базы данных «Пенсионный фонды»;

- Obrazovan. - файл базы данных «Образование»;

- Family. - файл базы данных «Семейное положение»

- Help - файл справки.

Таблица 1

Наименование	Обозначение	Примечание
Mainpr.dpr	Файл проекта	Связывает все файлы, из которых состоит приложение
Mainpr.res	Файл ресурсов	Содержит ресурсы программы
Mainpr.dof	Файл параметров проекта	Содержит текущие установки проекта
Mainpr.cfg	Файл конфигурации проекта	Содержит установки проекта
Main.dfm	Файл формы Main	Содержит список свойств компонентов включенных в эту форму
Main.pas	Файл программного модуля данных Main	Определяет функциональность формы Main
Main.ddp	Файл с информацией о модуле формы Main	Содержит информацию о модуле о модуле формы Main
Main.dcu	Объектный файл для Main.pas	Откомпилированная версия Main.pas
Cotr.dfm	Файл формы Cotr	Содержит список свойств компонентов включенных в эту форму
Cotr.pas	Файл программного модуля данных Cotr	Определяет функциональность формы Cotr
Cotr.ddp	Файл с информацией о модуле формы Cotr	Содержит информацию о модуле о модуле формы Cotr
Cotr.dcu	Объектный файл для Cotr.pas	Откомпилированная версия Cotr.pas
Dolz.dfm	Файл формы Dolz	Содержит список свойств компонентов включенных в эту форму
Dolz.pas	Файл программного модуля данных Dolz	Определяет функциональность формы Dolz
Dolz.ddp	Файл с информацией о модуле формы Dolz	Содержит информацию о модуле о модуле формы Dolz
Dolz.dcu	Объектный файл для Dolz.pas	Откомпилированная версия Dolz.pas
Otchet1.dfm	Файл формы Otchet1	Содержит список свойств компонентов включенных в эту форму
Otchet1.pas	Файл программного модуля данных Otchet1	Определяет функциональность формы Otchet1
Otchet1.ddp	Файл с информацией о модуле формы Otchet1	Содержит информацию о модуле о модуле формы Otchet1
Otchet1.dcu	Объектный файл для Otchet1.pas	Откомпилированная версия Otchet1.pas
Otchet2.dfm	Файл формы Otchet2	Содержит список свойств компонентов включенных в эту форму
Otchet2.pas	Файл программного модуля данных Otchet2	Определяет функциональность формы Otchet2
Otchet2.ddp	Файл с информацией о модуле формы Otchet2	Содержит информацию о модуле о модуле формы Otchet2
Otchet2.dcu	Объектный файл для Otchet2.pas	Откомпилированная версия Otchet2.pas
PensFond.dfm	Файл формы PensFond	Содержит список свойств компонентов включенных в эту форму
PensFond.pas	Файл программного модуля данных PensFond	Определяет функциональность формы PensFond
PensFond.ddp	Файл с информацией о модуле формы PensFond	Содержит информацию о модуле о модуле формы PensFond
PensFond.dcu	Объектный файл для PensFond.pas	Откомпилированная версия PensFond.pas
Poisk.dfm	Файл формы Poisk	Содержит список свойств компонентов включенных в эту форму
Poisk.pas	Файл программного модуля данных Poisk	Определяет функциональность формы Poisk
Poisk.ddp	Файл с информацией о модуле формы Poisk	Содержит информацию о модуле о модуле формы Poisk
Poisk.dcu	Объектный файл для Poisk.pas	Откомпилированная версия Poisk.pas
Redakt.dfm	Файл формы Redakt	Содержит список свойств компонентов включенных в эту форму
Redakt.pas	Файл программного модуля данных Redakt	Определяет функциональность формы Redakt
Redakt.ddp	Файл с информацией о модуле формы Redakt	Содержит информацию о модуле о модуле формы Redakt
Redakt.dcu	Объектный файл для Redakt.pas	Откомпилированная версия Redakt.pas
Uotcherkr.dfm	Файл формы Uotcherk	Содержит список свойств компонентов включенных в эту форму
Uotcherkr.pas	Файл программного модуля данных Uotcherkr	Определяет функциональность формы Uotcherkr
Uotcherkr.dcu	Объектный файл для Uotcherkr.pas	Откомпилированная версия Uotcherkr.pas
Info.dfm	Файл формы Info	Содержит список свойств компонентов включенных в эту форму
Info.pas	Файл программного модуля данных Info	Определяет функциональность формы Info
Info.ddp	Файл с информацией о модуле формы Info	Содержит информацию о модуле о модуле формы Info
Info.dcu	Объектный файл для Info.pas	Откомпилированная версия Info.pas

2.8 Инструкция по применению

Для запуска программу необходимо поместить на диск (D:\). Вызов программы проводиться последовательно после двойного нажатия левой кнопки мыши на попку Мой компьютер диск D:\ BD_OK Otdel kadrov.exe, расположенном в каталоге программы. После запуска программы на экран выводиться главное окно базы данных «Отдел кадров» (представлено на рисунке 13).

Главное окно имеет меню. Меню «Данные» содержит следующие пункты: «Новый сотрудник», «Перечень должностей», «Перечень пенсионный фондов и «Выход». Меню «Сервис» содержит пункты необходимые для поиска и редактирования данных о сотруднике. Меню «Отчеты» содержит пункты: «Краткие данные о сотрудниках» и «Полные данные о сотрудниках». Меню «Справка» содержит пункты: «О программе» и «Справка».

Рисунок 13. Главное окно базы данных «Отдел кадров»

Для внесения данных о новом сотруднике открывается через меню «Данные» «Новый сотрудник» окно «Данные о работнике» (представлено на рисунке 14). Данное окно имеет четыре вкладки для ввода данных, такие как: «Данные о сотруднике», «Дополнительно», «Образование» и «Семейное положение».

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

Рисунок 14. Окно ввода данных о новом сотруднике, вкладка «Данные о сотруднике»

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

Вкладка «Дополнительно» (представлено на рисунке 15) служит для ввода таких данных, как: номер удостоверения личности, кем выдано, дата выдачи удостоверения, РНН, СИК, наименование пенсионного фонда, домашнего и сотового телефонов, домашнего адреса, даты начала и окончания отпуска, основания предоставления отпуска (приказ №, дата).



Рисунок 15. Окно ввода данных о новом сотруднике, вкладка «Дополнительно»

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

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

Вкладка «Семейное положение» (представлено на рисунке 17) служит для ввода следующих данных: фамилии, имени, отчества супруга(и) и детей.

Для внесения данных о новой должности служит окно «Перечень должностей», которое открывается через меню «Данные» «Перечень должностей» (представлено на рисунке 18).

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



Рисунок 16. Окно ввода данных о новом сотруднике, вкладка «Образование»

Рисунок 17. Окно ввода данных о новом сотруднике, вкладка «Семейное положение»

Навигатор состоит из шести кнопок используемых для управления набором данных. Кнопка Insert создает поле для ввода записи. После ввода новых данных необходимо нажать кнопку Refresh для их сохранения. Для удаления записи необходимо выделить нужную запись и нажать кнопку Delete . Кнопка Edit используется для редактирования записей. Для утверждения изменения записи используется кнопка Post . Кнопкой Cancel можно воспользоваться для отмены изменения в текущей записи.

Рисунок 18. Окно «Перечень должностей»

Для внесения данных о новых пенсионных фондах служит окно «Перечень пенсионных фондов», которое открывается через меню «Данные» «Пенсионные фонды» (представлено на рисунке 19).

Для ввода данных по должностям используются таблица. Управление в данных таблицы осуществляется с помощью навигатора. Управлении навигатором описано выше в этом же разделе.



Рисунок 19. Окно «Перечень пенсионных фондов»

Для поиска данных о сотрудниках служит окно «Поиск данных» (представлено на рисунке 20), которое открывается в меню «Сервис» «Поиск данных». Для осуществления поиска данных о сотруднике, в открывшемся окне необходимо ввести фамилию сотрудника и нажать на кнопку .

Рисунок 20. Окно «Поиск данных»

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



Рисунок 21. Окно уведомления, при отсутствии необходимых данных

Для редактирования данных о сотрудниках служит окно «Редактирование данных», которое открывается в меню «Сервис» «Редактирование данных». Управление в данных таблицы осуществляется с помощью навигатора. Управление навигатором описано выше в этом же разделе.

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

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

С помощью меню «Отчеты» - «Полные данные о сотрудниках», в котором выводиться полный список личных карточек сотрудника с данными о сотруднике. Управление в данном окне производиться аналогично управлению в окне «Краткие данные о сотрудниках».

Заключение

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

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

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

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

- ввод данных;

- редактирование данных;

- удаление данных;

- выполняет поиск данных по базе;

- выводит основные данные на печать.

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

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

Список литературы

1. Окинавская Хартия Глобального Информационного общества от 22 июля 2000 г. // Телекоммуникации и информатизация образования. -2001. - №1 (2) - Ст. 6.

2. Ахаян Р., Макашарипо А., Эффективная работа с СУБД - СПб.: Питер, 2000

3. Бобровский С. Delphi 5: Учебный курс - СПб.: Питер, 2000-2003

4. Возневич Э., Освой самостоятельно Delphi - М.: Бином, 2000

5. Глушаков С.В., Ломотько Д.В. Базы данных. Учебный курс. - Харьков: Фолио; М.: ООО «Издательство АСТ», 2001

6. Гофман В., Хомоненко А. Delphi 6. - СПб.: БХВ-Петербург, 2001

7. Дарахвелидзе П.Г., Марков Е.П. Delphi - среда визуального программирования - С.-Пб.: БХВ, 2000

8. Дарахвелидзе П.Г., Марков Е.П. Delphi 4.0 - С.-Пб.: БХВ, 2000

9. Дейта К. Введение в системы баз данных - М.: Наука, 2000

10. Матчо Дж., Фолкнер Д. Delphi - М.: БИНОМ, 2000

11. Елманова Н., Трепалин С., Тенцер А., Delphi 6 и технология СОМ - С.-Пб.: Питер, 2002

12. Жуков А. Изучаем Delphi - С.-Пб.: Питер, 2000

13. Карпов Б. Delphi 5: Учебный курс - С.-Пб.: Питер, 2001

14. Карпова Т. Базы данных: модели, разработка, реализация - С.-Пб.: Питер, 2001

15. Кэнту М. Delphi 6-7 для профессионалов - С.-Пб.: Питер, 2002-2003

16. Орлик С., Секреты Delphi - М.: Бином, 2000

17. Пономарев В. Базы данных в Delphi 7. Самоучитель - С. Пб.: Питер, 2003

18. Сван Т., Секреты 32-разрядного программирования в Delphi - Киев: Диалектика, 2000

19. Свиридов Ю., Тюкачев Н. Delphi 5. Создание мультимедийных приложений: Учебный курс - С.-Пб.: Питер, 2001

20. Тейксера, Стив, Пачеко, Ксавье. Delphi 5. Руководство разработчика, том 1 - том 2. Основные методы и технологии программирования - Разработка компонентов и программирование баз данных: Пер. с англ.: Уч. Пос. - М.: Издательский дом «Вильямс», 2000

21. Фаронов В., Delphi 5: Руководство программиста - М.: Нолидж, 2001

22. Фаронов В., Delphi 6. Учебный курс - С.-Пб.: Питер, 2002 - М.: Нолидж, 2001

23. Фаронов В., Delphi. Программирование на языке высокого уровня - С.-Пб.: Питер, 2003

24. Фаронов В., Программирование баз данных в Delphi 6-7. Учебный курс - С.-Пб.: Питер, 2002-2003

25. Фаронов В., Профессиональная работа в Delphi 6. Библиотека программиста - С.-Пб.: Питер, 2002

26. Федоров А., Создание Windiws-приложений в среде Delphi - С.-Пб.: Питер, 2000

Приложение

Таблица установления связей

		Sotrudnik.	1:
		TabNomer		Dopoln.
		SurName		TabNomer	1: 1	Dolznost.
		FirstName		IDDolz		IDDolz
		OtchName		DayPrim		Dolz
		Birthday		DayIsn
		Foto		DayYvol
		YdostNomer		DateNachOtp
		YdostVidan		DateOkOtp
		YdostDate		Osnov
PensFond.	1: 1	PHH
IDPensdogovor		IDPensdogovor		Obrazovan.
Pensdogovor		Sik		TabNomer
		HomeTel		Obrazov
		SotTel		SchollName
		Adress		Spez
				Kvalif
				Razrad
				Staz
				Stazob
				Staznepr
				Family.
				TabNomer
				Famsupr
				Namesupr
				Otchsupr
				Datesupr
				FamChild1
				NameChild1
				OtchChild1
				DateChild1
				FamChild2
				NameChild2
				OtchChild2
				DateChild2
				FamChild3
				NameChild3
				OtchChild3
				DateChild3

Листинг программ

Листинг модуля Main

unit Main;

interface

uses

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

Dialogs, Menus, ComCtrls;

type

TMainForm = class(TForm)

StatusBar1: TStatusBar;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Gjbcr1: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

Help1: TMenuItem;

procedure N2Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N12Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

MainForm: TMainForm;

implementation

uses cotr, poisk, Redakt, Dolz, PensFond, Otchet1, Otchet2, Info;

{$R *.dfm}

procedure TMainForm.N2Click (Sender: TObject);

begin

CotrForm:= TCotrForm. Create(Application);

end;

procedure TMainForm.N4Click (Sender: TObject);

begin

PoiskForm:= TPoiskForm. Create(Application);

end;

procedure TMainForm.N5Click (Sender: TObject);

begin

RedaktForm:= TRedaktForm. Create(Application);

end;

procedure TMainForm.N7Click (Sender: TObject);

begin

MainForm. Close;

end;

procedure TMainForm.N3Click (Sender: TObject);

begin

DolzForm:= TDolzForm. Create(Application);

end;

procedure TMainForm.N6Click (Sender: TObject);

begin

PensFondForm:= TPensFondForm. Create(Application);

end;

procedure TMainForm.N9Click (Sender: TObject);

begin

OtchetForm1:= TOtchetForm1. Create(Application);

OtchetForm1. QuickRep1. Preview;

OtchetForm1. Hide;

end;

procedure TMainForm.N10Click (Sender: TObject);

begin

OtchetForm2:= TOtchetForm2. Create(Application);

OtchetForm2. QuickRep1. Preview;

OtchetForm2. Hide;

end;

procedure TMainForm.N12Click (Sender: TObject);

begin

InfoForm. Show;

end;

end.

Листинг модуля Cotr

unit Cotr;

interface

uses

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

Dialogs, ExtCtrls, ComCtrls, DBCtrls, StdCtrls, Mask, DB, DBTables,

ExtDlgs, Buttons;

type

TCotrForm = class(TForm)

PageControl1: TPageControl;

Panel1: TPanel;

Maininfo: TTabSheet;

Bevel1: TBevel;

Bevel2: TBevel;

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label3: TLabel;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

BirthDayPicker: TDateTimePicker;

Label6: TLabel;

Label7: TLabel;

DayprimPicker: TDateTimePicker;

DayisnPicker: TDateTimePicker;

DayyvolPicker: TDateTimePicker;

Label8: TLabel;

Label9: TLabel;

Dopolinfo: TTabSheet;

Bevel3: TBevel;

Bevel4: TBevel;

Bevel5: TBevel;

Bevel6: TBevel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

YdostdatePicker: TDateTimePicker;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

DBEdit7: TDBEdit;

DatenachotpPicker: TDateTimePicker;

DateOkOtpPicker: TDateTimePicker;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

Label25: TLabel;

Obrinfo: TTabSheet;

Bevel7: TBevel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

Familyinfo: TTabSheet;

Bevel8: TBevel;

Bevel9: TBevel;

Bevel10: TBevel;

Bevel11: TBevel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

Label42: TLabel;

Label43: TLabel;

Label44: TLabel;

Label45: TLabel;

Label46: TLabel;

Label47: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

Label51: TLabel;

Label52: TLabel;

Label53: TLabel;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DatesuprPicker: TDateTimePicker;

DateChildPicker1: TDateTimePicker;

DBEdit24: TDBEdit;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

DBEdit29: TDBEdit;

DateChildPicker2: TDateTimePicker;

DateChildPicker3: TDateTimePicker;

DBEdit30: TDBEdit;

DBEdit31: TDBEdit;

DBEdit32: TDBEdit;

DataSource1: TDataSource;

SotrTable: TTable;

OpenBitBtn: TBitBtn;

OpenPictureDialog1: TOpenPictureDialog;

ClearBitBtn: TBitBtn;

OkBitBtn: TBitBtn;

CloseBitBtn: TBitBtn;

PhotoImage: TDBImage;

Dolz: TDBComboBox;

PensFond: TDBComboBox;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

DataSource6: TDataSource;

Table1: TTable;

Table2: TTable;

Table3: TTable;

Table4: TTable;

Table5: TTable;

procedure OpenBitBtnClick (Sender: TObject);

procedure ClearBitBtnClick (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure OkBitBtnClick (Sender: TObject);

procedure CloseBitBtnClick (Sender: TObject);

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

private

{Private declarations}

public

{Public declarations}

end;

var

CotrForm: TCotrForm;

implementation

{$R *.dfm}

procedure TCotrForm. OpenBitBtnClick (Sender: TObject);

begin

if OpenPicturedialog1. Execute then

photoImage. Picture. LoadFromFile (OpenPictureDialog1. FileName);

end;

procedure TCotrForm. ClearBitBtnClick (Sender: TObject);

begin

PhotoImage. Picture. LoadFromFile (ExtractFileDir(Application. ExeName)+'\'+'blank.bmp');

end;

procedure TCotrForm. FormCreate (Sender: TObject);

begin

 // При запуске приложения добаляем новую пустую запись в конец таблицы

SotrTable. Append;

end;

procedure TCotrForm. OkBitBtnClick (Sender: TObject);

begin

 // Записываем измененные данные в таблицу

 // Записываем дату рождения

SotrTable. FieldByName('BirthBay').AsDateTime:=BirthDayPicker. Date;

 // Записываем дату приема на работу

SotrTable. FieldByName('Dayprim').AsDateTime:=DayprimPicker. Date;

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

SotrTable. FieldByName('Dayisn').AsDateTime:=DayisnPicker. Date;

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

SotrTable. FieldByName('Dayyvol').AsDateTime:=DayyvolPicker. Date;

 // Записываем дату выдачи удостоверения

Sotrtable. FieldByName('Ydostdate').AsDateTime:=YdostDatePicker. Date;

 // Записываем дату начала отпуска

Sotrtable. FieldByName('DateNachOtp').AsDateTime:=DateNachOtpPicker. Date;

 // Записываем дату окончания отпуска

SotrTable. FieldByName('DateOkOtp').AsDateTime:=DateOkOtpPicker. Date;

 // Записываем дату рождения супруга (мужа или жены)

SotrTable. FieldByName('DateSupr').AsDateTime:=DateSuprPicker. Date;

 // Записываем дату рождения 1 ребенка

SotrTable. FieldByName('dateChild1').AsDateTime:=DateChildPicker1. Date;

 // Записываем дату рождения 2 ребенка

SotrTable. FieldByName('dateChild2').AsDateTime:=DateChildPicker2. Date;

 // Записываем дату рождения 3 ребенка

SotrTable. FieldByName('dateChild3').AsDateTime:=DateChildPicker3. Date;

 // Записываем изменные данные в таблицу

SotrTable. Post;

 // Добавляем новую запись в конец таблицы

Sotrtable. Append;

end;

procedure TCotrForm. CloseBitBtnClick (Sender: TObject);

begin

 // Отмена сделанных изменений

sotrTable. Cancel;

 // Добавляем новую запись в конец таблицы

SotrTable. Append;

end;

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

begin

SotrTable. Close;

end;

end.

Листинг модуля Dolz

unit Dolz;

interface

uses

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

Dialogs, DB, DBTables, DBCtrls, Grids, DBGrids, ExtCtrls;

type

TDolzForm = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

DolzTable: TTable;

private

{Private declarations}

public

{Public declarations}

end;

var

DolzForm: TDolzForm;

implementation

{$R *.dfm}

end.

Листинг модуля Otchet1

unit Otchet1;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, ExtCtrls;

type

TOtchetForm1 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRBand2: TQRBand;

QRBand3: TQRBand;

QRBand4: TQRBand;

QRLabel1: TQRLabel;

QRSysData1: TQRSysData;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBImage1: TQRDBImage;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRDBText5: TQRDBText;

private

{Private declarations}

public

{Public declarations}

end;

var

OtchetForm1: TOtchetForm1;

implementation

uses Uotchetkr1;

{$R *.dfm}

end.

Листинг модуля Otchet2

unit Otchet2;

interface

uses

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

Dialogs, ExtCtrls, QuickRpt, QRCtrls;

type

TOtchetForm2 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRBand2: TQRBand;

QRBand3: TQRBand;

QRBand4: TQRBand;

QRSysData1: TQRSysData;

QRLabel1: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRDBText5: TQRDBText;

QRDBImage1: TQRDBImage;

QRLabel7: TQRLabel;

QRDBText6: TQRDBText;

QRLabel8: TQRLabel;

QRDBText7: TQRDBText;

QRLabel9: TQRLabel;

QRDBText8: TQRDBText;

QRLabel10: TQRLabel;

QRDBText9: TQRDBText;

QRLabel11: TQRLabel;

QRDBText10: TQRDBText;

QRLabel12: TQRLabel;

QRDBText11: TQRDBText;

QRLabel13: TQRLabel;

QRDBText12: TQRDBText;

QRLabel14: TQRLabel;

QRDBText13: TQRDBText;

QRLabel15: TQRLabel;

QRDBText14: TQRDBText;

QRLabel16: TQRLabel;

QRDBText15: TQRDBText;

QRLabel17: TQRLabel;

QRDBText16: TQRDBText;

QRLabel18: TQRLabel;

QRDBText17: TQRDBText;

QRLabel19: TQRLabel;

QRDBText18: TQRDBText;

QRLabel20: TQRLabel;

QRDBText19: TQRDBText;

QRLabel21: TQRLabel;

QRDBText20: TQRDBText;

QRLabel22: TQRLabel;

QRDBText21: TQRDBText;

QRLabel23: TQRLabel;

QRDBText22: TQRDBText;

QRLabel24: TQRLabel;

QRDBText23: TQRDBText;

private

{Private declarations}

public

{Public declarations}

end;

var

OtchetForm2: TOtchetForm2;

implementation

uses Uotchetkr1;

{$R *.dfm}

end.

Листинг модуля PensFond

unit PensFond;

interface

uses

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

Dialogs, DB, DBTables, DBCtrls, Grids, DBGrids, ExtCtrls;

type

TPensFondForm = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

PensFondTable: TTable;

private

{Private declarations}

public

{Public declarations}

end;

var

PensFondForm: TPensFondForm;

implementation

{$R *.dfm}

end.

Листинг модуля Poisk

unit Poisk;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons;

type

TPoiskForm = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

FamEdit: TEdit;

Label1: TLabel;

Query1: TQuery;

DataSource1: TDataSource;

Query1TabNomer: TFloatField;

Query1SurName: TStringField;

Query1FirstName: TStringField;

Query1OtchName: TStringField;

Query1Birthbay: TDateField;

Query1Dolz: TStringField;

Query1Dayprim: TDateField;

Query1Dayisn: TDateField;

Query1Dayyvol: TDateField;

Query1YdostNomer: TFloatField;

Query1Ydostvidan: TStringField;

Query1YdostDate: TDateField;

Query1PHH: TFloatField;

Query1Sik: TStringField;

Query1PensDogovor: TStringField;

Query1HomeTel: TFloatField;

Query1SotTel: TFloatField;

Query1Adress: TStringField;

Query1DateNachOtp: TDateField;

Query1DateOkOtp: TDateField;

Query1Osnov: TStringField;

Query1Schollname: TStringField;

Query1Obrazov: TStringField;

Query1Spez: TStringField;

Query1Kvalif: TStringField;

Query1Staz: TFloatField;

Query1Stazob: TFloatField;

Query1Staznepr: TFloatField;

Query1Razrad: TStringField;

Query1Famsupr: TStringField;

Query1NameSupr: TStringField;

Query1OtchSupr: TStringField;

Query1DateSupr: TDateField;

Query1FamChild1: TStringField;

Query1NameChild1: TStringField;

Query1OtchChild1: TStringField;

Query1DateChild1: TDateField;

Query1FamChild2: TStringField;

Query1NameChild2: TStringField;

Query1OtchChild2: TStringField;

Query1DateChild2: TDateField;

Query1FamChild3: TStringField;

Query1NameChild3: TStringField;

Query1OtchChild3: TStringField;

Query1DateChild3: TDateField;

procedure BitBtn1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

PoiskForm: TPoiskForm;

implementation

{$R *.dfm}

procedure TPoiskForm. BitBtn1Click (Sender: TObject);

var

buf: string[50]; // критерий запроса

begin

buf:= FamEdit. Text;

if buf = '' then exit;

 // пользователь ввел критерий поиска

with Query1 do

begin

 // закрыть результат выполнения предыдущего запроса

close;

 // удалить текст предыдущего запроса

SQL. Clear;

 // формируем новый запрос

SQL. Add ('SELECT *');

SQL. Add ('FROM»:sotrudnik:sotrudnik.db» ');

SQL. Add('WHERE');

SQL. Add ('(SurName= «'+buf+'»)');

SQL. Add ('ORDER BY SurName, FirstName');

 // выполнить запрос

Open;

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

if RecordCount <> 0 then

DataSource1. DataSet:= Query1

else

ShowMessage ('В базе данных «Отдел кадров» нет записей, удовлетворяющих'

+#13+ 'критерию запроса.');

end;

end;

end.

Листинг модуля Redakt

unit Redakt;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, DBCtrls, ExtCtrls;

type

TRedaktForm = class(TForm)

Panel1: TPanel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

private

{Private declarations}

public

{Public declarations}

end;

var

RedaktForm: TRedaktForm;

implementation

{$R *.dfm}

end.

Листинг модуля Uotchetkr1

unit Uotchetkr1;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TDataModule1 = class(TDataModule)

Query1: TQuery;

DataSource1: TDataSource;

Query1TabNomer: TFloatField;

Query1SurName: TStringField;

Query1FirstName: TStringField;

Query1OtchName: TStringField;

Query1Birthbay: TDateField;

Query1Dolz: TStringField;

Query1Dayprim: TDateField;

Query1Dayisn: TDateField;

Query1Dayyvol: TDateField;

Query1Foto: TGraphicField;

Query1YdostNomer: TFloatField;

Query1Ydostvidan: TStringField;

Query1YdostDate: TDateField;

Query1PHH: TFloatField;

Query1Sik: TStringField;

Query1PensDogovor: TStringField;

Query1HomeTel: TFloatField;

Query1SotTel: TFloatField;

Query1Adress: TStringField;

Query1DateNachOtp: TDateField;

Query1DateOkOtp: TDateField;

Query1Osnov: TStringField;

Query1Schollname: TStringField;

Query1Obrazov: TStringField;

Query1Spez: TStringField;

Query1Kvalif: TStringField;

Query1Staz: TFloatField;

Query1Stazob: TFloatField;

Query1Staznepr: TFloatField;

Query1Razrad: TStringField;

Query1Famsupr: TStringField;

Query1NameSupr: TStringField;

Query1OtchSupr: TStringField;

Query1DateSupr: TDateField;

Query1FamChild1: TStringField;

Query1NameChild1: TStringField;

Query1OtchChild1: TStringField;

Query1DateChild1: TDateField;

Query1FamChild2: TStringField;

Query1NameChild2: TStringField;

Query1OtchChild2: TStringField;

Query1DateChild2: TDateField;

Query1FamChild3: TStringField;

Query1NameChild3: TStringField;

Query1OtchChild3: TStringField;

Query1DateChild3: TDateField;

private

{Private declarations}

public

{Public declarations}

end;

var

DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.

Листинг модуля Info

unit Info;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TInfoForm = class(TForm)

Image1: TImage;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

InfoForm: TInfoForm;

implementation

{$R *.dfm}

procedure TInfoForm. Button1Click (Sender: TObject);

begin

InfoForm. Close;

end;

end.

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