Файл: Разработка регламента выполнения процесса «Управление запасами».pdf
Добавлен: 11.03.2024
Просмотров: 42
Скачиваний: 0
СОДЕРЖАНИЕ
1 Постановка задачи и разработка базы данных
1.1 Анализ и постановка задачи
1.2 Анализ ликвидности коммерческого банка
1.3 Определение взаимосвязей между сущностями
1.4 Задание первичных и альтернативных ключей, определение атрибутов сущностей
1.5 Создание физической модели данных
1.6 Описание физической модели
1.7 Требования, предъявляемые к базе
2 Разработка программы «Автоматизация деятельности ателье»
2.1 Технология разработки интерфейса пользователя
Неотъемлемой частью программного продукта, обеспечивающего максимальное удобство и эффективность работы с информацией является разработка его интерфейса.
При разработке интерфейса я руководствовалась следующими принципами:
- стандартизация – рекомендуется использовать стандартные, проверенные многими программистами и пользователями интерфейсные решения. Под решениями подразумеваются дизайн форм, распределение элементов управления в формах, их взаимное расположение, названия команд меню;
- удобство и простота работы – интерфейс должен быть интуитивно понятным, желательно, чтобы все действия легко запоминались и не требовали утомительных процедур: выполнения дополнительных команд, лишних нажатий на кнопки, вызова промежуточных диалоговых окон;
- внешний дизайн не должен утомлять зрение, он должен быть рассчитан на длительную работу пользователя с приложение в течение дня;
- не перегруженность форм – формы должны быть оптимально загружены элементами управления; при необходимости можно использовать вкладки или дополнительные страницы форм;
- группировка – элементы управления в форме необходимо группировать по смыслу, используя элементы группировки: рамки, фреймы;
- разреженность объектов форм – элементы управления следует располагать на некотором расстоянии, а не лепить друг на друга; для выделения элементов управления можно организовать пустые пространства в форме.
2.2 Работа с данными
Вкладка ввода данных состоит из полей, связанных с базой и кнопками работы с записями. Кроме простых текстовых полей на форме заполнения данных, располагаются и выпадающие списки. Также данные можно вывести в простейшие отчёты. Существует запрос, позволяющие получить список клиентов, удовлетворяющих условиям.
2.3 Назначение программной среды
Программа «Автоматизация деятельности ателье» представляет автоматизированное рабочее место для выполнения следующих задач:
- учет заказов в ателье;
- просмотр данных о клиентах;
- установление скидки постоянным клиентам;
2.4 Инструкция пользователя
Работа с приложением для пользователя начинается с запуска файла Project1.exe. На главной форме располагаются три основные кнопки, и меню.
Рисунок 2 – Изображение главной формы
В меню формы располагаются файл, справочники, мастера и клиенты. Обратимся к меню Справочники. Здесь мы можем просмотреть и отредактировать информацию о изделиях и деталях.
Рисунок 3 – Форма «Справочники»
В меню Мастера две вкладки Сотрудники и Группы мастеров, в них располагается информация о сотрудниках и группах мастеров, которую мы можем просмотреть и отредактировать.
Рисунок 4 – Форма «Сотрудники»
В меню Клиенты мы можем добавить нового клиента, удалить его, редактировать данные о клиенте, просмотреть.
Рисунок 5 – Форма «Клиенты»
Для того чтобы просмотреть заказы, заходим на вкладку Заказы в меню Файл.
Рисунок 6 – Форма «Заказы»
По кнопке Оформить заказ, попадаем на форму Оформление заказа, где формируем заказ.
Рисунок 7 – Форма «Оформление заказа»
2.5 Работа с запросами
В программе разработан запрос. Это запрос на поиск заказов по фамилии клиента. Он осуществлен следующим образом. Когда пользователь вводит фамилию клиента – автоматически включается запрос и проверяется условие, какие заказы сделал этот клиент.
with DataModule2.ADOQuery1 do begin
sql.clear;
active:=false;
sql.Add('select*');
sql.Add('from Заказ з,Клиенты к');
sql.Add('where к.Фамилия like '''+Edit1.text+'%''');
sql.Add('and к.КодКлиента=з.КодКлиента');
active:=true;
- Входные данные
База данных MS Access с таблицами.
Таблица «Заказ»:
Таблица «Сотрудники»:
Таблица «Клиенты»:
Таблица «Изделия»:
Таблица «Группа_Мастеров»:
Заключение
Для малых производственных и складских предприятий, предприятий розничной торговли автоматизация работы – это главное условие полноценного роста и развития бизнеса.
Сегодня невозможно вручную контролировать весь документооборот: поставки и отгрузки товаров, инвентаризацию склада и т. п. Автоматизация бизнеса – это возможность держать руку на пульсе событий, в любой момент получать необходимые отчеты и избегать ошибок и затрат, связанных с человеческим фактором.
Но когда речь идет о малом бизнесе, есть одна проблема – небольшое предприятие не всегда имеет достаточно ресурсов для проведения комплексной автоматизации. Отсутствие собственного штата ИТ-специалистов и понимания главных задач процесса не позволяет самостоятельно решить эту задачу.
Программа «Автоматизация деятельности Ателье» представляет собой автоматизированную систему. В базу данных программы внесены данные о клиентах и их заказах, данные о сотрудниках. Программа дает возможность добавлять, редактировать либо удалять данные о клиентах, данные о сотрудниках, добавлять заказы.
Данная программа позволяет автоматизированным путем вести учет заказов.
Список использованных источников
- Jesse R.H., Delphi (язык программирования) [Текст] / R.H. Jesse - М.: VSD, 2012. – 114 с.
- Акимов А. Г. Автоматизированная система электронного контроля // Молодой ученый. - 2013. - №11. - С. 39-40.
- Архангельский А.Н., Delphi 2006. Справочное пособие: Язык Delphi, классы, функции Win32 и NET [Текст] / А.Н. Архангельский - М.: Бином. Лаборатория знаний, 2015. 1152 с.
- Архангельский А.Н., Приемы программирования в Delphi на основе VCL [Текст] / А.Н. Архангельский - М.:Бином. Лаборатория знаний, 2013. - 944 с.
- Баженова И.Ю., Основы проектирования приложений баз данных [Текст] / И.Ю. Баженова - М.:Интернет-Университет Информационных Технологий (ИНТУИТ), 2016. – 261 с.
- Виснадул Б.Д., Технология разработки программного обеспечения [Текст] / Б.Д. Виснадул - М.:Форум, 2016. – 400 с.
- Голицына О.Л., Основы проектирования баз данных. [Текст]: Учебное пособие /О.Л. Голицына - М.: Форум, 2016. – 416 с.
- Грекул В.И., Управление внедрением информационных систем [Текст] / В.И. Грекул - М.: Интернет-Университет Информационных Технологий (ИНТУИТ), 2014. – 224 с.
- Григорьев М.В. Проектирование информационных систем: учебное пособие для вузов [Текст] / М.В. Григорьев, И.И. Григорьева. - М.: Издательство Юрайт, 2016. - 318 с.
- Джесси Р., Проектирование баз данных [Текст] / Р. Джесси - М.: VSD, 2013. – 100 с.
- Заботина Н., Проектирование информационных систем [Текст] / Н. Заботина - М.: Инфра-М, 2016. – 331 с.
- Илюшечкин В.М., Основы использования и проектирования баз данных. Учебник для академического бакалавриата [Текст] / В.М. Илюшечкин - М.: Юрайт, 2015. – 213 с.
- Информационные системы в экономике: учебник для академического бакалавриата [Текст] / В.Н. Волкова, В.Н. Юрьев, С.В. Широкова, А.В. Логинова; под ред. В.Н. Волковой, В.Н. Юрьева. - М.: Издательство Юрайт, 2016. - 402 с.
- Информационные системы и технологии в экономике и управлении: учебник для академического бакалавриата [Текст] / В.В. Трофимов [и др.]; под ред. В.В. Трофимова. - 4-е изд., перераб. и доп. - М.: Издательство Юрайт, 2016. - 542 с.
- Исаев Г.Н., Проектирование информационных систем [Текст]: учебное пособие / Г.Н. Исаев - М.: Омега-Л, 2013. – 424 с.
- Карминский А.М., Методология создания информационных систем [Текст] / А.М. Карминский - М.: Инфра-М, 2016. – 320 с.
- Коберн А., Быстрая разработка программного обеспечения [Текст] / А. Коберн - М.: Лори, 2014. – 314 с.
- Коваленко В.И., Проектирование информационных систем [Текст] / В.И. Коваленко - М.: Форум, 2015. – 320 с.
- Кон М., Scrum: гибкая разработка ПО. Описание процесса успешной гибкой разработки программного обеспечения [Текст] / М. Кон - М.: Вильямс Диалектика, 2016. – 576 с.
- Кон М., Пользовательские истории: гибкая разработка программного обеспечения [Текст] / М. Кон - М.: Вильямс Диалектика, 2012. – 256 с.
Приложение А
Фрагмент программного кода
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Buttons,
ADODB, DB;
type
TDataModule2 = class(TDataModule)
ADOConnection1: TADOConnection;
ADODetali: TADOTable;
ADOIzdelia: TADOTable;
ADOKlient: TADOTable;
ADOSotrydnik: TADOTable;
DataZakaz: TDataSource;
DataDetali: TDataSource;
DataIzdelia: TDataSource;
DataKlient: TDataSource;
DataSotrydnik: TDataSource;
ADOQuery1: TADOQuery;
ADOGruppaMaster: TADOTable;
ADOZakIzdDet: TADOTable;
DataGruppaMaster: TDataSource;
DataZakIzdDet: TDataSource;
ADOQuery1WideStringField: TWideStringField;
ADOQuery1_: TWideStringField;
ADOQuery1DateTimeField: TDateTimeField;
ADOQuery1DateTimeField2: TDateTimeField;
ADOQuery1Field: TStringField;
ADOQuery1Field2: TStringField;
ADOQuery1DateTimeField4: TDateTimeField;
ADOQuery1BCDField: TBCDField;
ADOQuery1AutoIncField: TAutoIncField;
ADOQuery1IntegerField2: TIntegerField;
ADOQuery1IntegerField3: TIntegerField;
ADOQuery1IntegerField: TIntegerField;
ADOQuery1Field3: TStringField;
DataSource1: TDataSource;
ADOKlientAutoIncField: TAutoIncField;
ADOKlientWideStringField: TWideStringField;
ADOKlientWideStringField2: TWideStringField;
ADOKlientWideStringField3: TWideStringField;
ADOKlientWideStringField4: TWideStringField;
ADOKlientWideStringField5: TWideStringField;
ADOZakIzdDetIntegerField: TIntegerField;
ADOZakIzdDetIntegerField2: TIntegerField;
ADOZakIzdDetField: TStringField;
ADOZakIzdDetField2: TCurrencyField;
ADOQuery2: TADOQuery;
DataSource2: TDataSource;
ADOTable1: TADOTable;
DataSource3: TDataSource;
ADOZakaz: TADOTable;
ADOSotrydnikAutoIncField: TAutoIncField;
ADOSotrydnikWideStringField: TWideStringField;
ADOSotrydnikWideStringField2: TWideStringField;
ADOSotrydnikWideStringField3: TWideStringField;
ADOSotrydnikIntegerField: TIntegerField;
ADOSotrydnikField: TStringField;
procedure ADOZakazCalcFields(DataSet: TDataSet);
procedure ADOColorBeforePost(DataSet: TDataSet);
procedure ADODetaliBeforePost(DataSet: TDataSet);
procedure ADOIzdeliaBeforePost(DataSet: TDataSet);
procedure ADOMaterialBeforePost(DataSet: TDataSet);
procedure ADOZakazBeforePost(DataSet: TDataSet);
procedure ADOKlientBeforePost(DataSet: TDataSet);
procedure ADOSotrydnikBeforePost(DataSet: TDataSet);
procedure ADOGruppaMasterBeforePost(DataSet: TDataSet);
procedure ADOZakIzdDetBeforePost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TDataModule2.ADOColorBeforePost(DataSet: TDataSet);
begin
if application.MessageBox(Pchar('Вы хотите сохранить изменения?'),'Сохранение',mb_YESNO)=id_no then
abort;
end;
procedure TDataModule2.ADODetaliBeforePost(DataSet: TDataSet);
begin
if application.MessageBox(Pchar('Вы хотите сохранить изменения?'),'Сохранение',mb_YESNO)=id_no then
abort;
end;
procedure TDataModule2.ADOGruppaMasterBeforePost(DataSet: TDataSet);
begin
if application.MessageBox(Pchar('Вы хотите сохранить изменения?'),'Сохранение',mb_YESNO)=id_no then
abort;
end;
procedure TDataModule2.ADOIzdeliaBeforePost(DataSet: TDataSet);
begin
if application.MessageBox(Pchar('Вы хотите сохранить изменения?'),'Сохранение',mb_YESNO)=id_no then
abort;
end;
procedure TDataModule2.ADOKlientBeforePost(DataSet: TDataSet);
begin
if application.MessageBox(Pchar('Вы хотите сохранить изменения?'),'Сохранение',mb_YESNO)=id_no then
abort;
end;
procedure TDataModule2.ADOMaterialBeforePost(DataSet: TDataSet);
begin
if application.MessageBox(Pchar('Вы хотите сохранить изменения?'),'Сохранение',mb_YESNO)=id_no then
abort;
end;
procedure TDataModule2.ADOSotrydnikBeforePost(DataSet: TDataSet);
begin
if application.MessageBox(Pchar('Вы хотите сохранить изменения?'),'Сохранение',mb_YESNO)=id_no then
abort;
end;
procedure TDataModule2.ADOZakazBeforePost(DataSet: TDataSet);
begin
if application.MessageBox(Pchar('Вы хотите сохранить изменения?'),'Сохранение',mb_YESNO)=id_no then
abort;
end;
procedure TDataModule2.ADOZakazCalcFields(DataSet: TDataSet);
begin
end;
procedure TDataModule2.ADOZakIzdDetBeforePost(DataSet: TDataSet);
begin
if application.MessageBox(Pchar('Вы хотите сохранить изменения?'),'Сохранение',mb_YESNO)=id_no then
abort;
end;
end.