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

ФЕДЕРАЛЬНОЕ АГЕНТСТВО СВЯЗИ

Федеральное государственное образовательное бюджетное учреждение высшего профессионального образования

"Поволжский государственный университет телекоммуникаций и информатики"

КОЛЛЕДЖ СВЯЗИ

Форма обучения Дневная

Специальность 230115 "Программирование в компьютерных системах"

КУРСОВАЯ РАБОТА

Тема: Создание приложения в интегрированной среде Delphi для работы с базой данных "Склад предприятия"

Консультант Преподаватель /Строева Л.Р. /

студент3 ПКС-04 /Гарбуз И.А./

Самара 2014 г.

Содержание

• Задание
• Введение
• 1. Выбор языка, среды программирования
• 2. Структура взаимодействия входной и выходной информации
• 3. Требования к программно-аппаратному окружению
• 3.1 Требования к функциям, выполняемой системой
• 3.2 Требования к эргономике и технической эстетике интерфейса пользователя
• 4. Проектирование базы данных
• 4.1 Логическая модель базы данных
• 4.2 Физическая модель базы данных
• 5. Реализация базы данных
• 5.1 Создание, связывание и заполнение таблиц
• 5.2 Создание программы в Delphi и связывание с базой данных Подключение Access к Delphi
• 5.3 Реализация запросов
• 5.4 Тестирование программы
• 5.5 Сообщение системному программисту
• Заключение
• Список используемой литературы
• Приложения

Задание

Для курсового проекта по курсу МДК 03.01 Технология разработки программного обеспечения студента 3 курса ПКС-04 группы Колледжа связи ПГУТИ Гарбуз Игоря Алексеевича.

Тема задания: Создание приложения в интегрированной среде Delphi для работы с базой данных"Склад предприятия".

Исходные данные:

Реализовать запросы к базе данных:

Курсовой проект на указанную тему выполняется студентом в следующем объеме:

1. Пояснительная записка

Введение:

1. Выбор технологии, языка и среды программирования

2. Структура взаимодействия входной и выходной информации

3. Требования к программно-аппаратному окружению

4. Проектирование базы данных

5. Реализация базы данных

6. Спецификация типовых объектов

7. Отладка и тестирование программы

8. Сообщение программисту

Заключение

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

2. Графическая часть проекта

Приложение A: Графический интерфейс программы

Приложение B: Программный код приложения

Дата выдачи _____________Преподаватель: _________Л.Р. Строева

Срок сдачи ____________Председатель П (Ц) К: ______Е.А. Шомас

Протокол № ____ от ___________

Отзыв

на курсовую работу

по МДК 03.01 "Технология разработки программного обеспечения"

студента____________________________

3 курса группы

на тему: Создание приложения в интегрированной среде Delphi для работы с базой данных "Склад предприятия"

______________________________________________________________________________________________________________________________________________________________________________________________________

Преподаватель _______________________ /Л.Р. Строева/

Введение

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

• Анализ предметной области поставленной задачи;

• Разработка структуры базы данных;

• Анализ входящей и исходящей документации;

• Разработка экранных форм заполнения базы данных;

• Разработка отчетов и запросов, которые будут обеспечивать функциональность базы данных.

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

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

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

Одной из основных функций кладовщика является решение задачи учета расчетов с клиентами и анализ реализации товаров.

база приложение delphi программирование

1. Выбор языка, среды программирования

Delphi - результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль. Delphi оказал огромное влияние на создание концепции языка C# для платформы.net. Многие его элементы и концептуальные решения вошли в состав С#. Одной из причин называют переход Андерса Хейлсберга, одного из ведущих разработчиков Дельфи, из компании BorlandLtd. в MicrosoftCorp.

Версия 1 была предназначена для разработки под 16-ти разрядную платформу Win16;

Версии со второй компилируют программы под 32-х разрядную платформу Win32;

Вместе с 6-й версией Delphi вышла совместимая с ним по языку и библиотекам среда Kylix, предназначенная для компиляции программ под операционную систему Linux;

Версия 8 способна генерировать байт-код исключительно для платформы.net. Это первая среда, ориентированная на разработку мультиязычных приложений (лишь для платформы.net);

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

Delphifor.net - среда разработки Delphi, а так же язык Delphi (ObjectPascal), ориентированные на разработку приложений для.net.

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

Преимущества:

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

2. Контекстная справочная система, по которой можно изучать язык без обращения к сторонним источникам.

3. Высокая скорость компиляции, высокая скорость выполнения откомпилированных программ.

