Файл: Проектирование ИС предприятия оптовой торговли.pdf

Рисунок 17 – Форма «Должности»

Рисунок 18 – Форма «Товар»

Работа с заказами выполняется по средствам использования пользовательской формы «Заказ», которая включает всю необходимую информацию о заказе, рис. 19. В данной форме, также, используются подстановочные поля, это поле код организации, ФИО сотрудника, ФИО поставщика, метод доставки, наименование товара.

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

Рисунок 19 – Форма «Заказ»

Ввод и редактирование данных о договорах выполняется по средствам использования специальной формы «Договор» которая изображена на рис. 20. Данная форма включает связь с вспомогательным документом «Заказ», по средствам использования данной связи можно получить всю информацию по текущему заказу, это обеспечивается использованием реляционной модели базы данных. Например, по средствам использования запросов можно получить данные о цене товара, сумме скидки, цене доставки и др. без добавления данных полей на форму «Договор».

Рисунок 20 – Форма «Договор»

Для обработки базы данных информационной системы были разработаны несколько запросов: реестр товаров; реестр заказов; реестр договоров.

Запрос «Реестр товаров» предназначен для вывода сводной информации о реализуемых товарах. Данная информация представлена в виде таблицы; если пользователю нужно найти определенный товар, в функциях данной формы есть возможность поиска товара по его названию.

Например, для выполнения оперативного поиска информации о стиральном порошке «Стиральный порошок Persil универсальный свежесть vernal, 4.5 кг» необходимо ввести его название в специальное поле и клацнуть кнопку «Найти». После чего в таблице останется одна запись, характеризующая необходимый товар. Интерфейс запроса «Реестр товаров» представлен на рис. 21.

Рисунок 21 – Форма «Реестр товаров»

Запрос «Реестр заказов» предназначен для вывода сводной информации о оформленных заказах. Для выборки заказов необходимо ввести необходимую дату, рис. 22.

Запрос «Реестр договоров» предназначен для вывода сводной информации о заключенных договорах. Для поиска необходимого договора необходимо ввести его номер, рис. 23.

Рисунок 22 – Форма «Реестр заказов»

Рисунок 23 – Форма «Реестр договоров»

Таким образом, был описан полный ход работы с разработанной информационной системой.

ЗАКЛЮЧЕНИЕ

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

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

В качестве среды разработки были выбраны СУБД Microsoft Access и объектно-ориентированная среда разработки Delphi.

Среда разработки Delphi является средой программирования, в которой сочетаются простота и удобство с мощью и гибкостью объектно-ориентированного программирования. Она обеспечивает визуальное проектирование пользовательского интерфейса и уникальные по своей простоте и мощи средства доступа к базам данных, например, с легкостью можно организовать доступ к базе данных Access, Paradox.

Mісrоsоft Ассess представляет собой систему управления базами данных (СУБД) реляционного типа и позволяющая эффективно управлять данными. Одним из достоинств Mісrоsоft Ассess является простой графический интерфейс, который позволяет создавать разнообразные базы данных с необходимым интерфейсом доступа к ним, с использованием встроенных средств разработки. В качестве средств разработки СУБД Mісrоsоft Ассess используются элементы управления, запросы, отчеты и макросы.

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

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

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Архангельский А.Я. Программирование в Delphi 7. М.: Бином, 2012. – 1152 с.
2. Архангельский А.Я. Delphi 2009. Справочное пособие. Откорректированное и дополненное – М.: Бином, 2009. – 569 с.
3. Вендров А.М. Проектирование программного обеспечения экономических информационных систем: Учебник. – 2-е изд., перераб. и доп. – М.: Финансы и статистика, 2009. – 554 с.
4. Гвоздева В.А. Базовые и прикладные информационные технологии: Учебник / Гвоздева В. А. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2015. – 384 с.
5. Гвоздева В.А. Информатика, автоматизированные информационные технологии и системы: Учебник / В.А. Гвоздева. - М.: ИД ФОРУМ: НИЦ ИНФРА-М, 2015. – 544 с.
6. Голицына О.Л. Языки программирования: Учебное пособие / О.Л. Голицына, Т.Л. Партыка, И.И. Попов. - 3-e изд., перераб. и доп. - М.: Форум: ИНФРА-М, 2015. – 400 с.
7. Грошев А.С. Информационные технологии : лабораторный практикум / А. С. Грошев. – 2-е изд. – М.-Берлин: Директ-Медиа, 2015. – 285 с.
8. Грошев А.С., Закляков П. В. Информатика: учеб. для вузов – 3-е изд., перераб. и доп. – М.: ДМК Пресс, 2015. – 588 с.
9. Грызлов В. И., Грызлова Т. П. Турбо Паскаль 7.0. – М.: ДМК Пресс. – 400 с.
10. Гуда А.Н., Колесников В.И. Информатика и программирование: компьютерный практикум – М.: Дашков и К, 2010. – 240 с.
11. Гультяев А.К., Машин В.А. Проектирование и дизайн пользовательского интерфейса. – СПБ.: Корона Принт, 2009. – 536 с.
12. Затонский А.В. Информационные технологии: разработка информационных моделей и систем: Учеб. пос. / А.В.Затонский - М.: ИЦ РИОР: НИЦ ИНФРА-М, 2014. – 344 с.
13. Кабанов В.А. Кабанов, В. А. Практикум Access [Электронный ресурс] / В. А. Кабанов. - М.: Инфра-М, 2015. – 55 с.
14. Кантор М. Управление программными проектами. Практическое руководство по разработке успешного программного обеспечения / М. Кантор. - М.: Вильямс, 2012. – 758 с.
15. Карминский А.М. Методология создания информационных систем: Учебное пособие / А.М. Карминский, Б.В. Черников. - 2-e изд., перераб. и доп. - М.: ИД ФОРУМ: ИНФРА-М, 2012. – 320 с.

ПРИЛОЖЕНИЕ

Код программы главной формы

unit prog;

interface

uses

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

Dialogs, Menus, XPMan, Unit2Klient, Unit3Organiz, Unit4Sotr, Unit5Postav,

Unit6Edin, Unit7Tip, Unit8Metod, Unit9Tovar, Unit10Zakaz, Unit11Dogovor,

jpeg, ExtCtrls, Unit12poisktovara, Unit13Dogovora, Unit14Tovaru;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

Image1: TImage;

Image2: TImage;

Image3: TImage;

N15: TMenuItem;

XPManifest1: TXPManifest;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form1: TForm1;

implementation

uses Unit15Dolgnost;

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);

begin

Close();

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form8.Show;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Form9.Show;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

Form10.Show;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

Form11.Show;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

Form12.Show;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

Form13.Show;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

Form14.Show;

end;

procedure TForm1.N18Click(Sender: TObject);

begin

Form15.Show;

end;

end.

Код программы (Реестр товаров)

unit Unit14Tovaru;

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, DBCtrls, ExtCtrls, Mask, jpeg, Grids,

DBGrids;

type

TForm14 = class(TForm)

Image1: TImage;

Image2: TImage;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

Button1: TButton;

Edit1: TEdit;

DBGrid1: TDBGrid;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.Button1Click(Sender: TObject);

begin

try

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Text:='';

ADOQuery1.SQL.Add('SELECT * FROM Товар WHERE [Наименование товара] LIKE ''%'+Edit1.Text+'%''');

ADOQuery1.Active:=True;

except

on e:Exception do

end;

end;

end.

Код программы (Реестр товаров)

unit Unit13Dogovora;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, jpeg, StdCtrls;

type

TForm13 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

ComboBox1: TComboBox;