Диплом: Автоматизация процесса приема техники на ремонтные работы в ООО "МБ ЗАПАД"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
102
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 стр.
103
42. Энди Орам, Грегори Уилсон, Идеальная разработка ПО. Рецепты
лучших программистов, Издательство: Питер, Спб, 2013 год, 592 стр.
43. Энтони Молинаро, SQL. Сборник рецептов, Издательство: Символ-
Плюс,2011 г., 672 стр.
44. Эрих Гамма, Ричард Хелм, Ральф Джонсон, Джон Влиссидес, Приемы
объектно-ориентированного проектирования. Паттерны проектирования,
Издательство: Питер, М., 2013 год, 368 стр.
104
Приложение. Листинг программных модулей
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;
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;
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
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
105
('Код_Единица').Value :=
Q.FieldByName('Код_Единица').AsInteger;
FAnalysisProduct.FieldByName
('Количество').Value :=
Q.FieldByName('Количество').AsFloat*(Cou
nt + 0.0);
FAnalysisProduct.Post;
end
else
begin
//
FAnalysisProduct.Edit;
FAnalysisProduct.FieldByName
('Количество').AsFloat :=
FAnalysisProduct.FieldByName
('Количество').AsFloat +
Q.FieldByName('Количество').AsFloat*Coun
t;
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);
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;
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 адрес;
FIP : String;
// Канал;
FChannel :
TDSTCPChannel;
// Код пользователя;
FUserKey : Integer;
//
FUserTypeKey : Integer;
106
public
// Конструктор класса;
constructor Create (Key :
Integer);
// Деструктор класса;
destructor Destroy; overload;
property Key : Integer read
FKey;
property DateTime :
TDateTime read FDateTime;
property IP : String read FIP
write FIP;
property Channel :
TDSTCPChannel read FChannel write
FChannel;
property UserKey : Integer
read FUserKey write FUserKey;
property UserTypeKey :
Integer read FUserTypeKey write
FUserTypeKey;
end;
implementation
constructor
TConnectionInfo.Create (Key : Integer);
begin
//
inherited Create;
FKey := Key;
FDateTime := Now;
FUserKey := 0;
end;
destructor
TConnectionInfo.Destroy;
begin
//
inherited Destroy;
end;
end.
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;
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;
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
107
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*(Cou
nt + 0.0);
FAnalysisProduct.Post;
end
else
begin
//
FAnalysisProduct.Edit;
FAnalysisProduct.FieldByName
('Количество').AsFloat :=
FAnalysisProduct.FieldByName
('Количество').AsFloat +
Q.FieldByName('Количество').AsFloat*Coun
t;
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);
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;
AddDishProducts (Date,
DishID, Count);
finally
//
ActiveTables(false);
end;
end;
end.
unit uConnectionInfo;
//
*************************************
*************************************
*
//
*************************************
*************************************
*
//
*************************************
*************************************
*
//
*************************************
*************************************
*
//
*************************** Режим
сервера ****************************
//
*************************************
*************************************
*
//
*************************************
*************************************
*
108
//
*************************************
*************************************
*
//
*************************************
*************************************
*
{
Модуль содержит класс,
который описывает установленное
соединение;
}
interface
uses Classes, SysUtils,
Datasnap.DSTCPServerTransport;
type
// Класс для хранения
информации о подключенных
пользователях;
TConnectionInfo = class
//
private
// Уникальный ключ;
FKey : Integer;
// Дата и время создания;
FDateTime : TDateTime;
// IP адрес;
FIP : String;
// Канал;
FChannel :
TDSTCPChannel;
// Код пользователя;
FUserKey : Integer;
//
FUserTypeKey : Integer;
public
// Конструктор класса;
constructor Create (Key :
Integer);
// Деструктор класса;
destructor Destroy; overload;
property Key : Integer read
FKey;
property DateTime :
TDateTime read FDateTime;
property IP : String read FIP
write FIP;
property Channel :
TDSTCPChannel read FChannel write
FChannel;
property UserKey : Integer
read FUserKey write FUserKey;
property UserTypeKey :
Integer read FUserTypeKey write
FUserTypeKey;
end;
implementation
constructor
TConnectionInfo.Create (Key : Integer);
begin
//
inherited Create;
FKey := Key;
FDateTime := Now;
FUserKey := 0;
end;
destructor
TConnectionInfo.Destroy;
begin
//
inherited Destroy;
end;
end.
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;
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;
FAnalysisDish.TableName :=
'Анализ_Блюда';
109
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
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*(Cou
nt + 0.0);
FAnalysisProduct.Post;
end
else
begin
//
FAnalysisProduct.Edit;
FAnalysisProduct.FieldByName
('Количество').AsFloat :=
FAnalysisProduct.FieldByName
('Количество').AsFloat +
Q.FieldByName('Количество').AsFloat*Coun
t;
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);
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;
AddDishProducts (Date,
DishID, Count);
finally
//
ActiveTables(false);
110
end;
end;
end.
unit uConnectionInfo;
//
*************************************
*************************************
*
//
*************************************
*************************************
*
//
*************************************
*************************************
*
//
*************************************
*************************************
*
//
*************************** Режим
сервера ****************************
//
*************************************
*************************************
*
//
*************************************
*************************************
*
//
*************************************
*************************************
*
//
*************************************
*************************************
*
{
Модуль содержит класс,
который описывает установленное
соединение;
}
interface
uses Classes, SysUtils,
Datasnap.DSTCPServerTransport;
type
// Класс для хранения
информации о подключенных
пользователях;
TConnectionInfo = class
//
private
// Уникальный ключ;
FKey : Integer;
// Дата и время создания;
FDateTime : TDateTime;
// IP адрес;
FIP : String;
// Канал;
FChannel :
TDSTCPChannel;
// Код пользователя;
FUserKey : Integer;
//
FUserTypeKey : Integer;
public
// Конструктор класса;
constructor Create (Key :
Integer);
// Деструктор класса;
destructor Destroy; overload;
property Key : Integer read
FKey;
property DateTime :
TDateTime read FDateTime;
property IP : String read FIP
write FIP;
property Channel :
TDSTCPChannel read FChannel write
FChannel;
property UserKey : Integer
read FUserKey write FUserKey;
property UserTypeKey :
Integer read FUserTypeKey write
FUserTypeKey;
end;
implementation
constructor
TConnectionInfo.Create (Key : Integer);
begin
//
inherited Create;
FKey := Key;
FDateTime := Now;
FUserKey := 0;
end;
destructor
TConnectionInfo.Destroy;
begin
//
inherited Destroy;
end;
end.
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;
implementation
function
TAnalysisSaver.GetQuery (SQL : String) :
TADOQuery;
begin
//
Result :=
TADOQuery.Create(nil);
111
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;
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
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*(Cou
nt + 0.0);
FAnalysisProduct.Post;
end
else
begin
//
FAnalysisProduct.Edit;
FAnalysisProduct.FieldByName
('Количество').AsFloat :=
FAnalysisProduct.FieldByName
('Количество').AsFloat +
Q.FieldByName('Количество').AsFloat*Coun
t;
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);
var
//
I : Integer;
begin
//
try
FAnalysis.Open;
Clear;

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)