Справочная система продавца–консультанта компьютерного салона

Оглавление Введение

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

1.1 Назначение и область применения

1.2 Технические характеристики

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

1.2.2 Описание и обоснование входных и выходных данных

1.2.3 Информационная модель и ее описание

1.2.4 Описание и обоснование выбора состава технических и программных средств

1.2.5 Описание алгоритма программы

1.2.6 Описание функциональных точек

2. Руководство оператора

2.1 Назначение программы

2.2 Условия выполнения программы

2.3 Выполнение программы

2.4 Сообщения оператору

3. Ожидаемые технико-экономические показатели

Заключение

Источники, использованные при разработке

ВВЕДЕНИЕ

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

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

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

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

При разработке ИС решаются следующие задачи:

- Исследование предметной области;

— Выделение сущностей;

— Установка связей между сущностями;

— Построение диаграммы потоков данных, концептуальной и датологической модели;

— Выбор средства реализации клиентской части ИС;

— Разработка базы данных ИС в Microsoft Office Access;

1. ОСНОВНАЯ ЧАСТЬ

1.1 Назначение и область применения

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

Основными целями разработки системы могут служить:

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

— повышение степени достоверности выходной информации;

— снижение трудоемкости и количества ошибок при решении задачи.

В программе должны быть реализованы следующие функции:

— ввод или выбор из имеющихся исходных данных клиента при оформлении покупки;

— расчет стоимости покупки;

— принятие на работу новых продавцов;

— увольнение с работы продавцов;

— изменение данных продавца;

— ввод и сохранение данных о купленном товаре;

— ввод и сохранение данных о гарантийном талоне;

— вывод гарантийного талона на печать;

— вывод информации о проданном товаре на печать;

— вывод информации о заканчивающемся товаре на печать;

— предоставление справки о работе программы;

— регистрация поступившего товара на складе;

— изменение количества товара в базе данных после оформления покупки;

— удаление из базы данных информации о проданных товарах.

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

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

— окно заполнения формы продажи товара, изменения информации о товаре в базе данных, сохранения (удаления) информации о продавцах и клиентах;

— окно ввода серийного номера на заказанный товар;

2. выдача справочной информации:

— справка о работе программы;

3. отчеты, формируемые в результате выполнения программы:

— формирование гарантийного талона;

— формирование списка проданного товара;

— формирование списка заканчивающегося товара.

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

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

В должностные обязанности директора входит:

— организация текущего и перспективного планирования деятельности салона;

— проведение рекламных компаний по ознакомлению населения об условиях предоставления услуг салоном;

— разработку необходимой методической документации;

— осуществление контроля качества за процессом оказания услуг;

— обеспечение своевременного составления установленной отчетной документации, и так далее.

Типовая схема компьютерного салона представлена в виде схемы (Рис. 1)

Рисунок 1. Типовая схема организации.

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

Подразделения компьютерного салона, с которыми взаимодействует директор (Таблица 1)

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

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

В обязанности продавца входят следующие функции:

— контроль поступивших на склад товаров;

— подготовка статистической информации о продажах по требованиям директора;

— регистрация клиентов обратившихся в салон;

— заполнение гарантийных талонов;

— создание итоговой документации по продажам.

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

— вся информация находится и хранится в текстовых файлах формата Word и в электронных таблицах Excel;

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

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

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

При использовании программы, разработанной на тему «Информационно-справочная система продавца-консультанта компьютерного салона», увеличивается качество и скорость обслуживания клиентов салона. Это обусловлено тем, что данный программный продукт предоставляет возможность быстрого поиска необходимой информации, такой как: товар, хранящийся на складе; продавцах, работающих в салоне; данные о проданном товаре и клиентах, которые приобрели товар. Организация такого поиска во много раз увеличивает скорость работы продавца, ведь при его использовании можно найти нужные данные всего за несколько секунд, а при нахождении такой немаловажной информации на бумажном носителе, может потребоваться длительный промежуток времени. Также программа позволяет быстро изменить любые данные о товаре, клиентах (покупателях), и продавцах, что также приводит к уменьшению потери времени. При осуществлении продажи товара, продавцу обычно приходится оформлять гарантийный талон, заносить в него всю необходимую информацию, а при использовании данного программного продукта гарантийный талон формируется автоматически, что исключает возникновения различного рода ошибок при его составлении и продавцу остаётся только распечатать его.

Работа продавца компьютерного салона — это процесс, происходящий во времени, который можно разделить на последовательные этапы:

— выбор продавца;

— поиск нужного товара;

— формирование списка товаров;

— оформление документов клиента;

— оформление продажи;

— выдача гарантийного талона;

В каждом этапе происходят информационные процессы, которые сведены в таблицу:

Информационные процессы этапов представлены в виде таблицы (Таблица 2).

Таблица 2. Информационные процессы этапов

1.2 Технические характеристики

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

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

Расчёт скидки на товар — выполнен по формуле:

D = а*в-(а*в*с / 100)

где:

а — цена товара;

в — количество товара;

с — скидка на товар, в процентах;

Dцена товара со скидкой.

Расчет стоимости товаров одного типа:

S = K*C

где:

S — сумма товара;

K — количество товара;

C — цена 1 единицы товара;

Расчет общей стоимости всех купленных товаров :

S1 = C1 + С2 + Сn

где:

S1 — сумма покупки;

Сn — стоимость товаров одного вида;

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

Продавцах Товаре В начале вводится информация о продавцах с помощью формы регистрация. Форма «регистрация» представлена в виде рисунка (Рис.2)

Рисунок 2. Форма «Регистрация»

После поступления на склад нового товара производится его регистрация в базе данных при помощи ввода информации на главной форме программы. Главная форма программы представлена в виде рисунка (Рис. 3).

Рисунок 3. Форма «Главная форма программы»

Первичная информация о продавцах хранится в таблице «Продавец» базы данных. И имеет следующие поля:

— № продавца

— Фамилия

— Имя

— Отчество

— Разряд

— Паспортные данные

— Адрес

— Телефон

— Образование

— Пароль Первичная информация о товаре хранится в таблице «Товар» базы данных. И имеет следующие поля:

— № товара

— Название

— ФирмаИзготовитель

— Модель

— Характеристики

1.2.2 Описание и обоснование входных и выходных данных Данные о перечне форм входной информации находятся в таблице (Таблица 3).

Таблица 3. Перечень форм ввода входной информации

Рисунок 4. Форма «Главная Фома программы» с видом информации о клиентах Рисунок 5. Форма «Главная Фома программы» с видом информации о товаре

