Автор работы: Пользователь скрыл имя, 02 Мая 2013 в 13:34, курсовая работа
ЗАДАНИЕ: Построение имитационной модели системы кадровой службы предприятия.
ЦЕЛЬ РАБОТЫ: разработать модель имитационной системы кадровой службы предприятия, составить программу на языке высокого уровня Delphi, произвести её тестирование, настройку и отладку.
Трудовые ресурсы предприятия являются главным ресурсом каждого предприятия, от качества подбора и эффективности использования которого во многом зависят результаты производственной деятельности предприятия. На уровне отдельного предприятия вместо термина "трудовые, ресурсы" чаще используют термины "кадры" и "персонал".
ВВЕДЕНИЕ
ЗАДАНИЕ 2
ЦЕЛЬ РАБОТЫ 2
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ
Программное изделие выполняет три основные функции обработки данных:
Эти функции распределены между модулями программы в проекте, на основе которого компилятор Borland Delphi генерирует исполняемый файл Project1.exe. При запуске исполняемого файла управление передается первому модулю проекта – в данном случае модулю управлению программой. Вызов остальных модулей осуществляется путем выбора соответствующей кнопки.
Предназначен для выбора вида работы с программой: созданием, редактированием, управлением и удалением записей в базе данных. Результатом работы модуля является переход к выбранной функции программы. Вызов модуля осуществляется из операционной системы.
На рисунке 3.1 представлен вид формы
Компоненты формы
Общий вид окна формы
Рисунок 1
События, методы, функции
Модуль разбит на несколько процедур, каждая из которых осуществляет следующие операции:
Инициирование осуществляется запуском из командной строки операционной системы исполняемого файла программного изделия, либо щелчком мыши по пиктограмме изделия в проводнике операционной системы Windows 98/NT/XP и выше.
Данный модуль обеспечивает удобный интерфейс программного продукта. Модуль разбит на несколько процедур, каждая из которых осуществляет следующие операции:
Нормальное завершение работы модуля осуществляется при закрытии рабочего окна. При этом все изменения, внесённые в базу данных, сохраняются.
Работа данного модуля, а также управление работой других модулей реализованы с использованием программных средств языка высокого уровня Object Pascal в среде визуального программирования Borland Delphi 6.0 с помощью базовых функций и стандартных компонентов.
Предназначен для поиска записей в базе данных. Вызов модуля осуществляется по нажатию кнопки «Поиск» в главном окне программы
Рис. 2 .
На рисунке 2 представлен вид формы
Компоненты формы
Предназначен для редактировани
Общий вид окна формы
На рисунка представлены виды форм для редактирования информации о сотруднике. Формы имеют схожую структуру поэтому будет описана одна из форм.
Компоненты формы
Предназначен для внесения в базу новой записи о сотруднике.
Общий вид окна формы
Рис. 3
На рисунке 3 представлен вид формы
Компоненты формы
Работа программы начинается с главной формы. Здесь пользователь должен решить, что ему нужно сделать: добавить новую запись, произвести поиск по полю «ФИО» или «Должность» или выйти из программы.
Для добавления новой записи в базу данных необходимо на главной стартовой форме программы нажать на кнопку «Редактирование»,
затем «Добавить».
При этом откроется новое окно программы – «Добавление новой записи в Базу Данных», в котором необходимо заполнить все поля: «ФИО», «Должность»
Далее для просмотра дополнительной информации о сотруднике воспользоваться вкладками.
После этого, если пользователя устраивает вся введённая информация, ему следует нажать на кнопку «ОК», далее запись успешно добавляется в базу данных, иначе на экране появится сообщение об ошибке. Исправив ошибки, можно сохранить запись в базу данных.
При закрытии окна «Добавление новой записи в Базу Данных» программа вернётся к главной стартовой форме.
Для поиска записи по базе данных необходимо на главной стартовой форме программы надать кнопку «Поиск»,затем ввести в специальное поле поиска либо ФИО клиента (полностью совпадающее с искомым), либо Должность, и нажать на кнопку «ОК». При этом откроется новое окно программы – «Поиск записи по Базе Данных», в котором будет происходить дальнейшая работа по редактированию и управлению записями. Если какое либо поле не отмечено, кнопка «ОК» останется неактивной.
Если подходящей записи (со 100%-ным совпадением) не обнаружено, программа сообщит об этом. Если же подходящая запись обнаружена, в появившемся окне «Поиск записи по Базе Данных» она окажется выделенной в таблице для редактирования.
С выделенной записью можно производить следующие действия:
Вкладки редактирования подробной информации о сотруднике содердат (Рабочую информацию, информацию об образовании, составе семьи, квалификации.
На кажной вкладке имеется кнопка «Редактировать» нажав на которую можно изменить информацтю о сотруднике.
Навигацию по программе можно осушествлять расположенным вверху окна кнопками компонента TDBNavigator.
Так же на форме имеется кнопка «Об авторе» нажав на которую можно получить информацию о разработчике.
На данный момент многие предприятия нуждаются в програмных продуктах автоматизирующих и облегчающих их работу. В ходе курсового проэкта был разработан програмный продукт отвечающий всем современным требованиям. Реализован учет кадров в базу данных.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, unit2, unit3,unit5,
Menus, CheckLst,IBSQL;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label1: TLabel;
SpisokT: TTable;
SpisokS: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
TabSheet2: TTabSheet;
Button7: TButton;
LichS: TDataSource;
LichT: TTable;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
DBText6: TDBText;
DBText7: TDBText;
DBText8: TDBText;
DBText9: TDBText;
DBText10: TDBText;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
DBText11: TDBText;
DBText12: TDBText;
TabSheet3: TTabSheet;
RabS: TDataSource;
RabT: TTable;
Button8: TButton;
TabSheet4: TTabSheet;
Button9: TButton;
TabSheet5: TTabSheet;
ObrS: TDataSource;
LangS: TDataSource;
LangT: TTable;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
Button10: TButton;
TabSheet6: TTabSheet;
SemS: TDataSource;
SemT: TTable;