87
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. Агальцов В.П. Базы данных. В 2-х т. Т. 2. Распределенные и удаленные базы
данных - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013 г. - 272 c.
2. Бен-Ган И. Microsoft SQL Server 2008. Основы T-SQL - СПб: БХВ-Петербург,
2015 г. - 432 с.
3. Бритов Г.А. Моделирование бизнес-процессов / Бритов Г.А., Осипова Т.В. -
М.: LAP, 2014 г. – 124 с.
4. Вендров А.М. CASE – технологии. Современные методы и средства
проектирования информационных систем – М.: Финансы и статистика, 2017 г. - 230
с.
5. Гамма Э. Приемы объектно-ориентированного проектирования. Паттерны
проектирования / Гамма Э., Хелм Р., Джонсон Р., Влиссидес Дж. - СПб.: Питер, 2015
г. – 368 с.
6. Грекул В.И. Проектирование информационных систем / Грекул В.И.,
Денищенко Г.Н., Коровкина Н.Л. – М.: Интернет-университет информационных
технологий, 2018 г. - 321 с.
7. ГОСТ Р ИСО/МЭК 12207-2010. Информационная технология. Системная и
программная инженерия. Процессы жизненного цикла программных средств. - Введ.
01.03.12. - М.: Стандартинформ, 2012. – 98 с. – (Государственный стандарт
Российской Федерации).
8. Грофф Д. SQL. Полное руководство /Грофф Д., Вайнберг П., Оппель Э. -
СПб.: Вильямс, 2014 г. - 960 с.
9. Дейт К.Дж. Введение в системы баз данных. - К.: Диалектика, 2015 г. - 360 c.
10. Дунаев В.В. Базы данных. Язык SQL для студента – Издательство: БХВ,
2013 г. - 196 с.
11. Дюваль Поль М. Непрерывная интеграция. Улучшение качества
программного обеспечения и снижение риска - СПб: Вильямс, 2013 г. - 497 c.
12. Илюшечкин В.М. Основы использования и проектирования баз данных.
Учебник. - М.: Юрайт, 2014 г. - 214 с.
88
13. Кириллов В.В. Введение в реляционные базы данных. Введение в
реляционные базы данных / Кириллов В.В., Громов Г.Ю. - СПб.: БХВ-Петербург,
2015 г. - 464 c.
14. Коваленко В.В. Проектирование информационных систем. - М.: Форум,
2016 г. - 320с.
15. Коцюба И.Ю. Основы проектирования информационных систем. /
Коцюба И.Ю., Чунаев А.В., Шиков А.Н. - СПб: Университет ИТМО, 2015 г. – 206 с.
16. Редько В.Н. Базы данных и информационные системы. / Редько В.Н.,
Бассараб И.А. - М.: Знание, 2015 г. - 602 c.
17. Туманов В.Е. Основы проектирования реляционных баз данных. - М.:
Бином, 2014 г. - 420 c.
18. Хаббард Дж. Автоматизированное проектирование баз данных. - М.:
Мир, 2014 г. - 453 c.
19. Шаймарданов Р.Б. Моделирование и автоматизация проектирования
структур баз данных. - М.: Юнити, 2016 г. - 469 c.
20. Сайт разработчиков WMS Logistics Vision Suite [Электронный ресурс]
// http://www.skladcom.ru/wms.aspx?wms=69
21. Сайт разработчиков Система комплексной автоматизации
ARENA.WMS [Электронный ресурс] // http://www.arena-wms.ru
22. Сайт продукта Microsoft Dynamics AX «Управление Складом»
[Электронный ресурс] // http://impactsoft.ru/new/node/59
89
ПРИЛОЖЕНИЕ А
ИНФОРМАЦИОННАЯ МОДЕЛЬ
Т «Груз»
Т «Список
груза»
Спр.* «Клиент»
Т «Накладная»
Спр.* «Тип
груза»
Спр.* «Статус
накладной»
Спр.* «Условие
хранения»
Спр.* «Место
хранение»
Т «Рекламация»
Спр. «Клиент»
Спр. «Тип
груза»
Спр. «Статус
накладной»
Спр. «Условие
хранения»
Спр. «Место
хранение»
Кладовщик
Т* «Груз»
Т* «Список
груза»
Т* «Накладная»
Т*
«Рекламация»
ИС
Отчёт о поставке Отчёт о выдаче
Отчёт о хранении
груза
Кладовщик
Работа с
накладными
Работа с
рекламациями
Работа со
справочниками
Работа с картой
груза
Рис. А.1. Информационная модель
90
ПРИЛОЖЕНИЕ Б
ERD-МОДЕЛЬ БАЗЫ ДАННЫХ
Рис. Б.1. ERD-модель базы данных
Client
ID: INTEGER
Name: VARCHAR(60)
FIO: VARCHAR(60)
Phone: VARCHAR(15)
Address: VARCHAR(200)
Rekvizit: VARCHAR(100)
Place
ID: INTEGER
Kod: VARCHAR(10)
Uslov: INTEGER (FK)
Vol: INTEGER
Uslov
ID: INTEGER
Name: VARCHAR(20)
Nakl
ID: INTEGER
Nomer: INTEGER
Client: INTEGER (FK)
DatePlan: DATE
DateFact: DATE
TypeNakl: BOOLEAN
StatusNakl: INTEGER (FK)
Gruz: INTEGER (FK)
ListGruz
ID: INTEGER
Nomer: INTEGER
Itm: INTEGER (FK)
Opis: VARCHAR(200)
ItmCount: VARCHAR(20)
Vol: INTEGER
Kachestvo: INTEGER
Uslov: CHAR(18)
Gruz: INTEGER (FK)
Place: INTEGER (FK)
StatusNakl
ID: INTEGER
Name: VARCHAR(20)
Reklamac
ID: INTEGER
Nomer: INTEGER
DateCreate: DATE
Nakl: INTEGER (FK)
Opis: VARCHAR(200)
Itm
ID: INTEGER
Name: VARCHAR(20)
Gruz
ID: INTEGER
Nomer: INTEGER
DateStart: DATE
DateEnd: DATE
Nalich: BOOLEAN
91
ПРИЛОЖЕНИЕ В
ПРИМЕР ИСХОДНОГО КОДА ПРИЛОЖЕНИЯ
unit uMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ComCtrls, StdCtrls, Menus, ExtCtrls, DBCtrls, Mask,
Data.DB;
type
TfrmMain = class(TForm)
pnlMain: TPanel;
mm: TMainMenu;
imStore: TMenuItem;
imClient: TMenuItem;
imPlace: TMenuItem;
imBlanck: TMenuItem;
imClose: TMenuItem;
imLibrary: TMenuItem;
imTypeGruz: TMenuItem;
imStatusNakl: TMenuItem;
imUsl: TMenuItem;
imReport: TMenuItem;
imReport1: TMenuItem;
imReport2: TMenuItem;
imReport3: TMenuItem;
imSettings: TMenuItem;
imLink: TMenuItem;
pnlGrid: TPanel;
tcGrid: TTabControl;
92
grdMain: TDBGrid;
dtpDatePlan: TDateTimePicker;
dtpDateFact: TDateTimePicker;
edtNomer: TDBEdit;
cbClient: TDBLookupComboBox;
cbStatusNakl: TDBLookupComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
btnGruz: TButton;
btnSave: TButton;
btnCancel: TButton;
pmMain: TPopupMenu;
imAdd: TMenuItem;
imEdit: TMenuItem;
imDelete: TMenuItem;
pnlReklamac: TPanel;
txtReklamac: TDBText;
btnReklamac: TButton;
cbGruz: TDBLookupComboBox;
procedure tcGridChange(Sender: TObject);
procedure imAddClick(Sender: TObject);
procedure imEditClick(Sender: TObject);
procedure imDeleteClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure pmMainPopup(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnGruzClick(Sender: TObject);
93
procedure imLibraryClick(Sender: TObject);
procedure btnReklamacClick(Sender: TObject);
procedure imCloseClick(Sender: TObject);
procedure imClientClick(Sender: TObject);
procedure imPlaceClick(Sender: TObject);
procedure imLinkClick(Sender: TObject);
procedure imReportClick(Sender: TObject);
private
procedure FormMode(mode: boolean);
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
uses
uDM, uGruz, uLibrary, uReklamac, uClient, uPlace, uReport;
procedure TfrmMain.imLibraryClick(Sender: TObject);
var
frm: TfrmLibrary;
begin
Application.CreateForm(TfrmLibrary, frm);
frm.LoadLibrary((Sender as TMenuItem).Tag);
frm.ShowModal;
frm.Free;
end;
94
procedure TfrmMain.imLinkClick(Sender: TObject);
begin
DM.SettingLink;
end;
procedure TfrmMain.imPlaceClick(Sender: TObject);
var
frm: TfrmPlace;
begin
Application.CreateForm(TfrmPlace, frm);
frm.ShowModal;
end;
procedure TfrmMain.imAddClick(Sender: TObject);
begin
FormMode(false);
DM.tblNakl.Append;
// frmMain.dtpDateFact.DateTime:=StrToDate('01.01.1990');
end;
procedure TfrmMain.imClientClick(Sender: TObject);
var
frm: TfrmClient;
begin
Application.CreateForm(TfrmClient, frm);
frm.ShowModal;
end;
procedure TfrmMain.imCloseClick(Sender: TObject);
begin
Application.Terminate;
95
end;
procedure TfrmMain.imDeleteClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
DM.tblNakl.Delete;
end;
procedure TfrmMain.imEditClick(Sender: TObject);
begin
FormMode(false);
DM.tblNakl.Edit;
end;
procedure TfrmMain.pmMainPopup(Sender: TObject);
var
fl: boolean;
begin
fl:=grdMain.DataSource.DataSet.RecordCount>0;
imEdit.Visible:=fl;
imDelete.Visible:=fl;
end;
procedure TfrmMain.tcGridChange(Sender: TObject);
var
str: string;
begin
btnReklamac.Visible:=tcGrid.TabIndex=0;
txtReklamac.Visible:=tcGrid.TabIndex=0;
btnGruz.Visible:=tcGrid.TabIndex=0;
96
DM.tblNakl.Filtered:=false;
str:='';
if tcGrid.TabIndex=0 then str:='(TypeNakl=false) or (TypeNakl = Null)'
else str:='TypeNakl=true';
DM.tblNakl.Filter:=str;
DM.tblNakl.Filtered:=true;
end;
procedure TfrmMain.btnCancelClick(Sender: TObject);
begin
DM.tblNakl.Cancel;
FormMode(true);
end;
procedure TfrmMain.btnGruzClick(Sender: TObject);
//var
// frm: TfrmGruz;
begin
// Application.CreateForm(TfrmGruz, frm);
frmGruz.ShowModal;
end;
procedure TfrmMain.btnReklamacClick(Sender: TObject);
var
frm: TfrmReklamac;
begin
Application.CreateForm(TfrmReklamac, frm);
frm.Tag:=0;
if txtReklamac.Caption='' then DM.tblReklamac.Append
else begin DM.tblReklamac.Edit; frm.Tag:=1; end;
frm.ShowModal;