Данные о перечне форм формирования выходной информации находятся в таблице (Таблица 4).

Таблица 4. Перечень форм формирования выходной информации.

Рисунок 6. Форма «Главная Фома программы» с видом информации о выбранном товаре Рисунок 7. Форма «Серийный номер»

Данные о перечне форм формирования отчетов находятся (Таблица 5).

Таблица 5. Перечень форм формирования отчетов.

Рисунок 8. Форма «Гарантийный талон»

Рисунок 9. Форма «Список заканчивающегося товара»

Рисунок 10. Форма «Отчет о проданном товаре»

Схема взаимосвязи программных модулей и информационных хранилищ (Рис. 11).

Рисунок 11. Схема взаимосвязи программных модулей и информационных хранилищ

1.2.3 Информационная модель и ее описание Проведя анализ предметной области путем изучения вышеперечисленной информации, были выявлены следующие внешние сущности:

— Покупатель;

— Продавец.

Накопителями данных являются:

— Покупатель;

— Покупка товара;

— Заказ;

— Продавец;

— Продажа;

— Товар.

Информационная система разбита на пять логических подсистем:

— система заказов;

— система продаж;

— система регистрации продавцов;

— система регистрации покупателей;

— система регистрации товара.

Потоки данных представлены в виде схемы и подробного словесного описания (Рис. 12)

Рисунок 12. Диаграмма потоков данных Запрос на регистрацию:

1. Запрос на регистрацию;

2. Обращение к базе данных на наличие продавца;

3. Ответ на запрос;

4. Разрешение входа в систему;

Запрос на привоз товара:

5. Запрос на регистрацию товара;

6. Запрос продавца на регистрацию товара;

7. Добавление товара в базу данных;

8. Информация системе регистрации товара о добавлении товара в базу данных;

9. Информация продавцу о добавлении товара в базу данных;

10. Отчёт по заканчивающемуся товару;

Запрос на наличие товара:

11. Запрос покупателя к продавцу на продажу товара;

12. Запрос продавца к системе продаж на продажу товара;

13. Запрос к базе данных на продажу товара;

14. Получение системой продаж информации о товаре;

15. Получение продавцом информации о товаре;

16. Получение покупателем информации о товаре;

Выбор и покупка:

17. Запрос покупателя к продавцу на выбор товара;

18. Запрос продавца к системе продаж на выбор товара;

19. Запрос системой продаж на выбор товара;

20. Получение системой продаж информации о выбранном товаре;

21. Получение продавцом информации о выбранном товаре;

Регистрация заказчика и покупка:

22. Предложение регистрации покупателю;

23. Регистрационные данные покупателя;

24. Заполнение информации о покупателе;

25. Регистрация покупки и покупателя;

26. Отчёт о регистрации покупателя;

27. Отчёт о регистрации покупки;

28. Отчёт покупателю о покупке товара.

Запрос на оформление заказа:

29. Запрос покупателя к продавцу на заказ товара;

30. Запрос продавца к системе заказов на заказ товара;

31. Запрос системой заказов на добавление заказа;

32. Получение системой заказов информации о добавлении заказа;

33. Получение продавцом информации от системы заказов о добавленном заказе;

34. Получение покупателем информации от продавца о заказе.

На этапе анализа необходимо провести подробное исследование: будущих функциональных возможностей разрабатываемой системы; информации, необходимой для их выполнения. Поэтому особое внимание было уделено полноте информации и поиску противоречивой, дублирующей или неиспользуемой информации. После того как была проведена нормализация таблицы «Товар» и «Новый товар» были объединены в одну: «Товар» .

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

1. Покупатель:

— № покупателя;

— Фамилия;

— Имя;

— Отчество;

— Адрес;

— Телефон.

2. Заказ:

— Код;

— №товара;

— Идентификационный номер;

— Стоимость;

— Льготы;

— Итого.

3. Продавец:

— № продавца;

— Фамилия;

— Имя;

— Отчество;

— Разряд;

— Паспортные данные;

— Адрес;

— Телефон;

— Образование.

4. Продажа:

— № продажи;

— № покупателя;

— № продавца;

— № товара;

— Дата;

— Цена покупки;

— Серийный номер;

— Количество;

— Скидка %;

— Общая стоимость;

— Гарантийный талон.

5. Товар:

— № товара;

— Название;

— ФирмаИзготовитель;

— Характеристики;

— Модель;

— Цена;

— Гарантия;

— Количество.

В результате полученная модель данных графически представлена в виде инфологической модели, представленной в виде рисунка (Рис.13).

Рисунок 13. Инфологическая модель базы данных На основе разработанной инфологической модели строится датологическая модель данных. Наиболее приемлемой для дальнейшей разработки является реляционная модель данных представленная в виде рисунка (Рис.14).

Рисунок 14. Датологическая модель базы данных

1.2.4 Описание и обоснование выбора состава технических и программных средств Для реализации базы данных была использована система управления базами данных Microsoft Office Access, входящая в состав стандартного набора Microsoft Office. Microsoft Office Access предоставляет методы удобного управления данными за счет упрощения создания и применения схем и таблиц стилей. Microsoft Access позволяет легко описывать и доставлять сложные, структурированные данные в любое или из любого приложения стандартным, совместимым способом. Microsoft Office Access имеет интерфейс, характерный для Windows-приложений и относится к системам, ориентированным на пользователя, что позволяет легко выполнять основные действия с базой данных, не прибегая к программированию. Данное программное обеспечение применяется для организаций с относительно небольшим объемом данных.

Сама информационная система реализована в среде разработки приложений Delphi. В основе идеологии Delphi лежит технология визуального проектирования и методология объектно-ориентированного программирования. Для представления программ в Delphi используется разработанный Borland язык Object Pascal, в основе которого лежит Turbo Pascal.

В основе Delphi лежит концепция быстрого создания приложений (RADRapid Application Development). Основной составляющей среды быстрого создания приложений является технология, получившая название Two Ways Tools. Это значит, что при размещении или изменении компонента в какой-либо форме, соответствующая программа автоматически дополняется и модифицируется. И наоборот, все изменения, которые вносятся в программу при разработке приложения, автоматически отражаются на функциональных свойствах компонентов формы.

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

Схемы загрузки форм представлены в виде рисунка (Рис.15).

Схема загрузки формы регистрация

Выбор кнопки «Продолжить» .

Выбор кнопки «Товар» .

Выбор кнопки «Добавить запись» .

