Автоматизация и учет товаров на складе

Размещено на http://www.allbest.ru

Министерство образования Республики Башкортостан

Государственное бюджетное образовательное учреждение

среднего профессионального образования

«Уфимский колледж статистики, информатики и

вычислительной техники»

«Автоматизация и учет товаров на складе»

Пояснительная записка к курсовому проекту

Руководитель проекта

Е.А. Тенякова

Студент гр. 3А-3

И.В. Аюпов

2012



АННОТАЦИЯ

Пояснительная записка к курсовому проекту содержит постановку и программу решения задачи «Автоматизация и учет товаров на складе».

Программа Project1.exe написана на языке Object Pascal в среде программирования Delphi 7.0 с использованием сервера баз данных Interbase 7, предназначена для работы в операционной системе MS Windows 7 и отлажена на данных контрольного примера.



СОДЕРЖАНИЕ

Введение

1. Постановка задачи

1.1 Описание предметной области

1.2 Функциональная модель предметной области

1.3 Схема данных

1.4 Описание входной информации

1.5 Описание выходной информации

2. Экспериментальный раздел

2.1 Обоснование выбора языка программирования

2.2 Описание программы

2.3 Протокол тестирования программного продукта

2.4 Руководство пользователя

Заключение

Приложение А. Исходный текст программы



ВВЕДЕНИЕ

С развитием компьютерной индустрии стоимость персональных компьютеров значительно снизилась. В связи с этим практически в каждом доме или офисе появились персональные компьютеры. Результатом этого стало появление информационных технологий в самых разнообразных сферах деятельности.

Курсовая работа предназначена для склада «Антошка»

После проведения анализа, были выявлены следующие задачи:

? задача по управлению торговыми операциями;

? вывод отчетов, которые будут использованы в процессе работы предприятия.

Разработанное программное обеспечение позволяет оперативно заполнить базу данных, так и формировать отчеты для дальнейшего развития предприятия. Выбор СУБД и языка программирования позволили создать компактную реляционную модель базы данных отвечающей потребностям пользователя. Внешний дизайн каждой формы ориентирован на интуитивный интерфейс и позволяет легко и быстро получать интересующую в данный момент информацию.

В базе данных используется таблица, написанная в Microsoft Access, а программа, которая использует данную таблицу написана на языке Borland Delphi 7, что позволяет взаимодействовать с большим количеством других программных продуктов.



1. ПОСТАНОВКА ЗАДАЧИ

1.1 Описание предметной области

Наименование задачи: «Автоматизация и учет товаров на складе».

Цель задачи: Автоматизация сведений о товаре каждого производителя и дальнейшая продажа этих товаров.

Периодичность решения определенных задач:

Задача сбора информации производивших товар. Данные изменяются при каждом поступлении нового товара. Данную задачу выполняет сам поставщик;

Количество товара на складе. Данные изменяются после продажи какого либо товара. Данные поступают от кладовщика.

Информация об объектах предметной области:

Администратор - специалист, который обеспечивает нормальное функционирование приложения, проверяет и дополняет его достоверной информацией;

Поставщик - ответственное лицо, которое поставляет товар;

Продавец - ответственное лицо, которое отвечает за продажу товара;

Описание изменений данных во времени;

Данные о товаре и фирме производителя изменяются при каждом поступлении товара. Записи в таблице могут быть всячески изменены, удалены или добавлены;

Перечь входных документов:

Лицензия на товар;

Перечь выходных документов:

Отчет о количестве не проданного товара;

Квитанции и чеки;



1.2 Функциональная модель предметной области

Размещено на http://www.allbest.ru

1.4 Описание входной информации

Входным документом для задачи является документ:

- Лицензия на товар;

Описание входных документов представлено в таблице 1.1



Таблица 1.1

Наименование документа (шифр)	Дата поступления документа	Откуда поступает документ
Накладная	При поступлении товара	От поставщика

1.5 Описание выходной информации

Выходным документом для задачи являются документы:

- отчет о количестве не проданного товара;

- отчет о количестве проданного товара.

Описание выходных документов представлено в таблице 1.2.

Таблица 1.2

Наименование документа (шифр)	Периодичность выдачи документа	Кол-во экз.	Куда передаются
отчет о количестве проданного товара	После продажи	3	директору
отчет о количестве не проданного товара	После продажи и каждый месяц	4	директору

1.6 Общие требования к продукту

