108
FAnalysisProduct.Edit;
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;
109
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;
110
FAnalysisDish.Post;
AddDishProducts (Date, DishID, Count);
finally
//
ActiveTables(false);
end;
end;
end.
unit uConnectionInfo;
//
***********************************************************************
****
//
***********************************************************************
****
//
***********************************************************************
****
//
***********************************************************************
****
// *************************** Режим сервера
****************************
111
//
***********************************************************************
****
//
***********************************************************************
****
//
***********************************************************************
****
//
***********************************************************************
****
{
Модуль содержит класс, который описывает установленное соединение;
}
interface
uses Classes, SysUtils, Datasnap.DSTCPServerTransport;
type
// Класс для хранения информации о подключенных пользователях;
TConnectionInfo = class
//
private
// Уникальный ключ;
FKey : Integer;
// Дата и время создания;
FDateTime : TDateTime;
// IP адрес;
FIP : String;
112
// Канал;
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;
113
FUserKey := 0;
end;
destructor TConnectionInfo.Destroy;
begin
//
inherited Destroy;
end;
end.
