Автоматизация компьютерного магазина бытовой техники

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

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

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

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

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

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

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

1. Аналитический раздел

Процесс разработки основных проектных решений и подготовки соответствующей технической документации называется проектированием АИС.

Проектирование любой технической системы, осуществляется в несколько стадий:

· Предпроектное обследование;

· Технико-экономическое обоснование;

· Составление технического задания;

· Техническое проектирование;

· Рабочее проектирование.

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

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

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

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

Исходными данными в данной системе будут являться: товарный чек (о продаже аудиопродукции), приказ о приеме на работу, покупка товара. Выходными данными будут являться: товарный чек, отчет по продажам.

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

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

Например, главное меню программы располагается всегда вверху, клавиша F1 служит для вызова справки, комбинации клавиш Ctrl + x, Ctrl + c, Ctrl + v — соответствуют процедурам «Вырезать», «Копировать», «Вставить»…

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

Поэтому при выборе инструментального средства необходимо учитывать следующие критерии:

ь Интерфейс программы должен быть удобен и понятен пользователю.

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

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

ь Доступ к определенным данным должны иметь те лица, которым это разрешено.

ь База должна отвечать заданным требованиям производительности.

В настоящее время имеется множество инструментальных средств, с помощью которых разработчик может создать тот или иной программный продукт, отвечающий определенным требованиям и критериям. Это может быть Access (любой версии), С++, Delphi, HTML, FoxPro, Visual Basic… Рассмотрим некоторые из них.

1.2.1 Access

Популярная программа, которая входит в пакет Microsoft Office, позволяющая создавать базы данных и управлять ими. Помимо всего прочего в ней присутствует язык запросов SQL и Visual Basic, что позволяет расширить возможности по созданию, взаимодействию и работе различных баз данных.

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

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

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

1.2.2 Delphi

Это комбинация нескольких важнейших технологий:

1. Высокопроизводительный компилятор в машинный код

2. Объектно-ориентированное программирование

3. Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов

4. Масштабируемые средства для построения баз данных

1. Компилятор, встроенный в Delphi, обеспечивает высокую производительность, необходимую для построения приложений в архитектуре «клиент-сервер». Этот компилятор в настоящее время является самым быстрым в мире, его скорость компиляции составляет свыше 120 тысяч строк в минуту на компьютере 486DX33. Он предлагает легкость разработки и быстрое время проверки готового программного блока, характерного для языков четвертого поколения (4GL) и в то же время обеспечивает качество кода, характерного для компилятора 3GL. Кроме того, Delphi обеспечивает быструю разработку без необходимости писать вставки на Си или ручного написания кода (хотя это возможно).

В процессе построения приложения разработчик выбирает из палитры компонентов готовые компоненты как художник, делающий крупные мазки кистью. Еще до компиляции он видит результаты своей работы — после подключения к источнику данных их можно видеть отображенными на форме, можно перемещаться по данным, представлять их в том или ином виде. В этом смысле проектирование в Delphi мало чем отличается от проектирования в интерпретирующей среде, однако после выполнения компиляции мы получаем код, который исполняется в 10−20 раз быстрее, чем-то же самое, сделанное при помощи интерпретатора. Кроме того, компилятор компилятору рознь. В Delphi компиляция производится непосредственно в родной машинный код. Хотя существуют компиляторы, превращающие программу в так называемый p-код, который затем интерпретируется виртуальной p-машиной. Это не может не сказаться на фактическом быстродействии готового приложения.

2. Это совершенно новый подход к построению сложных (и не очень сложных) программ и систем. В объектно-ориентированном программировании и проектировании главной, отправной точкой является не процедура, не действие, а объект. Такой подход представляется достаточно естественным, поскольку в реальном мире мы имеем дело именно с объектами (людьми, предметами, техническими устройствами), взаимодействующими друг с другом. Взаимодействие пользователя с компьютерной программой — это тоже взаимодействие двух объектов — программы и человека, которые обмениваются друг с другом определенными сообщениями. Прикладная программа, построенная по принципам объектной ориентации — это совокупность объектов и способов их взаимодействия. Отдельным объектом при таком подходе во многих случаях можно считать пользователя программы. Обмен между объектами происходит посредством сообщений.

3. Среда Delphi включает в себя полный набор визуальных инструментов для скоростной разработки приложений (RAD — rapid application development), поддерживающей разработку пользовательского интерфейса и подключение к корпоративным базам данных. VCL — библиотека визуальных компонентов, включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE. Единственное, что можно поставить в вину Delphi, это то, что готовых компонентов, поставляемых Borland, могло бы быть и больше. Однако, разработки других фирм, а также свободно распространяемые программистами freeware-компоненты уже восполнили этот недостаток.

4. Объекты БД в Delphi основаны на SQL и включают в себя полную мощь Borland Database Engine. В состав Delphi также включен Borland SQL Link, поэтому доступ к СУБД Oracle, Sybase, Informix и InterBase происходит с высокой эффективностью. Кроме того, Delphi включает в себя локальный сервер Interbase для того, чтобы можно было разработать расширяемые на любые внешние SQL-сервера приложения в офлайновом режиме. Разработчик в среде Delphi, проектирующий информационную систему для локальной машины (к примеру, небольшую систему учета медицинских карточек для одного компьютера), может использовать для хранения информации файлы формата .dbf (как в dBase или Clipper) или .db (Paradox). Если же он будет использовать локальный InterBase for Windows 4.0 (это локальный SQL-сервер, входящий в поставку), то его приложение безо всяких изменений будет работать и в составе большой системы с архитектурой клиент-сервер.