4. Встроенная возможность использовать вставки на языке ассемблера.

5. Простота.

6. Эффективность.

Недостатки:

1. Недостаток шаблонов.

2. Статическое присоединение (linking) библиотеки VCL и компонентов к исполняемому файлу.

3. Вся информация о форме, хранится в .exe файле не оптимальным образом.

Вывод:

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

2. Структура взаимодействия входной и выходной информации

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

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

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

входная выходная

информация информация

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

3. Требования к программно-аппаратному окружению

Для нормальной работы программы необходимо чтобы были выполнены следующие системные требования:

1. CPU: 1Ghz и выше;

2. RAM: от 256 Мб;

3. Свободное место на ЖД не меньше 800 Мб;

4. Операционная система: 98/NT/2000/Me/XP/Vista/7/8/8.1;

5. установленная на компьютере программа Delphi последней версии.

Необходимо также наличие клавиатуры, монитора, мыши и печатающего устройства.

3.1 Требования к функциям, выполняемой системой

В данной программе используются следующие функции:

1. данные о Пассажирах, билетах, рейсах и самолетах;

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

3.2 Требования к эргономике и технической эстетике интерфейса пользователя

Система должна иметь человеко-машинный интерфейс, удовлетворяющий следующим требованиям:

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

2) при работе с интерфейсом пользователь должен быть ориентирован на работу с клавиатурой и манипулятором графической информации "мышь";

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

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

5) представление управляющих элементов, экранных форм и их информационных элементов (окон, панелей и т.п.) должно быть унифицировано. Экранные формы должны полностью находиться в видимой площади экрана монитора с диагональю 17' при разрешении экрана 1280 х 1024 и выше.

4. Проектирование базы данных

4.1 Логическая модель базы данных

Логическая модель описывает понятия предметной области, их взаимосвязь, а также ограничения на данные, налагаемые предметной областью. Примеры понятий - "билеты", "пассажиры", "рейсы", "самолеты". Примеры взаимосвязей между понятиями - "Пассажиры имеют льготы на поездку", "У пассажира есть багаж". Примеры ограничений - "У пассажира должен быть багаж не больше 2 кг".

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

Рисунок 2 - Схема логической базы данных

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

Достоинства MSAccess:

1. Ускоренное освоение приложения благодаря использованию встроенных решений.

2. Создание нескольких отчетов с разными представлениями одних и тех же данных.

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

4. Новые типы полей, расширяющие возможности пользователей.

4.2 Физическая модель базы данных

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

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

Рисунок 3 - "Схема данных БД"

Типы отношений между таблицами:

Рисунок 4 - "Отношение таблицы Склад к Товарам"

Рисунок 5 - "Отношение таблицы Склад к Накладной"

Рисунок 6 - "Отношение таблицы Товар к Накладной"

Структурная схема программы

5. Реализация базы данных

Проект состоит из 9 форм:

• главная форма "Склад предприятия", из которой открываются все остальные формы;

• форма "Товар", содержащая всю информацию о ячейках;

• форма "Склад", содержащая всю информацию о товарах;

• форма "Накладная", содержащая всю информацию о клиентах;

• форма "Запрос", выводит информацию о всех запросах;

5.1 Создание, связывание и заполнение таблиц

Создание базы данных "Библиотека" вMSAccess:

• Открытие программы MS Access;

• Ввод имени базы данных;

• Сохранение базы;

Создание таблиц:

• Выбор в меню вкладки "Создание" - Таблица;

• Добавление полей в таблицу;

• Определение формата полей;

• Выбор ключевых полей;

Заполнение таблиц данными (в режиме Конструктор):

Связывание таблиц:

• Выбор в меню вкладки "Работа с базами данных" - Схема данных;

• Добавление всех таблиц;

• Связывание таблиц по ключевым полям.

5.2 Создание программы в Delphi и связывание с базой данных Подключение Access к Delphi

• TADOQuery в свойстве Connection связывание с TADOConnection (выбор имя данного компонента из выпадающего списка);

• TDataSource в свойстве DataSet связывание с TADOQuery (выбор имя данного компонента из выпадающего списка);

• TDBGrid в свойстве DataSource связывание с TDstsSource (выбор имя данного компонента из выпадающего списка);

• В компоненте TADOConnection на свойстве LoginPromt установка False;

• У свойства ConnectionString необходимо нажать на кнопку с "…";

• В появившемся окне нажатие на кнопку "Build…";

