119
Приложение.
Листинг основных программных модулей.
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
120
dmData.cdsAccess.Post;
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);
121
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);
if (FDaysCount <= 0) then
raise Exception.Create('Прогнозируемый период должен быть больше нуля');
except
//
122
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;
procedure TfAnalyserParams.FormKeyPress(Sender: TObject; var Key: Char);
123
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);
procedure Button1Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
124
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
uses
125
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;
procedure TfDateSelector.FormKeyPress(Sender: TObject; var Key: Char);
begin
126
//
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);
procedure Button1Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
127
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
uses
128
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
TfOrderEditor = 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;
Label4: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label5: TLabel;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
tbNavigator: TToolBar;
ToolButton17: TToolButton;
ToolButton18: TToolButton;
ToolButton19: TToolButton;
ToolButton1: TToolButton;
ToolButton20: TToolButton;
ToolButton21: TToolButton;