Файл: Проектирование информационных систем. Проектирование реализации операций бизнес-процесса (Управление персоналом).pdf

Классификация связей

При проектирование БД информацию обычно размещают в нескольких таблицах.

Отношения, представленные в данной БД приведены к третей нормальной форме.

Рисунок 13 Логическая модель базы

Заданные ограничения предметной области:

1. Директор или начальник являются сотрудниками;
2. В одном городе может быть только один филиал;
3. Один сотрудник имеет одну должность;
4. Один отдел может одновременно находится в разных филиалах (например, отдел бухгалтерии может быть в филиале Челябинска и филиале Екатеринбурга);
5. Чтобы стать директором, сотрудник должен отработать в компании более 5 лет;
6. Чтобы стать начальником отдела, сотрудник должен отработать в компании более 3 лет.

Физическая модель БД

Физическая модель данных зависит от конкретной системы управления базами данных, фактически являясь отображением системного каталога. В физической модели содержится информация обо всех объектах базы дынных. Поскольку стандартов на объекты базы данных не существует, физическая модель зависит от конкретной реализации СУБД. Разработанная физическая модель для СУБД изображена на рисунке 13.

Рисунок 13 Физическая модель данных

Результатами стадии разработки концептуальной модели данных является структура проектируемой ИС, концептуальная схема базы данных: логическая и физическая модели данных предметной области. Физическая модель генерируется в СУБД, где создается база данных с названиями полей, таблицы, которой не содержат записей.

Рисунок 14 Диаграмма сущность-связь базы данных

2.6. Структурная схема пакета (дерево вызова программных модулей)

Всю структуру программы можно будет отобразить в блок-схеме, который продемонстрирован на рисунке 15.

Рисунок 15 Структура программных модулей

Таблица 6

Описание функций модулей

 2.7 Описание программных модулей

Основные вычисления в программе происходят при загрузке системы.

Блок-схема алгоритма программного модуля подключения- отключения агента к серверной части изображена на рисунке 16.

Рисунок 16 Блок-схема алгоритма модуля формирования карточки

2.8. Контрольный пример реализации проекта и его описание

Описание приложения для работы с БД

Запросы к БД.

Запросы — это объект базы данных, который служит для извлечения данных из таблиц и предоставления их пользователю в удобном виде. Особенность запросов состоит в том, что они черпают данные из базовых таблиц и создают на их основе временную таблицу.

Все запросы делятся на две группы: запросы-выборки, запросы-действия.

Запросы-выборки осуществляют выборку данных из таблиц в соответствии с заданными условиями.

Запросы-действия позволяют модифицировать данные в таблицах: удалять, обновлять, добавлять записи.

В данной БД представлены следующие запросы:

1. Найти сотрудников, которые могут стать начальниками отделов или директорами (см. ограничения)

Рисунок 16 Запрос А

1. Найти сотрудников, которые работают не в том же городе, в котором прописаны.

Рисунок 17 Запрос В

1. Найти филиалы, где количество сотрудников, работающих на одной должности, больше, чем необходимо

Рисунок 18 Запрос С

1. Подсчитать сколько было принято сотрудников на работу в каждом месяце года, заданного пользователем.

Рисунок 19 Запрос D

Подразумевается, что на определенное количество жителей одного города приходится 1 сотрудник определенной должности. Например, в Челябинске на 100 000 жителей приходится 1 менеджер, в Екатеринбурге на 100 000 жителей приходится 2 менеджера, в Перми на 100 000 жителей приходится 3 менеджера. Это значит, что на 100 000 в среднем необходимо 2 менеджера. Таким образом, видим, что в Челябинске не хватает 1 менеджера, а в Перми на одного менеджера больше, чем необходимо.

Отчет - это объект базы данных, который предназначен для вывода

В данной БД представлены следующие отчеты:

Рисунок 20 Отчет №1

Рисунок 21 Отчет №2

Рисунок 23 Отчет №3

Разработка приложения для работы с базой данных

Рисунок 24 Разработка приложения в среде Delphi

Экранные формы

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

Форма предоставляет возможности для:

1. Ввода и просмотра информации базы данных

2. Изменения данных

3. Печати

4. Создания сообщений.

В данной БД представлены следующие формы:

Рисунок 25 Приложение в запущенном виде

Рисунок 26 Формирование отчетов

Заключение

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

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

Итогом выполнения курсовой работы есть разработанное в Delphi приложения баз данных, которое позволяет автоматизировать заданные операции учета и условия составления отчетов в отделе кадров предприятия. Разработанное приложение соответствует всем заданным требованиям предметной области, таблицы разработанной базы данных в Access соответствуют запросам нормализации, что разрешает полностью обеспечивать целостность и сохранность необходимой информации.

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

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

