96
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 стр.
97
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 стр.
98
42. Энди Орам, Грегори Уилсон, Идеальная разработка ПО. Рецепты
лучших программистов, Издательство: Питер, Спб, 2013 год, 592 стр.
43. Энтони Молинаро, SQL. Сборник рецептов, Издательство: Символ-
Плюс,2011 г., 672 стр.
44. Эрих Гамма, Ричард Хелм, Ральф Джонсон, Джон Влиссидес, Приемы
объектно-ориентированного проектирования. Паттерны проектирования,
Издательство: Питер, М., 2013 год, 368 стр.
99
Приложение. Листинг программных модулей
unit uAnalysisSaver;
interface
uses Classes, DB, ADODB, SysUtils, Dialogs;
type
TAnalysisSaver = class
//
private
FConnection : TADOConnection;
FAnalysis : TADOTable;
FAnalysisDish : TADOTable;
FAnalysisProduct : TADOTable;
function GetQuery (SQL : String) : TADOQuery;
procedure AddDishProducts (Date : TDate; DishID : Integer ; Count : Integer);
procedure Clear;
procedure ActiveTables (Value : Boolean);
public
constructor Create (Connection : TADOConnection);
destructor Destroy;
procedure CreateAnalysis (FirstDate : TDateTime; DaysCount : Integer);
procedure Save (Date : TDate; DishID : Integer ; Count : Integer);
end;
100
implementation
function TAnalysisSaver.GetQuery (SQL : String) : TADOQuery;
begin
//
Result := TADOQuery.Create(nil);
try
Result.Connection := FConnection;
Result.SQL.Text := SQL;
Result.Open;
except
//
on E : Exception do
begin
//
Result.Free;
raise Exception.Create(E.Message);
end;
end;
end;
constructor TAnalysisSaver.Create (Connection : TADOConnection);
begin
//
FConnection := Connection;
FAnalysis := TADOTable.Create (nil);
FAnalysis.Connection := FConnection;
FAnalysis.TableName := 'Анализ';
FAnalysisDish := TADOTable.Create (nil);
FAnalysisDish.Connection := FConnection;
101
FAnalysisDish.TableName := 'Анализ_Блюда';
FAnalysisProduct := TADOTable.Create (nil);
FAnalysisProduct.Connection := FConnection;
FAnalysisProduct.TableName := 'Анализ_Продукты';
end;
procedure TAnalysisSaver.ActiveTables (Value : Boolean);
begin
//
FAnalysis.Active := Value;
FAnalysisDish.Active := Value;
FAnalysisProduct.Active := Value;
end;
destructor TAnalysisSaver.Destroy;
begin
//
end;
procedure TAnalysisSaver.AddDishProducts (Date : TDate; DishID : Integer ;
Count : Integer);
var
//
Q : TADOQuery;
I : Integer;
VA : array of Variant;
begin
//
try
102
Q := GetQuery('SELECT * FROM Состав_блюда WHERE Код_Блюдо = ' +
IntToStr (DishID) + ';');
for I := 1 to Q.RecordCount do
begin
//
Q.RecNo := I;
SetLength(VA, 3);
VA[0] := Date;
VA[1] := Q.FieldByName('Код_Продукт').AsInteger;
VA[2] := Q.FieldByName('Код_Единица').AsInteger;
FAnalysisProduct.Filter := 'Дата = ' + #39 + DateToStr(Date) + #39 + ' and
Код_Продукт = ' + IntToStr (Q.FieldByName('Код_Продукт').AsInteger) + ' and
Код_Единица = ' + IntToStr (Q.FieldByName('Код_Единица').AsInteger);
FAnalysisProduct.Filtered := True;
if FAnalysisProduct.RecordCount = 0 then
begin
FAnalysisProduct.Insert;
FAnalysisProduct.FieldByName ('Дата').AsDateTime := Date;
FAnalysisProduct.FieldByName ('Код_Продукт').Value :=
Q.FieldByName('Код_Продукт').AsInteger;
FAnalysisProduct.FieldByName ('Код_Единица').Value :=
Q.FieldByName('Код_Единица').AsInteger;
FAnalysisProduct.FieldByName ('Количество').Value :=
Q.FieldByName('Количество').AsFloat*(Count + 0.0);
FAnalysisProduct.Post;
end
else
begin
//
FAnalysisProduct.Edit;
103
FAnalysisProduct.FieldByName ('Количество').AsFloat :=
FAnalysisProduct.FieldByName ('Количество').AsFloat +
Q.FieldByName('Количество').AsFloat*Count;
FAnalysisProduct.Post;
end;
end;
finally
//
FAnalysisProduct.Filtered := false;
if (Q <> nil) then Q.Free;
SetLength(VA, 0);
end;
end;
procedure TAnalysisSaver.Clear;
var
//
J : Integer;
begin
//
for J := FAnalysis.RecordCount downto 1 do
begin
//
FAnalysis.RecNo := J;
FAnalysis.Delete;
end;
end;
procedure TAnalysisSaver.CreateAnalysis (FirstDate : TDateTime; DaysCount :
Integer);
104
var
//
I : Integer;
begin
//
try
FAnalysis.Open;
Clear;
for I := 0 to DaysCount - 1 do
begin
FAnalysis.Insert;
FAnalysis.FieldByName ('Дата').Value := Int(FirstDate) + I;
FAnalysis.Post;
end;
finally
ActiveTables(false);
end;
end;
procedure TAnalysisSaver.Save (Date : TDate; DishID : Integer; Count : Integer);
begin
//
try
ActiveTables(true);
FAnalysisDish.Insert;
FAnalysisDish.FieldByName ('Дата').AsDateTime := Date;
FAnalysisDish.FieldByName ('Код_Блюдо').AsInteger := DishID;
FAnalysisDish.FieldByName ('Количество').AsInteger := Count;
FAnalysisDish.Post;
105
AddDishProducts (Date, DishID, Count);
finally
//
ActiveTables(false);
end;
end;
end.
unit uConnectionInfo;
{
Модуль содержит класс, который описывает установленное соединение;
}
interface
uses Classes, SysUtils, Datasnap.DSTCPServerTransport;
type
// Класс для хранения информации о подключенных пользователях;
TConnectionInfo = class
//
private
// Уникальный ключ;
FKey : Integer;
// Дата и время создания;
FDateTime : TDateTime;
// IP адрес;