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

Скачать файл

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

116

procedure FormCreate(Sender: TObject);

procedure bOkClick(Sender: TObject);

procedure FormKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

FDate1, FDate2 : TDateTime;

FDish, FDaysCount : Integer;

FK : Double;

FB : Double;

FDefectID : Integer;

public

{ Public declarations }

property Date1 : TDateTime read FDate1;

property Date2 : TDateTime read FDate2;

property DaysCount : Integer read FDaysCount;

property K : Double read FK;

property B : Double read FB;

property DefectID : Integer read FDefectID;

end;

var

fAnalyserParams: TfAnalyserParams;

implementation

{$R *.dfm}

uses udmData;

procedure TfAnalyserParams.bOkClick(Sender: TObject);

begin

FDate1 := DateTimePicker1.Date;

FDate2 := DateTimePicker2.Date;

if (FDate1 >= FDate2) then

raise Exception.Create('Дата начала периода должна быть меньше даны

окончания периода');

try

FDaysCount := StrToInt (eDaysCount.Text);

117

if (FDaysCount <= 0) then

raise Exception.Create('Прогнозируемый период должен быть больше нуля');

except

raise Exception.Create('В поле "'+lDaysCount.Caption+'" может находиться

только целое положительное число');

Exit;

end;

try

FK := StrToFloat (eK.Text);

if (FK <= 0) or (FK >= 1) then

raise Exception.Create('Error Message');

except

raise Exception.Create('В поле "'+lK.Caption+'" может находиться вещественное

значение в интервале (0, 1)');

Exit;

end;

try

FB := StrToFloat (eB.Text);

if (FB <= 0) or (FB >= 1) then

raise Exception.Create('Error Message');

except

raise Exception.Create('В поле "'+lB.Caption+'" может находиться вещественное

значение в интервале (0, 1)');

Exit;

end;

ModalResult := mrOk;

end;

procedure TfAnalyserParams.FormCreate(Sender: TObject);

begin

FDefectID := 0;

FDate1 := Now - 30;

FDate2 := Now;

FDaysCount := 7;

FK := 0.6;

eK.Text := FloatToStr(FK);

FB := 0.7;

eB.Text := FloatToStr(FB);

eDaysCount.Text := IntToStr (FDaysCount);

118

DateTimePicker1.Date := FDate1;

DateTimePicker2.Date := FDate2;

end;

procedure TfAnalyserParams.FormKeyPress(Sender: TObject; var Key: Char);

begin

if (Key = #27) then Close;

end;

end.

unit ufClientEditor;

interface

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

TfClientEditor = class(TForm)

Button1: TButton;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

DBEdit1: TDBEdit;

DBEdit9: TDBEdit;

DBEdit7: TDBEdit;

DBEdit6: TDBEdit;

DBEdit5: TDBEdit;

Label9: TLabel;

Label7: TLabel;

Label6: TLabel;

Label5: TLabel;

Label1: TLabel;

Button2: TButton;

TabSheet2: TTabSheet;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label8: TLabel;

DBEdit2: TDBEdit;

119

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit8: TDBEdit;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

procedure FormKeyPress(Sender: TObject; var Key: Char);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fClientEditor: TfClientEditor;

implementation

{$R *.dfm}

uses udmData;

procedure TfClientEditor.Button1Click(Sender: TObject);

begin

dmData.cdsClient.Post;

Close;

end;

procedure TfClientEditor.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TfClientEditor.FormClose(Sender: TObject; var Action: TCloseAction);

begin

dmData.cdsClient.Cancel;

end;

procedure TfClientEditor.FormKeyPress(Sender: TObject; var Key: Char);

begin

if Key = #27 then Close;

end;

120

end.

unit ufDateSelector;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;

type

TfDateSelector = class(TForm)

Button1: TButton;

Button2: TButton;

MonthCalendar1: TMonthCalendar;

procedure FormKeyPress(Sender: TObject; var Key: Char);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

FDate : TDateTime;

public

{ Public declarations }

property Date : TDateTime read FDate;

end;

var

fDateSelector: TfDateSelector;

implementation

{$R *.dfm}

procedure TfDateSelector.Button1Click(Sender: TObject);

begin

FDate := MonthCalendar1.Date;

ModalResult := mrOk;

end;

procedure TfDateSelector.Button2Click(Sender: TObject);

begin

Close;

end;

Источник: https://baza.diplomsite.ru/previewfile/2384

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

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