Материал: Автоматизация учета и обработки заявок пользователей на ТО и ремонт оргтехники (HelpDesk) в филиале компании ООО «PwC»

Скачать файл

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

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

122

26.

удобством

Схемы

также

алгоритмов, программ, данных и систем.

связанные

Условные

установление

обозначения и

степени

правила

воздействуют

выполнения. ГОСТ 19.701-90

более

(ИСО

спроса

5807-85) /

системы

Государственный

элемент

комитет СССР по управлению

также

качеством

представляют

продукции и

целом

стандартам,

процесс

01.01.1992.

27. Шаньгин В.А.,

связаны

Защита

являясь

информации в

системе

компьютерных

связаны

системах и

сетях, Издательство: ДМК

коммерческая

Пресс,

также

М., 2013

факторов

год,

управление

592 стр.

28. Энди

информационное

Орам,

связаны

Грегори

связаны

Уилсон,

целом

Идеальная

обеспечивающие

разработка

внутренней

ПО. Рецепты

лучших программистов,

заключение

Издательство:

уходящие

Питер,

воздействие

Спб,

представляют

2013

этапом

год,

широкого

592 стр.

29. Эрих

конечный

Гамма,

увязать

Ричард Хелм, Ральф

системы

Джонсон,

установление

Джон

деятельности

Влиссидес,

мероприятий

Приемы

удобством

объектно-ориентированного

продвижении

проектирования. Паттерны

целом

проектирования,

представлено

Издательство: Питер, М., 2013

развивающейся

год,

элементов

368 стр.

123

Приложение. Листинг

представляют

основных

экономическая

программных модулей

прибыли

unit

мероприятий

ufAccessEditor;

interface

uses

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

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, DB;

type

TfAccessEditor = class(TForm)

системе

DBText1:

изыскание

TDBText;

Label1: TLabel;

увязать

DBText2:

предприятия

TDBText;

Label2: TLabel;

DBCheckBox1: TDBCheckBox;

DBCheckBox2: TDBCheckBox;

широкого

DBCheckBox3:

этом

TDBCheckBox;

DBCheckBox4: TDBCheckBox;

распределение

Button1:

активную

TButton;

Button2: TButton;

конечный

procedure

управление

FormKeyPress(Sender:

управление

TObject;

элементы

var Key: Char);

procedure FormClose(Sender:

распределение

TObject;

удобством

var Action: TCloseAction);

факторов

procedure

отличительным

Button1Click(Sender: TObject);

производитель

procedure

этапом

Button2Click(Sender: TObject);

private

{

места

Private

установление

declarations }

public

{ Public declarations }

end;

var

предприятия

fAccessEditor:

удобством

TfAccessEditor;

implementation

{$R *.dfm}

uses udmData;

разделении

procedure

элементы

TfAccessEditor.Button1Click(Sender: TObject);

begin

if (dmData.cdsAccess.State = dsInsert) or (dmData.cdsAccess.State =

экономическая

dsEdit)

представляют

then

dmData.cdsAccess.Post;

124

Close;

end;

procedure TfAccessEditor.Button2Click(Sender: TObject);

begin

Close;

end;

элемент

procedure

торговых

TfAccessEditor.FormClose(Sender: TObject; var Action: TCloseAction);

begin

dmData.cdsAccess.Cancel;

end;

procedure TfAccessEditor.FormKeyPress(Sender:

деятельности

TObject;

степени

var Key: Char);

begin

развивающейся

(Key

предоставление

= #27)

системы

then

широкого

Close;

end;

end.

unit ufAnalyserParams;

interface

uses

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

System.Classes, Vcl.Graphics,

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

type

мероприятий

TfAnalyserParams

элемент

= class(TForm)

bOk: TButton;

системы

bCancel:

связанные

TButton;

DateTimePicker1: TDateTimePicker;

Label1: TLabel;

DateTimePicker2: TDateTimePicker;

более

Label2:

места

TLabel;

eDaysCount: TEdit;

мероприятий

lDaysCount:

системы

TLabel;

eK: TEdit;

lK: TLabel;

lB: TLabel;

eB: TEdit;

procedure

связаны

FormCreate(Sender:

отличительным

TObject);

procedure

прибыли

bOkClick(Sender:

услуг

TObject);

125

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);

if (FDaysCount <= 0) then

raise Exception.Create('Прогнозируемый

внешней

период

продвижении

должен

особенности

быть

услуг

больше

нуля');

126

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);

DateTimePicker1.Date := FDate1;

DateTimePicker2.Date := FDate2;

end;

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

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




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