132
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.DBCtrls,
Vcl.Mask, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.ToolWin,
Vcl.DBClientActns, Vcl.DBActns, Vcl.ActnList,
Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan;
type
внутренней
TfOrderEditor
элементов
= class(TForm)
Button1: TButton;
управление
PageControl1:
мероприятий
TPageControl;
TabSheet1: TTabSheet;
отличительным
DBEdit1:
торговых
TDBEdit;
DBEdit6: TDBEdit;
Label6: TLabel;
Label1: TLabel;
представляют
Button2:
спроса
TButton;
amNavigator: TActionManager;
производитель
DataSetFirst1:
товаров
TDataSetFirst;
DataSetPrior1: TDataSetPrior;
торгового
DataSetNext1:
развивающейся
TDataSetNext;
DataSetLast1: TDataSetLast;
представляют
DataSetInsert1:
установление
TDataSetInsert;
DataSetDelete1: TDataSetDelete;
DataSetEdit1: TDataSetEdit;
DataSetPost1: TDataSetPost;
особенности
DataSetCancel1:
обеспечивающие
TDataSetCancel;
DataSetRefresh1: TDataSetRefresh;
связанные
ClientDataSetApply1:
коммерческая
TClientDataSetApply;
Label2: TLabel;
представлено
DBLookupComboBox1:
факторов
TDBLookupComboBox;
Label3: TLabel;
первой
DBLookupComboBox2:
системы
TDBLookupComboBox;
Label4: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
услуг
Label5:
элементов
TLabel;
TabSheet2: TTabSheet;
степени
TabSheet3:
закупочной
TTabSheet;
DBGrid1: TDBGrid;
связаны
DBGrid2:
широкого
TDBGrid;
tbNavigator: TToolBar;
мероприятий
ToolButton17:
элемент
TToolButton;
ToolButton18: TToolButton;
заключение
ToolButton19:
зависимости
TToolButton;
ToolButton1: TToolButton;
133
ToolButton20: TToolButton;
ToolButton21: TToolButton;
этапом
ToolButton4:
торговых
TToolButton;
ToolButton22: TToolButton;
управление
ToolBar1:
особенности
TToolBar;
ToolButton2: TToolButton;
коммерческая
ToolButton3:
представляют
TToolButton;
ToolButton5: TToolButton;
представлено
ToolButton6:
информационное
TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
предоставление
ToolButton10:
услуг
TToolButton;
procedure
экономическая
FormClose(Sender:
предприятия
TObject; var
предприятия
Action:
услуг
TCloseAction);
procedure
разделение
Button1Click(Sender:
поставка
TObject);
procedure FormKeyPress(Sender: TObject; var
широкого
Key:
заключение
Char);
procedure
процесс
Button2Click(Sender:
системы
TObject);
procedure
связаны
FormShow(Sender:
относятся
TObject);
private
{ Private
мероприятий
declarations
продвижении
}
public
{ Public declarations }
end;
var
fOrderEditor: TfOrderEditor;
implementation
{$R *.dfm}
заключение
uses
целом
udmData, uCommon;
розничной
procedure
изыскание
TfOrderEditor.Button1Click(Sender: TObject);
function
изыскание
VarToDouble
разделении
(V : Variant) : Double;
begin
//
прибыли
Result
распределение
:= 0;
if (VarIsNull(V) =
розничной
false)
системе
then
begin
//
Result := V;
end;
end;
begin
//
134
if (VarToDouble (dmData.cdsOrderDATE_END.OldValue) <> 0) then
begin
//
raise
разделении
Exception.Create('Закрытый
спроса
заказ
внешней
нельзя
этом
изменить');
end;
PostDataSet (dmData.cdsOrder);
воздействуют
PostDataSet
коммерческая
(dmData.cdsOrderDefect);
PostDataSet (dmData.cdsOrderSparePart);
dmData.cdsOrder.ApplyUpdates(0);
dmData.cdsOrderDefect.ApplyUpdates(0);
dmData.cdsOrderSparePart.ApplyUpdates(0);
try
dmData.cdsOrder.Edit;
except
end;
dmData.cdsOrderCOST.Value :=
RemoteMethods.GetOrderCost(dmData.cdsOrderID.Value);
dmData.cdsOrder.Post;
dmData.cdsOrder.ApplyUpdates(0);
dmData.cdsOrder.Refresh;
Close;
end;
управление
procedure
конечный
TfOrderEditor.Button2Click(Sender: TObject);
begin
//
Close;
end;
procedure TfOrderEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
dmData.cdsOrderDefect.Cancel;
dmData.cdsOrderSparePart.Cancel;
dmData.cdsOrder.Cancel;
dmData.cdsOrderDefect.CancelUpdates;
dmData.cdsOrderSparePart.CancelUpdates;
dmData.cdsOrder.CancelUpdates;
end;
разделение
procedure
разделении
TfOrderEditor.FormKeyPress(Sender: TObject; var
только
Key:
продвижении
Char);
begin
if Key = #27 then Close;
end;
розничной
procedure
целом
TfOrderEditor.FormShow(Sender: TObject);
135
begin
try
//
dmData.cdsSparePart.Refresh;
except
end;
end;
end.
unit ufRointers;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Vcl.ComCtrls,
VCLTee.Series, VCLTee.TeEngine, Vcl.ExtCtrls, VCLTee.TeeProcs,
VCLTee.Chart,
VCLTee.DBChart, Vcl.ToolWin, Vcl.Menus, Vcl.StdCtrls, Vcl.ActnList,
Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan, uCommon;
type
сопровождаются
TfRointers
мероприятий
= class(TForm)
PageControl1: TPageControl;
StatusBar1: TStatusBar;
TabSheet2: TTabSheet;
активную
Memo1:
зависимости
TMemo;
TabSheet6: TTabSheet;
процесс
ToolBar1:
разделении
TToolBar;
amPointers: TActionManager;
разделении
aAnalysis:
спроса
TAction;
ToolButton1: TToolButton;
распределение
PageControl3:
предоставление
TPageControl;
TabSheet7: TTabSheet;
DBGrid2: TDBGrid;
TabSheet8: TTabSheet;
информационное
Panel1:
первой
TPanel;
cbHideSmoothing: TCheckBox;
установление
cbHideTrend:
мероприятий
TCheckBox;
cbHideResult: TCheckBox;
внешней
cbHideData:
факторов
TCheckBox;
cbHideValues: TCheckBox;
представлено
Panel2:
предоставление
TPanel;
136
mValues: TMemo;
услуг
DBChart3:
торговых
TDBChart;
sResult: TFastLineSeries;
sData: TFastLineSeries;
sSmoothing: TFastLineSeries;
особенности
sTrend:
факторов
TFastLineSeries;
Splitter1: TSplitter;
первой
procedure
экономическая
aAnalysisExecute(Sender: TObject);
внутренней
procedure
отличительным
DBGrid2TitleClick(Column: TColumn);
установление
procedure
предприятия
cbHideSmoothingClick(Sender: TObject);
procedure cbHideTrendClick(Sender: TObject);
установление
procedure
товаров
cbHideResultClick(Sender: TObject);
только
procedure
степени
cbHideDataClick(Sender: TObject);
отличительным
procedure
также
FormCreate(Sender: TObject);
разделении
procedure
экономическая
cbHideValuesClick(Sender: TObject);
private
{ Private declarations }
public
{
разделение
Public
относятся
declarations }
end;
var
воздействие
fRointers:
внутренней
TfRointers;
implementation
{$R *.dfm}
uses
деятельности
udmData,
целом
ufAnalyserParams;
procedure TfRointers.aAnalysisExecute(Sender: TObject);
зависимости
procedure
степени
GetValues;
var
I : Integer;
begin
//
mValues.Clear;
mValues.Lines.Add ('Прогноз');
mValues.Lines.Add ('');
for I := 1 to dmData.cdsAnalysis.RecordCount do
begin
//
dmData.cdsAnalysis.RecNo := I;
if (dmData.cdsAnalysisResult.IsNull = false) then
begin
mValues.Lines.Add
услуг
('Дата
торговых
' + dmData.cdsAnalysisDate.AsString);
mValues.Lines.Add ('Прогноз ' + dmData.cdsAnalysisResult.AsString);
137
mValues.Lines.Add ('');
end;
end;
end;
begin
//
dmData.TestActiveConnection;
if (fAnalyserParams.ShowModal = mrOk) then
begin
//
RemoteMethods.Analysis(fAnalyserParams.DefectID,
fAnalyserParams.Date1,
fAnalyserParams.Date2,
fAnalyserParams.DaysCount,
fAnalyserParams.K,
fAnalyserParams.B
);
dmData.cdsAnalysis.Close;
dmData.cdsAnalysis.IndexDefs.Clear;
with dmData.cdsAnalysis.IndexDefs.AddIndexDef do
begin
Fields := 'Date';
Name := 'IX';
end;
dmData.cdsAnalysis.IndexName := 'IX';
dmData.cdsAnalysis.Open;
DBChart3.RefreshData;
GetValues;
end;
end;
procedure TfRointers.cbHideDataClick(Sender: TObject);
begin
sData.Visible := cbHideData.Checked;
end;
procedure TfRointers.cbHideResultClick(Sender: TObject);
begin
sResult.Visible := cbHideResult.Checked;
end;
procedure TfRointers.cbHideSmoothingClick(Sender: TObject);
begin
//
sSmoothing.Visible := cbHideSmoothing.Checked;
end;
138
procedure TfRointers.cbHideTrendClick(Sender: TObject);
begin
sTrend.Visible := cbHideTrend.Checked;
end;
procedure TfRointers.cbHideValuesClick(Sender: TObject);
begin
//
mValues.Visible := cbHideValues.Checked;
Splitter1.Visible := cbHideValues.Checked;
Splitter1.Left := 10;
end;
procedure TfRointers.DBGrid2TitleClick(Column: TColumn);
begin
dbgTitleClick (Column);
end;
procedure TfRointers.FormCreate(Sender: TObject);
begin
//
cbHideSmoothingClick(cbHideSmoothing);
cbHideTrendClick(cbHideTrend);
cbHideDataClick(cbHideData);
cbHideResultClick(cbHideResult);
cbHideValuesClick(cbHideValues);
end;
end.