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

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

МИНОБРНАУКИ РОССИИ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«ТВЕРСКОЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»

Курсовой проект

На тему: Разработка базы данных отдела сбыта

Тверь 2014

Содержание

Введение

1. Аналитическая часть

1.1 Основные понятия и определение теории баз данных

1.2 Системы управления базами данных

1.3 Обоснование выбора программного обеспечения

2. Проектная часть

2.1 Разработка таблиц и схемы базы данных

2.2 Разработка запросов

2.3 Создание отчетов

2.4 Создание форм

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

2.6 Рекомендации по дальнейшей модернизации системы

Заключение

Список литературы

Приложение

Введение

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

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

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

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

1. Аналитическая часть

1.1 Основные понятия и определение теории баз данных

программирование таблица база отчет

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

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

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

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

Схема, изображающая связи между типами элементов данных, называется моделью данных. Модели данных можно разделить на 3 категории:

- объектные модели;

- физические модели;

- логические модели.

В свою очередь логические модели можно классифицировать на:

- реляционные;

- иерархические;

- сетевые.

На уровне физической модели электронная БД представляет собой файл или их набор в формате CSV, DBF, XML либо в специализированном формате конкретной СУБД. Также в СУБД в понятие физической модели включают специализированные виртуальные понятия, существующие в ёё рамках - таблица, табличное пространство, сегмент, куб, кластер и т.д.

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

1.2 Системы управления базами данных

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

Основные функции СУБД:

- управление данными во внешней памяти (на дисках);

- управление данными в оперативной памяти;

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

- поддержка языков БД (язык определения данных, язык манипулирования данными).

Обычно современная СУБД содержит следующие компоненты:

- ядро, которое отвечает за управление данными во внешней и оперативной памяти и журнализацию,

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

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

СУБД классифицируются по следующим признакам:

а) по типу управляемой базы данных СУБД разделяются на:

- Сетевые

- Иерархические

- Реляционные

- Объектно-реляционные

- Объектно-ориентированные

б) по архитектуре организации хранения данных:

- локальные СУБД (все части локальной СУБД размещаются на одном компьютере)

- распределенные СУБД (части СУБД могут размещаться на двух и более компьютерах)

1.3 Обоснование выбора программного обеспечения

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

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

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

Используемая в курсовом проекте СУБД Microsoft SQL Server 6.0 - одна из наиболее мощных СУБД архитектуры клиент-сервер. Эта СУБД позволяет удовлетворять такие требования, предъявляемые к системам распределенной обработке данных, как тиражирование данных, параллельная обработка, поддержка больших баз данных на относительно недорогих аппаратных платформах при сохранении простоты управления и использования.

Для разработки программы была использована среда программирования Delphi с использование языка программирования Object Pascal, тат как она является наиболее удобной и простой в использовании.

2. Проектная часть

2.1 Разработка таблиц и схемы базы данных

В Microsoft Access можно создать таблицы несколькими способами. Рассмотрим создание таблиц в режиме конструктора.

Нажмем кнопку Создать на вкладке «Таблицы» и выберем Конструктор. В открывшемся окне зададим следующие поля таблицы «Заказчики» (рис. 1).

Далее закроем конструктор, в появившемся запросе “Сохранить изменения макета или структуры таблицы?” выберем Да и сохраним таблицу под именем «Заказчики».

Рис. 1. Таблица «Заказчики» в режиме конструктора

Аналогичным образом создадим таблицы «Договора», «Расчет», «Сотрудники отдела сбыта», «Виды материалов» и «Материалы» (рис. 2-6).

Рис. 2. Таблица «Договора» в режиме конструктора



Рис. 3. Таблица «Сотрудники отдела сбыта» в режиме конструктора

Рис. 4. Таблица «Материалы» в режиме конструктора

Рис. 5. Таблица «Виды материалов» в режиме конструктора

Рис. 6. Таблица «Расчет» в режиме конструктора

