Разработка системы для управления магазином

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

Содержание

Введение

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

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

1.2 Обобщенная структура АСУ «Магазин»

1.3 Цели и задачи курсового проекта

2. Разработка автоматизированной подсистемы

2.1 Разработка модели функционирования системы

2.1.1 Диаграмма прецедентов

2.1.2 Диаграмма классов

2.1.3 Диаграмма последовательностей

2.1.3 Диаграмма состояний

2.2 Проектирование модульной структуры

2.3 Представление базы данных

3. Разработка пользовательского интерфейса

3.1 Выбор средств программной реализации

3.2 Описание диалога с пользователем

3.3 Контрольный пример

Заключение

Список использованной литературы

Приложение



Введение

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

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

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

Темпы развития информационных технологий поражают своей скоростью. То, что было вчера еще новшеством, сегодня запросто может оказаться устарелым. Появляются новые способы хранения информации. Это относится как к аппаратным (жесткие диски, SSD накопители и т.п.), так и к облачным хранилищам данных (Яндекс. Диск, Drop Box, iCloud и т.п.). Такое развитие обусловлено тем, что приходится работать с большими объемами информации и иметь возможность беспрерывного доступа к ней.

Скорыми темпами так же развиваются и форматы хранения информации. Список возможных форматов весьма внушительный, начиная от простеньких форматов растровых изображений типа .bmp или .jpeg и заканчивая достаточно сложными 3D моделями деталей и объектов в форматах типа .max или .C4D.

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

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

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



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

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

Существует сеть магазинов электроники, которая предоставляет широкий ассортимент самой современной техники. Она работает напрямую с производителями.

Отчетность на складах и в магазинах введется в бумажной форме. Формирование заявок на поставку товара осуществляется вручную на основе запасов и занимает 2-3 часа.

- Проведя анализ данного процесса, было выделено несколько проблем:

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

- Уточнение количества и наличие товара на складе замедляет процесс продажи товара.

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

1.2 Обобщенная структура АСУ «Магазин»

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

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

В общем виде структуру АСУ «Магазин» можно показать с помощью диаграммы IDEF0, изображенной на рисунке 1.

Рисунок 1 - Диаграмма IDEF0.

Главная задача и функция процесса выражена в виде процесс «Управление магазином». Процесс выражен в функциональной модели блоком под номером А0, который изображен на рисунке 1 приложения А.

Основными элементами управления данного блока являются «Законодательство» и «Документация».

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

- проданный товар;

- накладная;

Структура вход/выходных, управляющих характеристик и механизмов, представлена в таблице 1.

Далее приводится декомпозиция данного процесса на три подпроцесса, выраженные в модели функциональными блоками. Таким образом, управление магазином - это результаты взаимосвязи блоков:

- блок А1 «Поставлять товар»;

- блок А2 «Складировать»;

- блок А3 «Продать».

Таблица 1 - Вход/выходные, управляющие характеристики и механизмы блока А0

Виды характеристик	Наименования характеристик
Вход	Товар
	Сопровождающие документы
	Информация о покупателе
Управление	Законодательство
	Документация
Механизм	Персонал
Выход	Проданный товар
	Накладная

Подпроцесс «Поставка товара»



Рисунок 2 - «Поставка товара»

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

Структура вход/выходных, управляющих характеристик и механизмов, представлена в таблице 2.

Таблица 2 - Вход/выходные, управляющие характеристики и механизмы блока А1

Виды характеристик	Наименования характеристик
Вход	Товар
	Сопровождающие документы
	Информация о состоянии склада
Управление	Документация
Механизм	Персонал (экспедитор)
Выход	Товар на складирование

Подпроцесс «Складирование»



Рисунок 3 - «Складирование товара»

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

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

Структура вход/выходных, управляющих характеристик и механизмов, представлена в таблице 3.

Таблица 3 - Вход/выходные, управляющие характеристики и механизмы блока А2

Виды характеристик	Наименования характеристик
Вход	Товар на складирование
Управление	Документация
Механизм	Персонал (кладовщик)
Выход	Товар на продажу
	Информация о состоянии склада

1.3 Цели и задачи курсового проекта

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

- процесс управления магазином;

- управление складом (повышение эффективности работы отдела закупок и складирования)

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

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

- накопление и оформление заказов;

Реализация функциональности управления складом включает решение следующих задач:

учет товаров на складе;

прием товара на склад;

отгрузка товаров;

ведение информации о поставщиках;

