Дипломная работа: Автоматизация регистрации и обработки заявок на комплектующие для ПК в компании ООО "SevStar"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
142
private
{ Private declarations }
FDate1, FDate2 : TDateTime;
FDaysCount : Integer;
FK : Double;
FB : Double;
FProductID : 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 ProductID : Integer read FProductID;
end;
var
fAnalyserParams: TfAnalyserParams;
implementation
{$R *.dfm}
uses udmData;
procedure TfAnalyserParams.bOkClick(Sender: TObject);
begin
//
143
FDate1 := DateTimePicker1.Date;
FDate2 := DateTimePicker2.Date;
if (VarIsNull(dblcbProduct.KeyValue) = true) then
raise Exception.Create('Необходимо выбрать товар');
FProductID := dblcbProduct.KeyValue;
if (FDate1 >= FDate2) then
raise Exception.Create('Дата начала периода должна быть меньше даны
окончания периода');
try
//
FDaysCount := StrToInt (eDaysCount.Text);
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
144
//
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
//
FProductID := 0;
FDate1 := Now - 30;
FDate2 := Now;
FDaysCount := 7;
FK := 0.6;
eK.Text := FloatToStr(FK);
FB := 0.7;
eB.Text := FloatToStr(FB);
145
eDaysCount.Text := IntToStr (FDaysCount);
DateTimePicker1.Date := FDate1;
DateTimePicker2.Date := FDate2;
end;
procedure TfAnalyserParams.FormKeyPress(Sender: TObject; var Key: Char);
begin
//
if (Key = #27) then Close;
end;
end.
Источник: https://baza.diplomsite.ru/previewfile/2206

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

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009
- Программа ГПИ