131
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;
132
ToolButton1: TToolButton;
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
//
133
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); begin
try
//
dmData.cdsSparePart.Refresh;
134
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; mValues:
TMemo; DBChart3: TDBChart;
sResult: TFastLineSeries;
sData: TFastLineSeries;
sSmoothing: TFastLineSeries;
135
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);
mValues.Lines.Add (''); end;
end;
end; begin
//
136
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;
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;
137
procedure TfRointers.FormCreate(Sender: TObject); begin
//
cbHideSmoothingClick(cbHideSmoothing);
cbHideTrendClick(cbHideTrend); cbHideDataClick(cbHideData);
cbHideResultClick(cbHideResult);
cbHideValuesClick(cbHideValues);
end;
end.