• Далее выбор провайдера, а именно MicrosoftJet 4.0 OLE DB Provaider;

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

• Нажатие кнопки "Ок" и в свойстве компонента TADOConnection-Mode выбор cmShareDenyNone;

Далее создается форма "Пассажиры". В неё так же добавляются модули DBGrid, DataSource,ADOQuery, ADOConnection, 4 кнопки Button: "Возврат", "Добавить", "Изменить", "Удалить" и изображение с помощью приложения image. Действия для форм "Рейсы", "Самолеты" аналогичны действиям для формы "Билеты". Потом создается форма "Запрос 1". В неё добавляются модули DBGrid, DataSource, ADOQuery, ADOConnection, Edit1, 2 кнопки Button: "Возврат", "Выполнить" и изображение с помощью приложения image. Действия для форм "Запрос 2", "Запрос 3", "Запрос 4" аналогичны действиям для формы "Запрос 1".

5.3 Реализация запросов

1) Для формы "Запрос 1" был использован SQLзапрос:

Select * fromРейсыwhere [Пункт назначения] ='' and [Пункт прибытия] =''

Данный Запрос мы прописывали в модуле Edit1 во вкладке Text.

2) Для формы "Запрос 2" был использован SQLзапрос:

Select * fromПассажирыwhere [Весбагажа] ='' and [Код рейса] =''

Данный Запрос мы прописывали в модуле Edit1 во вкладке Text.

При всём этом в модуле TDBgridмы использовали столбец [Код рейса] из таблицы Рейсы.

3) Для формы "Запрос 3" был использован SQLзапрос:

Select * from Билетыwhere Льготы =''

Данный Запрос мы прописывали в модуле Edit1 во вкладке Text.

4) Для формы "Запрос 4" был использован SQLзапрос:

Select * from Рейсыwhere [Кодсамолета] =''

Данный Запрос мы прописывали в модуле Edit1 во вкладке Text.

Спецификация типовых объектов

Таблица 1 - Назначение объектов, использованных в программном обеспечении "Склада предприятия"

Компонент	Назначение
Button	Служит для выдачи команд на выполнение определенных функциональных действий.
Edit	Позволяет вводить и редактировать с клавиатуры различные символы.
Label	Вывод поясняющей надписи на диалоговой форме.
DBGrid	Отображает набор данных в формате электронной таблицы.
DataSource	Для связи компонентов доступа к данным с визуальными компонентами.
ADOConnection	Позволяет устанавливать подключение через провайдера OLE DB.
ADOQuery	Позволяет выполнять SQL-запросы при работе с данными через ADO.
Image	Отображает графическое изображение на форме.

5.4 Тестирование программы

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

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

1. Нисходящее тестирование;

2. Восходящее тестирование;

3. Тестирование потоков;

4. Интенсивное тестирование.

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

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

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

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

5.5 Сообщение системному программисту

Дополнительные возможности

В данном программном обеспечении реализованы дополнительные возможности:

1. добавление записей - необходимо при добавлении новой записи;

2. удаление записей - позволяет удалять записи;

3. изменение записей - для корректировки записей;

Заключение

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

1. Спроектирована логическая модель базы данных;

2. Спроектирована физическая модель базы данных;

3. Организован просмотр данных о наличии билетов в кассе;

4. Предусмотрена возможность корректировки данных;

5. Организован просмотр данных о пассажирах авиарейсах;

6. Организован просмотр данных о рейсах авиалинии;

7. Организован просмотр данных о самолетах компании;

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

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

10. Обеспечено формирование списков пассажиров, имеющих льготы;

11. Обеспечено формирование списка обо всех полетах самолетов заданного типа.

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

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

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

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

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

1. Архангельский А.Я. "Программирование в Delphi 7".

2. БобровскийС. "Delphi 7. Учебный курс".

3. Владимир Гофман, Евгений Мещеряков, Владимир Никифоров,

Анатолий Хомоненко "Delphi 7. Наиболее полное руководство".

• Осипов Д. "Delphi. Профессиональное программирование".

• Фаронов В.В. "Delphi. Программирование на языке высокого

уровня".

Приложения

Приложение А. Графический интерфейс программы

Приложение B. Программный код приложения

Главная Форма

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, Menus;

type

TForm1 = class (TForm)

mm1: TMainMenu;

pm1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N5Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit2, Unit1, Unit5;

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

form4. show;

form1. Hide;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

form3. show;

form1. Hide;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin

form2. show;

form1. Hide;

end;

procedure TForm1. N2Click (Sender: TObject);