Список использованной литературы

1. ГОСТ 2.105-95 ЕСКД. Общие требования к текстовым документам (с Изменением N 1).
2. ГОСТ 7.32- 2001 Структура и правила оформления 22с.
3. ГОСТ Р 50922-2006 Защита информации. Основные термины и определения.
4. ГОСТ Р ИСО/МЭК 12207-2010 Информационная технология. Системная и программная инженерия. Процессы жизненного цикла программных средств.
5. Александров, Д.В. Инструментальные средства информационного менеджмента. CASE-технологии и распределенные информационные системы. [Электронный ресурс] — Электрон. дан. — М. : Финансы и статистика, 2011. — 224 с. — Режим доступа: http://e.lanbook.com/book/5306 — Загл. с экрана.
6. И.П. Карпова. Базы данных: Учебное пособие. СПб: Питер, 2013г. – 240с.
7. М.П. Малыхина. Базы данных: основы, проектирование, использование. 2-е изд. СПб: БХВ-Петербург, 2007.
8. В.В. Кирилов, Г.Ю. Громов. Введение в реляционные базы данных. – СПб.:БХВ-Петербург, 2009г. – 464с.

Приложения

Исходный код программы

unit Unit1;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, ComCtrls, StdCtrls, comobj;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

ADOTable1: TADOTable;

TabSheet2: TTabSheet;

ADOTable2: TADOTable;

DataSource2: TDataSource;

DBNavigator2: TDBNavigator;

DBGrid2: TDBGrid;

TabSheet5: TTabSheet;

Button1: TButton;

lblCountTab1: TLabel;

lblCountTab2: TLabel;

Timer1: TTimer;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(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

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

access:variant;

const

acViewPreview = $00000002;

acQuitSaveAll = $00000001;

begin

try

Access := CreateOleObject('Access.Application');

except

Access := CreateOleObject('Access.Application');

End;

Access.Visible:=true;

Access.OpenCurrentDatabase(ExtractFilePath(Application.ExeName)+'db.mdb',true);

Access.DoCmd.OpenReport(string('A'), acViewPreview, EmptyParam, EmptyParam);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

access:variant;

const

acViewPreview = $00000002;

acQuitSaveAll = $00000001;

begin

try

Access := CreateOleObject('Access.Application');

except

Access := CreateOleObject('Access.Application');

End;

Access.Visible:=true;

ccess.OpenCurrentDatabase(ExtractFilePath(Application.ExeName)+'db.mdb',true);

Access.DoCmd.OpenReport(string('B'), acViewPreview, EmptyParam, EmptyParam);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

access:variant;

const

acViewPreview = $00000002;

acQuitSaveAll = $00000001;

begin

try

Access := CreateOleObject('Access.Application');

except

Access := CreateOleObject('Access.Application');

End;

Access.Visible:=true;

Access.OpenCurrentDatabase(ExtractFilePath(Application.ExeName)+'db.mdb',true);

Access.DoCmd.OpenReport(string('C'), acViewPreview, EmptyParam, EmptyParam);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

access:variant;

const

acViewPreview = $00000002;

acQuitSaveAll = $00000001;

begin

try

Access := CreateOleObject('Access.Application');

except

Access := CreateOleObject('Access.Application');

End;

Access.Visible:=true;

Access.OpenCurrentDatabase(ExtractFilePath(Application.ExeName)+'db.mdb',true);

Access.DoCmd.OpenReport(string('D'), acViewPreview, EmptyParam, EmptyParam);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ADOConnection1.Close;

end;

procedure TForm1.FormShow(Sender: TObject);

var BaseName, ConString:string;

begin

PageControl1.ActivePageIndex:= 0;

BaseName:='db.mdb'; {файл должен находиться в корневом каталоге}

ConString:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Password="";User ID=Admin;Data Source='+BaseName;

AdoConnection1.ConnectionString:=ConString;

AdoConnection1.Open;

ADOTable1.TableName:='Сотрудники';

AdoTable1.Active:=true;

ADOTable2.TableName:='Филиалы и отделы';

AdoTable2.Active:=true;

Timer1.Enabled:= true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

lblCountTab1.Caption:= 'Кво записей: '+IntToStr(ADOTable1.RecordCount);

lblCountTab2.Caption:= 'Кво записей: '+IntToStr(ADOTable2.RecordCount);

end;

end.

1. http://www.intuit.ru/studies/courses/3439/681/lecture/14023 ↑