Материал: Автоматизация према заявок на ремонт и модернизацию ПК в ТОО "КУСА ККБ-2"

Скачать файл

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

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

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

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

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




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