Дипломная работа: Автоматизация управления кадрами в Местной администрации городского округа Нальчик
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
построения системы коммуникаций между сотрудниками и накопительной базой
данных.
Реализация данных задач предполагала проведение исследовательских
работ, в результате которых были найдены оптимальные пути решения их
реализации. Были определены необходимые технические и программные
средства, произведен отбор наиболее подходящих из них.
Внедрение данного программного продукта приносит прибыль
организации в размере 17695 рублей, то есть снижает финансовые затраты на
78,6%. Снижение трудовых затрат за год составить 2470 часов.
Программа удачно влилась в существующую инфраструктуру Местной
администрации г.о. Нальчик. Преимуществом разработанной программы
является простота в эксплуатации. Программа не требует длительного обучения
пользователей работе. Так же преимуществом программы является ее гибкость.
Ее с легкостью можно адаптировать к новым условиям.
Советник
Помощник
Помощник -
руководитель
Информационно
аналитический отдел
С тр у к тур а М е ст н о й адм и н и стр ац и и г.о. Н а л ьчи к
Управление
П р и лож ен и е 1
_
Управление делами
Отдел бухгалтерского
учета и отчетности
Хозяйственный отдел,
ТЛ\/1 I I Л I I /Л /"■ I / I Л 1~Л ПЛ1ЛЛ/М 1^ л"1*
Глава местной ад м и ни стр аци и
Департамент
архитектуры и
градостроительства
г
-----------------------------------------
1
ЧС, ЬДДС, АРС-ОЬ»
I
Фонд поддержки малого |
program OK;
ЛИСТИНГ ПРОГРАММЫ
uses
Forms,
Main in 'Main.pas' {MainForm},
Employers in 'Employers.pas' {FEmployers},
DataModule in 'DataModule.pas' {DM: TDataModule},
EditEmployers in 'EditEmployers.pas' {FEditEmployers},
SelectPhoto in 'SelectPhoto.pas' {FSelectPhoto},
JobTitles in 'JobTitles.pas' {FJobTitles},
EditJobTitles in 'EditJobTitles.pas' {FEditJobTitles},
FoundJobTitle in 'FoundJobTitle.pas' {FFoundJobTitles},
EditMotions in 'EditMotions.pas' {FEditMotions},
EditFamilys in 'EditFamilys.pas' {FEditFamilys},
EditChangesFIO in 'EditChangesFIO.pas' {FEditChangesFIO},
EditBookWorks in 'EditBookWorks.pas' {FEditBookWorks},
EditFormations in 'EditFormations.pas' {FEditFormations},
EditQualifications in 'EditQualifications.pas' {FEditQualifications},
EditIncQualifics in 'EditIncQualifics.pas' {FEditIncQualifics},
EditFurloughs in 'EditFurloughs.pas' {FEditFurloughs},
EditAwards in 'EditAwards.pas' {FEditAwards},
FoundEmployers in 'FoundEmployers.pas' {FFoundEmployers},
SaveLoad in 'SaveLoad.pas' {FSaveLoad},
Properties in 'Properties.pas' {FProperties},
Start in 'Start.pas' {FStart},
Select in 'Select.pas' {FSelect},
EditEnterPrises in 'EditEnterPrises.pas' {FEditEnterPrises};
{$R *.res}
begin
Application.Initialize;
try
F Start:=TF Start.Create(Application);
FStart.Show;
FStart.Update;
Applicati on.CreateF orm(TMainF orm, MainF orm);
Application.CreateForm(TFEmployers, FEmployers);
Application.CreateForm(TDM, DM);
Application.CreateForm(TFEditEmployers, FEditEmployers);
Application.CreateForm(TFSelectPhoto, FSelectPhoto);
Application.CreateForm(TFJobTitles, FJobTitles);
Application.CreateForm(TFEditJobTitles, FEditJobTitles);
Application.CreateForm(TFFoundJobTitles, FFoundJobTitles);
Application.CreateForm(TFEditMotions, FEditMotions);
Application.CreateForm(TFEditFamilys, FEditFamilys);
Application.CreateForm(TFEditChangesFIO, FEditChangesFIO);
Application.CreateForm(TFEditBookWorks, FEditBookWorks);
Application.CreateForm(TFEditFormations, FEditFormations);
Application.CreateForm(TFEditQualifications, FEditQualifications);
Application.CreateForm(TFEditIncQualifics, FEditlncQualifics);
Application.CreateForm(TFEditFurloughs, FEditFurloughs);
Application.CreateForm(TFEditAwards, FEditAwards);
Application.CreateForm(TFFoundEmployers, FFoundEmployers);
Application.CreateForm(TFSaveLoad, FSaveLoad);
Application.CreateForm(TFProperties, FProperties);
Application.CreateForm(TFSelect, FSelect);
Application.CreateForm(TFEditEnterPrises, FEditEnterPrises);
repeat
Application.ProcessMessages;
until FStart.CloseQuery;
finally
FStart.Free;
end;
Application.Run;
end.
unit JobTitles;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ComCtrls, ExtCtrls, DB;
type
TFJobTitles = class(TForm)
PanelJobTitles: TPanel;
SBJobTitles: TStatusBar;
DBGrJobTitles: TDBGrid;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FJobTitles: TFJobTitles;
SelectJobTitle:Byte;
RecSave: LongInt;
implementation
uses DataModule, EditJobTitles, FoundJobTitle, Employers, EditMotions,
EditEmployers, Select;
{$R *.dfm}
procedure AddJobTitle;
begin
EditJobTitles.JobTitleAdd:=True;
FJobTitles.Enabled:=False;
FEditJ obTitles.Show;
end;
procedure EditJobTitle;
begin
with DM do
if IBQJobTitles.RecordCount>0 then begin
EditJobTitles.JobTitleAdd:=False;
FJobTitles.Enabled:=False;
FEditJ obTitles.Show;
end else Application.MessageBox('HeT данных для
редактирования...','Message' ,MB_OK);
end;
procedure DeleteJobTitle;
var RecSave:LongInt;
begin
with DM do
if IBQJobTitles.RecordCount>0 then begin
if Application.MessageBox(Pchar('Удалить должность:
'+Trim(IBQJobTitlesJobTitle.AsString)+'?'),",ID_OK)=ID_OK then begin
if IBQJobTitles.RecordCount>1 then RecSave:=IBQJobTitles.RecNo-1;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Delete from JobTitles');
IBQExecSQL.SQL.Append('where ID='+IntToStr(IBQJobTitlesID.AsInteger));
IBQExecSQL.ExecSQL;
IBQJobTitles.Close;
IBQJobTitles.Open;
IBQJobTitles.RecNo:=RecSave;
end;
end else Application.MessageBox(rНет данных для
удаления','Сообщение',MB_OK);
end;
procedure JobTitleFound;
begin
with DM do FoundJobTitle.RecSave:=IBQJobTitlesID.AsInteger;
FJobTitles.Enabled:=False;
FF oundJ obTitles.Show;
end;
procedure TFJobTitles.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with DM do
case key of
VK_F2: AddJobTitle;
VK_F4: EditJobTitle;
Источник: https://baza.diplomsite.ru/previewfile/2244