Размещено на http://www.allbest.ru/

Министерство образования и науки Украины

Харьковский Национальный университет радиоэлектроники

Кафедра Экономической кибернетики

Курсовая работа

по дисциплине: Современные компьютерные технологии

на тему: Расчет зарплаты работников

Выполнила:

ст. гр. ЕП-04-2

Погорелова О.В.

2007

1. Функциональные задачи информационной системы

1.1 Основные и второстепенные задачи

Функциональные задачи - это задачи, для решения которых предназначена разрабатываемая информационная система.

Основными задачами являются:

1. Расчет почасовой зарплаты работника.

2. Расчет премиальных.

3. Расчет общей суммы, выдаваемой работнику на руки.

Второстепенными задачами являются:

1. - Обеспечение взаимосвязи между таблицами;

2. - Работа с таблицами;

3. - Помощь в расчете показателей.

1.2 Входные и выходные данные для функциональных задач

Входные данные:

Ввод показателей:

- Фамилия Имя Отчество работника;

- Идентификационный код работника;

- Отдел;

- Количество отработанных часов;

- Часовая тарифная ставка;

- Премии работнику;

- Процент отчислений в бюджет.

Выходные данные:

- Сумма зарплаты, которую получит работник.

2. Описание процесса решения функциональных задач

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

2.1 Описание бизнес-процесса

Бизнес-процесс 1: определение почасовой зарплаты работника;

Бизнес-операция 1: выбрать работника и его идентификационный код;

Бизнес-операция 2: ввести данные по отработанному времени;

Бизнес-операция 3: ввести данные по дополнительному времени работы.

Бизнес-операция 4: ввести процент отчислений в бюджет и сделать расчет.

Выходная информация: зарплата работника за отработанное время.

Бизнес-процесс 2: определения полной зарплаты работника.

Бизнес-операция 1: ввести сумму начисленной премии;

Бизнес-операция 2: ввести процент отчислений в бюджет;

Бизнес-операция 3: получить данные расчета зарплаты за отработанное время и сделать расчет

Выходная информация: зарплата работника.

2.2 Математическая модель информационной системы

В процессе выполнения поставленной задачи «Автоматизация расчета зарплаты работника» была использована информация:

Отработанное время-количество часов явочного времени работника за месяц.

Часовая тарифная ставка - ставка рабочего в соответствии с законодательством и тарифно-квалификационной сеткой.

Отчисления - сумма обязательных платежей в бюджет.

Расчет зарплаты за отработанное время производится по формуле:

ЗП=((Ч_о*Ст)+(Ч_доп*2*Ст))*(1-Отч/100)+ПР*(1-Отч/100)

Где: Ч_о ? отработанные часы;

Ст - часовая тарифная ставка;

Ч_доп - дополнительные часы работы;

Отч - отчисления в бюджет;

ПР - премиальные.

2.3 Структура программного проекта

Размещено на http://www.allbest.ru/

2.4 Выбор аппаратных средств

Для реализации программного проекта применена система разработки приложений Borland Delphi 6, а значит для работы системы необходимо:

- ОС Windows;

- процессор Pentium - 200 МГц и выше;

- ОЗУ не менее 32 Мб;

- Наличие Borland Delphi 6.

3. Программная реализация информационной системы

Создание новой БД начинается в Database Desktop. Прежде всего необходимо создать новый алиас - это имя расположения моей БД. Для его создания необходимо выполнить пункт меню Tools\Alias Manager. В появившемся окне щелкнуть по кнопке New. В поле Database alias ввести имя создаваемого алиаса, в моем случае это «olya». Для фиксации изменений, необходимо щелкнуть по кнопке Keep New, затем по кнопке Ok c последующим подтверждением сохранения (Рис. 1).

Рисунок 1

Для создания новой таблицы БД необходимо выполнить пункт меню File\New\Table. В появившемся диалоговом окне выбрать тип таблицы dBase IV. (Рис. 2).

Рисунок 2

Далее, в появившемся окне, необходимо задать структуру таблицы, т.е. имена полей, их тип, размер и точность. Если необходимо проиндексировать таблицу по некоторому полю, нужно это поле сделать текущим, щелкнуть по кнопке Define и выполнить ряд действий, на рисунке (Рис. 3) видно, что моя таблица проиндексирована по полю IND KOD (Идентификационный код). После этого структуру таблицы необходимо сохранить в созданном алиасе, щелкнув по кнопке Save As. (Рис. 3).