1.2.3 Visual Basic

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

В отличие от большинства пакетов программ Visual Basic не имеет главного окна, объединяющего все остальные элементы интерфейса разработчика.

Каждый элемент Visual Basic имеет свое независимое окно, которое может быть убрано или расположено независимо от других в любом месте экрана. Основные возможности Visual Basic, применяемые в разработке приложений для обработки информации, могут быть реализованы благодаря наличию в нем объектов для доступа к данным — Data Access Object (DАО), 32-разрядного процессора данныхJET 3.0 и предназначенных специально для работы с данными элементов управления.

Процессор данных в Visual Basic поддерживает все стандартные операции по созданию, изменению и удалению таблиц, индексов и запросов.

Формат БД процессора данных Visual Basic соответствует формату Access. JET 3.0 также обеспечивает поддержку целостности и проверку вводимых и изменяемых данных на уровне полей и записей. Для изменения данных JET 3.0 позволяет использовать язык SQL.

Для разработки данной программы выбрана среда разработки DELPHI 6. Выбор данного средства для создания программы основан на том, что она (среда) позволяет создавать схожие по управлению, интерфейсу и удобству программы под Windows 9.x. И пользователь, работающий в любой программе написанной для Windows 9. x (Microsoft Office, да и сам Windows), уже имеет некоторые навыки работы с ними, и поэтому у него не возникнет никаких трудностей с освоением этой программы. К тому же данная среда разработки позволяет создавать в программах такой легкий и воспринимаемый интерфейс, что с ним может справиться даже начинающий пользователь.

Почему?

1.3 Постановка комплекса задач системы

Исходя из анализа предметной области, определим следующие задачи системы:

1. Информация о Сотрудниках/ поставщиках товара;

2. Информация о продажах товара;

3. Учет движения товара на складе (поступление, продажа);

Задача «Информация о Сотрудниках/Поставщиках товара»

База содержит информацию о работниках (продавцах, Директорах и.т.д.) и Поставщиках (Данные: Адрес, телефон, поставляемая продукция, оптовая закупка) — это всё учитывается и наглядно изображается на графиках.

Задача «Информация о продажах товара»

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

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

2. Предусмотрена возможность вывода на печать чека заказа.

3. Дата в таблице устанавливается системная.

Задача «Учёт движения товара на складе»

При поступлении товара на склад должны учитывать, от какого поставщика пришел товар. Поэтому здесь ведутся две таблицы контроля — это учет поставщиков (кто поставляет данный товар) и склад поступления товара

При учете поставщиков должны выполняться следующие задачи:

1. Добавление информации о новом поставщике;

2. Удаление сведений о поставщике (если магазин больше с данным поставщиком не сотрудничает).

При учете поступления товара в таблице находятся данные о поставщике, о количестве, о цене товара).

1.4 Структурная схема функционирования системы

Рисунок 1 — Схема функционирования системы

Технологический процесс функционирования, представленный в виде схемы, показывает решение, комплекса задач Сотрудником магазина в автоматизированной системе, взаимосвязь совокупности входных и выходных документов и лиц, от которых и к которым поступает обрабатываемая информация (рис. 1).

Вместе с товаром от поставщиков приходит сопроводительная документация (накладная), на основании которой в систему вводится информация о поступлении товара. Наряду с этим после продажи программой фиксируется убытие товара со склада.

2. Проектный раздел

2.1 Проектирование и описание структуры базы данных

После анализа предметной области была спроектирована информационная система, состоящая из трех баз данных (проектирование выполнялось методом «Сущность-Связь»):где диограмма

1) База данных «Компьютерный магазин», состоящая из взаимосвязанных таблиц:

a) Sotrudniki. db — содержит всю информацию о сотрудниках магазина

b) Prodavci. db — содержит информацию о продавцах.

c) Arh_prodazha.db — содержит информацию какой прдавец продал товара, о проданном товаре.

d) Postavhiki. dbсодержит информацию о поставщиках, с которыми сотрудничает магазин

e) Sklad. db — содержит информацию о количестве товара на складе.

Модульная схема

Элементы управления для ввода и отображения информации

Для создания программы использовались следующие компоненты Delphi 7:

2.2 Описание структуры и интерфейса программы

Интерфейс пользователя построен на основе стандартного Windows-интерфейса (окна, меню, экранные формы, кнопки). Данный тип интерфейса является наиболее удобным для пользователя, так как предоставляет стандартное оформление, что позволяет пользователю быстро сориентироваться и сэкономить время в понимании программы.

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

2.2.1 Модульная схема

Пояснения к модульной схеме:

Form2 — главная форма, с которой происходит основная часть работы всей программы. С главной формы вы можете прейте на форму1 и форму3.

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

Form3 — содержит данные о Поставщиках (Фамилия, адрес, телефон), о складе (наименование товара, количество, цена с учётом скидки).

Form5 — Дополнительное окно «О программе» содержит информацию о разработчике.