После создания таблиц и заполнения их данными нужно связать таблицы. Для этого необходимо выбрать пункт меню Сервис / Схема данных. В открывшемся окне добавляем все созданные таблицы.

Свяжем таблицы согласно рисунку 7.

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

Рис. 7. Схема данных

2.2 Разработка запросов

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

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

1. Создадим запрос «Договора на реализацию с кол-вом единиц больше заданного».

В качестве источника запроса выберем таблицы «Материалы», «Заказчики» и «Договора» и перемещаем необходимые поля на рабочее поле, щелкая по ним левой кнопкой мыши.

Заполним поля согласно рис. 8.



Рис. 8. Запрос «Договора на реализацию с кол-вом единиц больше заданного»

2. Создадим запрос «Количество наименований материала каждого вида».

В качестве источника запроса выбираем таблицу «Виды материалов» и «Материалы» и перемещаем необходимые поля на рабочее поле, щелкая по ним левой кнопкой мыши.

Затем щелкнем правой кнопкой мыши по рабочему и выберем пункт Групповые операции.

Заполним поля, как показано на рис. 9.

Рис. 9. Запрос «Количество наименований материала каждого вида»

3. Создадим запрос «Общая сумма заказов каждого заказчика».

В качестве источника запроса выбираем таблицы «Договора», «Материалы» и «Заказчики» и перемещаем необходимые поля на рабочее поле, щелкая по ним левой кнопкой мыши.

Затем щелкнем правой кнопкой мыши по рабочему и выберем пункт Групповые операции.

Заполним поля, как показано на рис. 10.

Рис. 10. Запрос «Общая сумма заказов каждого заказчика»

4. Создадим запрос «Поиск договора по его номеру».

В качестве источника запроса выбираем таблицы «Договора», «Материалы», «Сотрудники отдела сбыта» и «Заказчики» и перемещаем необходимые поля на рабочее поле, щелкая по ним левой кнопкой мыши.

Заполним поля, как показано на рис. 11.

Рис. 11. Запрос «Поиск договора по его номеру»

5. Создадим запрос «Поиск материала по наименованию».

В качестве источника запроса выберем таблицы «Виды материалов» и «Материалы» и перемещаем необходимые поля на рабочее поле, щелкая по ним левой кнопкой мыши.

Заполним поля согласно рис. 12.

Рис. 12. Запрос «Поиск материала по наименованию»

6. Создадим запрос «Список выплат».

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

Заполним поля согласно рис. 13.

Рис. 13. Запрос «Список выплат»

7. Создадим запрос «Расчет задолженности».

В качестве источника запроса выберем запрос «Список выплат» и перемещаем необходимые поля на рабочее поле, щелкая по ним левой кнопкой мыши.

Заполним поля согласно рис. 14.



Рис. 14. Запрос «Расчет задолженности»

8. Создадим запрос «Удаление данных о договоре, номер которого вводится».

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

Затем щелкнем правой кнопкой мыши по рабочему и выберем пункт Удаление из меню Тип запроса.

Заполним поля согласно рис. 15.

Рис. 15. Запрос «Удаление данных о договоре, номер которого вводится»

9. Создадим запрос «Список заказов заданного заказчика».

В качестве источника запроса выбираем таблицы «Материалы», «Договора» и «Заказчики» и перемещаем необходимые поля на рабочее поле, щелкая по ним левой кнопкой мыши.

Заполним поля, как показано на рис. 16.

Рис. 16. Запрос «Список заказов заданного заказчика»

2.3 Создание отчетов

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

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

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

Отчеты по остальным запросам формируются аналогично с помощью мастера.

2.4 Создание форм