Программный продукт «Project1.exe» должен работать на персональных компьютерах типа Pentium IV (или на совместимых с ним компьютерах), имеющем не менее 512 Мб оперативной памяти. Объем занимаемый на HDD носители не ограничен. Программный продукт может, управляется как мышью, так и клавиатурой. Для печати соответствующей документации подходит любой принтер. Продукт должен быть предназначен для работы с ОС Windows XP и более старших версиях. Программный продукт должен состоять из загрузочного модуля программы и таблиц базы данных на жестком диске. Инсталляция приложения должна производиться пользователем, путем установки приложения на HDD носитель, либо копирование папки project так же на HDD носитель. Выбор метода установки зависит от того какой исходный файл находится в распоряжении пользователя. Запуск приложения обеспечивается через .exe файл, который имеет название “Project1.exe”. Поддержка при эксплуатации и сопровождении продукта не обеспечивается.

Программный продукт должен обладать высокой степенью надежности. Во всем программном продукте должно использоваться ограничение ввода данных в поля таблиц. Перед занесением новых данных должна производиться проверка введенной информации на соответствие. Программный продукт должен обладать высоким быстродействием, производит все действия за короткий промежуток времени.



2. ЭКСПЕРИМЕНТАЛЬНЫЙ РАЗДЕЛ

2.1 Обоснование выбора языка программирования

Delphi является системой программирования высокого уровня. Она берет на себя значительную часть работы по управлению компьютером, что делает возможным в простых случаях обходиться без особых знаний о деталях ее работы. В отличие от традиционных систем программирования, Delphi даже «сама» пишет значительную часть текста программы: описания объектов, заголовки процедур и многое другое. Программисту остается только вписать необходимые строчки, определяющие индивидуальное поведение программы, которые система не в состоянии предугадать.

Delphi является системой объектного программирования. Delphi позволяет не только использовать уже ставшие классическими объекты типа object, но и создавать новые, которые могут иметь графическое изображение и обладать свойствами стандартных элементов среды Windows. Такие объекты получили название визуальных компонентов; для их описания используется зарезервированное слово class. К Delphi прилагается целая библиотека стандартных визуальных компонентов - Visual Component Library (VCL), в которую можно добавлять свои собственные компоненты.

Еще одна черта Delphi - ее открытость. Почти все имеющиеся в системе объекты реализованы на языке Паскаль и могут быть легко дополнены новыми.

Таким образом, Delphi содержит в себе наиболее передовые черты системы программирования. Она является мощным и в то же время несложным инструментальным средством для создания приложений с современным интерфейсом (в том числе и обучающих программ).

Из-за своего высокого уровня системы программирования типа Delphi даже получили специальное название - Среда быстрой разработки приложений RAD (Rapid Application Development).

Важным достоинством Delphi как инструментальной среды является то, что ее компилятор делает автономные EXE-файлы. Они будут работать в среде Windows даже на той ЭВМ, на которой нет системы Delphi. Это выгодно отличает ее от других подобных сред, например, от Microsoft Visual Basic.

Borland Delphi 7 Studio может работать в среде операционных систем от Windows 98 до Windows XP. Особых требований, по современным меркам, к ресурсам компьютера пакет не предъявляет: процессор должен быть типа Pentium или Celeron с тактовой частотой не ниже 166 МГц (рекомендуется Pentium II 400 МГц), оперативной памяти - 128 Мбайт (рекомендуется 256 Мбайт), достаточное количество свободного дискового пространства (для полной установки версии Enterprise необходимо приблизительно 475 Мбайт).

2.2 Описание программы

Приложение выполняет следующие действия в процессе своей работы:

Открытие содержимого таблиц;

Извлечение содержимого из таблиц и отправка их в иные электронные версии;

Формирование отчета и распечатка его;

Сортировка содержимого таблиц;

Фильтрация содержимого таблиц;

Поиск содержимого таблиц;

Редактирование содержимого таблиц;

Модули и процедуры:



2.3 Протокол тестирования программного продукта

Запрещается изменение данных представленных в табличном виде, то есть непосредственно в самой таблице, только через специальные формы;

Данный программный продукт удовлетворяет всем функциональным требованиям, имеет дружественный интерфейс, исключает появлении системных ошибок.



2.4 Руководство пользователя

Для запуска программы необходимо скопировать папку «project», которая содержит файл для запуска и папку с БД, с компакт-диска на жесткий диск компьютера и запустить файл Project1.exe. Для правильной работы нельзя перемещать папку БД из основной папки и переименовывать все файлы, находящиеся в ней во избежание ошибок. Обращение к программе осуществляется посредством обычного запуска приложения «Project1.exe».

При запуске исполняемого файла «Project1.exe» открывается окно программы, показанное на рисунок 1.

Рисунок 1- Начальная страница

Выход из программы осуществляется нажатием кнопки «Выход». Для продолжения работы нужно выбрать и нажать любую из кнопок представленных в меню. В каждой вкладке находится определенные пункты. Показанные на рисунках 2 и 3.

Рисунок 2- Пункт файл

Рисунок 3- Пункт редактирование

