Файл: Проектирование реализации операций бизнес-процесса «Управление персоналом» (Выбор комплекса задач автоматизации)..pdf
Добавлен: 25.05.2023
Просмотров: 314
Скачиваний: 2
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
end;
BUTTON 2 – наименование «Личные карточки».
Двойным щелчком на кнопке вызываем событие ON CLICK. В открывшейся UNIT 1 прописываем следующий код, который и будет вызывать открытие необходимой формы.
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.show;
end;
BUTTON 3 – наименование «Кадровый учет сотрудников».
Двойным щелчком на кнопке вызываем событие ON CLICK. В открывшейся UNIT 1 прописываем следующий код, который и будет вызывать открытие необходимой формы.
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.show;
end;
BUTTON 4- наименование «Учет текучести кадров».
Двойным щелчком на кнопке вызываем событие ON CLICK. В открывшейся UNIT 1 прописываем следующий код, который и будет вызывать открытие необходимой формы.
procedure TForm1.Button4Click(Sender: TObject);
begin
Form5.show;
end;
Рисунок 25– Готовая форма FORM 1 «ПРИВЕТСТВИЕ»
Компилируем программу и запускаем ее на выполнение, нажимая на кнопку RUN.
Рисунок 26 – Загрузка окна «ПРИВЕТСТВИЕ»
Нажимая на кнопку «Прием на работу», пользователь попадает в:
Рисунок 27 – Загрузка окна «Прием на работу»
Рисунок 28– Загрузка окна «Личная карточка сотрудника ООО «Орхидея»»
В окно «Кадровый учет сотрудников» можно попасть из этого окна, нажав на кнопку «Кадровый учет сотрудников», либо вернувшись в главное меню.
Рисунок 29– Загрузка окна «Кадровый учет сотрудников»
Вызов печати документа представляется окном:
Рисунок 30– Загрузка окна «ПЕЧАТЬ»
Рисунок 31 – Загрузка окна «Учет текучести кадров»
Вызов печати документа осуществляется аналогичным образом.
Таким образом в заключении раздела были сделаны следующие выводы:
- была создана информационная система, которая позволит пользователю – сотруднику отдела кадров – вести кадровый учет по предприятию.
Преимуществами данного информационного обеспечения, созданного для предприятия ООО «Орхидея», являются следующие:
- автоматизация кадрового учета на анализируемом предприятии.
- осуществление в электронном режиме приема на работу нового сотрудника на предприятие ООО «Орхидея».
- анализ всех личных карточек работников предприятия ООО «Орхидея».
- анализ кадров и осуществление кадрового учета на предприятии, а также просмотр всей информации о сотруднике, который работает на данном предприятии.
- анализ текучести кадров, который включает в себя две формы: анализ принятых сотрудников и анализ уволенных сотрудников на предприятии.
ЗАКЛЮЧЕНИЕ
В заключении данной курсовой работы можно сделать следующие выводы:
В первой главе данной курсовой работы были сделаны следующие выводы:
- были определены задачи автоматизации процессов на предприятии.
- были обоснованы проектные решения по программному и информационному обеспечению.
Во второй главе данной работы можно сделать следующие выводы:
Пользователь, в данном случае сотрудник отдела кадров, заходит в программное обеспечение, откуда он попадает в окно приветствия, где может выбрать необходимое действие:
- прием сотрудника на работу на предприятие ООО «Орхидея».
- анализ и учет личных карточек сотрудника на предприятии ООО «Орхидея».
- осуществление кадрового учета сотрудников на предприятии ООО «Орхидея». Из данной формы можно вывести отчет о кадрах на печать.
- анализ и учет текучести кадров на предприятии ООО «Орхидея», то есть учет принятых и уволенных сотрудников. Из данной формы можно вывести отчет о текучести кадров на печать.
Из каждой формы можно выйти на главное окно приветствия.
- была создана информационная система, которая позволит пользователю – сотруднику отдела кадров – вести кадровый учет по предприятию.
Преимуществами данного информационного обеспечения, созданного для предприятия ООО «Орхидея», являются следующие:
- автоматизация кадрового учета на анализируемом предприятии.
- осуществление в электронном режиме приема на работу нового сотрудника на предприятие ООО «Орхидея».
- анализ всех личных карточек работников предприятия ООО «Орхидея».
- анализ кадров и осуществление кадрового учета на предприятии, а также просмотр всей информации о сотруднике, который работает на данном предприятии.
- анализ текучести кадров, который включает в себя две формы: анализ принятых сотрудников и анализ уволенных сотрудников на предприятии.
СПИСОК ЛИТЕРАТУРЫ
- Осипов Д. Л. Базы данных и Delphi. Теория и практика. — СПб.: БХВ-Петербург, 2011. - 752 с.
- Лекция 5: Модели организации баз данных [онлайн] - URL: http://www.intuit.ru/studies/courses/3439/681/lecture/14023 (дата обращения 11.10.2016)
- Реляционная база данных [онлайн] - URL: http://base.mybloge.net/relyacionnaya-baza-dannyx/ (дата обращения 01.11.2016)
- Введение в базы данных. Часть 2. Настольные СУБД // А.Федоров, Н. Елманова [онлайн] - URL: http://compress.ru/article.aspx?id=10282 (дата обращения 01.11.2016)).
- Глушаков С.В., Клевцов А.Л. «Программирование в среде Delphi 7.0». 2003г. с.528.
- Обзор языков программирования и средств разработки на их основе [онлайн] - URL: http://bukvi.ru/computer/obzor-yazykov-programmirovaniya-i-sredstv-razrabotki-na-ix-osnove.html (дата обращения 01.11.2016)
- Преимущества и особенности Delphi [онлайн] - URL: http://starik2222.narod.ru/trpp/lec/11.htm (дата обращения 01.11.2016)
- Преимущества Delphi и напутствие начинающему программисту [онлайн] - URL: http://pisali.ru/raferti/41237/ (дата обращения 01.11.2016)
ПРИЛОЖЕНИЕ 1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.show;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.show;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form5.show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, ExtCtrls;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable1DSDesigner: TAutoIncField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
ADOTable1DSDesigner5: TDateTimeField;
ADOTable1DSDesigner6: TWideStringField;
ADOTable1DSDesigner7: TWideStringField;
ADOTable1DSDesigner8: TDateTimeField;
ADOTable1DSDesigner9: TWideStringField;
ADOTable1DSDesigner10: TBCDField;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Close;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, ExtCtrls, ADODB;
type
TForm3 = class(TForm)
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBNavigator1: TDBNavigator;
ADOTable1DSDesigner: TAutoIncField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
ADOTable1DSDesigner5: TDateTimeField;
ADOTable1DSDesigner6: TWideStringField;
ADOTable1DSDesigner7: TWideStringField;
ADOTable1DSDesigner8: TDateTimeField;
ADOTable1DSDesigner9: TWideStringField;
ADOTable1DSDesigner10: TBCDField;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Button1: TButton;
Label10: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
form4.show;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm4 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
Label1: TLabel;
Button1: TButton;
PrintDialog1: TPrintDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
PrintDialog1.Execute;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm5 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
Label1: TLabel;
Button1: TButton;
DataSource2: TDataSource;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
ADOConnection2: TADOConnection;
ADOTable2: TADOTable;
Button2: TButton;
Label2: TLabel;
PrintDialog1: TPrintDialog;
PrintDialog2: TPrintDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
PrintDialog1.Execute
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
PrintDialog2.Execute;
end;
end.
ПРИЛОЖЕНИЕ 2
Унифицированная форма № Т-2
Утверждена Постановлением Госкомстата России
от 05.01.2004 № 1
|
Код |
|||
|
Форма по ОКУД |
0301002 |
||
|
по ОКПО |
|||
(наименование организации)