Автор работы: Пользователь скрыл имя, 13 Января 2014 в 19:38, дипломная работа
Целью дипломной работы является создание автоматизированного рабочего места, учитывающее каждую единицу автозапчастей и автомобилей, комплектующие и историю их передвижения в рамках предприятия. Программное средство должно обеспечивать эффективную работу с имеющимися данными, предусматривать оперативное получение необходимой информации на консоли пользователя и в виде отчетов, а также повысить производительность труда начальника отдела автоматизации на плечи которого ложится комплекс работ по учету.
Введение……………………………………………………………………….....5
1 Обоснование актуальности разработки……………………...……………….6
1.1 Анализ предметной области………………………………………………...6
1.2 Структура информационных потоков предприятия……………………....8
1.2.1 Процесс приобретения новых автомобилей, автозапчастей и или расходных материалов…………………………………………………………...9
1.2.2 Процесс продажи или перемещения автомобилей и автозапчастей……9
1.3 Анализ программного средства с существующими аналогами…………...9
1.4 Выбор методов и средств создания программного средства……………..10
1.5 Обоснование выбора инструментальных средств разработки ПС…….…12
1.6 Математический аппарат программного средства………….......…..….....17
1.7 Техническое задание на разработку ПС……………………………………19
Вывод……………………………………………………………………………..19
2 Проектирование АРМ……………………………………………………...…20
2.1 Проектирование базы данных……………………………………………....20
2.1.1 Информационно логическая модель предметной области……………...21
2.1.2 Нормализация отношений……………………………………………..….23
2.1.3 Логическое проектирование…………………………………………...….25
2.1.4 Физическое проектирование…………………………………………...…27
2.1.5 Входные и выходные данные………………………………………….…30
2.2 Архитектура программного средства……………………………………...30
2.3 Реализация функционального назначения программного средства…..…32
2.4 Разработка алгоритма программного средства…………………………....33
2.5 Реализация математического метода решения задачи…………………....40
2.6 Тестирование программного средства……………………………………..43
Вывод…………………………………………………………………………….49
3 Разработка АРМ……………………………………………………...45
3.1 Руководство пользователя……………………………………………….…45
3.1.1 Запуск и выполнение программы……………………………………..…50
3.2Руководство системного программиста …………………………………...48
3.2.1 Системные требования …………………………………………...……...48
Вывод…………………………………………………………………………….48
4 Расчет экономической эффективности программного средства………..…49
4.1 Технико-экономическое обоснование проекта…………………………...49
4.2 Определение трудоемкости разработки программного продукта…….....49
4.3 Расчет себестоимости программного продукта…………………………...57
4.4 Расчет экономического эффекта от внедрения программного продукта..59
Вывод………………………………………………………………………….…61
Заключение……………………………………………………………………...72
Список использованных источников………………………………………….73
Приложение А Программный код……………………………………………..75
руб.
Срок окупаемости программного продукта рассчитывается по формуле (4.11).
, |
(4.11) |
где: - себестоимость программного продукта, руб.;
- стоимостные затраты при использовании ручного труда, руб.;
- стоимостные затраты при использовании программы, руб.
Для расчёта стоимостных затрат воспользуемся формулой (4.10):
Подставив в формулу (4.11) посчитанные числовые значения, получим:
.
Полученные экономические
Таблица 4.14 – Экономические показатели проекта
Наименование показателя |
Значение |
Ед. изм. |
1) Вспомогательные материалы |
450 |
руб. |
2) Основная зарплата |
14942.08 |
руб. |
3) Дополнительная зарплата |
1494.21 |
руб. |
4) Отчисления на социальные нужды |
5884.19 |
руб. |
5) Затраты на электроэнергию |
379.6 |
руб. |
6) Накладные расходы |
1643.63 |
руб. |
7) Экономический эффект |
11080.14 |
руб. |
8) Срок окупаемости |
12.09 |
мес. |
Вывод
В четвертой главе была рассчитана трудоемкость разработки, себестоимость ПС, экономическая эффективность от внедрения, а так же срок окупаемости.
Заключение
В данной дипломной работе было разработано программное средство Автоматизированное рабочее место менеджера по продажам автозапчастей и продажам автомобилей автосалона ООО «Автоконтактсервис».
Программное средство облегчает
ведение учета автомобилей и
автозапчастей, подготовку и выдачу
стандартных документов. Производится
контроль всей вводимой и редактируемой
информации, что приводит к уменьшению
ошибок ручной работы. Существует возможность
гибкого поиска и быстрого доступа
к обработке найденной
Программное средство позволяет оперативно получать всю необходимую информацию в удобной форме, позволяя при этом существенно упростить поиск автозапчастей и работу менеджера в целом. Существенно сокращая вероятность ошибки при сборе заказа и расчетах общей стоимости заказа, а также значительно экономит время.
В настоящее время результаты работы введены в эксплуатацию в отдел автоматизации ООО «Автоконтактсервис» и успешно справляется с поставленными задачами.
Список использованных источников
Приложение А Программный код
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
pid, good, zak, dl: integer;
personal: array[1..10,1..8] of string;
prise: array[1..5000,1..4] of string;
Excel: Variant;
su: integer;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit7;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form4 := TForm4.Create(Application);
Form4.Caption:= 'Заказ номер '+ inttostr(zak);
zak:=zak+1;
form4.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form7.show;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
form3.showmodal;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
begin
ShellExecute(Application.
PChar('open'),
PChar('http://www.mail.ru'),
Nil,
Nil,
SW_SHOW);
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var i: Integer;
begin
form1.close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: integer;
begin
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
i: integer;
begin
begin
if MessageDlg( 'Выйти из программы сейчас?',
<p class