Выбор кнопки «Выход» .

1.2.5 Описание алгоритма программы Алгоритм работы программы представлен в виде блок-схемы, которая демонстрирует кнопки вызова форм. После запуска файла «Kompsalon.exe» на экране монитора выводится форма «Регистрация». Сначала на ней появляется заставка, с описанием темы дипломного проекта и информация о разработчике данного программного продукта, но через 5 секунд она пропадает. После чего появляются компоненты регистрации продавцов.

На форме «Регистрация» находится две кнопки:

" Выход", в соответствии с названием эта кнопка приводит к закрытию приложения;

" Продолжить", при нажатии на неё программа автоматически сверяет данные продавца, и если данные введены неправильно или не совпадают с данными имеющихся продавцов, то автоматически на форме (окне) программы появляется надпись: «Данные продавца неверны! Попробуйте повторить регистрацию» .

Если же программа при нажатии на кнопку «Продолжить» введённые продавцом данные при заполнении регистрации, были успешно проняты, то запускается форма «Главная форма программы». Она является главной и на ней происходят все основные операции.

Сначала на ней появляются кнопки «Справка» и «Выход», а также раздел «Выбор таблицы», в котором, по сути объединены кнопки: «Продажа товара», «Товар», «Сотрудники», «Клиенты», «Продажи» .

При нажатии на «Справка» — открывается форма «Справка». Здесь непосредственно представлено описание о разработчике программы и о работе с программой.

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

Раздел «Выбор таблицы», состоит из нескольких кнопок, при нажатии на любую из них появляется подраздел, который содержит в себе такие основные элементы как: кнопки управления базой данных, непосредственно саму таблицу и окно поиска:

" Сотрудники", здесь предоставляется возможность редактировать, добавлять и удалять информацию о продавцах;

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

" Клиенты", позволяет редактировать, добавлять и удалять информацию о клиентах (покупателях товара);

" Товар", позволяет редактировать, добавлять и удалять информацию о товаре. Здесь, так же расположена кнопка «Вывести список заканчивающегося товара», она выводит на печать тот товар, количество которого на складе осталось меньше десяти единиц;

" Продажа товара", в этом подразделе происходит выбор и продажа товара. При помощи функции поиска продавец без труда может найти необходимый клиенту (заказчику) товар и выбрать его, нажав на кнопку «Выбрать товар». При нажатии открывается форма (окно) «Серийный номер». На ней размещены кнопки «Отмена» и «Продолжить». Также она выводит информацию о количестве данного товара на складе и количестве уже выбранного товара, непосредственно здесь же происходит и запрос о выборе количества товара. Кнопка «Отмена» приводит к закрытию форы «Серийный номер», а при нажатии на «Продолжить» появляется текстовая область, в которую необходимо ввести серийный номер выбираемого изделия и опять нажать на «Продолжить». Как только введённое количество товара закончится (для каждого будет введён свой серийный номер) форма закроется. Одновременно с закрытием «Серийный номер» на форме «Главная форма программы» появляется таблица с выбранным товаром и подраздел «Выбор товара», в котором можно удалить выбранный товар, задать скидку как на один так и на весь на товар, отменить скидку как на один так и на весь товар.

Кнопка «Отменить продажу» приводит к отмене продажи, то есть происходит отмена продажи и очистка списка выбранного товара.

Кнопка «Закончить выбор» открывает раздел регистрации клиента (покупателя). Здесь можно ввести данные о новом покупателе, а можно выбрать из уже зарегистрированных. Кнопка «Отмена» возвращает к выбору товара, «Продолжить» приводит к показу информации о клиенте и продавце.

Далее появляется кнопка «Продать товар». При нажатии на неё происходит продажа выбранного товара. Появляется сообщение, которое говорит о том, что товар продан и выводится гарантийный талон.

Схема вызова форм программы представлена на рисунке (Рис.16).

Рисунок 16. Схема вызова форм программы

1.2.6 Описание функциональных точек В проекте используется 8 форм, 29 невизуальных компонентов и 20 основных процедур обработки событий, которые в совокупности предназначены для автоматизации обслуживания клиентов компьютерного салона. Все невизуальные компоненты находятся на форме «DM». Форма «DM» представлена на рисунке (Рис. 17).

Каждый из этих компонентов выполняет свою определённую функцию. Например, компоненты с названиями: Tovar1, Prodavez, Klienti, Prodazi, ADOZacaz, ADOGart, FirmIzg, Reg1, ADOQTovar, ADOQSotrydniki, ADOQKlienti, ADOQZaprosProdazi, ADOQZViv, ADOQZacTovar, ADOQGaranti — используются для подключения таблиц из базы данных «Комп салон» .

Компоненты: DSTovar1, DSKlienti, DSZacaz, DSProdavez, DSProdazi, DSGart, FirmIzg1, DSTovar, DSSotrydniki, DSQklienti, DSZaprosProdazi, DSViv, DSZacTovar — используются для вывода информации из базы данных в таблицы.

Рисунок 17. Форма «DM»

Reg2.pas

1. procedure Edit1KeyPress — процедура перехода между полями ввода по нажатию Enter

procedure TReg. Edit1KeyPress (Sender: TObject; var Key: Char);

begin

if key=#13 then //нажатие Enter

edit2.SetFocus;//Переход на следующую строку при нажатии Enter

end;

2. procedure TReg. BitBtn2Click — процедура нажатия на кнопку продолжить

procedure TReg. BitBtn2Click (Sender: TObject);

var f: integer;

begin

if (edit1.text='') or (edit2.text='') or (edit3.text='') or (edit6.text='')then

begin //вывод соответствующего сообщния

messagedlg ('ПОЖАЛУЙСТО ЗАПОЛНИТЕ ВСЕ ПОЛЯ!!! ', mterror,[mbok], 0);

end else

begin

for f:=1 to DM. Reg1.RecordCount do

begin

if (edit1.text<>DM.Reg1.FieldByName ('Фамилия').AsString) or (edit2.text<>DM.Reg1.FieldByName ('Имя').AsString) or (edit3.text<>DM.Reg1.FieldByName ('Отчество').AsString) or (edit6.text<>DM.Reg1.FieldByName ('Пароль').AsString) then

begin

DM.Reg1.Next;//Переход к следующеё строке

Label1.Visible:=False;//Скрытие надписи

Label6.Visible:=True;//Появление надписи

end

else

begin

reg.Hide;//Закрытие формы reg

Prodat11.Show;//Открытие формы Prodat11