Для того чтобы просмотреть сведения о товаре, пользователю необходимо выбрать вкладку файл и пункт открыть. После того как пользователь нажал кнопку таблица, открывается форма с DBGrid где можно ввести название таблицы и открыть её. Так же на форме находятся 2 кнопки:

Показано на рисунке 4.

Кнопка 1 отвечает за переход на новое окно, на котором происходит редактирование записей в таблице товары или продажа, окно показано на рисунке 5.

Кнопка 2 закрывает окно, показанное на рисунке 4.

Рисунок 4 - Окно открытия файла.

Рисунок 5 - Форма с редактированием таблицы товары

Рисунок 6- Отчет Qreport

Если пользователю нужно воспользоваться возможностями приложениями, то необходимые кнопки и выборки уже находятся на главной странице.

Если пользователь выбирает пункт сортировка, пользователю нужно лишь выбрать пункт сортировки из предложенного списка и сортировка будет выполнена автоматически.

Если пользователь выбирает пункт фильтрация, пользователю нужно лишь выбрать товар или фирму из предложенного списка и сортировка будет выполнена автоматически.



Заключение

Данное приложение написано для удобного ведения учета товара, для продажи товаров

Представленное приложение обладает следующими характеристиками:

функциональностью, то есть полнотой удовлетворения пользователя;

наглядностью, удобством, интуитивно понятным и привычным для пользователя интерфейсом;

универсальностью и доступностью рядовому пользователю;

достоверностью и эффективностью информации;

производит сортировку, фильтрацию;

добавлением новой информации;

подлежит изменению разработчиком/программистом;

Результатом работы стало создание программного обеспечения. Программное средство написано на языке Object Pascal с использованием среды разработки Delphi 7.0.

В процессе разработки курсовой работы были приобретены навыки в области построения баз данных, а также их программной защиты.

автоматизация учет товар



ПРИЛОЖЕНИЕ

unit Unit11;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,

Unit2,

Unit4, ComCtrls, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, QRCtrls,

QuickRpt, Menus, Unit13, Unit12, Unit14, Unit15, unit16;

type

TForm11 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

Button3: TButton;

Button4: TButton;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

Button5: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure TabSheet2Enter(Sender: TObject);

procedure TabSheet4Enter(Sender: TObject);

procedure TabSheet1Enter(Sender: TObject);

procedure TabSheet3Show(Sender: TObject);

procedure TabSheet1Show(Sender: TObject);

