Дипломная работа: Автоматизация и обеспечение информационной безопасности приёма платежей в базе конфигурации "1С: Предприятия 8.3" в ООО "КОНСАЛТ ДЕВЕЛОП"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
124
ToolButton8: TToolButton;
ToolButton17: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton18: TToolButton;
ToolButton10: TToolButton;
procedure aPrintExecute(Sender: TObject);
procedure bCancelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure FontEdit1BeforeExecute(Sender: TObject);
procedure FontEdit1Accept(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fOrder: TfOrder;
implementation
{$R *.dfm}
uses ufData;
procedure TfOrder.aPrintExecute(Sender: TObject);
begin
//
if (fData.tOrder.RecordCount > 0) then
125
begin
fData.frxReport.LoadFromFile(ExtractFilePath (Application.ExeName) +
'frxOrder.fr3' , true);
fData.frxReport.PrepareReport;
fData.frxReport.ShowPreparedReport;
end;
end;
procedure TfOrder.bCancelClick(Sender: TObject);
begin
//
Close;
end;
procedure TfOrder.FontEdit1Accept(Sender: TObject);
begin
dbreOrder.SelAttributes.Size := FontEdit1.Dialog.Font.Size;
dbreOrder.SelAttributes.Style := FontEdit1.Dialog.Font.Style;
dbreOrder.SelAttributes.Color := FontEdit1.Dialog.Font.Color;
dbreOrder.SelAttributes.Pitch := FontEdit1.Dialog.Font.Pitch;
dbreOrder.SelAttributes.Style := FontEdit1.Dialog.Font.Style;
dbreOrder.SelAttributes.Name := FontEdit1.Dialog.Font.Name;
dbreOrder.SelAttributes.Charset := FontEdit1.Dialog.Font.Charset;
end;
procedure TfOrder.FontEdit1BeforeExecute(Sender: TObject);
begin
FontEdit1.Dialog.Font.Size := dbreOrder.SelAttributes.Size;
FontEdit1.Dialog.Font.Style := dbreOrder.SelAttributes.Style;
FontEdit1.Dialog.Font.Color := dbreOrder.SelAttributes.Color;
FontEdit1.Dialog.Font.Pitch := dbreOrder.SelAttributes.Pitch;
126
FontEdit1.Dialog.Font.Style := dbreOrder.SelAttributes.Style;
FontEdit1.Dialog.Font.Name := dbreOrder.SelAttributes.Name;
FontEdit1.Dialog.Font.Charset := dbreOrder.SelAttributes.Charset;
end;
procedure TfOrder.FormActivate(Sender: TObject);
begin
//
if (fData.tOrder.RecordCount = 0) then
begin
raise Exception.Create ('Необходимо заполнить справочник
договоров');
end;
dblcbOrder.KeyValue := fData.tOrderКод.Value;
end;
procedure TfOrder.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
fData.tOrder.Cancel;
end;
end.
unit ufProduct;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids,
Vcl.StdCtrls, Vcl.DBCtrls;
127
type
TfProduct = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
bShowfProductType: TButton;
bShowfPackType: TButton;
GroupBox1: TGroupBox;
dblcbProductType: TDBLookupComboBox;
bClearProductType: TButton;
procedure bShowfProductTypeClick(Sender: TObject);
procedure bShowfPackTypeClick(Sender: TObject);
procedure dblcbProductTypeClick(Sender: TObject);
procedure bClearProductTypeClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fProduct: TfProduct;
implementation
{$R *.dfm}
uses ufData, ufRefBooks;
procedure TfProduct.bClearProductTypeClick(Sender: TObject);
128
begin
fData.tProduct.Filtered := false;
end;
procedure TfProduct.bShowfPackTypeClick(Sender: TObject);
begin
//
fRefBooks.TabIndex := 1;
fRefBooks.ShowModal;
end;
procedure TfProduct.bShowfProductTypeClick(Sender: TObject);
begin
fRefBooks.TabIndex := 0;
fRefBooks.ShowModal;
end;
procedure TfProduct.dblcbProductTypeClick(Sender: TObject);
begin
//
if (VarIsNull(dblcbProductType.KeyValue) = false) then
begin
//
fData.tProduct.Filtered := false;
fData.tProduct.Filter := '(Код_Тип_товара = ' +
VarToStr(dblcbProductType.KeyValue) + ')';
fData.tProduct.Filtered := true;
end;
end;
procedure TfProduct.FormClose(Sender: TObject; var Action: TCloseAction);
Источник: https://baza.diplomsite.ru/previewfile/1792

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

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии