Автоматизация продажи компьютерной техники

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

Содержание

Введение

1. Описание предметной области рассматриваемого объекта

2. Аналогичные программные продукты

3 Основная часть

3.1 Выбор и обоснование СУБД для реализации базы данных

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

3.3 Описание EMS Manager for InterBase/Firebird

3.4 Список используемых компонентов

4. Структура банка данных

4.1 Инфологическое проектирование

4.2 Структура таблиц

Заключение

Литература

Приложение



Введение

Использование вычислительной техники позволяет ускорить работу, связанную с документооборотом, уменьшить персонал, а значит увеличить производительность труда.

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

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

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



1. Описание предметной области рассматриваемого объекта

автоматизация программный компьютерный инфологический

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

К функциям, реализуемым в данной задаче, относятся:

учет и регистрация количества проданной техники;

отслеживать количество проданной техники тем или иным сотрудником.

регистрация новых продаж;

выдача отчетов по заданным параметрам;

Из всего вышесказанного вытекает ограничение предметной области:

каждая запись должна быть уникальной и не иметь своих дубликатов;

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

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

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

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

Автоматизация позволит получать отчёты по заданным условиям, с подсчётом итоговых значений, и организовать хранение данных для последующего анализа.

Условием прекращения использования задачи «Автоматизация продажи техники в компьютерном магазине» является прекращение деятельности предприятия.



2. Аналогичные программные продукты

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

Главное окно приложения

Окно “Реализация товара”



Формирование отчетов

Не смотря на тот фак что у этого программного продукта есть масса плюсов- такие как:

Подробная статистика;

Оперативный и быстрый доступ к данным;

Поиск интересующих товаров;

Выборка данных по определенным критериям;

Удобный редактор справочников;

Статистика по работающему персоналу .

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

Из-за изобилия функций порой интерфейс не понятен и без соответствующей информации пользователю трудно ориентироваться в программе;

Не предусмотрен многопользовательский режим. Совершенно любой сотрудник может редактировать и просматривать любую информацию;

Отсутствие справки пользователя.

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



3.Основная часть

3.1 Выбор и обоснование СУБД для реализации базы данных

Многие известные крупные компании такие независимо от направления бизнеса, имеют одно общее: они выбрали InterBase в качестве ключевого компонента их информационных систем.

Borland InterBase одинаково хорошо применяется и для управления ракетными системами, сбора данных для аэрокосмических исследований ,хранения и обработки данных биржи. http://lib.znate.ru/docs/index-64006.html?page=6

Приложения подобного рода имеют много общих требований: легкость использования и управления; производительность; масштабируемость; переносимость; использование ресурсов; восстановление после сбоя.

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

InterBase обеспечивает оптимистические блокировки при помощи Архитектуры Многоверсионности Записей (Multi-Generational Architecture- [MGA]). Этот механизм создает оптимизированные версии для новых, удаленных или обновляемых записей, которые видны только в контексте конкретной транзакции, изменяющей данные. Реально, InterBase версионирует только изменяемые столбцы (поля) путем создания deltas. Это обеспечивает максимальную производительность и минимальные требования к дисковому пространству.

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

Архитектура многоверсионности Записей InterBase гарантирует доступность данных на чтение для любых пользователей и в любое время. Клиентское приложение никогда не ждет доступности таблиц, записей или индексов, независимо от числа пользователей в системе или длительности и сложности какой-либо транзакции. Разработчики, использующие InterBase, автоматически получают максимум производительности приложений, безотносительно сложности обработки данных.

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

Восстановление базы данных Borland InterBase происходит автоматически без вмешательства администратора БД. При запуске Borland InterBase он проверяет БД на наличие неподтвержденных записей. При существовании таковых они переводятся в отмененное состояние. Этот процесс занимает несколько секунд.

Ядро Borland InterBase использует менее 2Мб памяти. При установке на диске требуется около 8Мб, Borland InterBase не требует памяти больше, чем базовая память для операционной системы. Он динамически использует ресурсы диска и памяти без вмешательства администратора БД.

