112
end;
procedure TfProductSelector.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
fData.tProduct.Filtered := False;
fProductViewer.Visible := False;
end;
procedure TfProductSelector.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;
procedure TfProductSelector.FormShow(Sender: TObject);
begin
Filter;
end;
procedure TfProductSelector.bCancelClick(Sender: TObject);
begin
Close;
end;
113
procedure TfProductSelector.bOkClick(Sender: TObject);
begin
//
if fData.tProduct.RecordCount = 0 then
raise Exception.Create('В наборе нет данных');
ID := fData.tProductКод.Value;
ModalResult := mrOk;
end;
procedure TfProductSelector.bViewClick(Sender: TObject);
begin
fProductViewer.ShowModal;
end;
procedure TfProductSelector.eNameChange(Sender: TObject);
begin
Filter;
end;
end.
unit ufSaleListEditor;
interface
114
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Mask,
Vcl.ExtCtrls, DB;
type
TfSaleListEditor = class(TForm)
Panel4: TPanel;
Label4: TLabel;
DBEdit2: TDBEdit;
Panel3: TPanel;
bOk: TButton;
bCancel: TButton;
Label2: TLabel;
DBEdit3: TDBEdit;
Label5: TLabel;
DBEdit4: TDBEdit;
Label8: TLabel;
DBEdit6: TDBEdit;
bSelect: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bOkClick(Sender: TObject);
procedure bCancelClick(Sender: TObject);
115
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure bSelectClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fSaleListEditor: TfSaleListEditor;
implementation
{$R *.dfm}
uses ufData, ufProductSelector;
procedure TfSaleListEditor.bCancelClick(Sender: TObject);
begin
Close;
end;
procedure TfSaleListEditor.bOkClick(Sender: TObject);
begin
//
116
if (fData.cdsESaleList.State = dsEdit) or (fData.cdsESaleList.State = dsInsert)
then
fData.cdsESaleList.Post;
Close;
end;
procedure TfSaleListEditor.bSelectClick(Sender: TObject);
begin
//
if fProductSelector.ShowModal = mrOk then
begin
//
fData.cdsESaleListКод_Товар.Value := fProductSelector.ID;
end;
end;
procedure TfSaleListEditor.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
fData.cdsESaleList.Cancel;
end;
procedure TfSaleListEditor.FormKeyPress(Sender: TObject; var Key: Char);
begin
117
//
if Key = #27 then Close;
end;
end.
unit ufStatSaleFilter;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
type
TfStatSaleFilter = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
fStatSaleFilter: TfStatSaleFilter;
118
implementation
{$R *.dfm}
uses ufData;
end.