Формы - одно из основных средств для работы с базами данных в Access - используются для ввода новых записей (строк таблиц), просмотра и редактирования уже имеющихся данных, задания параметров запросов и вывода ответов на них и др. Формы представляют собой прямоугольные окна с размещенными в них элементами управления. Существует возможность создания форм динамически при исполнении программы, однако естественным режимом их создания является режим визуального конструирования. Выбор команды Форма в меню Вставка выводит на экран окно Новая Форма, позволяющее задать таблицу или запрос, для которых создается новая форма, и указать режим ее создания. Кроме создания формы “вручную”, создание формы можно автоматизировать, используя Мастер форм. Кроме того, можно создать специальные формы, в том числе с листами данных, диаграммами и сводными таблицами в формате Excel.

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

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

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

На следующих шагах Мастер форм предлагает выбрать форму представления отчета (в столбец, ленточную, табличную или выровненную) и стиль оформления (рис. 17).

Рис. 17. Окно мастера форм

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

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



Рис. 18. Форма «Договора»

Разработка главной кнопочной формы

Кнопочная форма - это меню для работы в базе данных. В меню может быть несколько вложенных подменю.

Создадим меню 1-го уровня:

Закроем все таблицы, формы, отчеты, запросы

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

Нажмем кнопку Изменить

Ввести название кнопочной формы «Отдел сбыта»

Нажать кнопку Закрыть

Нажать кнопку Создать

В окне «Создание» ввести текст «Форма», ОК

Нажать кнопку Создать

Аналогично создадим следующие страницы кнопочной формы: «Отчеты», «Запросы», «Выход».



Рис. 19. Страницы кнопочной формы

Создадим меню 2-го уровня

Теперь последовательно будем раскрывать каждый пункт меню 1-го уровня. Отметить курсором главную кнопочную форму «Отдел сбыта» и нажать кнопку Изменить

Создать элемент кнопочной формы

Текст «Формы»

Команда «Переход к кнопочной форме»

Кнопочная форма - выбрать из списка «Формы», ОК

Создать элемент кнопочной формы

Текст «Запросы»

Команда «Переход к кнопочной форме»

Кнопочная форма - выбрать из списка «Запросы», ОК

Создать элемент кнопочной формы

Текст «Отчеты»

Команда «Переход к кнопочной форме»

Кнопочная форма - выбрать из списка «Отчеты», ОК

Создать элемент кнопочной формы

Текст «Выход»

Команда «Выйти из приложения»

Закрыть окно «Изменение страницы кнопочной формы», вернемся в окно «Диспетчер кнопочных форм».

Создадим меню 3-го уровня

Установим курсор на страницу «Формы» и нажмем кнопку Изменить.

Мы находимся в окне «Изменение страниц кнопочной формы»

Создать элемент кнопочной формы

Текст «Сотрудники отдела сбыта»

Команда «Открыть форму для изменения»

Кнопочная форма - выбрать из списка «Сотрудники отдела сбыта», ОК

Создать элемент кнопочной формы

Текст «Заказчики»

Команда «Открыть форму для изменения»

Кнопочная форма - выбрать из списка «Заказчики», ОК

Создать элемент кнопочной формы

Текст «Виды материалов»

Команда «Открыть форму для изменения»

Кнопочная форма - выбрать из списка «Виды материалов», ОК

Создать элемент кнопочной формы

Текст «Назад»

Команда «Открыть кнопочную форму»

Кнопочная форма «Отдел сбыта»

Аналогичным образом создаются пункты меню «Отчеты» и «Запросы». Таким образом, создано меню для ввода и корректировки информации в базу данных (рис. 20).

Рис. 20. Кнопочная форма

Автозапуск формы при открытии базы данных осуществляется через меню Сервис / Параметры запуска / Вывод формы/страницы.

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

Запуск базы данных осуществляется двойным щелчком мыши по файлу «Отдел сбыта.mdb». При запуске программы открывается главная кнопочная форма.

В главной кнопочной форме, представлены кнопки, которые ссылаются на основные категории БД (отчеты, формы, запросы). Кнопка «Выход» позволяет закрыть данную форму и перейти в окно базы данных.

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

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

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

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



