Расчет по автоматизации показателей численности кадров
Экономическое решение задачи
Данные задачи:
Автоматизировать расчет среднесписочной численности работников организации в марте т.г., если 45 работников отработали полный календарный месяц; 15 работников отработали 25 календарных дней; 11 работников отработали 20 календарных дней; 7 работников отработали 11 календарных дней.
Программа автоматизированного расчета среднесписочной
численности работников организации предназначена для
автоматизированного расчета среднесписочной численности
рабочих за месяц.
Исходными данными являются численность работников, которые
отработали полный календарный месяц и численность
работников, отработавших определенное количество
календарных дней.
Формула расчета выглядит следующим образом:
Чсп = сумма(Чдн) /Д,
где
Чсп - среднесписочная численность за месяц,
Чдн - численность за каждый день периода,
Д - количество дней в периоде. Полученные ручным подсчетом результаты совпадают с результатами работы разработанной программы.
Составление программы по автоматизации и исчислению численности кадров организации.
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
trudoemkost: TEdit;
Label1: TLabel;
Label2: TLabel;
obem: TEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
fond: TEdit;
koef: TEdit;
uvelichenie: TEdit;
Label6: TLabel;
yavka: TEdit;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Button1: TButton;
procedure N6Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure trudoemkostKeyPress(Sender: TObject; var Key: Char);
procedure obemKeyPress(Sender: TObject; var Key: Char);
procedure fondKeyPress(Sender: TObject; var Key: Char);
procedure koefKeyPress(Sender: TObject; var Key: Char);
procedure uvelichenieKeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
Function getFloat(Str : String): Real;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.N6Click(Sender: TObject);
begin
Halt;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
trudoemkost.Text := '3,5';
obem.Text := '3400';
fond.Text := '1820';
koef.Text := '1,03';
uvelichenie.Text := '15';
yavka.Text := '';
end;
procedure TForm1.N4Click(Sender: TObject);
begin
trudoemkost.Text := '';
obem.Text := '';
fond.Text := '';
koef.Text := '';
uvelichenie.Text := '';
yavka.Text := '';
end;
procedure TForm1.N5Click(Sender: TObject);
var chislo1, chislo2 : Real;
begin
if ((trudoemkost.Text = '') or (obem.Text = '') or (fond.Text = '') or (koef.Text = '') or (uvelichenie.Text = '')) then
ShowMessage('Введите все данные')
else
begin
chislo1 := getFloat(trudoemkost.Text)*getFloat(obem.Text)/(getFloat(fond.Text) * getFloat(koef.Text));
chislo2 := getFloat(trudoemkost.Text)*getFloat(obem.Text) * (getFloat(uvelichenie.Text)/100 + 1)/(getFloat(fond.Text) * getFloat(koef.Text));
if chislo1 = chislo2 then yavka.Text := 'не изменится (' + FloatToStr(round(chislo1)) + ' чел.)';
if chislo1 > chislo2 then yavka.Text := 'уменьшится с ' + FloatToStr(round(chislo1)) + ' чел. до ' + FloatToStr(round(chislo2)) + ' чел. на ' + FloatToStr(round(chislo1 - chislo2)) + ' чел.';
if chislo1 < chislo2 then yavka.Text := 'увеличится с ' + FloatToStr(round(chislo1)) + ' чел. до ' + FloatToStr(round(chislo2)) + ' чел. на ' + FloatToStr(round(chislo2 - chislo1)) + ' чел.';
end;
end;
Function TForm1.getFloat(Str: String): Real;
begin
Result := 0;
if Length(Str) > 0 then
begin
try
Result := StrToFloat(Str);
except
Result := 0;
end;
end;
end;
procedure TForm1.trudoemkostKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8, #44]) then Key := #0;
with trudoemkost do
if (Pos(',', Text) > 0) AND (Key = #44) then Key:=#0;
end;
procedure TForm1.obemKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8, #44]) then Key := #0;
with obem do
if (Pos(',', Text) > 0) AND (Key = #44) then Key:=#0;
end;
procedure TForm1.fondKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8, #44]) then Key := #0;
with fond do
if (Pos(',', Text) > 0) AND (Key = #44) then Key:=#0;
end;
procedure TForm1.koefKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8, #44]) then Key := #0;
with koef do
if (Pos(',', Text) > 0) AND (Key = #44) then Key:=#0;
end;
procedure TForm1.uvelichenieKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8, #44, #45]) then Key := #0;
with uvelichenie do
begin
if (Pos(',', Text) > 0) AND (Key = #44) then Key:=#0;
if ((Pos('-', Text) > 0) OR (Length(Text) > 0)) AND (Key = #45) then Key:=#0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
N5Click(Sender);
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form2.Show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw;
type
TForm2 = class(TForm)
WebBrowser1: TWebBrowser;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormShow(Sender: TObject);
begin
WebBrowser1.Navigate(extractfilepath(paramstr(0))+'spravka.mht');
end;
end.
Блок-схема программы
Процедура 1.
Процедура 2.
Заключение
Проблема среднесписочной численности работников организации одна из актуальнейших проблем экономики, и чтобы упростить её мною была разработана программа.
В первом разделе курсовой работы были изучены теоретические аспекты прибыли организации. В результате теоретического исследования мы пришли к выводам, что прибыль зависит:
1. Спроса на товары или услуги.
2. От качества работы сотрудников организации.
3. От оборудования.
4. Затрат.
5. От выручки за реализованную продукцию.
6. Выплат налогов.
Далее мы произвели экономические расчёты по автоматизации и исчислению прибыли организации. В результате чего были выведены экономические формулы:
1. Рентабельность продукции.
2. Балансовая прибыль.
3. Прибыль от реализации продукции.
Во втором разделе курсовой работы была разработана программа для автоматизации и исчисления прибыли организации. Программа рассчитывает рентабельность продукции, балансовую прибыль, прибыль от реализации продукции. Имеет удобный и понятный интерфейс. Так же имеется справка.
Мы осознаём, что не все представленные нами задачи решены, однако мы считаем, что данное исследование вносит определённый вклад в исчисление прибыли организации и будет весьма полезна финансистам и экономистам и облегчит им работу.
Вывод: В курсовом проекте на тему: “Автоматизация и исчисление прибыли организации” в первой главе были рассмотрены теоретические аспекты прибыли: выведены экономические формулы, так же теория о среде программирования Delphi, и о языке программирования Object Pascal.
Во второй главе курсового проекта выбран язык программирования Delphi 7.0, решена задача ручным способом, составлена блок-схема, написана программа.
Список литературы
1. Азоев Г.Л. Конкуренция: Анализ, стратегия и практика. – М.: Центр экономики и маркетинга, 2008. – 207c.
2. Баканов М.И. Шеремет А.Д. Теория экономического анализа. - Н.: Учебник Финансы и статистика, 2009. – 351с.
3. Богданов А.И. Стратегическое управление научно-техническим прогрессом на предприятии (объединении). - М.: ВАФ, 2008. – 144 с.
4. Городецкий Г.Б. Информационные технологии организационного управления. – Братск: БГТУ, 2005. - 200 с.
5. Евдокимов В.В. Экономическая информатика. Учебник для вузов. Спб.: Инте, 2007. – 256 с.
6. Леонтьев В.И. Delphi 7 – М.: Москва, 2005. – 58 с.
7. Майе Д., Delphi 7.0: настольная книга программиста/ Дмитрий Еловой. – Мн.: Новое издание, 2008. – 520 с.
8. Ремизов Н. C. Delphi – М.: Питер, 2008. - 197 с.
9. Рудаков «Технология разработки ПП»,2007. – 344 с.
10. С. Бобровский Delphi 7 Учебный курс – Москва 2007.
11. Семакин И.Г. «Основы программирования».
12. Стражева В.И. Анализ хозяйственной деятельности в промышленности под ред. – М.: Выш. шк, 2004. – 230с.
13. Титаренко Г. А. Автоматизированные информационные технологии в экономике:– М.: Компьютер, ЮНИТИ, 2006. – 400с.
Приложения
Демонстрация работы программы «Расчет изменения среднесписочной численности работников организации» и диск.