procedure TabSheet4Show(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure DBGrid4Enter(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

form11.Close;

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

datamodule2.TEST.Active:=false;

Datamodule2.TEST.SQL.Clear;

Datamodule2.TEST.SQL.Add('Select *');

Datamodule2.TEST.SQL.Add('From tovar');

Datamodule2.TEST.SQL.Add('where Naimenovanie_Tovara LIKE ''' + '%'+ dblookupcombobox1.Text+'%' + '''');

datamodule2.TEST.Active:=true;

end;

procedure TForm11.Button3Click(Sender: TObject);

begin

datamodule2.TEST.Active:=false;

Datamodule2.TEST.SQL.Clear;

Datamodule2.TEST.SQL.Add('Select *');

Datamodule2.TEST.SQL.Add('From Nazvanie_Partii');

Datamodule2.TEST.SQL.Add('where Nasvanie_Firm_Pokupatelya LIKE ''' + '%'+ dblookupcombobox2.Text+'%' + '''');

datamodule2.TEST.Active:=true;

end;

procedure TForm11.TabSheet2Enter(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= True;

end;

procedure TForm11.TabSheet4Enter(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= True;

end;

procedure TForm11.TabSheet1Enter(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= False;

end;

procedure TForm11.TabSheet3Show(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= False;

end;

procedure TForm11.TabSheet1Show(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= False;

end;

procedure TForm11.TabSheet4Show(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= False;

end;

procedure TForm11.Button4Click(Sender: TObject);

var s: string;

begin

DataModule2.TEST.Close;

DataModule2.TEST.SQL.Clear;

DataModule2.TEST.SQL.Add('Select * From Tovar');

case RadioGroup1.ItemIndex of

0: s := '';

1: s := 'DESC';

end;

Case RadioGroup2.ItemIndex of

0: s := 'Order By Naimenovanie_Tovara ' +s;

1: s := 'Order By Sena_tovara ' +s;

2: s := 'Order by Data_Postupleniya ' +s;

3: s := '';

end;

DataModule2.TEST.SQL.Add(s);

DataModule2.TEST.Open;

end;

procedure TForm11.DBGrid4Enter(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= False;

end;

procedure TForm11.Button5Click(Sender: TObject);

var s: string;

begin

DataModule2.TEST.Close;

DataModule2.TEST.SQL.Clear;

DataModule2.TEST.SQL.Add('Select * From Фирма');

case RadioGroup1.ItemIndex of

0: s := '';

1: s := 'DESC';

end;

Case RadioGroup3.ItemIndex of

0: s := 'Order By Назван_фирмы_клиента ' +s;

1: s := 'Order By ФИО_руководителя ' +s;

2: s := 'Order by Код_товара ' +s;

3: s := 'Order by Дата_продажи ' +s;

4: s := '';

end;

DataModule2.TEST.SQL.Add(s);

DataModule2.TEST.Open;

end;

procedure TForm11.N2Click(Sender: TObject);

begin

Form13.Show;

end;

procedure TForm11.N3Click(Sender: TObject);

begin

Form12.Show;

end;

procedure TForm11.N4Click(Sender: TObject);

begin

Form11.Close;

end;

procedure TForm11.N6Click(Sender: TObject);

begin

Form12.Show;

end;

procedure TForm11.N9Click(Sender: TObject);

begin

QuickReport4.Preview;

end;

procedure TForm11.N7Click(Sender: TObject);

begin

Form14.Show;

end;

procedure TForm11.N11Click(Sender: TObject);

begin

Form15.Show;

end;

procedure TForm11.N12Click(Sender: TObject);

begin

form16.Show;

end;

unit Unit12;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,

Unit2;

type

TForm12 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Edit2: TEdit;

Label1: TLabel;

Edit3: TEdit;

Label2: TLabel;

Edit4: TEdit;

Label3: TLabel;

Label4: TLabel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.Button1Click(Sender: TObject);

begin

DataModule2.TEST.Close;

DataModule2.TEST.SQL.Clear;

DataModule2.TEST.SQL.Add('Create Table ' + Edit1.Text + '(' + Edit2.Text + ');');

DataModule2.TEST.ExecSQL;

end;

procedure TForm12.Button2Click(Sender: TObject);

begin

Form12.Close;

end;

end.

nit Unit13;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,Unit2, StdCtrls;

type

TForm13 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);

begin

DataModule2.TEST.Close;

DataModule2.TEST.SQL.Clear;

DataModule2.TEST.SQL.Add('Select * From ' + Edit1.Text + ';');

DataModule2.TEST.Open;

//if opendialog1.Execute then

//memo1.Lines.LoadFromFile(Opendialog1.FileName);

end;

procedure TForm13.Button2Click(Sender: TObject);

begin

Form13.Close;

end;

end.

unit Unit15;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Unit2, StdCtrls, Mask, DBCtrls, ComCtrls;

type

TForm15 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Button2: TButton;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Button3: TButton;

Button4: TButton;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.Button1Click(Sender: TObject);

begin

Form15.Close;

end;

procedure TForm15.Button2Click(Sender: TObject);

begin

Form15.Close;

end;

procedure TForm15.Button3Click(Sender: TObject);

begin

Form15.Close;

end;

procedure TForm15.Button4Click(Sender: TObject);

begin

Form15.Close;

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,

Unit2, StdCtrls, ExtCtrls, DBCtrls, Mask,

Unit5,

Unit10,

Unit4;

type

TForm8 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBNavigator1: TDBNavigator;

Button1: TButton;

Label4: TLabel;

DBEdit4: TDBEdit;

Button2: TButton;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

DBLookupComboBox4: TDBLookupComboBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

Public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

Form8.Close;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

Form10.Show;

end;

procedure TForm8.Button3Click(Sender: TObject);

begin

QuickReport4.Preview;

end;

end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,

Unit2, StdCtrls, ExtCtrls, DBCtrls, Mask,

Unit5,

Unit4;

type

TForm9 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Label4: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

begin

Form9.Close;

end;

procedure TForm9.Button2Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm9.Button3Click(Sender: TObject);

begin

QuickReport4.Preview;

end;

procedure TForm9.FormCreate(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= True;

end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DataModule2.TOVAR.Filtered:= False;

end;

procedure TForm9.FormActivate(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= True;

end;

end.

unit Unit4;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,

StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls,

Unit2;

type

TQuickReport4 = class(TQuickRep)

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

PageFooterBand1: TQRBand;

QRSysData1: TQRSysData;

QRSysData2: TQRSysData;

QRSysData3: TQRSysData;

procedure QuickRepAfterPrint(Sender: TObject);

procedure QuickRepPreview(Sender: TObject);

procedure QuickRepAfterPreview(Sender: TObject);

private

public

end;

var

QuickReport4: TQuickReport4;

implementation

{$R *.DFM}

procedure TQuickReport4.QuickRepAfterPrint(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= False;

end;

procedure TQuickReport4.QuickRepPreview(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= False;

end;

procedure TQuickReport4.QuickRepAfterPreview(Sender: TObject);

begin

DataModule2.TOVAR.Filtered:= False;

end;

end.

Размещено на Allbest.ru