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
//
if
развивающейся
(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;
127
представлено
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;
связанные
DBEdit3:
воздействуют
TDBEdit;
DBEdit4: TDBEdit;
внутренней
DBEdit8:
элементов
TDBEdit;
procedure
управление
FormClose(Sender:
факторов
TObject; var
распределение
Action:
торгового
TCloseAction);
128
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;
end.
внутренней
unit
процесс
ufDateSelector;
interface
129
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;
procedure TfDateSelector.FormCreate(Sender: TObject);
begin
//
MonthCalendar1.Date := Now;
end;
130
procedure TfDateSelector.FormKeyPress(Sender: TObject; var
системы
Key:
уходящие
Char);
begin
//
if Key = #27 then Close;
end;
end.
сопровождаются
unit
торгового
ufMobileEditor;
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
TfMobileEditor = class(TForm)
степени
Button1:
разделение
TButton;
PageControl1: TPageControl;
места
TabSheet1:
конечному
TTabSheet;
DBEdit1: TDBEdit;
целом
DBEdit6:
первой
TDBEdit;
Label6: TLabel;
Label1: TLabel;
Button2: TButton;
системы
amNavigator:
удобством
TActionManager;
DataSetFirst1: TDataSetFirst;
этапом
DataSetPrior1:
целом
TDataSetPrior;
DataSetNext1: TDataSetNext;
внешней
DataSetLast1:
этом
TDataSetLast;
DataSetInsert1: TDataSetInsert;
воздействие
DataSetDelete1:
удобством
TDataSetDelete;
DataSetEdit1: TDataSetEdit;
DataSetPost1: TDataSetPost;
DataSetCancel1: TDataSetCancel;
воздействие
DataSetRefresh1:
системы
TDataSetRefresh;
ClientDataSetApply1: TClientDataSetApply;
элементы
Label2:
элемент
TLabel;
DBLookupComboBox1: TDBLookupComboBox;
зависимости
Label3:
информационное
TLabel;
DBLookupComboBox2: TDBLookupComboBox;
относятся
procedure
уходящие
FormClose(Sender: TObject; var Action: TCloseAction);
131
мероприятий
procedure
этом
Button1Click(Sender: TObject);
системы
procedure
товаров
FormKeyPress(Sender:
элементов
TObject;
торговых
var Key: Char);
процесс
procedure
поставка
Button2Click(Sender: TObject);
private
{ Private declarations }
public
{
воздействие
Public
зависимости
declarations }
end;
var
отличительным
fMobileEditor:
экономическая
TfMobileEditor;
implementation
{$R *.dfm}
uses udmData;
коммерческая
procedure
информационное
TfMobileEditor.Button1Click(Sender: TObject);
begin
//
dmData.cdsMobile.Post;
Close;
end;
procedure TfMobileEditor.Button2Click(Sender: TObject);
begin
//
Close;
end;
представлено
procedure
внешней
TfMobileEditor.FormClose(Sender: TObject; var
услуг
Action:
являясь
TCloseAction);
begin
//
dmData.cdsMobile.Cancel;
end;
procedure TfMobileEditor.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27
коммерческая
then
розничной
Close;
end;
end.
unit ufOrderEditor;
interface