Рисунок 3

Остальные таблицы создаются аналогично.

Затем необходимо войти в Delphi. Здесь производится основная часть работы, создается БД - осуществляется связь между компонентами и таблицами, строится визуальное оформление окон, проектируется интерфейс.

В первую очередь с помощью пункта меню “file new”создаем форму, которая будет определять внешний вид нашего приложения.

Для отображения БД в этой форме нам потребуются следующие компоненты с закладок: STANDARD (Label, Main Menu), DATA ACCESS (Data Sourсe), DATA CONTROLS (DBGrid, DBNavigator, DBEdit, BDE (Table) и другие.

DATA ACCSESS ? это закладка содержит не визуальные (невидимый во время выполнения программы) компоненты, которые обеспечивают данному приложению доступ к БД.

TDataSourсe - компонент, который осуществляет связь между интерфейсными компонентами и компонентами TTable.

Этот компонент также имеет два ключевых свойства. Первое из них - это TDataSet, являющееся классом Delphi, которое ссылается на компонент TTable нашей формы, Table1. Это означает, что при обмене данными с интерфейсными компонентами TDataSourсe, будет принимать или посылать эти данные от таблицы, связанной с Table1. Интерфейсные элементы обращаются к компонентам TDataSourсe, которые в свою очередь, обращается к компонентам TDataSet. Вторым ключевым свойством является свойство AutoEdit, значение которого по умолчанию true. Включение этого свойства приводит к автоматическому переключению TDataSourсe в режим редактирования при изменении данных в соответствующем интерфейсном компоненте.

Интерфейсный элемент - визуальный (видимый во время выполнения программы) компонент, который позволяет пользователю просматривать и изменять данные в базе, используя компоненты доступа к данным. Интерфейсные компоненты расположены во вкладке DATA CONTROLS палитры компонентов Delphi. Чтобы подключить таблицы данных к проекту необходимо воспользоваться компонентами Tablе и DataSource, расположенные на закладке Data Access компонентов. Важными свойствами компоненты Table являются DataBasaName, TableName, Activ и ряд других. Свойству DataBasaName, использовав выпадающий список присвоила значение своего алиаса «olya», теперь если открыть выпадающий список свойства TableName появится перечень таблиц, расположенных в моем алиасе и можно выбрать необходимую. После того, как значения свойств DataBasaName и TableName определены, можно установить физическую связь с таблицей, установив значение свойства Activ в true. Далее, для осуществления обмена информацией между компонентой - набором данных Table и компонентами визуализации и управления информацией, хранящейся в таблицах, настраиваю компоненту - источник данных DataSource. У компоненты DataSource ключевым свойством является свойство DataSet, которое должно указывать на компоненту - набор данных. Для того, чтобы установить связи между таблицами, для компонент Table каждой из подчинённых таблиц, необходимо присвоить соответствующие значения свойствам IndexName, MasterSource, MasterFields (свойству IndexName присвоить значение имени индекса ключевого поля; свойству MasterSource - имя компоненты - источника данных DataSource главной таблицы; свойству MasterFields - имя ключевого поля главной таблицы)

Далее, необходимо воспользоваться компонентой DBGrid, расположенную на странице Data Controls, позволяющую отображать содержимое набора данных в табличном виде. Свойству DataSource компоненты DBGrid присвоила значение имени компоненты - источника данных DataSource. На основном рабочем окне я разместила несколько кнопок, для облегчения работы с таблицей. Для осуществления управления окном программы, я воспользовалась компонентой MainMenu. Данная компонента, в отличие от созданного с ее помощью меню, является не визуальной. Для того, чтобы начать процесс проектирования меню, необходимо перейти в "мастер" построения меню, дважды щелкнув по компоненте MainMenu левой кнопкой мышки. В процессе проектирования необходимо вводить в меню новые пункты и подпункты, которые, По-существу, также являются компонентами со своими свойствами и событиями. Свойство Caption, в частности, определяет название этого пункта меню. Также все поля используемых таблиц переименовала на русские заголовки, используя составное свойство Title (Caption).

4. Реализация информационной системы

информационный зарплата база данные

При реализации проекта открывается главная форма (Рис. 4)

Рисунок 4

При нажатии на кнопку «Часовая зарплата» открывается форма 2 (Рис. 5)

Рисунок 5

При нажатии на кнопку «Премиальные» открывается форма 3 (Рис. 6):

Рисунок 6

При нажатии на кнопку «К выдаче» открывается форма 4 (Рис. 7):

Рисунок 7

На всех формах расположены меню управления, при помощи которых можно закрыть данные окна.

Вывод

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

Приложение

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

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

Button1: TButton;

Button2: TButton;

Table1IND_KOD: TFloatField;

Table1FAM: TStringField;

Table1OTD: TStringField;

DBNavigator1: TDBNavigator;

MainMenu1: TMainMenu;

OpenDialog1: TOpenDialog;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Button3: TButton;

SaveDialog1: TSaveDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

OpenDialog1.Execute;

if OpenDialog1.FileName<>'' then

Table1.Open;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

SaveDialog1.Execute;

if SaveDialog1.FileName<>'' then

Table1.Post;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N6Click(Sender: TObject);

Const NewLine=CHR(13)+CHR(10);

begin

MessageDlg('Данная программа'+NewLine+'разработана для расчета '+NewLine+'основной, дополнительной зарплаты, а также премиальных получаемых работникомм'+NewLine+'',mtInformation,[mbOk],0);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.Show;

end;

end.

unit Unit2;

interface

uses

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

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

type

TForm2 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Table1IND_KOD: TFloatField;

Table1VREM: TFloatField;

Table1DOP: TFloatField;

Table1STAVKA: TFloatField;

Table1NACHIS: TFloatField;

Table1ZP: TFloatField;

MainMenu1: TMainMenu;

SaveDialog1: TSaveDialog;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Table1.Edit;

Table1ZP.AsFloat:=(Table1VREM.AsFloat+Table1DOP.AsFloat*2)*Table1STAVKA.AsFloat*(1-Table1NACHIS.AsFloat/100);

Table1.Post;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

SaveDialog1.Execute;

if SaveDialog1.FileName<>'' then

Table1.Post;

end;

procedure TForm2.N3Click(Sender: TObject);

begin

Close;

end;

procedure TForm2.N5Click(Sender: TObject);

Const NewLine=CHR(13)+CHR(10);

begin

MessageDlg('Программа_разработана'+NewLine+'для расчета'+NewLine+'зарплаты за основное и дополнительное отработанное время '+NewLine+'',mtInformation,[mbOk],0);

end;

end.

unit Unit3;

interface

uses

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

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

type

TForm3 = class(TForm)

Table1: TTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1IND_KOD: TFloatField;

Table1PREM: TFloatField;

Table1NALOG: TFloatField;

Table1VIDAT: TFloatField;

Button1: TButton;

DBNavigator1: TDBNavigator;

MainMenu1: TMainMenu;

SaveDialog1: TSaveDialog;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Table1.Edit;

Table1VIDAT.AsFloat:=Table1PREM.AsFloat*(1-Table1NALOG.AsFloat/100);

Table1.Post;

end;

procedure TForm3.N2Click(Sender: TObject);

begin

SaveDialog1.Execute;

if SaveDialog1.FileName<>'' then

Table1.Post;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

Close;

end;

procedure TForm3.N5Click(Sender: TObject);

Const NewLine=CHR(13)+CHR(10);

begin

MessageDlg('Расчет'+NewLine+'премиальных и отчислений в бюджет'+NewLine+'',mtInformation,[mbOk],0);

end;

end.

nit Unit4;

interface

uses

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

Dialogs, Menus, Grids, DBGrids, DB, DBTables, StdCtrls;

type

TForm4 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

SaveDialog1: TSaveDialog;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Button1: TButton;

Table1IND_KOD: TFloatField;

Table1FAM: TStringField;

Table1ZARP: TFloatField;

procedure FormCreate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

begin

SaveDialog1.Execute;

if SaveDialog1.FileName<>'' then

Table1.Post;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

Close;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

Table1.Edit;

Table1ZARP.AsFloat:=

Form2.Table1ZP.AsFloat+

Form3.Table1VIDAT.AsFloat;

Table1.Post

end;

end.

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