Материал: Автоматизация и обеспечение информационной безопасности управленческого учета видеосалонов "ООО СТРОЙ-ИНВЕСТ"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
107
Приложение. Листинг основных программных модулей
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, Vcl.ComCtrls, Vcl.ToolWin, Vcl.DBClientActns,
Vcl.DBActns, Vcl.ActnList, Vcl.PlatformDefaultStyleActnCtrls,
Vcl.ActnMan;
type
TfProduct = class(TForm)
DBGrid1: TDBGrid;
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fProduct: TfProduct;
108
implementation
{$R *.dfm}
uses ufData, ufRefBooks;
procedure TfProduct.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Ord (Key) = 27) then
Close ();
end;
end.
unit ufProductSelector;
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.Grids,
Vcl.DBGrids;
type
TfProductSelector = class(TForm)
109
Panel3: TPanel;
bOk: TButton;
bCancel: TButton;
Panel4: TPanel;
Panel1: TPanel;
Label1: TLabel;
eNumber: TEdit;
Label2: TLabel;
eName: TEdit;
eCost: TEdit;
Label3: TLabel;
bView: TButton;
DBGrid1: TDBGrid;
procedure bCancelClick(Sender: TObject);
procedure bOkClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure eNameChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure bViewClick(Sender: TObject);
private
{ Private declarations }
procedure Filter;
public
{ Public declarations }
110
ID : Integer;
end;
var
fProductSelector: TfProductSelector;
implementation
{$R *.dfm}
uses ufData, ufProductViewer;
procedure TfProductSelector.Filter;
var
F : string;
begin
//
F := '';
if eNumber.Text <> '' then
begin
//
if F <> '' then F := F + ' and ';
F := F + 'Артикул LIKE ' + QuotedStr(eNumber.Text + '%');
111
end;
if eName.Text <> '' then
begin
//
if F <> '' then F := F + ' and ';
F := F + 'Название LIKE ' + QuotedStr(eName.Text + '%');
end;
try
StrToInt (eCost.Text);
if eCost.Text <> '' then
begin
//
if F <> '' then F := F + ' and ';
F := F + 'Стоимость = ' + eCost.Text;
end;
except
end;
fData.tProduct.Filter := F;
fData.tProduct.Filtered := F <> '';
Источник: https://baza.diplomsite.ru/previewfile/1816

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

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