Рис. 21. Добавление данных через форму

Ввод данных через другие формы осуществляется аналогичным образом.

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

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

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

2.6 Рекомендации по дальнейшей модернизации системы

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

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

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

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

Заключение

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

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

СУБД МS Ассеss является в настоящее время одной из самых популярных среди настольных систем. Среди причин такой популярности следует отметить:

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

- производит поиск данных в таблицах по определенным критериям;

- контролирует ключевые поля;

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

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

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

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

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

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

Список литературы

1. Вейскас Д. Эффективная работа с Microsoft Access. - СПб: «Питер Пресс», 2006. - 856 стр.

2. Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД. - СПб: «Питер», 2004. - 704с.

3. Access - для самостоятельного освоения/ А.И. Бородина, Л.И. Крошинская, Е.Н. Лядинская. - Минск: НО ООО «БИП-С», 2002. - 236 с.

4. Гончаров А. Access в примерах. - СПб.: Питер, 2000. - 366 с.

5. Ботт Эд. Microsoft Office 4 (Серия "Без проблем!") / Пер. с англ. - М.: БИНОМ, 1996. - 561 с.

6. Алексеева Т.И., Башин Ю.Б. Проектирование баз данных в примерах и задачах. - М.: Экспресс, 1999. - 532 с.

7. Бемер С, Фратер Г. MS Access 2000 для пользователя. - Киев: BHV, 2001. - 624 с.

8. Биллинг В.А., Дехтярь М.И. VBA и Office 2000. Офисное программирование. - М.: Русская редакция, 2002. - 431 с.

9. Киммел П. Программирование для Microsoft Access 2000 за 24 часа. - Минск: Высшая школа, 2000. - 318 с.

10. Харитонова И.И. Самоучитель по Microsoft Access 2000. - СПб: Питер, 2001. - 472 с.

Приложение

Листинг программного кода

Unit1

procedure TForm1. TabControl1Change (Sender: TObject);

begin

case Tabcontrol1. TabIndex of

0: // управление вкладками

begin

DBGrid1. Visible: =true;

DBNavigator1. Visible: =true;

DBGrid2. Visible: =false;

DBNavigator2. Visible: =false;

DBGrid3. Visible: =false;

DBNavigator3. Visible: =false;

DBGrid4. Visible: =false;

ComboBox1. Visible: =false;

end;

1:

begin

DBGrid1. Visible: =false;

DBNavigator1. Visible: =false;

DBGrid2. Visible: =true;

DBNavigator2. Visible: =true;

DBGrid3. Visible: =false;

DBNavigator3. Visible: =false;

DBGrid4. Visible: =false;

ComboBox1. Visible: =false;

end;

2:

begin

DBGrid1. Visible: =false;

DBNavigator1. Visible: =false;

DBGrid2. Visible: =false;

DBNavigator2. Visible: =false;

DBGrid3. Visible: =true;

DBNavigator3. Visible: =true;

DBGrid4. Visible: =false;

ComboBox1. Visible: =false;

end;

3:

begin

DBGrid1. Visible: =false;

DBNavigator1. Visible: =false;

DBGrid2. Visible: =false;

DBNavigator2. Visible: =false;

DBGrid3. Visible: =false;

DBNavigator3. Visible: =false;

DBGrid4. Visible: =true;

ComboBox1. Visible: =true;

end;

end;

end;

procedure TForm1. Exit1Click (Sender: TObject);

begin

Close; закрытие программы

end;

procedure TForm1boBox1Change (Sender: TObject);

var

town: string;

prod: string;

price: string;

aktiv: string;

begin

case ComboBox1. ItemIndex of

0: // первый запрос

begin

ADOQuery1. Active: = false;

aktiv: =InputBox ('Введите','Вид деятельности предприятия',aktiv);

aktiv: =Edit1. Text+aktiv+Edit1. Text;