2.2.2 Элементы управления для ввода и отображения информации

Для ввода информации используются следующие элементы управления.

Форма

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

Строка ввода

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

При вводе работают следующие комбинации клавиш:

Ctrl+Insert, Ctrl+С — скопировать выделенный фрагмент в буфер Shift+Insert, Ctrl+V — вставить фрагмент из буфера обмена

Shift+Del — вырезать объект.

Ввод информации в таблицу

Ввод данных в таблицы осуществляется с помощью Прописания Данных о сотрудниках (Editn.text), при нажатии кнопки (Buttonn — «Заполнить таблицу»).

Кнопка

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

Переключатель с зависимой фиксацией

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

2.2.3 Диалог пользователя с системой

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

1. Если пользователь продал последнюю единицу товара, то выходит соответствующее сообщение, после чего запись об этом товаре удаляется из таблицы:

2. Если пользователь неправильно ввёл пароль при входе в Базу «Сотрудники» или «Поставщики» на экран выводится следующее сообщение:

При удалении сотрудника из базы выводится сообщение:

2.3 Инструкция по работе с системой

2.3.1 Установка и запуск программы

Программа «Автоматизация компьютерного магазина бытовой техники» разработана для IBM PC/AT совместимых компьютеров с процессором i486 и выше и для успешного функционирования требует:

ь установленную операционную систему, совместимую с Microsoft Windows 95, 98, Me или Windows NT (Windows NT AS/WS версии 4.0, Windows 2000, Windows XP).

ь не менее 6 Мб свободного пространства на диске для установки программы без учета объема вводимых данных, плюс место на диске необходимое для ввода данных в таблицы и создания новых таблиц баз данных не менее 10 Кб на одну таблицу;

ь не менее 64 Мб оперативной памяти;

ь установленный BDE Administrator совместно с Database Desktop.

Для установки программы на Ваш компьютер запустите файл SETUP. EXE, находящийся на CD-диске. Запуск данного файла осуществляется двойным щелчком мыши на него. Далее следуйте указаниям программы.

2.3.2 Руководство пользователя по работе с программой

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

На этой форме пользователь выбирает базу «Сотрудники» или «Поставщики», данные разделы Закрыты паролем, для сохранения конфиденциальности. Можно воспользоваться справкой, нажав на клавишу F1 — будут описаны все разделы и таблицы.

1. В Разделе «Сотрудники», таблица «Сотрудники» мы видим:

Ввод данных, Фильтрацию, График (О з/п в зависимости от должности).

Если сотрудник занимает должность Продавца, при нажатии на + мы заносим его информацию в «Продавцы»

В таблице «Продавцы» содержит информацию:

Код продавца, ФИО, Телефон.

Поиск по фамилии. При продаже какого-либо товара, необходимо выделить продавца и перейти на вкладу «Архив продаж».

В таблице «Архив продаж»:

Информация:

· О проданном товаре.

· Об остатке товара на складе.

· Лидеры продаж (изображены на графике)

2. В разделе «Поставщики, в таблице «Поставщики» и «СклаД» мы видим информацию:

· О поставщиках

· О цене товара

Информация о продаже, о поставке товара выводится на печать при нажатии кнопки «Вывести на печать».

Удобная «Справка», расположенная на главной форме поможет разобраться в программе.

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

3. Листинг программы

unit Unit2;

var

Form2: TForm2;

implementation

uses Unit1, Unit3, Unit4;

{$R *.dfm}

procedure TForm2. Button2Click (Sender: TObject);

begin

if MessageDlg ('Для входа в Базу «Сотрудники», необходимо ввести пароль!', mtInformation,[mbYes, mbNo], 0)=mrYes

then

edit1.Visible:=true;

end;

procedure TForm2. Button3Click (Sender: TObject);

begin

if MessageDlg ('Выйти из программы?', mtConfirmation,[mbYes, mbNo], 0)=mrYes

then

form2.close;

end;

procedure TForm2. Timer1Timer (Sender: TObject);

begin

label1.Caption:=FormatDateTime ('dd mmmm yyyyyy «г.» ', Now ());

end;

procedure TForm2. N4Click (Sender: TObject);

begin

close;

end;

procedure TForm2. Button4Click (Sender: TObject);

var a: string;

i, x: integer;

begin

ProgressBar1.Visible:=true;

x:=1 000 000;

for i := 1 to x do progressbar1. Position:=Round (100*i/x);

ProgressBar1.Visible:=true;

Edit1.Visible:=True;

a:='111';

if edit1. Text<>a then

begin

MessageDlg ('Проверьте правильность пароля!', mtError,[mbOk], 0);

end

else

begin

ProgressBar1.Visible:=False;

form2.Hide;

form1.show;

edit1.Clear;

Edit1.Visible:=False;

button4.Visible:=False;

end;

end;

procedure TForm2. Edit1Change (Sender: TObject);

begin

button4.Visible:=true;

end;

procedure TForm2. Button1Click (Sender: TObject);

begin

if MessageDlg ('Для входа в Базу «Поставщики», необходимо ввести пароль!', mtInformation,[mbYes, mbNo], 0)=mrYes

then

edit2.Visible:=true;

end;

procedure TForm2. Edit2Change (Sender: TObject);