В результате проведенного анализа для реализации БД была выбрана СУБД - InterBase

3.2 Выбор Языка программирования

Простота, скорость и эффективность Delphi объясняют ее популярность. Delphi имеет один из самых быстрых компиляторов, порождающий, тем не менее, весьма и весьма неплохой объектный код. Есть и другие достоинства: простота изучения Object Pascal; облегчающие жизнь нововведения - вроде свойств (properties); программы, написанные на Delphi, не требуется снабжать дополнительными библиотеками (в отличие от связки C++/MFC). В самом деле, VCL предоставляет удобный, легко расширяемый объектно-ориентированный интерфейс к Windows, что ни в коей мере не мешает программисту опускаться в самые глубины Windows API. Создателям оригинальных компонентов это приходится делать довольно часто, в отличие от "просто программистов". Как было сказано выше, модель программирования в Delphi - компонентная, что позволяет пользоваться компонентами, написанными другими разработчиками, даже не имея их исходного кода и уж подавно не изучая его. В Интернете есть огромное количество компонентов, значительная часть которых распространяется бесплатно. Применение компонентной модели приводит к тому, что довольно многое в поведении объектов программировать не нужно вообще, и многое, на что в других средах ушли бы недели, можно сделать за часы или даже минуты. Оно и понятно - это ведь RAD-среда. К достоинствам можно отнести очень быстрый браузер классов и мгновенный вывод подсказки автозавершения кода (code completion). Если кратко - может все. Конечно, Object Pascal накладывает определенные ограничения, но для тех вещей, для которых ее писали, Delphi подходит практически оптимально. Из понравившихся (но, разумеется, нестандартных) "улучшений", внесенных Borland в Object Pascal, хотелось бы выделить свойства (properties) и перегружаемость процедур и функций (overloading). Определенные неудобства при работе с низкоуровневыми функциями API может вызвать то, что стандартным языком для API все же является С, и именно на нем пишутся все новые Software Development Kit (SDK) и заголовочные файлы к ним. Это ни в коем случае не означает, что вы не сможете работать с новыми SDK, просто вам придется написать несложный (но, возможно, объемный) код на Pascal, в котором определить интерфейсы данного SDK. Не поленитесь, однако, поискать на серверах, посвященных Delphi. Очень может быть, что эту работу кто-то уже сделал.

3.3 EMS Manager for InterBase/Firebird

EMS Manager for InterBase/Firebird - это высокопроизводительная программа для разработки и администрирования баз данных InterBase/Firebird. Manager работает с последними версиями СУБД для IB и FB и поддерживает все новейшие функциональные возможности этих серверов, включая триггеры БД, журналирование, инкрементальное резервное копирование и другие. Программа включает в себя множество инструментов, таких как Визуальный конструктор баз данных, который позволяет быстро создавать базы данных InterBase/Firebird, Визуальный конструктор запросов и Отладчик хранимых процедур для разработки SQL сценариев InterBase/Firebird, а также другие полезные инструменты для эффективного администрирования серверов InterBase и Firebird. Современный, графический интерфейс и оптимальная система мастеров настроек будут понятны даже новичку.

Ключевые особенности

Совместимость со всеми версиями сервера Firebird до 2.5

Совместимость со всеми версиями сервера InterBase до 2009

Быстрая навигация и управление базами данных

Простое управление всеми объектами InterBase и Firebird с помощью редакторов, поддерживающих Unicode

Эффективное управление параметрами безопасности

Великолепные графические и текстовые инструменты для построения запросов

Конструктор отчетов с понятным мастером создания отчетов

Мощные мастера импорта и экспорта данных с поддержкой Unicode и возможностью работы в фоновом режиме

Мощный визуальный конструктор баз данных

Простые и удобные мастера для выполнения задач InterBase и Firebird в фоновом режиме

Современный и простой графический интерфейс пользователя

3.4 Перечень используемых компонентов

