Дипломная работа: Автоматизация учета и обработки заявок пользователей на ТО и ремонт техники (Help Desk) в компании ООО Планета-Р

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
126
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;
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;
127
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;
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
//
128
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
//
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
129
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;
procedure TfRointers.FormCreate(Sender: TObject);
begin
//
cbHideSmoothingClick(cbHideSmoothing);
cbHideTrendClick(cbHideTrend);
cbHideDataClick(cbHideData);
cbHideResultClick(cbHideResult);
cbHideValuesClick(cbHideValues);
end;
end.
Источник: https://baza.diplomsite.ru/previewfile/2384

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

ЦЕНОВАЯ ПОЛИТИКА ПРЕДПРИЯТИЯ НА ПРИМЕРЕ ООО «ДНС РИТЕЙЛ»
_archivetempпротивовоспалительные
- Обратный порядок следования фаз 4
- Сопротивление изоляции 25
!Контрольная работа (задание)
!Фармакология препаратов для терапии заболеваний дыхательных путей
'Свадьба'. Керамика
"Проблема обеззараживания рук медицинского персонала"
«Предмет, метод предпринимательского права и принципы предпринимательского права» (Понятие предмета и метода российского предпринимательского права)
«Українська література в першій половині ХХ століття»