begin

button5.Visible:=true;

end;

procedure TForm2. Button5Click (Sender: TObject);

var b: String;

i, x: integer;

begin

Edit2.Visible:=True;

b:='222';

ProgressBar1.Visible:=true;

x:=1 000 000;

for i := 1 to x do progressbar1. Position:=Round (100*i/x);

ProgressBar1.Visible:=true;

if edit2. Text<>b then

begin

MessageDlg ('Проверьте правильность пароля!', mtError,[mbOk], 0);

end

else

begin

form2.Hide;

ProgressBar1.Visible:=False;

form3.show;

edit2.Clear;

Edit2.Visible:=False;

button5.Visible:=False;

end;

end;

procedure TForm2. N1Click (Sender: TObject);

begin

Application.HelpCommand (HELP_CONTENTS, 0);

end;

end.

unit Unit1;

var

Form1: TForm1;

Spos, s: integer;

procedure TForm1. RadioButton2Click (Sender: TObject);

begin

if edit1. Text='' then

MessageDlg ('Введите фамилию!', mtinformation, [mbok], 0)

else

Table1.Filtered:=true;

table1.Filter:='Fam_sotr=''' + edit1. Text+'*''';

end;

procedure TForm1. RadioButton3Click (Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm1. RadioButton5Click (Sender: TObject);

begin

if ComboBox1. Text='' then

MessageDlg ('Выберите Должность!', mtinformation, [mbok], 0)

else

Table1.Filtered:=true;

table1.Filter:='Dolznost=''' + ComboBox1. Text+'*''';

end;

procedure TForm1. RadioButton6Click (Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm1. RadioButton7Click (Sender: TObject);

begin

if Edit2. Text=''then

MessageDlg ('Введите диапазон!', mtinformation, [mbok], 0)

else

Table1.Filtered:=true;

Table1.Filter:='zp>'+Edit2.Text+'and zp<'+Edit3.Text;

end;

procedure TForm1. RadioButton8Click (Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

if MessageDlg ('Продолжить ввод данных?', mtinformation,[mbYes, mbNo], 0)=mrYes

then

begin

Table1.Append;

Table1.FieldByName ('Fam_sotr').AsString:=Edit4.Text;

Table1.FieldByName ('Imya').AsString:=Edit5.Text;

Table1.FieldByName ('Otchestvo').AsString:=Edit7.Text;

Table1.FieldByName ('Dolznost').AsString:=ComboBox3.Text;

Table1.FieldByName ('Zp').AsString:=Edit6.Text;

Table1.FieldByName ('Adress').AsString:=Edit16.Text;

Table1.FieldByName ('Telephone').AsString:=Edit17.Text;

Table1.FieldByName ('Date_priema').AsString:= datetostr (DateTimePicker1.Date);

Table1.Post;

end;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

if MessageDlg ('Удалить запись?', mtWarning,[mbYes, mbNo], 0)=mrYes

then Table1. Delete;

end;

procedure TForm1. N15Click (Sender: TObject);

begin

Form3.Table3.Filtered:=false;

form1.Hide;

form2.Show;

end;

procedure TForm1. N16Click (Sender: TObject);

begin

Application.HelpCommand (HELP_CONTENTS, 0);

end;

procedure TForm1. N9Click (Sender: TObject);

begin

close;

end;

procedure TForm1. Button3Click (Sender: TObject);

var

a, b, c, k, o, l:integer;

begin

a:=strtoint (edit10.text);

b:=strtoint (SpinEdit1.text);

c:=a-b;

form3.Table3.Edit;

form3.Table3.FieldByName ('Kol_vo_tov').AsString:=inttostr (c);

edit10.Text:=form3.Table3.FieldByName ('Kol_vo_tov').AsString;

form3.Table3.Post;

if edit10. text<'0' then

begin

MessageDlg ('Невозможно" !', mtinformation, [mbok], 0);

end

else

begin

if edit10. text='0' then

begin

MessageDlg ('Больше нету" !', mtinformation, [mbok], 0)

end

else

begin

Table2.Append;

table2.FieldByName ('kod').AsInteger:=SpinEdit2.value;

Table2.FieldByName ('Imya').AsString:=DBEdit2.Text;

Table2.FieldByName ('Otchestvo').AsString:=DBEdit3.Text;

Table2.FieldByName ('Fam_sotr').AsString:=DBEdit1.Text;

Table2.FieldByName ('Naim_tov').AsString:=ComboBox2.Text;

Table2.FieldByName ('Kol_vo'). AsString:=SpinEdit1.text;

Table2.FieldByName ('Summa_stoim').AsString:=Edit9.Text;

Table2.FieldByName ('Date_prod').AsString:= datetostr (DateTimePicker2.Date);

k:=Table2.FieldByName ('Kol_vo').AsInteger;

o:=Table2.FieldByName ('Summa_stoim').AsInteger;

Table2.FieldByName ('Summa').AsInteger:=k*o;

Table2.Post;

PageControl2.TabIndex:=3;

Table3.Append;

Table3.FieldByName ('Fam_sotr').AsString:=DBEdit11.Text;

Table3.FieldByName ('Imya').AsString:=DBEdit12.Text;

Table3.FieldByName ('Otchestvo').AsString:=DBEdit13.Text;

Table3.FieldByName ('Date_prod').AsString:=DBEdit14.Text;

Table3.FieldByName ('Naim_tov').AsString:=DBEdit15.Text;

Table3.FieldByName ('Kol_vo').AsString:=DBEdit16.Text;

Table3.FieldByName ('Summa_stoim').AsString:=DBEdit17.Text;

Table3.FieldByName ('Summa').AsString:=DBEdit18.Text;

Table3.Post;

if MessageDlg ('Вывести на печать?', mtconfirmation,[mbYes, mbNo], 0)=mrYes

then

QuickRep2.Preview;

edit10.Text:=form3.Table3.FieldByName ('Kol_vo_tov').AsString;

if edit10. text='0' then

begin

MessageDlg ('Больше нету" !', mtinformation, [mbok], 0)

end;

datasource2.dataset:=table2;

query1.Active:=false;

query1.open;

end;

end;

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

if MessageDlg ('Удалить запись?', mtconfirmation,[mbYes, mbNo], 0)=mrYes

then Table2. Delete;

query1.Active:=True;

datasource2.dataset:=table2;

query1.Active:=false;

query1.open;

end;

procedure TForm1. Button5Click (Sender: TObject);

var

a, b, c, k, o, l:integer;

begin

a:=strtoint (edit10.text);

b:=strtoint (SpinEdit1.text);

c:=a-b;

form3.Table3.Edit;

form3.Table3.FieldByName ('Kol_vo_tov').AsString:=inttostr (c);

edit10.Text:=form3.Table3.FieldByName ('Kol_vo_tov').AsString;

form3.Table3.Post;

if edit10. text<'0' then

begin

MessageDlg ('Невозможно" !', mtinformation, [mbok], 0);

end

else

begin

if edit10. text='0' then

begin

MessageDlg ('Больше нету" !', mtinformation, [mbok], 0)

end

else

begin

Table2.Edit;

table2.FieldByName ('kod').AsInteger:=SpinEdit2.value;

Table2.FieldByName ('Imya').AsString:=DBEdit2.Text;

Table2.FieldByName ('Otchestvo').AsString:=DBEdit3.Text;

Table2.FieldByName ('Fam_sotr').AsString:=DBEdit1.Text;

Table2.FieldByName ('Naim_tov').AsString:=ComboBox2.Text;

Table2.FieldByName ('Kol_vo'). AsString:=SpinEdit1.text;

Table2.FieldByName ('Summa_stoim').AsString:=Edit9.Text;

Table2.FieldByName ('Date_prod').AsString:= datetostr (DateTimePicker2.Date);

k:=Table2.FieldByName ('Kol_vo').AsInteger;

o:=Table2.FieldByName ('Summa_stoim').AsInteger;

Table2.FieldByName ('Summa').AsInteger:=k*o;

Table2.Post;

PageControl2.TabIndex:=3;

Table3.Edit;

Table3.FieldByName ('Fam_sotr').AsString:=DBEdit11.Text;

Table3.FieldByName ('Imya').AsString:=DBEdit12.Text;

Table3.FieldByName ('Otchestvo').AsString:=DBEdit13.Text;

Table3.FieldByName ('Date_prod').AsString:=DBEdit14.Text;

Table3.FieldByName ('Naim_tov').AsString:=DBEdit15.Text;

Table3.FieldByName ('Kol_vo').AsString:=DBEdit16.Text;

Table3.FieldByName ('Summa_stoim').AsString:=DBEdit17.Text;

Table3.FieldByName ('Summa').AsString:=DBEdit18.Text;

Table3.Post;

if MessageDlg ('Вывести на печать?', mtconfirmation,[mbYes, mbNo], 0)=mrYes

then

QuickRep2.Preview;

edit10.Text:=form3.Table3.FieldByName ('Kol_vo_tov').AsString;

if edit10. text='0' then

begin

MessageDlg ('Больше нету" !', mtinformation, [mbok], 0)

end;

datasource2.dataset:=table2;

query1.Active:=false;

query1.open;

end;

end;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin

if MessageDlg ('Редактировать данные?', mtinformation,[mbYes, mbNo], 0)=mrYes

then

if DBEdit21. Text='' then

MessageDlg ('', mtinformation, [mbok], 0)

else

Table4.Filtered:=true;

table4.Filter:='Fam_prod=''' + DBEdit21. Text+'*''';

if DBEdit20. Text='' then

MessageDlg ('', mtinformation, [mbok], 0)

else

Table4.Filtered:=true;

table4.Filter:='Imya=''' + DBEdit20. Text+'*''';

begin

Table1.Edit;

Table1.FieldByName ('Fam_sotr').AsString:=Edit4.Text;

Table1.FieldByName ('Imya').AsString:=Edit5.Text;

Table1.FieldByName ('Otchestvo').AsString:=Edit7.Text;

Table1.FieldByName ('Dolznost').AsString:=ComboBox3.Text;

Table1.FieldByName ('Zp').AsString:=Edit6.Text;

Table1.FieldByName ('Adress').AsString:=Edit16.Text;

Table1.FieldByName ('Telephone').AsString:=Edit17.Text;

Table1.FieldByName ('Date_priema').AsString:= datetostr (DateTimePicker1.Date);

if MessageDlg ('Редактировать данные?', mtinformation,[mbYes, mbNo], 0)=mrno then

Table4.Edit ;

Table4.FieldByName ('Fam_prod').AsString:=DBEdit4.Text ;

Table4.FieldByName ('Otchestvo').AsString:=DBEdit5.Text ;

Table4.FieldByName ('Imya').AsString:=DBEdit6.Text ;

Table4.FieldByName ('Dolznost').AsString:=DBComboBox1.Text ;

Table4.FieldByName ('ZP').AsString:=DBEdit7.Text ;

Table4.FieldByName ('Address').AsString:=DBEdit9.Text ;

Table4.FieldByName ('Telephone').AsString:=DBEdit10.Text ;

Table4.FieldByName ('Date_priema').AsString:=DBEdit8.Text ;

Table1.Post;

Table4.Post;

Table4.Filtered:=false;

end;

datasource2.dataset:=table2;

query1.Active:=false;

query1.open;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Application.HelpCommand (HELP_CONTENTS, 0);

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

DataSource1.DataSet:=table1;

Table1.Active:= true;

end;

procedure TForm1. RadioButton1Click (Sender: TObject);

begin

if ComboBox4. Text='' then

MessageDlg ('Выберите из списка наименование товара!', mtinformation, [mbok], 0)

else

Table2.Filtered:=true;

table2.Filter:='Naim_tov=''' + ComboBox4. Text+'*''';

end;

procedure TForm1. RadioButton9Click (Sender: TObject);

begin

Table2.Filtered:=false;

end;

procedure TForm1. N1Click (Sender: TObject);

begin

form5.Show;

end;

procedure TForm1. Button7Click (Sender: TObject);

begin

if MessageDlg ('Вывести на печать?', mtconfirmation,[mbYes, mbNo], 0)=mrYes

then

QuickRep1.Preview;

end;

procedure TForm1. Button11Click (Sender: TObject);

begin

Table4.Append;

Table4.FieldByName ('Fam_prod').AsString:=DBEdit4.Text;

Table4.FieldByName ('Otchestvo').AsString:=DBEdit5.Text;

Table4.FieldByName ('Imya').AsString:=DBEdit6.Text;

Table4.FieldByName ('Dolznost').AsString:=DBComboBox1.Text;

Table4.FieldByName ('ZP').AsString:=DBEdit7.Text;

Table4.FieldByName ('Address').AsString:=DBEdit9.Text;

Table4.FieldByName ('Telephone').AsString:=DBEdit10.Text;

Table4.FieldByName ('Date_priema').AsString:=DBEdit8.Text;

Table4.Post;

MessageDlg ('Данные занесены в таблицу «Продавцы» !', mtinformation, [mbok], 0)

end;

procedure TForm1. Button8Click (Sender: TObject);

begin

if MessageDlg ('Удалить запись?', mtWarning,[mbYes, mbNo], 0)=mrYes

then Table4. Delete;

end;

procedure TForm1. Button9Click (Sender: TObject);

begin

if edit20. Text='' then

MessageDlg ('Введите фамилию!', mtinformation, [mbok], 0)

else

Table4.Filtered:=true;

table4.Filter:='Fam_prod=''' + edit20. Text+'*''';

end;

procedure TForm1. Button10Click (Sender: TObject);

begin

if ComboBox5. Text='' then

MessageDlg ('Выберите Должность!', mtinformation, [mbok], 0)

else

Table4.Filtered:=true;

table4.Filter:='Dolznost=''' + ComboBox5. Text+'*''';

end;

procedure TForm1. Button12Click (Sender: TObject);

begin

Table4.Filtered:=false;

end;

procedure TForm1. Button13Click (Sender: TObject);

begin

PageControl2.TabIndex:=3;

Table3.Append;

Table3.FieldByName ('Fam_sotr').AsString:=DBEdit11.Text;

Table3.FieldByName ('Imya').AsString:=DBEdit12.Text;

Table3.FieldByName ('Otchestvo').AsString:=DBEdit13.Text;

Table3.FieldByName ('Date_prod').AsString:=DBEdit14.Text;

Table3.FieldByName ('Naim_tov').AsString:=DBEdit15.Text;

Table3.FieldByName ('Kol_vo').AsString:=DBEdit16.Text;

Table3.FieldByName ('Summa_stoim').AsString:=DBEdit17.Text;

Table3.FieldByName ('Summa').AsString:=DBEdit18.Text;

Table3.Post;

if MessageDlg ('Вывести на печать?', mtconfirmation,[mbYes, mbNo], 0)=mrYes

then

QuickRep2.Preview;

end;

procedure TForm1. Button14Click (Sender: TObject);

begin

if DBEdit19. Text='' then

MessageDlg ('', mtinformation, [mbok], 0)

else

Table4.Filtered:=true;

table4.Filter:='Fam_prod=''' + DBEdit19. Text+'*''';

if DBEdit20. Text='' then

MessageDlg ('', mtinformation, [mbok], 0)

else

Table4.Filtered:=true;

table4.Filter:='Imya=''' + DBEdit20. Text+'*''';

if MessageDlg ('Удалить продавца?', mtWarning,[mbYes, mbNo], 0)=mrYes

then

table4.Delete;

Table4.Filtered:=false;

end;

procedure TForm1. RadioButton4Click (Sender: TObject);

begin

form3.Table3.Filtered:=true;

form3.table3.Filter:='Naim_tov=''' + ComboBox2. Text+'*''';

edit10.Text:=form3.Table3.FieldByName ('Kol_vo_tov').AsString;

end;

procedure TForm1. Button15Click (Sender: TObject);

begin

form3.Table3.Filtered:=true;

form3.table3.Filter:='Naim_tov=''' + ComboBox2. Text+'*''';

edit10.Text:=form3.Table3.FieldByName ('Kol_vo_tov').AsString;

end;

procedure TForm1. Button16Click (Sender: TObject);

begin

SpinEdit2.value:=table2.FieldByName ('kod').AsInteger;

ComboBox2.Text:=Table2.FieldByName ('Naim_tov').AsString;

SpinEdit1.text:=Table2.FieldByName ('Kol_vo').Asstring;

form3.Table3.Filtered:=true;

form3.table3.Filter:='Naim_tov=''' + ComboBox2. Text+'*''';

edit10.Text:=form3.Table3.FieldByName ('Kol_vo_tov').AsString;

end;

procedure TForm1. RadioButton10Click (Sender: TObject);

begin

if edit8. Text='' then

MessageDlg ('Введите фамилию!', mtinformation, [mbok], 0)

else

Table2.Filtered:=true;

table2.Filter:='Fam_sotr=''' + edit8. Text+'*''';

end;

procedure TForm1. Timer1Timer (Sender: TObject);

begin

label32.Caption:=FormatDateTime ('dd mmmm yyyyyy «г.» ', Now ());

end;

procedure TForm1. Button17Click (Sender: TObject);

begin

Edit4.Text:=Table1.FieldByName ('Fam_sotr').AsString;

Edit5.Text:=Table1.FieldByName ('Imya').AsString;

Edit7.Text:=Table1.FieldByName ('Otchestvo').AsString;

ComboBox3.Text:=Table1.FieldByName ('Dolznost').AsString;

Edit6.Text:=Table1.FieldByName ('Zp').AsString;

Edit16.Text:=Table1.FieldByName ('Adress').AsString;

Edit17.Text:=Table1.FieldByName ('Telephone').AsString;

end;

end.

unit Unit3;

procedure TForm3. Button1Click (Sender: TObject);

begin

if MessageDlg ('Продолжить ввод данных?', mtinformation,[mbYes, mbNo], 0)=mrYes

then

begin

Table1.Append;

Table1.FieldByName ('Nazvamie_org').AsString:=Edit2.Text;

Table1.FieldByName ('Naim_tov').AsString:=ComboBox1.Text;

Table1.FieldByName ('Fam_post').AsString:=Edit7.Text;

Table1.FieldByName ('Imya').AsString:=Edit8.Text;

Table1.FieldByName ('Otchestvo').AsString:=Edit9.Text;

Table1.FieldByName ('Address').AsString:=Edit3.Text;

Table1.FieldByName ('Telephone').AsString:=Edit4.Text;

Table1.Post;

end;

end;

procedure TForm3. Button2Click (Sender: TObject);

begin

if MessageDlg ('Удалить запись?', mtconfirmation,[mbYes, mbNo], 0)=mrYes

then Table1. Delete;

end;

procedure TForm3. RadioButton1Click (Sender: TObject);

begin

if edit1. Text='' then

MessageDlg ('Введите фамилию!', mtinformation, [mbok], 0)

else

Table1.Filtered:=true;

table1.Filter:='Fam_post=''' + edit1. Text+'*''';

end;

procedure TForm3. RadioButton2Click (Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm3. RadioButton3Click (Sender: TObject);

begin

if ComboBox2. Text='' then

MessageDlg ('Введите наименование!', mtinformation, [mbok], 0)

else

Table1.Filtered:=true;

table1.Filter:='Naim_tov=''' + ComboBox2. Text+'*''';

end;

procedure TForm3. RadioButton4Click (Sender: TObject);

begin

Table1.Filtered:=false;

end;

procedure TForm3. N3Click (Sender: TObject);

begin

form5.Show;

end;

procedure TForm3. N2Click (Sender: TObject);

begin

form3.close;

end;

procedure TForm3. Button3Click (Sender: TObject);

begin

if MessageDlg ('Продолжить ввод данных?', mtinformation,[mbYes, mbNo], 0)=mrYes

then

begin

Table3.Append;

Table3.FieldByName ('Naim_tov').AsString:=DBComboBox1.Text;

Table3.FieldByName ('Cena_za_sht').AsString:=Edit5.Text;

Table3.FieldByName ('Skidka').AsString:=Edit6.Text;

Table3.FieldByName ('Kol_vo_tov').AsString:=Spinedit1.Text;

Table3.FieldByName ('Date_postavk').AsString:= datetostr (DateTimePicker1.Date);

a:=Table3.FieldByName ('Cena_za_sht').asinteger;

b:=Table3.FieldByName ('Skidka').AsInteger;

c:=Table3.FieldByName ('Kol_vo_tov').AsInteger;

s:=a*b;

s:=s div 100;

s:=a-s;

Table3.FieldByName ('CenaSoSkidkoy').asinteger:=s;

Table3.FieldByName ('Kol').asinteger:=s*c;

if MessageDlg ('Вывести на печать?', mtinformation,[mbYes, mbNo], 0)=mrYes

then

QuickRep1.Preview;

end;

Table3.post;

end;

procedure TForm3. Button4Click (Sender: TObject);

begin

if MessageDlg ('Удалить запись?', mtconfirmation,[mbYes, mbNo], 0)=mrYes

then Table3. Delete;

end;

procedure TForm3. Button5Click (Sender: TObject);

begin

if MessageDlg ('Продолжить ввод данных?', mtinformation,[mbYes, mbNo], 0)=mrYes

then

begin

Table3.Edit;

Table3.FieldByName ('Naim_tov').AsString:=DBComboBox1.Text;

Table3.FieldByName ('Cena_za_sht').AsString:=Edit5.Text;

Table3.FieldByName ('Skidka').AsString:=Edit6.Text;

Table3.FieldByName ('Kol_vo_tov').AsString:=Spinedit1.Text;

Table3.FieldByName ('Date_postavk').AsString:= datetostr (DateTimePicker1.Date);

a:=Table3.FieldByName ('Cena_za_sht').asinteger;

b:=Table3.FieldByName ('Skidka').AsInteger;

c:=Table3.FieldByName ('Kol_vo_tov').AsInteger;

s:=a*b;

s:=s div 100;

s:=a-s;

Table3.FieldByName ('CenaSoSkidkoy').asinteger:=s;

Table3.FieldByName ('Kol').asinteger:=s*c;

if MessageDlg ('Вывести на печать?', mtinformation,[mbYes, mbNo], 0)=mrYes

then

QuickRep1.Preview;

end;

Table3.post;

end;

procedure TForm3. Button6Click (Sender: TObject);

begin

if MessageDlg ('Редактировать данные?', mtinformation,[mbYes, mbNo], 0)=mrYes

then

begin

Table1.edit;

Table1.FieldByName ('Nazvamie_org').AsString:=Edit2.Text;

Table1.FieldByName ('Naim_tov').AsString:=ComboBox1.Text;

Table1.FieldByName ('Fam_post').AsString:=Edit7.Text;

Table1.FieldByName ('Imya').AsString:=Edit8.Text;

Table1.FieldByName ('Otchestvo').AsString:=Edit9.Text;

Table1.FieldByName ('Address').AsString:=Edit3.Text;

Table1.FieldByName ('Telephone').AsString:=Edit4.Text;

Table1.Post;

end;

end;

procedure TForm3. N16Click (Sender: TObject);

begin

form3.Hide;

form2.Show;

end;

procedure TForm3. RadioButton5Click (Sender: TObject);

begin

if ComboBox4. Text='' then

MessageDlg ('Введите наименование!', mtinformation, [mbok], 0)

else

Table3.Filtered:=true;

table3.Filter:='Naim_tov=''' + ComboBox4. Text+'*''';

end;

procedure TForm3. RadioButton6Click (Sender: TObject);

begin

Table3.Filtered:=false;

end;

procedure TForm3. Button7Click (Sender: TObject);

begin

if DBComboBox1. Text='' then

MessageDlg ('Введите наименование!', mtinformation, [mbok], 0)

else

Table3.Filtered:=true;

table3.Filter:='Naim_tov=''' + DBComboBox1. Text+'*''';

QuickRep1.Preview;

Table3.Filtered:=False;

end;

procedure TForm3. Button8Click (Sender: TObject);

begin

//Table2.Delete;

end;

procedure TForm3. Button9Click (Sender: TObject);

begin

DBComboBox1.Text:=Table3.FieldByName ('Naim_tov').AsString;

Edit5.Text:=Table3.FieldByName ('Cena_za_sht').AsString;

Edit6.Text:=Table3.FieldByName ('Skidka').AsString;

Spinedit1.Text:=Table3.FieldByName ('Kol_vo_tov').AsString;

end;

procedure TForm3. Button10Click (Sender: TObject);

begin

edit2.Text:=Table1.FieldByName ('Nazvamie_org').AsString;

ComboBox1.Text:=Table1.FieldByName ('Naim_tov').AsString;

Edit7.Text:=Table1.FieldByName ('Fam_post').AsString;

edit8.Text:=Table1.FieldByName ('Imya').AsString;

Edit9.Text:=Table1.FieldByName ('Otchestvo').AsString;

Edit3.Text:=Table1.FieldByName ('Address').AsString;

Edit4.Text:=Table1.FieldByName ('Telephone').AsString;

end;

procedure TForm3. N5Click (Sender: TObject);

begin

Application.HelpCommand (HELP_CONTENTS, 0);

end;

end.

unit Unit5

procedure TForm5. Button1Click (Sender: TObject);

begin

form5.Close;

end;

end.

Использованная литература

1) В.В. Фаронов/Delphi-программирование на языке высокого уровня

2) А. Я. Архангельский — 100 компонентов Delphi

3) Шумаков — Базы данных в среде Delphi5

4) В. Гофман, А. Хомоненко — Dephu, Быстрый старт

5) www.cps.ru/wwwboard/delphi/forum (Конференция по Delphi)

6) Е. Марков — Программирование в Делфи7