Файл: Проектирование реализации операций бизнес-процесса «Складской учет» (Характеристика нормативно-справочной, входной и оперативной информации).pdf

1. Абрамов Г.В., Медведкова И.Е., Коробова Л.А. Проектирование информационных систем – Воронеж: ВГУИТ, 2012 г. - 172 с.
2. Базы данных / И.Е. Медведкова, Ю.В.Бугаев, С.В.Чикунов – Воронеж: ВГУИТ, 2014. – 105 с.
3. Боуман, Джудит, С., Эмерсон, Сандра, Л., Дарновски, Марси, Практическое руководство по SQL, 4-е издание.: Пер. с англ. – М.: Издательский дом «Вильямс», 2011. – 352 с.: ил. – Парал. тит. англ.
4. Брауде Э.Дж. Технология разработки программного обеспечения: пер. с англ. – СПб: Питер, 2004. – 523 с.
5. Венделева, М.А. Информационные технологии в управлении: Учебное пособие для бакалавров / М.А. Венделева, Ю.В. Вертакова. - М.: Юрайт, 2013. - 462 c.
6. Голицына, О.Л. Информационные технологии: Учебник / О.Л. Голицына, Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, ИНФРА-М, 2013. - 608 c.
7. Илюшечкин В. М.Основы использования и проектирования баз данных / В. М. Илюшечкин - М. :Юрайт, 2011. - 213 с.
8. Информатика для экономистов: Учебник для бакалавров / Под ред. В.П. Полякова. – М.: Юрайт, 2013. – 322 с.
9. Информационные ресурсы и технологии в экономике : Учебное пособие / Г. Н. Безрядина [и др.] ; Под ред. Б.Е.Одинцова, А.Н.Романова. - М. : Вузовский учебник: ИНФРА-М, 2013. – 526 с.
10. Когаловский М.Р. Перспективные технологии информационных систем. – М.: ДМК-Пресс, 2013. – с.288.
11. Леонтьев В.П. Работа на компьютере 2014. Windows 8.1. Office 2013. Office 365 – М.: Олма Медиа Групп, 2014. – 643 с.
12. Макарова Н.В Информатика: Учебник – М.:: Финансы и статистика, 2011. - 576 с.
13. Маклаков С. В. CASE-средства ERwin, BPwin ждя разработки информационных систем URL: http://dit.isuct.ru/ivt/books/CASE/case5/ (дата обращения: 22.11.2017)
14. Особенности бухгалтерского учета в оптовой и розничной торговле [Электронный ресурс]. URL: http://saldoconsult.ru/stati/osobennosti-buxgalterskogo-ucheta-v-optovoj-i-roznichnoj-torgovle/ (дата обращения: 20.11.2016).
15. Острейковский В.А. Информатика. Теория и практика / В.А.Острейковский, И.В.Полякова – М.: Оникс, 2012. – с.608.
16. Пташинский В. Самоучитель Office 2013. – М.: Эксмо, 2013. – 290 с.
17. Советов, Б.Я. Информационные технологии: Учебник для бакалавров / Б.Я. Советов, В.В. Цехановский. - М.: Юрайт, 2013. - 263 c.
18. Уткин В.Б. Информационные системы в экономике / В.Б.Уткин, К.В. Балдин – М.: Дашков и К, 2012 – 394 с.
19. Федотова, Е.Л. Информационные технологии и системы: Учебное пособие / Е.Л. Федотова - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 352 c.
20. Хлебников, А.А. Информационные технологии: Учебник / А.А. Хлебников. - М.: КноРус, 2014. - 472 c.
21. Хомоненко, А. Д. Базы данных : учеб. для вузов / А. Д. Хомоненко, В. М. Цыганков, М. Г. Мальцев ; под ред. А. Д. Хомоненко. – 6-е изд. – СПб. : КОРОНА-Век, 2010. – 736 с.
22. Цветкова М.С. Информатика и ИКТ. / М.С.Цветкова, Л.С.Великович 3-е изд., стер. - М.: ИНФРА, 2012. – 352 с.

ПРИЛОЖЕНИЯ

Приложение А

База Детский мирЦентр.mdb

Сведение о товарах, поставках и коллекциях

Загрузка главного модуля

