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

Скачать

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

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

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

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