фиксирование информации о финансовом обороте;

формирование документов принятой формы

Целью курсового проекта является разработка автоматизированной подсистемы интеграции АСУ «Магазин». Для достижения поставленной цели необходимо:

провести анализ задачи;

разработать концептуальную модель системы;

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

разработать программу реализации системы;

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



2. Разработка автоматизированной подсистемы

2.1 Разработка модели функционирования системы

2.1.1 Диаграмма прецедентов

Определим структуру разрабатываемой системы, свойства ее элементов и причинно-следственные связи. На основании функциональных требований, мы определили актеров и прецедентов. Актеры - роли, выполняемые людьми или сущностями, использующими систему. Прецеденты - то, что актеры могут сделать с системой. В нашем случае Актерами являются «Сотрудник» и «Покупатель». А в роли прецедентов выступают элементы модули требований.

После того, как определили составляющие диаграммы прецедентов, мы смоделировали модель прецедентов. Графическое представление данной диаграммы представлено на рисунке 4.

Рисунок 4 - Диаграмма прецедентов



Составление спецификаций

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

Спецификация прецедента «Осуществление покупки»

Краткое описание: Оформление покупки покупателю продавцом

Главные актеры: Продавец, Покупатель

Спецификация прецедента «Заявка на товар»

Краткое описание: Составление потребителем заявки, на какой-то определенный тип и модель техники, которых нет в наличии на данный момент

Главные актеры: Покупатель, менеджер

Спецификация прецедента «Составление отчета о продажах»

Краткое описание: Продавец составляет отчет о продажах, который рассматривается менеджером

Главные актеры: Продавец, менеджер

Спецификация прецедента «Составление заказов на поставку товаров»

Краткое описание: Менеджер составляет заявку на поставку новых товаров, кладовщик рассматривает данную заявку

Главные актеры: Менеджер, кладовщик

Спецификация прецедента «Поставка товаров»

Краткое описание: Кладовщик осуществляет поставку в магазин, менеджер составляет отчет о принятом товаре в магазин

Главные актеры: Кладовщик, менеджер

Спецификация прецедента «Хранение информации»

Краткое описание: Менеджер хранит в базе данных информацию о проданных товарах, о клиентах, отчеты и т.д.

Главные актеры: Менеджер

Спецификация прецедента «Заказ товаров с головного склада»

Краткое описание: Кладовщик осуществляет заказ необходимых товаров на склад с головного склада, на главном складе рассматривает данную заявку, и совершают поставку.

Главные актеры: Кладовщик

Спецификация прецедента «Регистрация поступления»

Краткое описание: Кладовщик получает принятый товар, составляет отчет о принятом товаре (его состоянии, кол-ве и т.д.)

Главные актеры: Кладовщик

2.1.2 Диаграмма классов

Далее отобразим диаграмму классов (рисунок 5)

Рисунок 5 - Диаграмма классов

Сущность «ID Товар»

Данная сущность содержит в себе информацию о товарах. Атрибутами сущности являются:

ID товара;

название;

цена;

гарантия.

Ключом сущности является атрибут «ID товара». Он является уникальным для всех товаров.

Сущность «ID Покупателя»

Данная сущность содержит в себе информацию о клиентах. Атрибутами сущности являются:

ID покупателя;

фамилия;

имя;

отчество;

адрес;

телефон.

Ключом сущности является атрибут «ID покупателя». Он является уникальным для всех клиентов.

Сущность «ID Покупки»

Данная сущность содержит в себе информацию о покупках. Атрибутами сущности являются:

ID покупки;

дата покупки;

цена покупки;

количество;

сумма;

ID покупателя;

ID сотрудника;

ID товара.

Ключом сущности является атрибут «ID покупки». Он является уникальным для всех покупок.

Сущность «ID заказа»

Данная сущность содержит в себе информацию о заказах. Атрибутами сущности являются:

ID заказа;

дата заказа;

количество;

ID менеджера;

Статус заказа.

Ключом сущности является атрибут «ID заказа».

Сущность «ID менеджера» и «ID продавца»

Данные сущности содержат в себе информацию менеджерах и продавцах. Атрибутами сущности являются:

ID менеджера (ID продавца);

фамилия;

имя;

отчество;

пол;

дата рождения;

зарплата.

Ключом сущности является атрибут «ID менеджера» и «ID продавца». Он является уникальным для всех сотрудников.

Сущность «Производитель»