if aktiv<>'' then

ADOQuery1. SQL. Text: = 'select * from Organizations where Activity='+aktiv;

ADOQuery1. Active: = true;

// ------------------report----------------------------------------------

N2. Enabled: =true;

Form3. QRLabel2. Caption: ='Организации';

Form3. QRLabel4. Caption: ='Адрес';

Form3. QRLabel5. Caption: ='Деятельность';

Form3. QRLabel6. Caption: ='Телефон';

Form3. QRLabel7. Caption: ='E-mail';

end;

1: // второй запрос

begin

ADOQuery1. Active: = false;

price: =InputBox ('Введите','Цена за единицу продукции',price);

if (price<>'') or (StrToInt (price) >=1000) then

ADOQuery1. SQL. Text: = 'select * from Productions where Price_for_one>='+price+' order by Production_name';

ADOQuery1. Active: = true;

N2. Enabled: =false;

end;

2: // третий запрос

begin

ADOQuery1. Active: = false;

prod: =InputBox ('Введите','Наименование продукции',prod);

prod: =Edit1. Text+prod+Edit1. Text;

if prod<>'' then

aktiv: =InputBox ('Введите','Количество проданной продукции',aktiv);

if (aktiv<>'') or (StrToInt (aktiv) >0) then

ADOQuery1. SQL. Text: = 'select * from Sale where Production_name='+prod+' and number>='+aktiv;

ADOQuery1. Active: = true;

N2. Enabled: =false;

end;

3: // четвертый запрос

begin

ADOQuery1. Active: = false;

prod: =InputBox ('Введите','Наименование продукции',prod);

prod: =Edit1. Text+prod+Edit1. Text;

if prod<>'' then

ADOQuery1. SQL. Text: = 'select Production_name, Sum (number) as Number_saled from Sale where Production_name='+prod+' group by Production_name';

ADOQuery1. Active: = true;

N2. Enabled: =false;

end;

4: // пятый запрос

begin

ADOQuery1. Active: = false;

town: =InputBox ('Введите','Название города',town);

town: =Edit1. Text+town+Edit1. Text;

if town<>'' then

aktiv: =InputBox ('Введите','Вид деятельности предприятия',aktiv);

aktiv: =Edit1. Text+aktiv+Edit1. Text;

if aktiv<>'' then

ADOQuery1. SQL. Text: = 'select * from Organizations where (Address='+town+') and Activity='+aktiv;

ADOQuery1. Active: = true;

// -------------------------------отчет--------------------------

N2. Enabled: =true;

Form3. QRLabel2. Caption: ='Организации';

Form3. QRLabel4. Caption: ='Адрес';

Form3. QRLabel5. Caption: ='Деятельность';

Form3. QRLabel6. Caption: ='Телефон';

Form3. QRLabel7. Caption: ='E-mail';

end;

5: // шестой запрос

begin

ADOQuery1. Active: = false;

aktiv: =InputBox ('Введите','Количество прод. продукции за одну заявку >=',aktiv);

if aktiv<>'' then

ADOQuery1. SQL. Text: = 'select * from Sale where number>='+aktiv;

ADOQuery1. Active: = true;

N2. Enabled: =false;

end;

6: // седьмой запрос

begin

ADOQuery1. Active: = false;

ADOQuery1. SQL. Text: = 'select Production_name, MAX (number) as MAX from Sale group by Production_name';

ADOQuery1. Active: = true;

// ---------------------------отчет------------------------------------

N2. Enabled: =true;

Form3. QRLabel2. Caption: ='';

Form3. QRLabel4. Caption: ='Продукция';

Form3. QRLabel5. Caption: ='МАХ';

Form3. QRLabel6. Caption: ='';

Form3. QRLabel7. Caption: ='';

end;

7: // восьмой запрос

begin

ADOQuery1. Active: = false;

ADOQuery1. SQL. Text: = 'select distinct Organization_name,Production_name, MAX (number) as MAX from Sale group by Production_name,Organization_name';

