129
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
//
if (VarToDouble (dmData.cdsOrderDATE_END.OldValue) <> 0) then
begin
130
//
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
131
//
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;
mValues: TMemo;
DBChart3: TDBChart;
sResult: TFastLineSeries;
132
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);
mValues.Lines.Add ('');
end;
133
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;
procedure TfRointers.cbHideTrendClick(Sender: TObject);
begin
134
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.
135
Рисунки и таблицы
Рисунок 1.1 Организационная структура ТОО «КУСА ККБ-2»
136
Рисунок 1.5 Существующая схема организации учета ремонтов.
137
Рисунок 1.6 Декомпозиция процесса организации ремонта оборудования сервисным инженером.
138
Рисунок 1.7 Декомпозиция процесса ПРИЕМА заявки.