Для реализации программы были использованы следующие компоненты: IBQuery, IBTable, Datasource, Edit, Button, BDGrid, DBNavigator, Mainmenu, frxDBDataset1, frxReport1, frxPDFExport1, frxJPEGExport1, frxTXTExport1, frxXMLExport1.



4.Структура банка данных

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

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

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

Не должно быть повторений и между таблицами.

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

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

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

Каждое поле должно быть связано с темой таблицы.

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

В таблице должна присутствовать вся необходимая информация.

Информацию следует разбивать на наименьшие логические единицы

4.1 Инфологическое проектирование

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

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

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

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

Между двумя сущностям, например, А и В возможны четыре вида связей.

Первый тип - связь ОДИН-К-ОДНОМУ (1:1): в каждый момент времени каждому представителю (экземпляру) сущности А соответствует 1 или 0 представителей сущности В:

Второй тип - связь ОДИН-КО-МНОГИМ (1:М): одному представителю сущности А соответствуют 0, 1 или несколько представителей сущности В.

Квартира может пустовать, в ней может жить один или несколько жильцов.

Так как между двумя сущностями возможны связи в обоих направлениях, то существует еще два типа связи МНОГИЕ-К-ОДНОМУ (М:1) и МНОГИЕ-КО-МНОГИМ (М:N). Но в нашей работе такие типы связи нам не следует употреблять.

Для базы данных компьютерного магазина инфологическая модель будет выглядеть так(Рис 1)

Рисунок 1. Инфологическая модель базы данных компьютерного магазина

4.2 Структура и создание таблиц

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

Текстовый. Текст или числа не требующие проведения расчётов.

BLOB. Поле этого типа предназначено для хранения небольших текстовых данных (до 64000 символов). Поле этого типа не может быть ключевым или проиндексированным.

Числовой. Этот тип данных содержит множество подтипов. От выбора подтипа (размера) зависит точность вычислений.

Денежный. Денежные значения и числовые данные, используемые в математических вычислениях.

Дата/Время. Дата и время хранятся в специальном фиксированном формате.

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



Заключение

Разработка приложения под Windows - это все еще одна из самых перспективных направлений не смотря на тот факт ,что мобильные устройства все больше и больше внедряется в рынок и вытесняют привычные нам компьютеры, удивляя нас своей компактностью и техническими характеристиками приближенные к техническим характеристикам компьютеров.

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

На будущее планируется дополнение и расширение данного программного продукта.



Литература

В.В. Фаронов "Программирование баз данных в Delphi 7”

Д. Осипов "Delphi и базы данных"

Фаронов, Шумаков - Delphi 5 руководство разработчика баз данных

Вячеслав Понамарев “Базы данных в Delphi 7”

Шумаков П.В. - Delphi 5. Руководство разработчика баз данных

www.ibase.ru/devinfo/generator.htm Генераторы и их использование

www.ishodniki.ru/art/art_db/interbase/interbase_art/ InterBase

delphi-lab.ucoz.ru/publ/92 InterBase-Базы данных



Приложение

Курсовой проект должен обеспечить автоматизацию продаж в компьютерном магазине. Программа должна являться полностью завершенным программным продуктом, не требующим каких-либо дополнительных специальных компонентов. Программа должна функционировать без наличия привода CD/DVD-дисков, должна предъявлять минимальные требования к аппаратному обеспечению, требования к аппаратным ресурсам должны быть намного ниже, чем для самой ОС. Программа должна иметь интуитивно понятный пользовательский графический интерфейс. В программе реализованы такие функции как: регистрация продаж, регистрация заказов, поиск по проданным товарам, отчетность.

Форма “Регистрация продаж” -главное окно приложения

unit Unit1;

interface

uses

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

Dialogs, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, IBSQL, StdCtrls,

Menus,ShellApi, Buttons;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

Button1: TButton;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Button2: TButton;

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

PDF1: TMenuItem;

RTF1: TMenuItem;

JPG1: TMenuItem;

XT1: TMenuItem;

XML1: TMenuItem;

Help1: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Button3: TButton;

N6: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure PDF1Click(Sender: TObject);

procedure RTF1Click(Sender: TObject);