begin

form5. show;

form1. Hide;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

form4. show;

form1. Hide;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

form3. show;

form1. Hide;

end;

procedure TForm1. N5Click (Sender: TObject);

begin

form2. show;

form1. Hide;

end;

end.

Форма "Склад"

unit Unit1;

interface

uses

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

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

type

TForm4 = class (TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Button1: TButton;

btn1: TButton;

btn2: TButton;

btn3: TButton;

DBGrid1: TDBGrid;

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit4, Unit2;

{$R *. dfm}

procedure TForm4. FormCreate (Sender: TObject);

begin

ADOQuery1. SQL. Clear;

ADOQuery1. SQL. Add ('SELECT * FROM накладная');

ADOQuery1. Active: =True;

end;

procedure TForm4. Button1Click (Sender: TObject);

begin

form1. show;

form2. Hide;

end;

end.

Форма Товар

unit Unit2;

interface

uses

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

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

type

TForm2 = class (TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Button1: TButton;

btn1: TButton;

btn2: TButton;

btn3: TButton;

dbgrd1: TDBGrid;

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit4, Unit3;

{$R *. dfm}

procedure TForm2. FormCreate (Sender: TObject);

begin

ADOQuery1. SQL. Clear;

ADOQuery1. SQL. Add ('SELECT * FROM Товар');

ADOQuery1. Active: =True;

end;

procedure TForm2. Button1Click (Sender: TObject);

begin

form1. show;

form3. Hide;

end;

end.

Форма Накладная

unit Unit3;

interface

uses

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

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

type

TForm3 = class (TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Button1: TButton;

btn1: TButton;

btn2: TButton;

btn3: TButton;

dbgrd1: TDBGrid;

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit4, Unit1;

{$R *. dfm}

procedure TForm3. FormCreate (Sender: TObject);

begin

ADOQuery1. SQL. Clear;

ADOQuery1. SQL. Add ('SELECT * FROM Склад');

ADOQuery1. Active: =True;

end;

procedure TForm3. Button1Click (Sender: TObject);

begin

form1. show;

form4. Hide;

end;

end.

Форма Запросы

unit Unit5;

interface

uses

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

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

type

TForm5 = class (TForm)

btn_Close: TButton;

ds1: TDataSource;

Query1: TADOQuery;

con1: TADOConnection;

Edit1: TEdit;

btn1: TButton;

btn6: TButton;

btn7: TButton;

dbgrd1: TDBGrid;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

btn2: TButton;

btn3: TButton;

btn4: TButton;

btn5: TButton;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

procedure FormCreate (Sender: TObject);

procedure btn1Click (Sender: TObject);

procedure btn2Click (Sender: TObject);

procedure btn3Click (Sender: TObject);

procedure btn_CloseClick (Sender: TObject);

procedure btn4Click (Sender: TObject);

procedure btn5Click (Sender: TObject);

procedure btn6Click (Sender: TObject);

procedure btn7Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit4;

{$R *. dfm}

procedure TForm5. FormCreate (Sender: TObject);

begin

Query1. SQL. Clear;

Query1. SQL. Add ('SELECT * FROM накладная');

Query1. Active: =True;

end;

procedure TForm5. btn1Click (Sender: TObject);

begin

Query1. Active: =False;

Query1. SQL. Text: =Edit1. Text;

Query1. Active: =True;

end;

procedure TForm5. btn2Click (Sender: TObject);

begin

Edit1. Clear;

Edit1. Text: ='select * from накладная Where [Time] = '+Edit4. Text+'';

end;

procedure TForm5. btn3Click (Sender: TObject);

begin

Edit1. Clear;

Edit1. Text: ='select *,Num from Склад, Товар';

end;

procedure TForm5. btn_CloseClick (Sender: TObject);

begin

Form5. Hide;

Form1. Show;

end;

procedure TForm5. btn4Click (Sender: TObject);

begin

Edit1. Clear;

Edit1. Text: = 'select * from накладная Where [Time] >'+Edit2. text+' and [Time] <'+Edit3. Text+'';

end;

procedure TForm5. btn5Click (Sender: TObject);

begin

Edit1. Clear;

Edit1. Text: ='select Name from Склад';

end;

procedure TForm5. btn6Click (Sender: TObject);

begin

Edit1. Visible: =True;

btn7. Visible: =True;

end;

procedure TForm5. btn7Click (Sender: TObject);

begin

btn7. Visible: =False;

Edit1. Visible: =False;

end;

end.

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