Данная сущность содержит в себе информацию о производителях. Атрибутами сущности являются:

название;

адрес;

телефон.

Ключом сущности является атрибут «Наименование». Он является уникальным для всех производителей.

Сущность «Склад»

Данная сущность содержит в себе информацию о складе. Атрибутами сущности являются:

№накладной;

дата поставки;

цена;

количество;

название товара;

ID товара;

Кладовщик.

Ключом сущности является атрибут «ID товара». Он является уникальным для всего склада.

2.1.3 Диаграмма последовательностей

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

- Клиент делает выбор товара, который ему нужен;

- Менеджер ищет в системе товар, который нужен клиенту по артикулу;

- Далее он предоставляет информацию по данному продукту клиенту;

- Если товар подходит, то покупатель подтверждает заявку;

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

- Создается заявка системой.

Рисунок 6 - Диаграмма последовательностей

2.1.4 Диаграмма состояний

На рисунке 7 представлен общий вид диаграммы состояний



Рисунок 7 - Общий вид диаграммы

На общем виде показаны интерфейсы пользователей - кладовщика, продавца и менеджера.

Для примера подробнее рассмотрим окно менеджера.

Рисунок 8 - Окно менеджера

На диаграмме последовательностей расписано последовательное действие менеджера и системы на протяжении всего времени работы.

Рисунок 9 - Диаграмма последовательностей

2.2 Проектирование модульной структуры

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

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

Рисунок 10 - Модульная структура.

2.3 Представление базы данных

На основе раннее проделанной работы была создана база данный магазина электроники.

В данной базе имеются уникальные элементы которые имеют свой личный ID.

Рисунок 11 - Элементы бд

Таблица «Менеджер»

Содержит данные о менеджерах, их характеристики.

Рисунок 12 - Таблица «Менеджер»

Таблица «Продавцы»

Содержит данные о продавцах.



Рисунок 13 - Таблица «Продавцы»

Таблица «Покупатели»

Содержит данные о покупателях.

Рисунок 14 - Таблица «Покупатели»

Таблица «Заказы»

Содержит данные о заказах, менеджерах, составляющих их, статусе выполнения заказа.

Рисунок 15 - Таблица «Заказы»

Таблица «Заявки»

Содержит данные о заявках, такие как наименование товара, дата заказа, сумма, статус заявки и т.д.

Рисунок 16 - Таблица «Заявки»

Таблица «Покупка»

Содержит информацию о покупке.

Рисунок 17 - Таблица «Покупка»

Таблица «Производители»

Содержит данные о производителях.

Рисунок 18 - Таблица «Производители»

Таблица «Товар»

Содержит информацию о товаре, о его видах, производителе и т.д.

Рисунок 19 - Таблица «Товар»

Таблица «Склад»

Содержит данные о товаре, хранящемся на складе, его кол-ве, производителе и т.д.

Рисунок 20 - Таблица «Склад»

Таблица «Отчет»

Содержит данные об отчетах.



Рисунок 21 - Таблица «Отчеты»



3. Разработка пользовательского интерфейса

3.1 Выбор средств программной реализации

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

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

Для использования программы и корректной работы необходимо:

Компьютер:

- IBM - совместимый компьютер с процессором Pentium или выше

- операционная система WindowsXP/Vista/7/8/8.1

- свободная оперативная память не менее 32 Мбайт.

-размер свободного дискового пространства не менее 1 Мбайт

Периферийные устройства: мышь и клавиатура.

Поддерживаемые архитектуры:

32-разрядная (x86)

64-разрядная (x64)

3.2 Описание диалога с пользователем

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

Рисунок 22 - Главное окно программы

Система позволяет зайти в систему в качестве продавца, менеджера и кладовщика.

Форма «Вход менеджера». Позволяет от имени менеджера перейти к экранным формам для редактирования данных в нужном разделе.

Рисунок 23 - Окно менеджера

Форма «Вход продавца». Позволяет от имени продавца перейти к необходимому разделу для редактирования или просмотра данных.

Рисунок 24 - Окно продавца

Форма «Вход кладовщика». Позволяет от имени кладовщика перейти к необходимому разделу для редактирования или просмотра данных.

Рисунок 25 - Окно кладовщика

Форма «Заказ». Источником является таблица Заказ, подчиненная форма: Заказ.

Элементы: Кнопка листания, Назад и Выход.

Форма «Заявка». Выводит данные о заявках.

Источник данных: таблица Заявки

Подчиненная форма: Заявки

