Дипломная работа: Автоматизация учета и обработки заявок пользователей на ТО и ремонт техники (Help Desk) в компании ООО Планета-Р

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
121
procedure TfDateSelector.FormCreate(Sender: TObject);
begin
//
MonthCalendar1.Date := Now;
end;
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;
122
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);
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;
123
end;
end.
unit ufOrderEditor;
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
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;
124
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
tbNavigator: TToolBar;
ToolButton17: TToolButton;
ToolButton18: TToolButton;
ToolButton19: TToolButton;
ToolButton1: TToolButton;
ToolButton20: TToolButton;
ToolButton21: TToolButton;
ToolButton4: TToolButton;
ToolButton22: TToolButton;
ToolBar1: TToolBar;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fOrderEditor: TfOrderEditor;
implementation
{$R *.dfm}
uses udmData, uCommon;
procedure TfOrderEditor.Button1Click(Sender: TObject);
function VarToDouble (V : Variant) : Double;
begin
//
125
Result := 0;
if (VarIsNull(V) = false) then
begin
//
Result := V;
end;
end;
begin
//
if (VarToDouble (dmData.cdsOrderDATE_END.OldValue) <> 0) then
begin
//
raise Exception.Create('Закрытый заказ нельзя изменить');
end;
PostDataSet (dmData.cdsOrder);
PostDataSet (dmData.cdsOrderDefect);
PostDataSet (dmData.cdsOrderSparePart);
dmData.cdsOrder.ApplyUpdates(0);
dmData.cdsOrderDefect.ApplyUpdates(0);
dmData.cdsOrderSparePart.ApplyUpdates(0);
try
dmData.cdsOrder.Edit;
except
end;
dmData.cdsOrderCOST.Value :=
RemoteMethods.GetOrderCost(dmData.cdsOrderID.Value);
dmData.cdsOrder.Post;
dmData.cdsOrder.ApplyUpdates(0);
dmData.cdsOrder.Refresh;
Close;
end;
procedure TfOrderEditor.Button2Click(Sender: TObject);
begin
//
Close;
end;
procedure TfOrderEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
dmData.cdsOrderDefect.Cancel;
dmData.cdsOrderSparePart.Cancel;
dmData.cdsOrder.Cancel;
dmData.cdsOrderDefect.CancelUpdates;
Источник: https://baza.diplomsite.ru/previewfile/2384

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

ЦЕНОВАЯ ПОЛИТИКА ПРЕДПРИЯТИЯ НА ПРИМЕРЕ ООО «ДНС РИТЕЙЛ»
_archivetempпротивовоспалительные
- Обратный порядок следования фаз 4
- Сопротивление изоляции 25
!Контрольная работа (задание)
!Фармакология препаратов для терапии заболеваний дыхательных путей
'Свадьба'. Керамика
"Проблема обеззараживания рук медицинского персонала"
«Предмет, метод предпринимательского права и принципы предпринимательского права» (Понятие предмета и метода российского предпринимательского права)
«Українська література в першій половині ХХ століття»