База Детский мирЦентр.mdb

База Детский мирЦентр.mdb

Справочные данные

Справочные данные

База Детский мирЦентр.mdb

Сообщение об ошибке

Отчеты по поставкам

Отчеты

Параметры отчета

База Детский мирЦентр.mdb

Текущие действия

База Детский мирЦентр.mdb

Учет поступления и продажи товара

Сведения о магазинах

Формирование отчетов

Соединение с базой данных

Начало

Конец

Справочные данные

База Детский мирЦентр.mdb

Работа со справочниками

Данные о магазинах

Рисунок А1 – Функциональная схема программной системы

Приложение Б2

Коды модулей программы

unit Unit1; – модуль главной формы

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Image2: TImage;

Image1: TImage;

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

SpeedButton1: TSpeedButton;

BitBtn6: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses unit2,unit3,unit4,unit5,unit6,unit7;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form3.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Form4.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

Form5.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Form6.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

Form7.Show;

Form1.Hide;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Form1.close

end;

end.

unit Unit2; – модуль формы «Товары»

interface

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls, jpeg, ExtCtrls,Grids, DBGrids, DB,

ComCtrls, TabNotBk, ADODB, ExtDlgs;

type

TForm2 = class(TForm)

BitBtn1: TBitBtn;

Image1: TImage;

Label1: TLabel;

DBImage1: TDBImage;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit6: TDBEdit;

DBMemo1: TDBMemo;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

OpenPictureDialog1: TOpenPictureDialog;

SavePictureDialog1: TSavePictureDialog;

Button1: TButton;

Button2: TButton;

DBComboBox1: TDBComboBox;

DBComboBox2: TDBComboBox;

Label11: TLabel;

Label12: TLabel;

DBComboBox3: TDBComboBox;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Image2: TImage;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit8;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form2.Hide;

end;

//Процедура добавления рисунка в базу

procedure TForm2.Button1Click(Sender: TObject);

begin

if not OpenPicturedialog1.Execute then exit;

Form8.ADOTable6.Edit;

TBlobField(Form8.ADOTable6.FieldByName('Фото')).LoadFromFile(OpenPicturedialog1.Filename);

Form8.ADOTable6.Post;

end;

// Процедура удаления рисунка из базы

procedure TForm2.Button2Click(Sender: TObject);

begin

Form8.ADOTable6.Edit;

Form8.ADOTable6.FieldByName('Фото').Clear;

Form8.ADOTable6.Post;

end;

end.

unit Unit3; – модуль формы «Поставки»

interface

uses

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

Dialogs, StdCtrls, Buttons, DBCtrls, Mask, Grids, DBGrids;

type

TForm3 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

DBGrid1: TDBGrid;

Label4: TLabel;

Label5: TLabel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1,Unit8,Unit9;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form3.Hide;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Form9.QuickRep1.Preview;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form9.QuickRep1.Print;

end;

end.

unit Unit4; – модуль формы «Коллекции»

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, ExtCtrls, DBCtrls,

dbcgrids;

type

TForm4 = class(TForm)

BitBtn1: TBitBtn;

PageControl1: TPageControl;

TabSheet3: TTabSheet;

Label1: TLabel;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet4: TTabSheet;

DBGrid3: TDBGrid;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

DBCtrlGrid1: TDBCtrlGrid;

Label2: TLabel;

DBText1: TDBText;

Label4: TLabel;

DBText2: TDBText;

DBNavigator2: TDBNavigator;

DBGrid4: TDBGrid;

Label3: TLabel;

DBCtrlGrid2: TDBCtrlGrid;

Label5: TLabel;

DBText3: TDBText;

DBText4: TDBText;

DBText5: TDBText;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBText6: TDBText;

DBNavigator3: TDBNavigator;

Label9: TLabel;

Label10: TLabel;

DBCtrlGrid3: TDBCtrlGrid;

Label11: TLabel;

DBText7: TDBText;

DBText8: TDBText;

DBText9: TDBText;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

DBText10: TDBText;

Label15: TLabel;

Label16: TLabel;

DBCtrlGrid4: TDBCtrlGrid;

Label17: TLabel;

DBText11: TDBText;

DBText12: TDBText;

DBText13: TDBText;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