procedure JPG1Click(Sender: TObject);

procedure XT1Click(Sender: TObject);

procedure XML1Click(Sender: TObject);

procedure Help1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormKeyPress(Sender: TObject; var Key: Char);

procedure Button4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit7;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

with Datamodule2 do

begin

IBSsotrud.ExecProc();

IBQ2.SQL.Clear;

IBQ2.SQL.Add('insert into SOTRUDNIKI(IDS,FIO,DOLZNOSTI,ADRES,DOMTEL,DR)' ) ;

IBQ2.SQL.Add('VALUES(:newIDS,:newFIO,:newDOLZNOSTI,:newADRES,:newDOMTEL,:newDR)');

IBQ2.ParamByName('newIDS').AsInteger:=IBSsotrud.ParamByName('NEW_VALUE').AsInteger;

IBQ2.ParamByName('newFIO').AsString:=Edit2.Text;

IBQ2.ParamByName('newDOLZNOSTI').AsString:=Edit3.Text;

IBQ2.ParamByName('newADRES').AsString:=Edit4.Text;

IBQ2.ParamByName('newDOMTEL').AsString:=Edit5.Text;

IBQ2.ParamByName('newDR').AsDate:=Strtodate(Edit6.Text);

try

ibq2.ExecSQL;

//ibQuery1.Active:=true;

//IBtabletovar.Active:=false;

//IBtableSotrud.Active:=false;

// IBtabletovar.Active:=true;

// IBtableSotrud.Active:=true;

DataModule2.IBTablesotrud.Refresh;

except

Showmessage ('Ошибка добавления');

end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

with DataModule2 do

begin

IBQ2.SQL.Clear;

IBQ2.SqL.Add('delete from SOTRUDNIKI');

IBQ2.SQL.Add('WHERE (IDS=:IDS) and (FIO=:FIO) and (DOLZNOSTI=:DOLZNOSTI) and (ADRES=:ADRES)and(DOMTEL=:DOMTEL) and(DR=:DR');

IBQ2.ParamByName('IDS').AsInteger:=IBTablesotrud.FieldByName('IDS').Asinteger;

IBQ2.ParamByName('FIO').AsString:=IBTablesotrud.FieldByName('FIO').asstring;

IBQ2.ParamByName('DOLZNOSTI').AsString:=IBTablesotrud.FieldByName('DOLZNOSTI').asstring;

IBQ2.ParamByName('ADRES').AsString:=IBTablesotrud.FieldByName('ADRES').asstring;

IBQ2.ParamByName('DOMTEL').AsString:=IBTablesotrud.FieldByName('DOMTEL').asstring;

IBQ2.ParamByName('DR').AsDate:=IBTablesotrud.FieldByName('DR').AsDatetime;

IBQ2.ExecSQL;

DataModule2.IBTablesotrud.Refresh;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.Show;

Form3.frxReport1.ShowReport;

end;

procedure TForm1.PDF1Click(Sender: TObject);

begin

Form3.frxReport1.Export(Form3.frxPDFExport1) ;

end;

procedure TForm1.RTF1Click(Sender: TObject);

begin

Form3.frxReport1.Export(Form3.frxRTFExport1) ;

end;

procedure TForm1.JPG1Click(Sender: TObject);

begin

Form3.frxReport1.Export(form3.frxJPEGExport1);

end;

procedure TForm1.XT1Click(Sender: TObject);

begin

Form3.frxReport1.Export(Form3.frxTXTExport1) ;

end;

procedure TForm1.XML1Click(Sender: TObject);

begin

form3.frxReport1.Export(form3.frxXMLExport1);

end;

procedure TForm1.Help1Click(Sender: TObject);

var

s:string;

begin

s:='winrar.chm';

