108
14. ГОСТ Р ИСО/МЭК 12207/99. Государственный стандарт РФ.
Информационная технология. Процессы жизненного цикла информационных
систем. Издание официальное. - М., 1999
15. Дарахвелидзе, П.Г. Программирование в Delphi 7. - СПб.: БХВ-
Петербург, 2011. – 784 с.
16. Джон Гудсон, Роб Стюард, Практическое руководство по доступу к
данным, Издательство: БХВ-Петербург, Спб, 2013 год, 304 стр.
17. Дэвид Паттерсон, Джон Хеннесси, Архитектура компьютера и
проектирование компьютерных систем, Издательство: Питер, М., 2012 год, 784
стр.,
18. Емельянова Н. З., Партыка Т. Л., И. И. Попов, Проектирование
информационных систем, М, Издательство: Форум, 2012 г., 432 стр.
19. Заботина Н.А, Проектирование информационных систем,
Издательство: Инфра-М, М., 2013 год, 336 стр,
20. Илюшечкин В. М. , Основы использования и проектирования баз
данных, М, Издательство Юрайт, 2011 г., 224 стр.
21. Котляров В. П., Т. В. Коликова, Основы тестирования программного
обеспечения, Издательства: Интернет-университет информационных технологий,
Бином. Лаборатория знаний, 2011 г., 288 стр.
22. Кристофер Д. Маннинг, Прабхакар Рагхаван, Хайнрих Шютце,
Введение в информационный поиск, Издательство: Вильямс, 2011 г., 528 стр.
23. Крэг Ларман, Применение UML 2.0 и шаблонов проектирования.
Введение в объектно-ориентированный анализ, проектирование и итеративную
разработку, Издательство: Вильямс, М., 2013 год, 736 стр.
24. Кузин А. В., С. В. Левонисова, Базы данных, М, Издательство:
Академия, 2012 г., 320 стр.
25. Кузнецов С. Д., Основы баз данных, М, Издательства: Бином.
Лаборатория знаний, Интернет-университет информационных технологий, 2012
г., 488 стр.
26. Кумскова И. А., Базы данных, Издательство: КноРус, 2011 г., 488 стр.
27. Луки В.А., Введение в проектирование баз данных, Издательство:
Вузовская книга, М., 2013 год, 144 стр.
109
28. Маклаков С. В. ВРWin и ERWin. САSЕ-средства разработки
информационных систем - М.: Диалог-МИФИ, 2012 - 455 с.: ил.
29. Малюк А. А., Пазизин С. В., Погожин Н. С., Введение в защиту
информации в автоматизированных системах, Издательство: Горячая Линия –
Телеком, 2011 г., 146 стр.
30. Мельников В. П., Клейменов С. А., Петраков А. М., Информационная
безопасность и защита информации, Издательство: Академия, 2012 г., 336 стр.
31. Молчанов А. Ю., Системное программное обеспечение, М,
Издательство: Питер, 2012 г., 400 стр.
32. Незнанов А. А., Программирование и алгоритмизация, М,
Издательство: Академия, 2012 г., 304 стр.
33. Перерва А.И,, Иванова В. Н., Путь аналитика. Практическое
руководство IT-специалиста, Издательство: Питер, Спб, 2013 год, 304 стр.
34. Пирогов В. Ю., Информационные системы и базы данных. М,
Организация и проектирование, Издательство: БХВ-Петербург, 2012 г.528 стр.
35. Платонов В.А., Программно-аппаратные средства защиты
информации, Издательство: Академия, М., 2013 год, 336 стр.,
36. Роберт Дж. Мюллер, Проектирование баз данных и UML,
Издательство: Лори, М., 2013 год, 432 стр.
37. Рябко Б. Я., Фионов А. Н., Криптографические методы защиты
информации, Издательство: Горячая Линия – Телеком, 2012 г., 230 стр.
38. Сергеева Ю. С., Защита информации. Конспект лекций,
Издательство: А-Приор, 2011 г., 128 стр.
39. Симионов Ю.Ф., Боромотов В.В. Информационный менеджмент. —
Ростов н.Д: Феникс, 2011, 250с., ил.
40. Схемы алгоритмов, программ, данных и систем. Условные
обозначения и правила выполнения. ГОСТ 19.701-90 (ИСО 5807-85) /
Государственный комитет СССР по управлению качеством продукции и
стандартам, 01.01.1992.
41. Шаньгин В.А., Защита информации в компьютерных системах и
сетях, Издательство: ДМК Пресс, М., 2013 год, 592 стр.
110
42. Энди Орам, Грегори Уилсон, Идеальная разработка ПО. Рецепты
лучших программистов, Издательство: Питер, Спб, 2013 год, 592 стр.
43. Энтони Молинаро, SQL. Сборник рецептов, Издательство: Символ-
Плюс,2011 г., 672 стр.
44. Эрих Гамма, Ричард Хелм, Ральф Джонсон, Джон Влиссидес,
Приемы объектно-ориентированного проектирования. Паттерны проектирования,
Издательство: Питер, М., 2013 год, 368 стр.
111
Приложение. Листинг программных модулей
unit Action;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxStyles,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
cxContainer, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
cxDBEdit, cxGridLevel, cxGridChartView, cxGridDBChartView,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, cxLookAndFeels, cxInplaceContainer, cxVGrid, cxDBVGrid,
cxRadioGroup;
type
TfrmAction = class(TForm)
btnYes: TcxButton;
btnNo: TcxButton;
vgAction: TcxDBVerticalGrid;
vgActionWorkerId: TcxDBEditorRow;
vgActionTypeActionId: TcxDBEditorRow;
vgActionDateAction: TcxDBEditorRow;
vgActionComments: TcxDBEditorRow;
vgActionCategoryRow1: TcxCategoryRow;
procedure btnNoClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnYesClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
112
{ Public declarations }
end;
var
frmAction: TfrmAction;
implementation
uses DateUtils, DataBase;
{$R *.dfm}
procedure TfrmAction.btnNoClick(Sender: TObject);
begin
frmAction.Close;
end;
procedure TfrmAction.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataInfo.qListActions.Cancel;
DataInfo.qWorkers.Filter:='';
DataInfo.qWorkers.Filtered:=False;
end;
procedure TfrmAction.FormShow(Sender: TObject);
begin
if frmAction.Tag>0 then
begin
DataInfo.qListActions.Insert;
DataInfo.qTypeAction.Locate('Id',frmAction.Tag,[]);
DataInfo.qListActions.FieldByName('TypeActionId').AsInteger:=DataInfo.qTypeAction.FieldByNam
e('Id').AsInteger;
end
else
begin
DataInfo.qListActions.Edit;
113
end;
DataInfo.qWorkers.Filter:='isWorker=True';
DataInfo.qWorkers.Filtered:=True;
end;
procedure TfrmAction.btnYesClick(Sender: TObject);
begin
if DataInfo.qListActions.FieldByName('WorkerId').isNull then
begin
MessageDlg('Укажите ответственного!',mtError,[mbOk],0);
Exit
end;
if DataInfo.qListActions.FieldByName('DateAction').isNull then
begin
MessageDlg('Укажите дату действия!',mtError,[mbOk],0);
Exit
end;
DataInfo.qListActions.FieldByName('CompId').AsInteger:=DataInfo.qListComplaints.FieldByName('
Id').AsInteger;
DataInfo.qListActions.Post;
DataInfo.qListComplaints.Edit;
DataInfo.qListComplaints.FieldByName('Status').AsInteger:=frmAction.Tag;
DataInfo.qListComplaints.Post;
DataInfo.qListComplaints.Close;
DataInfo.qListComplaints.Open;
frmAction.Close;
end;
end.
unit Document;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
114
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus, cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxMemo, Grids, DBGrids, cxLookAndFeels, cxSpinEdit, cxCalendar;
type
TfrmDocument = class(TForm)
vgDocument: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgDocumentObjectId: TcxDBEditorRow;
vgDocumentTypeId: TcxDBEditorRow;
vgDocumentCategoryId: TcxDBEditorRow;
vgDocumentSourceId: TcxDBEditorRow;
vgDocumentNum: TcxDBEditorRow;
vgDocumentDateDoc: TcxDBEditorRow;
vgDocumentSubject: TcxDBEditorRow;
vgDocumentDescr: TcxDBEditorRow;
procedure btnNoClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure btnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmDocument: TfrmDocument;
implementation
uses DataBase;
115
{$R *.dfm}
procedure TfrmDocument.btnNoClick(Sender: TObject);
begin
DataInfo.tDoc.Cancel;
frmDocument.Close;
end;
procedure TfrmDocument.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataInfo.tDoc.Close;
end;
procedure TfrmDocument.FormShow(Sender: TObject);
begin
DataInfo.tDoc.Open;
if frmDocument.Tag=1 then
begin
DataInfo.tDoc.Insert
end
else
begin
DataInfo.tDoc.Locate('Id',DataInfo.qListDocuments.FieldByName('Id').asInteger,[]);
DataInfo.tDoc.Edit;
end;
end;
procedure TfrmDocument.btnYesClick(Sender: TObject);
begin
if DataInfo.tDoc.FieldByName('ObjectId').isNull then
begin
MessageDlg('Укажите объект!',mtError,[mbOk],0);
Exit
end;
if DataInfo.tDoc.FieldByName('TypeId').isNull then
116
begin
MessageDlg('Укажите тип документа!',mtError,[mbOk],0);
Exit
end;
if DataInfo.tDoc.FieldByName('CategoryId').isNull then
begin
MessageDlg('Укажите категорию документа!',mtError,[mbOk],0);
Exit
end;
if DataInfo.tDoc.FieldByName('SourceId').isNull then
begin
MessageDlg('Укажите источник документа!',mtError,[mbOk],0);
Exit
end;
if DataInfo.tDoc.FieldByName('Num').isNull then
begin
MessageDlg('Укажите № дела!',mtError,[mbOk],0);
Exit
end;
if DataInfo.tDoc.FieldByName('DateDoc').isNull then
begin
MessageDlg('Укажите дату создания!',mtError,[mbOk],0);
Exit
end;
if DataInfo.tDoc.FieldByName('Subject').isNull then
begin
MessageDlg('Укажите тему документа!',mtError,[mbOk],0);
Exit
end;
DataInfo.tDoc.FieldByName('UserId').asInteger:=UserId;
DataInfo.tDoc.Post;
DataInfo.qListDocuments.Close;
DataInfo.qListDocuments.Open;
frmDocument.Close;
end;
117
end.
unit Reports;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter, cxPCdxBarPopupMenu, cxStyles, cxCustomData, cxFilter,
cxData, cxDataStorage, cxEdit, cxNavigator, Data.DB, cxDBData, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxGridCustomView, cxGrid, cxPC, Vcl.Menus, Vcl.StdCtrls, cxButtons,
cxContainer, Vcl.ComCtrls, dxCore, cxDateUtils, cxDropDownEdit, cxLabel,
cxTextEdit, cxMaskEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
dxPSPrVwStd, dxPSPrVwAdv, dxPSPrVwRibbon, dxPScxPageControlProducer,
dxPScxGridLnk, dxPScxGridLayoutViewLnk, dxPScxEditorProducers,
dxPScxExtEditorProducers, dxSkinsdxBarPainter, dxSkinsdxRibbonPainter,
dxPSCore, dxPScxCommon, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
cxCheckBox, dxPSContainerLnk;
type
TfrmReport = class(TForm)
btnClose: TcxButton;
Printer: TdxComponentPrinter;
PrinterLink1: TdxCustomContainerReportLink;
GroupBox1: TGroupBox;
DateFrom: TcxDateEdit;
cxLabel1: TcxLabel;
cxLabel2: TcxLabel;
DateInto: TcxDateEdit;