Элементы: Кнопка листания, Назад и Выход.

Форма «Отчет». Выводит данные об отчетах.

Источник данных: таблица Отчет. Подчиненная форма Отчет.

Элементы: Кнопка листания, Назад и Выход.

Форма «Покупатель». Выводит данные о покупателях.

Источник данных: таблица Покупатель. Подчиненная форма Покупатель.

Элементы: Кнопка листания, Назад и Выход.

Форма «Покупка». Выводит данные о покупках.

Источник данных: таблица Покупка. Подчиненная форма Покупка.

Элементы: Кнопка листания, Назад и Выход.

Форма «Продавцы». Выводит данные о продавца.

Источник данных: таблица Продавцы. Подчиненная форма Продавцы2.

Элементы: Кнопка листания, Назад и Выход.

Форма «Производители». Выводит данные о производителях.

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

Элементы: Кнопка листания, Назад и Выход.

Форма «Склад». Выводит данные о складе.

Источник данных: таблица Склад. Подчиненная форма Склад.

Элементы: Кнопка листания, Назад и Выход.

Форма «Товар». Выводит данные о товаре.

Источник данных: таблица Товар. Подчиненная форма Товар.

Элементы: Кнопка листания, Назад и Выход.

3.3 Контрольный пример

Запрос «Информация об определенной покупке»

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

Рисунок 26 - Информация о покупке

Покупка.[ID покупки], Покупка.[ID товара], Покупка. Сумма, Покупатель.[ID покупателя], Покупатель. Фамилия, Продавцы.[ID продавца], Продавцы. Фамилия, Покупка.[Дата покупки]Продавцы INNER JOIN (Покупатель INNER JOIN Покупка ON Покупатель.[ID покупателя] = Покупка.[ID покупателя]) ON Продавцы.[ID продавца] = Покупка.[ID продавца](((Покупка.[ID покупки])=[Введите ID покупки]));

Запрос «Все заказы за 21.11.2011»

Рисунок 27 - Заказы

Выводятся все заказы за 21.11.2011. Заказ.[ID заказа], Заказ.[ID товара], Заказ.[Дата заказа], Менеджер.[ID менеджера], Склад. Кладовщик, Заказ.[Кол-во]Менеджер INNER JOIN (Склад INNER JOIN Заказ ON Склад.[ID товара] = Заказ.[ID товара]) ON Менеджер.[ID менеджера] = Заказ.[ID менеджера](((Заказ.[Дата заказа]) Like "21.11.2011"));

Запрос «Все телевизоры на складе»

Рисунок 28 - Телевизоры на складе

Выводятся все телевизоры, которые имеются на складе.

SELECT Склад.[ID товара], Склад.[Дата поставки], Склад.[Кол-во], Склад. Производитель, Склад. Товар Склад

WHERE (((Склад. Товар) Like "Телевизор"));

Отчеты

Отчет «Отчет»



Рисунок 29 - Отчет 1

Рисунок 30 - Отчет 2

Отчет «Склад»

Рисунок 31 - Отчет «Склад»

Рисунок 32 Отчет 2 «Склад»



Заключение

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

Мы определили требования и функции будущей системы для решения проблем в организации оптимизации работы магазина.

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

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

подсистема поставки товара;

подсистема складирования;

подсистема продажи товара.



Список использованной литературы

1. Грекул, В.И. Проектирование информационных систем: учебное пособие / В.И. Грекул, Г.Н. Денищенко, Н.Л. Коровкина. - М.: Интернет-Ун-т Информ. технологий, 2005. - 304 с.

2. ГОСТ 34.602-89 «Техническое задание на создание автоматизированной системы»

3. Арлоу Д., Нейштадт И. UML 2 и унифицированный процесс. Практический объектно-ориентированный анализ и проектирование. - СПб.: Символ-Плюс, 2007 г.

4. Вендров А.М. «Проектирование программного обеспечения экономических информационных систем» - М.: Финансы и статистика, 2002 г.

5. Мамиконов А.Г. «Проектирование АСУ» - М.: Высшая школа, 1987 г.



Приложение

(обязательное)

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls;

type

TForm1 = class(TForm)

con1: TADOConnection;

cbb1: TComboBox;

dbgrd1: TDBGrid;

tbl1: TADOTable;

qry1: TADOQuery;

ds1: TDataSource;

lbledt1: TLabeledEdit;

btn1: TButton;

lbledt2: TLabeledEdit;

btn2: TButton;