end;

3. procedure TReg. Timer1Timer — процедура скрытия заставки

procedure TReg. Timer1Timer (Sender: TObject);

begin

Panel1.Visible:=False;//Скрытие панели

Reg.Caption:='Регистрация';//Задание заголовка формы

Label1.Visible:=True;//Появление надписи

Label2.Visible:=True;//Появление надписи

Label3.Visible:=True;//Появление надписи

Label4.Visible:=True;//Появление надписи

Label5.Visible:=True;//Появление надписи

end;

4. procedure TReg. FormClose — процедура закрытия программы

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

begin //Вывод соответствующего сообщения

if MessageDlg ('Вы хотите выйти из программы?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Application.Terminate;//Закрытие приложения

end;

sernom.pas

5. procedure TSerNom. BitBtn2Click — Процедура отказа от продажи товара

procedure TSerNom. BitBtn2Click (Sender: TObject);

begin

Prodat11.Enabled:=True;

Prodat11.Refresh;//Обновление формы Prodat11

sernom1.Edit1.Clear;//Очистка текстового поля

sernom1.Hide;//Закрытие формы sernom1

dm.ADOZacaz.First;//Переход к первой записи в таблице ADOZacaz

Prodat11.Refresh;//Обновление формы Prodat11

begin

if dm.ADOZacaz.FieldByName ('№ товара').AsString<>'' then

begin

Prodat11.DBGrid12.Visible:=True;//Появление компонента

Prodat11.DBGrid13.Visible:=True;//Появление компонента

Prodat11.Panel6.Visible:=True;//Появление компонента

End;

Prodat11.Button16.Click;//Нажатие кнопки

end;

Prodat11.Button16.Click;//Нажатие кнопки

end;

6. procedure TSerNom. BitBtn1Click — Процедура сохранения серийного номера, и пересчета скидки на товар

procedure TSerNom. BitBtn1Click (Sender: TObject);

var m1, m2, m3, po, w, p, p2, a, d: Integer;

begin

begin

if Prodat11. Edit24.Text='' then

begin

Prodat11.Edit24.Text:='0';//Занесение информации в текстовое поле

end;

end;

Prodat11.Enabled:=True;

begin

if Edit1. Text='' then

begin//Вывод соответствующего сообщения

ShowMessage ('Пожалуйсто введите серийный номер');

end

else

begin

begin

d:=StrToInt (Prodat11.Edit24.Text);//Задание значения переменной

if d>100 then

begin

Prodat11.Edit24.Text:='100';//Занесение информации в текстовое поле

end;

end;

Prodat11.GroupBox7.Enabled:=False;

Prodat11.Button2.Enabled:=False;

Prodat11.Button3.Enabled:=False;

Prodat11.Button4.Enabled:=False;

Prodat11.Button5.Enabled:=False;

Prodat11.Button6.Enabled:=False;

Prodat11.CheckBox2.Checked:=True;//Изменение значения компонента

dm.ADOZacaz.Insert;//Добавление строки в таблицу ADOZacaz

dm.ADOZacaz.FieldByName ('№ товара').AsString:=Prodat11.DBEdit1.Text;//Занесение информации в таблицу ADOZacaz

dm.ADOZacaz.FieldByName ('Идентифик_номер').AsString:=sernom1.Edit1.Text;//Занесение информации в таблицу ADOZacaz

dm.ADOZacaz.FieldByName ('Стоимость').AsString:=Prodat11.DBEdit6.Text;//Занесение информации в таблицу ADOZacaz

dm.ADOZacaz.FieldByName ('Льготы').AsString:=Prodat11.Edit24.Text;//Занесение информации в таблицу ADOZacaz

m1:=0;//Обнуление переменной

m1:=StrToInt (dm.ADOZacaz.FieldByName ('Стоимость').AsString);

m2:=1;//Задание значения переменной

m3:=0;//Обнуление переменной

m3:=StrToInt (dm.ADOZacaz.FieldByName ('Льготы').AsString);//Задание значения переменной

begin

if m3=0 then

begin

po:=m1*m2;//Задание значения переменной

end

else

begin

a:=m1*m2;//Задание значения переменной

po:=a-(a*m3 div 100);//Задание значения переменной

end;

end;

dm.ADOZacaz.FieldByName ('Итого').AsString:=IntToStr (po);//Занесение информации в таблицу ADOZacaz

dm.ADOZacaz.Post;//Сохранение занесённой информации в таблице ADOZacaz

Prodat11.colvtov:=Prodat11.colvtov-1;//Задание значения переменной

Prodat11.BitBtn53.Click;//Нажатие кнопки

Prodat11.Button16.Click;//Нажатие кнопки

Prodat11.BitBtn7.Visible:=True;//Появление кнопки

Prodat11.Button16.Click;//Нажатие кнопки

Prodat11.BitBtn9.Visible:=True;//Появление кнопки

Prodat11.SpeedButton1.Visible:=true;//Появление кнопки

Prodat11.SpeedButton2.Visible:=true;//Появление кнопки

Prodat11.SpeedButton3.Visible:=true;//Появление кнопки

Prodat11.SpeedButton4.Visible:=true;//Появление кнопки

Prodat11.GroupBox6.Visible:=True;//Появление компонента

Prodat11.DBGrid12.Visible:=True;//Появление компонента

Prodat11.DBGrid13.Visible:=True;//Появление компонента

Prodat11.GroupBox8.Visible:=True;//Появление компонента

Prodat11.Button16.Click;//Нажатие кнопки

Prodat11.Panel6.Visible:=True;//Появление панели

Prodat11.colpoc:=Prodat11.colpoc+1;//Задание значения переменной

sernom1.Label2.Caption:='Введите Серийный номер '+ IntToStr (Prodat11.colpoc);//Задание надписи

end;

end;

begin

if Prodat11. colvtov<>0 then

begin

sernom1.Edit1.Clear;//Очистка текстового поля

sernom1.Edit1.SetFocus;//перемещение курсора в текстовое поле

BitBtn3.Visible:=False;//Появление кнопки

Prodat11.Enabled:=False;//Форма активна//Форма неактивна

end

else

begin

sernom1.Hide;//Закрытие формы sernom1

Prodat11.Enabled:=True;//Форма неактивна

Prodat11.Panel6.Visible:=True;//Появление панели

Prodat11.GroupBox8.Visible:=True;//Появление компонента

Prodat11.BitBtn9.Visible:=true;//Появление кнопки

Prodat11.BitBtn7.Visible:=true;//Появление кнопки

Prodat11.Panel6.Visible:=True;//Появление панели

Prodat11.Button16.Click;//Нажатие кнопки

end;

Prodat11.Button16.Click;//Нажатие кнопки

end;

Prodat11.Button16.Click;//Нажатие кнопки

end;

7. procedure TSerNom. FormShow — Процедура слежения за количеством товара на складе, и количеством выбранного товара

procedure TSerNom. FormShow (Sender: TObject);

var ng, mk: integer;

begin

sernom1.Label3.Visible:=True;//Появление надписи

sernom1.Label4.Visible:=True;//Появление надписи

Prodat11.Enabled:=False;//Фома активна

sernom1.Edit1.Text:='';//Вывод текста

sernom1.Edit2.Text:='1';//Вывод текста

sernom1.Label2.Caption:='Введите количество товара:';

Prodat11.colpoc:=2;//задание значения переменной

Label3.Caption:='Общее количество товара = '+Prodat11.DBEdit8.Text;//Задание надписи

mk:=0;//Обнуление переменной

begin

for ng:=1 to DM.ADOZacaz.RecordCount do

begin

if dm.ADOZacaz.FieldByName ('№ товара').AsString=Prodat11.DBEdit1.Text then

begin

mk:=mk+1;//Увеличение счётчика переменной

end;

dm.ADOZacaz.Next;//Переход на следующую строку в таблице ADOZacaz

end;

kj:=StrToInt (Prodat11.DBEdit8.Text)-mk;//Задание значения переменной

Label4.Caption:='Количество уже выбранного товара = '+IntToStr (mk)+', доступно = '+ IntToStr (kj);//Занесение текста в надпись

end;

end;

8. procedure TSerNom. Edit2KeyPress — Ограничение вводимой информаци

procedure TSerNom. Edit2KeyPress (Sender: TObject; var Key: Char);

begin

case key of

#13: ;//При нажатие Enter перенос курсора

#8: ;//Стереть символ слева Backspace

#145: ;//Верхний опостроф

'0'.'9': ;//Только англиские булвы

' ': //Пробел

else key:=chr (0);//Иначе ничего

end;

end;

9. procedure TProdat11. BitBtn6Click — Выбор товара и запрос на применение установленной скидки

procedure TProdat11. BitBtn6Click (Sender: TObject);

var z, z1, a1,a2,v:integer;

begin

begin

if Prodat11. Edit24.Text='' then

begin

Prodat11.Edit24.Text:='0';//Занесение информации в текстовое поле

end;

end;

begin

if Prodat11. Edit24.Text<>'0' then

begin //Вывод сообщения

if MessageDlg ('Оставить скидку на товар?',

mtConfirmation, [mbYes, mbNo], 0) = mrNo then

Prodat11.Edit24.Text:='0';//Занесение информации в текстовое поле

end;

end;

dm.ADOZacaz.First;//Переход к первой записи в таблице ADOZacaz

a1:=0;//Обнуление переменной

a2:=0;//Обнуление переменной

begin

for z1:=1 to DM.ADOZacaz.RecordCount do

begin

if dm.ADOZacaz.FieldByName ('№ товара').AsString=Prodat11.DBEdit1.Text then

begin

end;

dm.ADOZacaz.Next;//Переход к следующей записи в таблице ADOZacaz

end;

end;

begin

a2:=StrToInt (Prodat11.DBEdit8.Text);//Присвоение значения переменной

a2:=a2-a1;//Присвоение значения переменной

if a2=0 then

begin

ShowMessage ('Тoвара на складе нет');//Вывод сообщения

end

else

begin

begin

sernom1.Show;//Открытие формы sernom1

sernom1.Label1.Visible:=True;//Появление надписи

sernom1.Edit1.Visible:=True;//Появление текстового поля

sernom1.Label2.Visible:=False;//Скрытие надписи

sernom1.Edit2.Visible:=False;//Скрытие текстового поля

sernom1.Edit1.SetFocus;//Курсор в текстовом поле

Prodat11.colvtov:=1;//Присвоение значения переменной

sernom1.BitBtn3.Visible:=True;//Появление кнопки

end;

begin

sernom1.Show;//Открытие формы sernom1

sernom1.Label1.Visible:=False;//Скрытие надписи

sernom1.Edit1.Visible:=False;//Скрытие текстового поля

sernom1.Label2.Visible:=True;//Появление надписи

sernom1.Edit2.Visible:=True;//Появление текстового поля

sernom1.BitBtn1.Enabled:=True;

sernom1.Edit2.SetFocus;//Курсор в текстовом поле

sernom1.BitBtn3.Visible:=True;//Появление кнопки

end;

end;

end;

end;

10. procedure TProdat11. BitBtn5Click — Процедура сохранения информации о осуществленной продаже и вывод гарантийного талона на печать

procedure TProdat11. BitBtn5Click (Sender: TObject);

var q, t, c, v, z, n, d, fghj: integer;

begin

if Edit78. Text='' then

begin

DM.Pokypatel.Last;//Переход к последней записи в базе данных

DM.Pokypatel.Insert;//Добавление строки в базу данных

DM.Pokypatel.FieldByName ('Фамилия').AsString:=Prodat11.Edit6.Text;//Занесение информации в базу данных

DM.Pokypatel.FieldByName ('Имя').AsString:=Prodat11.Edit7.Text;//Занесение информации в базу данных

DM.Pokypatel.FieldByName ('Отчество').AsString:=Prodat11.Edit8.Text;//Занесение информации в базу данных

DM.Pokypatel.FieldByName ('Адрес').AsString:=Prodat11.Edit9.Text;//Занесение информации в базу данных

DM.Pokypatel.FieldByName ('Телефон').AsString:=Prodat11.Edit10.Text;//Занесение информации в базу данных

DM.Pokypatel.Post;//Сохранение занесённой информации

Edit12.Text:=IntToStr (DM.Pokypatel.FieldValues['№ покупателя']);

DM.Pokypatel.Refresh;//Обновление таблицы

end;

aaa:=aaa+1;

dm.ADOZacaz.First;//Переход к первой записи в таблице ADOZacaz

for q:=1 to dm.ADOZacaz.RecordCount do

begin

DM.Prodazi.Last;//Переход к последней записи в базе данных

DM.Prodazi.Insert;//Добавление строки в базу данных

begin

if Edit78. Text='' then

begin

DM.Pokypatel.Last;//Переход к последней записи в базе данных

DM.Prodazi.FieldByName ('№ покупателя').AsString:=DM.Pokypatel.FieldValues['№ покупателя']; //Занесение информации в базу данных

end

else

begin

DM.Prodazi.FieldByName ('№ покупателя').AsString:=Edit78.Text;//Занесение информации в базу данных

end;

end;

DM.Prodazi.FieldByName ('№ продавца').AsString:=Prodat11.Edit11.Text;//Занесение информации в базу данных

DM.Prodazi.FieldByName ('№ товара').AsString:=dm.ADOZacaz.FieldValues['№ товара']; //Занесение информации в базу данных

DM.Prodazi.FieldByName ('Дата').AsString:=DateTimeToStr (Date);//Занесение информации в базу данных

DM.Prodazi.FieldByName ('Цена покупки').AsString:=dm.ADOZacaz.FieldValues['Стоимость']; //Занесение информации в базу данных

DM.Prodazi.FieldByName ('Количество').AsString:='1';

DM.Prodazi.FieldByName ('Серийный номер').AsString:=dm.ADOZacaz.FieldValues['Идентифик_номер'];

DM.Prodazi.FieldByName ('Скидка%').AsString:=dm.ADOZacaz.FieldValues['Льготы'];

DM.Prodazi.FieldByName ('Общая стоимость').AsString:=dm.ADOZacaz.FieldValues['Итого']; //Занесение информации в базу данных

DM.Prodazi.FieldByName ('Гарантийный талон').AsString:=IntToStr (aaa);

DM.Prodazi.Post;//Сохранение занесённой информации

dm.ADOZacaz.Next;//Переход на следующую строчку

DM.Tovar1.First;//Переход к первой записи

end;

begin

dm.ADOZacaz.First;//Переход к первой записи

for n:=1 to dm.ADOZacaz.RecordCount do

begin

DM.Tovar1.First;//Переход к первой записи

for d:=1 to DM. Tovar1.RecordCount do

begin

if (dm.ADOZacaz.FieldByName ('№ товара').AsString<>dm.Tovar1.FieldByName ('№ товара').AsString) then

begin

DM.Tovar1.Next;//Переход к следующеё строке

end

else

begin

DM.Tovar1.Edit;//Редактирование записи в таблице Tovar1

DM.Tovar1.FieldByName ('Количество').AsString:=IntToStr (StrToInt (DM.Tovar1.FieldByName ('Количество').AsString)-1);

DM.Tovar1.Post;//Сохранение занесённой информации

dm.Tovar1.Next;//Переход к следующеё строке

end;

end;

dm.ADOZacaz.Next;//Переход к следующеё строке

end;

end;

GroupBox2.Visible:=False;//Скрытие компонента

GroupBox1.Visible:=false;//Скрытие компонента

DBGrid1.Visible:=True;//Появление таблицы

BitBtn1.Visible:=True;//Появление кнопки

BitBtn2.Visible:=True;//Появление кнопки

BitBtn3.Visible:=True;//Появление кнопки

BitBtn4.Visible:=True;//Появление кнопки

BitBtn6.Visible:=True;//Появление кнопки

BitBtn7.Visible:=True;//Появление кнопки

Label1.Visible:=True;//Появление текста

Label2.Visible:=True;//Появление текста

Label3.Visible:=True;//Появление текста

Label4.Visible:=True;//Появление текста

Label5.Visible:=True;//Появление текста

Label6.Visible:=True;//Появление текста

Label7.Visible:=True;//Появление текста

Label8.Visible:=True;//Появление текста

DBEdit1.Visible:=True;//Появление текстового поля

DBEdit2.Visible:=True;//Появление текстового поля

DBEdit3.Visible:=True;//Появление текстового поля

DBEdit4.Visible:=True;//Появление текстового поля

DBEdit5.Visible:=True;//Появление текстового поля

DBEdit6.Visible:=True;//Появление текстового поля

DBEdit7.Visible:=True;//Появление текстового поля

DBEdit8.Visible:=True;//Появление текстового поля

ShowMessage ('Товар продан!');

Edit24.Text:='0';//Занесение информации в текстовое поле

Panel6.Visible:=False;//Скрытие компонента

BitBtn7.Visible:=False;//Скрытие кнопки

BitBtn9.Visible:=false;//Скрытие кнопки

dm.ADOQGaranti.Parameters[0]. Value:=dm.Prodazi.FieldValues['Гарантийный талон']; //Задание значения параметра

dm.ADOQGaranti.Close;//Закрытие таблицы ADOQGaranti

dm.ADOQGaranti.Open;//Открытие таблицы ADOQGaranti

dm.ADOQGaranti.Active:=False;//Обновление информации в таблице ADOQGaranti

dm.ADOQGaranti.Active:=True;//Обновление информации в таблице ADOQGaranti

begin

garanti1.QRLabel3.Caption:=inttostr (aaa);

garanti1.QuickRep1.Refresh;//Обновление компонента

garanti1.QuickRep1.Preview;//Вывод на просмотр

end;

begin

for z:=1 to dm.ADOZacaz.RecordCount do

begin

dm.ADOZacaz.Delete;//Удаление записи в таблице ADOZacaz

dm.ADOZacaz.Next;//Переход к следующей записи в таблице ADOZacaz

end;

end;

GroupBox7.Enabled:=True;

Button2.Enabled:=True;//Запрещение нажатия на кнопку

Button1.Enabled:=True;//Запрещение нажатия на кнопку

Button3.Enabled:=True;//Запрещение нажатия на кнопку

Button4.Enabled:=True;//Запрещение нажатия на кнопку

Button5.Enabled:=True;//Запрещение нажатия на кнопку

Button6.Enabled:=True;//Запрещение нажатия на кнопку

dm.ADOQTovar.Close;//Закрытие таблицы ADOQTovar

dm.ADOQTovar.Open;//Открытие таблицы ADOQTovar

Button10.Click;//Нажатие кнопки

dm.ADOQZaprosProdazi.Close;//Закрытие таблицы ADOQZaprosProdazi

dm.ADOQZaprosProdazi.Open;//Открытие таблицы ADOQZaprosProdazi

Button13.Click;//Нажатие кнопки

GroupBox9.Visible:=True;//Появление компонента

Edit1.Text:='';//Вывод текста

Edit2.Text:='';//Вывод текста

Edit3.Text:='';//Вывод текста

Edit4.Text:=' - - - - - - - - - - - -';//Вывод текста

Edit5.Text:='';//Вывод текста

end;

11. procedure TProdat11. BitBtn9Click — Процедура отказа от продажи и удаления всей временной информации

procedure TProdat11. BitBtn9Click (Sender: TObject);

var i: integer;

begin

Prodat11.GroupBox7.Enabled:=True;

Prodat11.Button2.Enabled:=True;

Prodat11.Button3.Enabled:=True;

Prodat11.Button4.Enabled:=True;

Prodat11.Button5.Enabled:=True;

Prodat11.Button6.Enabled:=True;

Prodat11.Panel6.Visible:=False;//Скрытие компонента

dm.ADOQZViv.SQL.Clear;//Очистка запроса в таблице ADOQZViv

CheckBox2.Checked:=False;//Изменение значения компонента

for i:=1 to dm.ADOZacaz.RecordCount do

begin

dm.ADOZacaz.Delete;//Удаление записи из таблицы ADOZacaz

dm.ADOZacaz.Next;//Переход на следующую строку в таблице ADOZacaz

end;

Prodat11.BitBtn53.Click;//Нажатие кнопки

BitBtn7.Visible:=False;//Скрытие кнопки

BitBtn9.Visible:=False;//Скрытие кнопки

GroupBox6.Visible:=False;//Скрытие компонента

Prodat11.DBGrid12.Enabled:=False;

Prodat11.DBGrid13.Enabled:=False;

Prodat11.SpeedButton1.Visible:=False;//Скрытие компонента

Prodat11.SpeedButton2.Visible:=False;//Скрытие компонента

Prodat11.SpeedButton3.Visible:=False;//Скрытие компонента

Prodat11.SpeedButton4.Visible:=False;//Скрытие компонента

Prodat11.GroupBox8.Visible:=False;//Скрытие компонента

Prodat11.GroupBox7.Enabled:=True;

Prodat11.Button2.Enabled:=True;

Prodat11.Button3.Enabled:=True;

Prodat11.Button4.Enabled:=True;

Prodat11.Button5.Enabled:=True;

Prodat11.Button6.Enabled:=True;

end;

12. procedure TProdat11. BitBtn12Click — добавление информации о сотрудниках в базу данных

procedure TProdat11. BitBtn12Click (Sender: TObject);

begin

Button21.Visible:=false;

GroupBox9.Visible:=False;//Скрытие компонента

CheckBox2.Checked:=True;//Изменение значения компонента

GroupBox7.Visible:=False;//Скрытие компонента

BitBtn11.Visible:=False;//Скрытие кнопки

DBComboBox2.Enabled:=True;

BitBtn13.Visible:=False;//Скрытие кнопки

BitBtn14.Visible:=False;//Скрытие кнопки

BitBtn15.Visible:=False;//Скрытие кнопки

BitBtn12.Visible:=False;//Скрытие кнопки

BitBtn18.Visible:=False;//Скрытие кнопки

BitBtn16.Visible:=False;//Скрытие кнопки

BitBtn17.Visible:=False;//Скрытие кнопки

BitBtn19.Visible:=False;//Скрытие кнопки

BitBtn21.Visible:=True;//Появление кнопки

BitBtn20.Visible:=True;//Появление кнопки

DBEdit9.ReadOnly:=False;//Разрешение изменения записи

DBComboBox1.ReadOnly:=False;//Разрешение изменения записи

DBEdit11.ReadOnly:=False;//Разрешение изменения записи

DBEdit12.ReadOnly:=False;//Разрешение изменения записи

DBEdit13.ReadOnly:=False;//Разрешение изменения записи

DBEdit14.ReadOnly:=False;//Разрешение изменения записи

DBEdit15.ReadOnly:=False;//Разрешение изменения записи

DBEdit9.SetFocus;//Курсор находится в данном текстовом поле

DBNavigator2.BtnClick (nbInsert);//Добавление строки в базу данных

Button15.Click;//Нажатие кнопки

BitBtn20.Enabled:=False;

BitBtn19.Enabled:=False;

end;

13. procedure TProdat11. BitBtn14Click — Изменение информации о сотрудниках

procedure TProdat11. BitBtn14Click (Sender: TObject);

begin

Button21.Visible:=False;

GroupBox9.Visible:=False;//Скрытие компонента

CheckBox2.Checked:=True;//Изменение значения компонента

GroupBox7.Visible:=False;//Скрытие компонента

BitBtn11.Visible:=False;//Скрытие кнопки

DBGrid2.Enabled:=False;

DBComboBox2.Enabled:=True;

BitBtn12.Visible:=False;//Скрытие кнопки

BitBtn13.Visible:=False;//Скрытие кнопки

BitBtn14.Visible:=False;//Скрытие кнопки

BitBtn15.Visible:=False;//Скрытие кнопки

BitBtn16.Visible:=False;//Скрытие кнопки

BitBtn17.Visible:=False;//Скрытие кнопки

BitBtn18.Visible:=False;//Скрытие кнопки

BitBtn20.Visible:=False;//Скрытие кнопки

BitBtn21.Visible:=True;//Появление кнопки

BitBtn19.Visible:=True;//Появление кнопки

DBEdit9.ReadOnly:=False;//Разрешение изменения записи

DBComboBox1.ReadOnly:=False;//Разрешение изменения записи

DBEdit11.ReadOnly:=False;//Разрешение изменения записи

DBEdit12.ReadOnly:=False;//Разрешение изменения записи

DBEdit13.ReadOnly:=False;//Разрешение изменения записи

DBEdit14.ReadOnly:=False;//Разрешение изменения записи

DBEdit15.ReadOnly:=False;//Разрешение изменения записи

DBEdit9.SetFocus;//Курсор находится в данном текстовом поле

DBNavigator2.BtnClick (nbEdit);//Изменение информации

BitBtn20.Enabled:=False;

BitBtn19.Enabled:=False;

end;

14. procedure TProdat11. BitBtn21Click — отмена добавления записи в таблицу «товар»

procedure TProdat11. BitBtn21Click (Sender: TObject);

begin

Button21.Visible:=True;

DBComboBox2.Enabled:=False;

GroupBox9.Visible:=True;//Появление компонента

GroupBox7.Visible:=True;//Появление компонента

BitBtn12.Visible:=True;//Появление кнопки

BitBtn13.Visible:=True;//Появление кнопки

BitBtn14.Visible:=True;//Появление кнопки

BitBtn15.Visible:=True;//Появление кнопки

BitBtn16.Visible:=True;//Появление кнопки

BitBtn17.Visible:=True;//Появление кнопки

BitBtn18.Visible:=True;//Появление кнопки

BitBtn19.Visible:=False;//Скрытие кнопки

BitBtn20.Visible:=False;//Скрытие кнопки

BitBtn21.Visible:=False;//Скрытие кнопки

DBNavigator2.BtnClick (nbCancel);//Отмена действия в базе данных

DBEdit9.ReadOnly:=True;//Запрещение изменения записи

DBComboBox1.ReadOnly:=True;//Запрещение изменения записи

DBEdit11.ReadOnly:=True;//Запрещение изменения записи

DBEdit12.ReadOnly:=True;//Запрещение изменения записи

DBEdit13.ReadOnly:=True;//Запрещение изменения записи

DBEdit14.ReadOnly:=True;//Запрещение изменения записи

DBEdit15.ReadOnly:=true;//Запрещение изменения записи

DBGrid2.Enabled:=True;

Prodat11.Refresh;//Обновление формы Tovar

CheckBox2.Checked:=False;//Изменение значения компонента

end;

15. procedure TProdat11. BitBtn42Click — Удаление информации о осуществленной продаже

procedure TProdat11. BitBtn42Click (Sender: TObject);

var z: integer;

begin

dm.Prodazi.First;//Переход к первой записи в таблице Prodazi

Edit17.Text:=DBEdit29.Text;//Занесение информации в текстовое поле

begin

for z:=1 to dm.Prodazi.RecordCount do

begin

if Edit17. Text=dm.Prodazi.FieldByName ('№ продажи').AsString then

begin

DBNavigator8.BtnClick (nbDelete);//Удаление записи

ShowMessage ('Запись сейчас будет удалена');//Вывод сообщения

Button14.Click;//Нажатие кнопки

Button13.Click;//Нажатие кнопки

end

else

dm.Prodazi.Next;//Переход к следующей записи в таблице Prodazi

end;

end;

Button13.Click;//Нажатие кнопки

end;

16. procedure TProdat11. BitBtn48Click — Удаление записи из таблици «Заказ»

procedure TProdat11. BitBtn48Click (Sender: TObject);

begin

begin

if dm.ADOZacaz.FieldByName ('№ товара').AsString<>'' then

begin

dm.ADOZacaz.Delete;//Удаление записи из таблицы ADOZacaz

Prodat11.BitBtn53.Click;//Нажатие кнопки

end;

begin

if dm.ADOZacaz.FieldByName ('№ товара').AsString='' then

begin

BitBtn9.Click;//Нажатие кнопки

Prodat11.Panel6.Visible:=False;//Скрытие панели

Prodat11.GroupBox8.Visible:=False;//Скрытие компонента

end;

end;

end;

Prodat11.Button16.Click;//Нажатие кнопки

end;

17. procedure TProdat11. BitBtn53Click — Расчет стоимости всего выбранного товара

procedure TProdat11. BitBtn53Click (Sender: TObject);

var q, w: integer;

begin

w:=0;//Обнуление переменной

dm.ADOZacaz.First;//Переход к первой записии в таблице ADOZacaz

for q:=1 to dm.ADOZacaz.RecordCount do

begin

w:=w+StrToInt (dm.ADOZacaz.FieldByName ('Итого').AsString);//Присвоение значения переменной

dm.ADOZacaz.Next;//Переход к следующей записии в таблице ADOZacaz

end;

Prodat11.Label20.Caption:=IntToStr (w)+' рублей';//Присвоение значения надписи

end;

18. procedure TProdat11. BitBtn49Click — Отмена применения скидки

procedure TProdat11. BitBtn49Click (Sender: TObject);

var m1, m2,m3,a, d, po:integer;

begin

begin

if Prodat11. Edit24.Text='' then

begin

Prodat11.Edit24.Text:='0';//Занесение значение в текстовое поле

end;

end;

begin

d:=StrToInt (Edit24.Text);//Задание значения переменной

if d>100 then

begin

Edit24.Text:='100';//Занесение значение в текстовое поле

end;

end;

dm.ADOZacaz.Edit;//Разрешение редактирования записи в таблице ADOZacaz

DM.ADOZacaz.FieldByName ('Льготы').AsString:=Edit24.Text;//Занесение информации в таблицу ADOZacaz

m1:=0;//Обнуление переменной

m1:=StrToInt (dm.ADOZacaz.FieldByName ('Стоимость').AsString);//Задание значения переменной

m2:=1;//Задание значения переменной

m3:=0;//Обнуление переменной

m3:=StrToInt (dm.ADOZacaz.FieldByName ('Льготы').AsString);//Задание значения переменной

begin

if m3=0 then

begin

po:=m1*m2;//Задание значения переменной

end

else

begin

a:=m1*m2;//Задание значения переменной

po:=a-(a*m3 div 100);//Задание значения переменной

end;

end;

dm.ADOZacaz.FieldByName ('Итого').AsString:=IntToStr (po);

dm.ADOZacaz.Post;//Применение информации

Prodat11.BitBtn53.Click;//Нажатие кнопки

Prodat11.Button16.Click;//Нажатие кнопки

end;

19. procedure TProdat11. Button9Click — Поиск по базе данных

procedure TProdat11. Button9Click (Sender: TObject);

begin

begin

if Edit35. Text='' then

begin

Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit42.Text+edit40.Text+edit36.Text;//Занесение информации в текстовое поле

end;

end;

begin

if Edit36. Text='' then

begin

Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit35.Text+edit40.Text+edit43.Text;//Занесение информации в текстовое поле

end;

end;

begin

if (Edit35.Text='') and (Edit36.Text='') then

begin

Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit42.Text+edit40.Text+edit43.Text;//Занесение информации в текстовое поле

end;

end;

begin

if (Edit35.Text<>'') and (Edit36.Text<>'') then

begin

Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit35.Text+edit40.Text+edit36.Text;//Занесение информации в текстовое поле

end;

end;

ListBox2.Items.Strings[2]: =Edit41.Text;//Изменения значения

Memo2.Lines:=ListBox2.Items;//Занесение информации

dm.ADOQTovar.Close;//Закрытие таблицы ADOQTovar

dm.ADOQTovar.SQL.Clear;//Очистка SQL таблицы ADOQTovar

dm.ADOQTovar.SQL.Assign (Memo2.Lines);//Занесение информации в SQL таблицы ADOQTovar

dm.ADOQTovar.Open;//Открытие таблицы ADOQTovar

end;

20. procedure TProdat11. Button15Click — Процедура формирования списка фирм изготовителей товара