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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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
Источник: https://baza.diplomsite.ru/previewfile/2380

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

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