btn3: TButton;

btn4: TButton;

btn5: TButton;

btn6: TButton;

edt1: TEdit;

btn7: TButton;

lbl1: TLabel;

lbl2: TLabel;

lbl4: TLabel;

edt4: TEdit;

lbl5: TLabel;

procedure cbb1Change(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure btn5Click(Sender: TObject);

procedure btn6Click(Sender: TObject);

procedure btn8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cbb1Change(Sender: TObject);

begin

if cbb1.ItemIndex = 0 then

begin

qry1.SQL.Text:='Select * from vse';

qry1.Open;

end;

if cbb1.ItemIndex = 1 then

begin

qry1.SQL.Text:='Select distinct `Nazvanie` from deyatelnost';

qry1.Open;

end;

if cbb1.ItemIndex = 2 then

begin

qry1.SQL.Text:='Select distinct `Vid` from Nalog';

qry1.Open;

end;

end;

procedure TForm1.btn1Click(Sender: TObject);

var

l: string;

begin

l:=lbledt1.Text;

qry1.Close;

qry1.SQL.Clear;

qry1.SQL.Text:='Select distinct `Название деятельности` from `vse` where `Имя организации` LIKE ''%'+l+'%'';';

qry1.Open;

end;

procedure TForm1.btn2Click(Sender: TObject);

var

l: string;

begin

l:= lbledt2.Text;

qry1.Close;

qry1.SQL.Clear;

qry1.SQL.Add('select * from vse');

qry1.SQL.Add('where ((`Имя организации` LIKE ''%'+l+'%'') or (`Название деятельности` LIKE ''%'+l+'%'')) ');

qry1.Open;

qry1.Active:=true;

ds1.DataSet:=qry1;

dbgrd1.DataSource:=ds1;

if qry1.RecordCount=0 then ShowMessage('Ничего не найдено');

end;

procedure TForm1.btn3Click(Sender: TObject);

var

l: string;

begin

l:=lbledt1.Text;

qry1.Close;

qry1.SQL.Clear;

qry1.SQL.Text:='Select distinct `Налог`,`Вид` from `vse` where `Имя организации` LIKE ''%'+l+'%'';';

qry1.Open;

end;

procedure TForm1.btn4Click(Sender: TObject);

var

l: string;

begin

l:=lbledt1.Text;

qry1.Close;

qry1.SQL.Clear;

qry1.SQL.Text:='Select Sum(`Налог`) as Сумма from `vse` where `Имя организации` LIKE ''%'+l+'%'';';

qry1.Open;

end;

procedure TForm1.btn5Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.btn6Click(Sender: TObject);

begin

ShowMessage('Данную программу разработала Уварова Анна Александровна, студент группы АП-121');

end;

procedure TForm1.btn8Click(Sender: TObject);

begin

qry1.sql.clear;

qry1.sql.add('INSERT INTO `organizacii` ( `ID`,`Name`, `Address`, `Phone`,`Site` )');

qry1.SQL.Add('values ('+''''+Edt11.Text+''''+','+''''+Edt1.Text+''''+','+''''+Edt2.Text+''''+','+''''+Edt3.Text+''''+', '+''''+Edt4.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from organizacii';

qry1.Open;

begin

qry1.sql.clear;

qry1.sql.add('INSERT INTO `deyatelnost` (`Nazvanie`,`ID`)');

qry1.SQL.Add('values ('+''''+Edt9.Text+''''+', '+''''+Edt11.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from deyatelnost';

qry1.Open;

begin

qry1.sql.clear;

qry1.sql.add('INSERT INTO `deyatelnost` (`Nazvanie`,`ID`)');

qry1.SQL.Add('values ('+''''+Edt10.Text+''''+', '+''''+Edt11.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from deyatelnost';

qry1.Open;

begin

qry1.sql.clear;

qry1.sql.add('INSERT INTO `nalog` (`Nalog`,`Vid`,`ID`)');

qry1.SQL.Add('values ('+''''+Edt5.Text+''''+', '+''''+Edt6.Text+''''+','+''''+Edt11.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from nalog';

qry1.Open;

begin

qry1.sql.clear;

qry1.sql.add('INSERT INTO `nalog` (`Nalog`,`Vid`,`ID`)');

qry1.SQL.Add('values ('+''''+Edt7.Text+''''+', '+''''+Edt8.Text+''''+','+''''+Edt11.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from nalog';

qry1.Open;

end;

end;

end;

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

...