ADOQuery1. Active: = true;

// ----------------------------------отчет--------------------------

N2. Enabled: =true;

Form3. QRLabel2. Caption: ='Организации';

Form3. QRLabel4. Caption: ='Продукция';

Form3. QRLabel5. Caption: ='МАХ';

Form3. QRLabel6. Caption: ='';

Form3. QRLabel7. Caption: ='';

end;

8:

begin

Form2. Visible: =true; // создать запрос

end;

end;

end;

procedure TForm1. N6Click (Sender: TObject);

begin

Form2. Visible: =true; // вызов окна создания запросов

end;

procedure TForm1. DataBase1Click (Sender: TObject);

begin

winhelp (Form1. Handle,'Справка. hlp',HELP_Context,1);

end;

procedure TForm1. N2Click (Sender: TObject);

begin

Form3. QuickRep1. Preview; // вызов отчета

end;

end.

Unit 2.

// -----------------------------------создание запросов-------------------------------

procedure TForm2. Button1Click (Sender: TObject);

var

name, sel, from, where: string;

having, group, order: string;

num: integer;

begin

if (Edit1. Text='') or (Edit2. Text='') or (Edit3. Text='') then

ShowMessage ('Заполните поля, отмеченные звездочкой! ')

else

begin

name: =Edit1. Text;

sel: =Edit2. Text;

from: =Edit3. Text;

where: =Edit4. Text;

group: =Edit5. Text;

order: =Edit6. Text;

having: =Edit7. Text;

Form1. ADOQuery1. Active: = false;

if (where='') and (group='') and (order='') then

Form1. ADOQuery1. SQL. Text: = 'select '+sel+' from '+from

else

if (group='') and (order='') then

begin

Form1. ADOQuery1. SQL. Text: = 'select '+sel+' from '+from+' where '+where;

end

else

if (having='') and (order='') then

begin

Form1. ADOQuery1. SQL. Text: = 'select '+sel+' from '+from+' where '+where+

' group by '+group;

end

else

if order='' then

begin

Form1. ADOQuery1. SQL. Text: = 'select '+sel+' from '+from+' where '+where+

' group by '+group+' having '+having;

end

else

begin

Form1. ADOQuery1. SQL. Text: = 'select '+sel+' from '+from+' where '+where+

' group by '+group+' having '+having+' order by '+order;

end;

Form1. ADOQuery1. Active: = true;

Form2. Visible: =false;

end;

end;

// ---------------------------------------------------------------------

procedure TForm2. Edit5Change (Sender: TObject);

begin

Memo1. Lines [8]: =' Group by '+Edit5. Text;

if Edit5. Text<>'' then

begin

Label7. Enabled: =true;

Edit7. Enabled: =true;

end

else

begin

Label7. Enabled: =false;

Edit7. Enabled: =false;

end;

end;

procedure TForm2. Edit2Change (Sender: TObject); // управление Мемо

begin

Memo1. Lines [2]: =' Select '+Edit2. Text;

end;

procedure TForm2. Edit3Change (Sender: TObject);

begin

Memo1. Lines [4]: =' From '+Edit3. Text;

end;

procedure TForm2. Edit4Change (Sender: TObject);

begin

Memo1. Lines [6]: =' Where '+Edit4. Text;

end;

procedure TForm2. Edit7Change (Sender: TObject);

begin

Memo1. Lines [10]: =' Having '+Edit7. Text;

end;

procedure TForm2. Edit6Change (Sender: TObject);

begin

Memo1. Lines [12]: =' Order by '+Edit6. Text;

end;

procedure TForm2. Button2Click (Sender: TObject);

begin

Form2. Visible: =false;

end;

procedure TForm2. Edit1Change (Sender: TObject);

begin

Memo1. Lines [0]: ='Запрос - '+Edit1. Text;

end;

end.

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