DBText14: TDBText;

Label21: TLabel;

Label22: TLabel;

DBCtrlGrid5: TDBCtrlGrid;

Label23: TLabel;

DBText15: TDBText;

DBText16: TDBText;

DBText17: TDBText;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

DBText18: TDBText;

DBCtrlGrid6: TDBCtrlGrid;

Label27: TLabel;

DBText19: TDBText;

DBText20: TDBText;

DBCtrlGrid7: TDBCtrlGrid;

Label28: TLabel;

DBText21: TDBText;

DBText22: TDBText;

DBCtrlGrid8: TDBCtrlGrid;

Label29: TLabel;

DBText23: TDBText;

DBText24: TDBText;

DBNavigator4: TDBNavigator;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1,Unit8;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form4.Hide;

end;

end.

unit Unit5; – модуль формы «Магазины»

interface

uses

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

Dialogs, StdCtrls, Buttons, dbcgrids, DBCtrls, ExtCtrls, Grids, DBGrids;

type

TForm5 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

DBCtrlGrid1: TDBCtrlGrid;

DBText1: TDBText;

DBText2: TDBText;

DBText3: TDBText;

DBComboBox1: TDBComboBox;

DBText4: TDBText;

DBText5: TDBText;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1,Unit8;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form5.Hide;

end;

end.

unit Unit6; – модуль формы «Валюты»

interface

uses

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

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

type

TForm6 = class(TForm)

BitBtn1: TBitBtn;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1,Unit8;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form6.Hide;

end;

end.

unit Unit7; – модуль формы «Таблица цветов»

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DB, ADODB, DBGrids, ExtCtrls, DBCtrls,

ExtDlgs;

type

TForm7 = class(TForm)

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBImage1: TDBImage;

Button1: TButton;

Button2: TButton;

OpenPictureDialog1: TOpenPictureDialog;

SavePictureDialog1: TSavePictureDialog;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit1,Unit8;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form7.Hide;

end;

//Процедура добавления цвета в базу

procedure TForm7.Button1Click(Sender: TObject);

begin

if not OpenPicturedialog1.Execute then exit;

Form8.ADOTable1.Edit;

TBlobField(Form8.ADOTable1.FieldByName('Îáðàçåö')).LoadFromFile(OpenPicturedialog1.Filename);

Form8.ADOTable1.Post;

end;

// Процедура удаления цвета из базы

procedure TForm7.Button2Click(Sender: TObject);

begin

Form8.ADOTable1.Edit;

Form8.ADOTable1.FieldByName('Îáðàçåö').Clear;

Form8.ADOTable1.Post;

end;

end.

unit Unit8; – модуль формы «ADO» - компоненты связи с базой данных

unit Unit8;

interface

uses

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

Dialogs, DB, ADODB,Grids, DBCtrls;

type

TForm8 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOTable2: TADOTable;

DataSource2: TDataSource;

ADOTable3: TADOTable;

DataSource3: TDataSource;

DataSource4: TDataSource;

ADOQuery1: TADOQuery;

DataSource5: TDataSource;

DataSource6: TDataSource;

ADOQuery2: TADOQuery;

DataSource7: TDataSource;

ADOQuery3: TADOQuery;

ADOQuery4: TADOQuery;

ADOTable4: TADOTable;

DataSource8: TDataSource;

ADOTable5: TADOTable;

DataSource9: TDataSource;

ADOTable6: TADOTable;

DataSource10: TDataSource;

ADOTable7: TADOTable;

ADOTable8: TADOTable;

DataSource11: TDataSource;

DataSource12: TDataSource;

ADOQuery5: TADOQuery;

DataSource13: TDataSource;

DataSource14: TDataSource;

ADOTable9: TADOTable;

private

{ Private declarations }

public

{ Public declarations }

end;

var Form8: TForm8;

implementation

{$R *.dfm}

end.

unit Unit9; – модуль формы формирования отчета

unit Unit9;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

TForm9 = class(TForm)

PrintDialog1: TPrintDialog;

QuickRep1: TQuickRep;

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

PageFooterBand1: TQRBand;

PageHeaderBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

QRSysData1: TQRSysData;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit1,Unit3;

{$R *.dfm}

end.