85
12. Мартин Фаулер, Дейвид Райс, Мэттью Фоммел, Эдвард Хайет, Роберт Ми,
Рэнди Стаффорд. Шаблоны корпоративных приложений / Мэттью Фоммел,
Эдвард Хайет – М.Вильямс,2016 – 544 с.
13. Бабаш А., Баранова Е. Криптографические методы защиты информации /
А.Бабаш, Е.Баранова - М.: КноРус, 2017. - 192 c.
14. Валях Е. Последовательно-параллельные вычисления, - М.: Мир, 2015.
15. Васильев В. Интеллектуальные системы защиты информации. Учебное
пособие / В. Васильев. - М.: Инновационное машиностроение, 2017. - 202 c.
16. Васильков А., Васильков И. Безопасность и управление доступом в
информационных системах. Учебное пособие / А.Васильков. - М.: Форум Инфра-
М, 2017. - 368 c.
17. Внуков А. Защита информации. Учебное пособие/ А.Внуков. - М.: Юрайт,
2017. - 242 c.
18. Зверева В. Участие в планировании и организации работ по обеспечению
защиты объекта. Учебник/ В.Зверева. - М: Курс, 2017. - 320 c.
19. Кондратьев, А.В. Организация и содержание работ по выявлению и оценке
основных видов ТКУИ, защита информации от утечки: Справочное пособие /
А.В. Кондратьев. - М.: МАСКОМ, 2014. - 256 c.
20. Максименко, В.Н. Защита информации в сетях сотовой подвижной связи /
В.Н. Максименко. - М.: ГЛТ, 2017. - 360 c.
21. Максименко, В.Н. Защита информации в сетях сотовой подвижной связи /
В.Н. Максименко. - М.: Горячая линия -Телеком, 2017. - 34 c.
22. Максименко, В.Н. Защита информации в сетях сотовой подвижной связи.
/ В.Н. Максименко, В.В. Афанасьев, Н.В. Волков. - М.: Горячая линия -Телеком
, 2017. - 34 c.
23. Малюк, А.А. Защита информации в информационном обществе: Учебное
пособие для вузов / А.А. Малюк. - М.: ГЛТ, 2015. - 230 c.
24. Микаэлян А.Л. Оптические методы в информатике. - М.: Наука, 2014.
25. Некраха, А.В. Организация конфиденциального делопроизводства и
защита информации / А.В. Некраха. - М.: Академический проект, 2017. - 224 c.
86
26. Нестеров С. Информационная безопасность. Учебник и практикум /
С.Нестеров. - М.: Юрайт, 2017. - 322 c.
87
Приложение
unit uTypes;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids;
type
TfmType = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
bbtExit: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmType: TfmType;
implementation
uses uDM, uInventory;
{$R *.dfm}
procedure TfmType.FormShow(Sender: TObject);
begin
88
DM.dstTypes2.Open;
DM.dstTypes2.Sort := 'Наименование'
end;
procedure TfmType.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstTypes2.Close;
end;
end.
unit uStatus;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids;
type
TfmStatus = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
bbtExit: TBitBtn;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
89
var
fmStatus: TfmStatus;
implementation
uses uDM, uInventory;
{$R *.dfm}
procedure TfmStatus.FormShow(Sender: TObject);
begin
DM.dstStatus.Open;
DM.dstStatus.Sort := 'Состояние';
end;
end.
unit uSellers;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids;
type
TfmSellers = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
bbtExit: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
90
{ Private declarations }
public
{ Public declarations }
end;
var
fmSellers: TfmSellers;
implementation
uses uDM, uIncome;
{$R *.dfm}
procedure TfmSellers.FormShow(Sender: TObject);
begin
DM.dstSellers.Open;
end;
procedure TfmSellers.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Набор данных остается открытым, если открыты формы, где он
используется:
if not fmIncome.Showing then
DM.dstSellers.Close;
end;
end.
unit uRequests;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ActnList, StdActns, ActnMan, StdCtrls, Buttons, Grids,
91
DBGrids, ToolWin, ActnCtrls, ActnMenus, ExtCtrls, DBCtrls, Mask, ComCtrls;
type
TfmRequests = class(TForm)
Panel1: TPanel;
DBNavigator1: TDBNavigator;
bbtExit: TBitBtn;
Panel2: TPanel;
Panel3: TPanel;
Splitter2: TSplitter;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label5: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label6: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
Label7: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
DBMemo1: TDBMemo;
Label9: TLabel;
DBEdit2: TDBEdit;
92
GroupBox1: TGroupBox;
chbDate1: TCheckBox;
dtpDate1: TDateTimePicker;
chbDate2: TCheckBox;
dtpDate2: TDateTimePicker;
chbState: TCheckBox;
dblcbState: TDBLookupComboBox;
chbPlace: TCheckBox;
dblcbPlace: TDBLookupComboBox;
chbEmp: TCheckBox;
dblcbEmp: TDBLookupComboBox;
DBGrid1: TDBGrid;
Label8: TLabel;
DBEdit4: TDBEdit;
Label10: TLabel;
DBEdit5: TDBEdit;
procedure FormShow(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure chbDate1Click(Sender: TObject);
procedure DBGrid1Enter(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
93
public
{ Public declarations }
end;
var
fmRequests: TfmRequests;
implementation
uses uDepartments, uEmployees, uParameters, uTypes, uDM, uInventory,
ADODB, DB, uRep, uInventList, uProducers, uPlacesList,
uStatus;
{$R *.dfm}
procedure TfmRequests.FormShow(Sender: TObject);
begin
DM.dstRequest.Open;
end;
//Сортировка списка заказов по полю, по загаловку которого сделан клик
мышью:
procedure TfmRequests.DBGrid1TitleClick(Column: TColumn);
begin
if Column.Field.FieldName = 'Состояние' then
DM.dstRequest.Sort := 'СостояниеID'
else if Column.Field.FieldName = 'Инцидент' then
DM.dstRequest.Sort := 'ИнцидентID'
else if Column.Field.FieldName = 'РабМесто' then
DM.dstRequest.Sort := 'РабМестоID'
else if Column.Field.FieldName = 'Исполнитель' then
DM.dstRequest.Sort := 'ИсполнительID'
94
else
DM.dstRequest.Sort := Column.Field.FieldName;
end;
//Отбор заказов по выбранным критериям:
procedure TfmRequests.chbDate1Click(Sender: TObject);
var
Filter: string;
begin
Filter := '';
if chbDate1.Checked then
begin
if Filter <> '' then
Filter := Filter + ' and ';
Filter := Filter + 'ДатаВремяПриема >= ' +
QuotedStr(DateToStr(dtpDate1.Date));
end;
if chbDate2.Checked then
begin
if Filter <> '' then
Filter := Filter + ' and ';
Filter := Filter + 'ДатаВремяПриема <= ' +
QuotedStr(DateToStr(dtpDate2.Date));
end;
if chbState.Checked and (dblcbState.KeyValue <> Null) then
begin
if Filter <> '' then