ShellExecute(handle,'open',PChar(s+#0),nil,nil,SW_SHOWNORMAL);

end;

procedure TForm1.N5Click(Sender: TObject);

begin

SPproizv.showmodal;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form5.Showmodal;

end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);

Var

s:string;

begin

if key='3Bh' then

s:='winrar.chm';

ShellExecute(handle,'open',PChar(s+#0),nil,nil,SW_SHOWNORMAL);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

formZakaz.showmodal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

formZakaz.showmodal;

end;

end.



Форма “Все проданные товары”

unit Unit5;

interface

uses

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

Dialogs, DB, Grids, DBGrids, IBCustomDataSet, IBQuery, StdCtrls, ExtCtrls,

Buttons, ComCtrls, DBCtrls;

type

TForm5 = class(TForm)

IBQuery1: TIBQuery;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Edit1: TEdit;

SpeedButton1: TSpeedButton;

StatusBar1: TStatusBar;

SpeedButton2: TSpeedButton;

Button1: TButton;

Label1: TLabel;

SpeedButton3: TSpeedButton;

Label2: TLabel;

SpeedButton4: TSpeedButton;

Label3: TLabel;

Label4: TLabel;

SpeedButton5: TSpeedButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure Edit1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit6;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

form6.show;

form6.frxReport1.ShowReport();

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

IBQuery1.Close;

IBQuery1.SQL.Clear;

IBQuery1.SQL.Add('SELECT FIO, DATA, NAIMENOVANIE, STOIM FROM SOTRUDNIKI,TOVAR ');

IBQuery1.SQL.Add('Where Upper (FIO) = Upper (:pFIO)');

IBQuery1.Prepare;

IBQuery1.ParamByName('pFIO').AsString:=Edit1.Text;

IBQuery1.Open;

end;

procedure TForm5.Edit1Click(Sender: TObject);

begin

Edit1.Text:='';

end;

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

Ibquery1.Close;

Ibquery1.SQL.Clear;

IBQuery1.SQL.Add('select FIO, DATA, NAIMENOVANIE, STOIM from SOTRUDNIKI,TOVAR ');

IBQuery1.Open;

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

Form6.frxReport1.Export(Form6.frxPDFExport1) ;

end;

procedure TForm5.SpeedButton4Click(Sender: TObject);

begin

Form6.frxReport1.Export(Form6.frxJPEGExport1);

end;

procedure TForm5.SpeedButton5Click(Sender: TObject);

begin

Form6.frxReport1.Export(form6.frxSimpleTextExport1) ;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

IBQuery1.Close;

IBQuery1.SQL.Clear;

IBQuery1.SQL.Add('SELECT FIO, DATA, NAIMENOVANIE, STOIM FROM SOTRUDNIKI,TOVAR ');

ibquery1.Open;

IBQuery1.FieldByName('FIO').DisplayLabel:='ФИО продавца ';

IBQuery1.FieldByName('DATA').DisplayLabel:='Дата';

IBQuery1.FieldByName('NAIMENOVANIE').DisplayLabel:='Наименование';

IBQuery1.FieldByName('STOIM').DisplayLabel:='Стоимость';

end;

end.

Форма “Заказы”



unit Unit7;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, Buttons, StdCtrls;

type

TFormZakaz = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

SpeedButton1: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormZakaz: TFormZakaz;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit8;

{$R *.dfm}

procedure TFormZakaz.SpeedButton1Click(Sender: TObject);

begin

FormViewZakaz.Show;

FormViewZakaz.frxReport1.ShowReport();

end;

procedure TFormZakaz.SpeedButton2Click(Sender: TObject);

begin

FormViewZakaz.frxReport1.Export(FormViewZakaz.frxTXTExport1) ;

end;

procedure TFormZakaz.SpeedButton3Click(Sender: TObject);

begin

FormViewZakaz.frxReport1.Export(FormViewZakaz.frxPDFExport1);

end;

procedure TFormZakaz.SpeedButton4Click(Sender: TObject);

begin

FormViewZakaz.frxReport1.Export(FormViewZakaz.frxRTFExport1);

end;

procedure TFormZakaz.SpeedButton5Click(Sender: TObject);

begin

FormViewZakaz.frxReport1.Export(FormViewZakaz.frxJPEGExport1);

end;

end.



Пример Формирования отчета

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

...