Создание приложения в интегрированной среде Delphi для работы с базой данных «Склад предприятия»
ФЕДЕРАЛЬНОЕ АГЕНТСТВО СВЯЗИ
Федеральное государственное образовательное бюджетное учреждение высшего профессионального образования
«Поволжский государственный университет телекоммуникаций и информатики»
КОЛЛЕДЖ СВЯЗИ
Форма обучения Дневная
Специальность 230115 «Программирование в компьютерных системах»
Тема: Создание приложения в интегрированной среде Delphi для работы с базой данных «Склад предприятия»
КУРСОВАЯ РАБОТА
Пояснительная записка
КС ПГУТИ 230115.019
по курсу МДК 03.01 «Технология разработки программного обеспечения»
Консультант Преподаватель /СтроеваЛ.Р./
Должность Подпись Расшифровка подписи Дата
Разработал
студент 3 ПКС-04 /ГарбузИ.А./
Группа Подпись Расшифровка подписи Дата________
Защищен(а) с оценкой
Самара
2014 г.
Содержание
Введение.........................................................................................................6
1 Выбор языка программирования..........................................................7
2 Структура взаимодействия входной и выходной информации............9
3 Требования к программно-аппаратному окружению.........................10
3.1 Требования к функциям, выполняемой системой.................10
3.2 Требования к эргономике и технической эстетике интерфейса пользователя.................................................................................10
4 Проектирование базы данных.............................................................12
4.1 Логическая модель базы данных............................................12
4.2 Физическая модель базы данных...........................................13
4.3 Структурная схема программы..............................................16
5 Реализация базы данных.....................................................................17
5.1 Создание и связывание таблиц.Заполнение...........................17
5.2 Создание программы в Delphi и связывание с БДAccess...22
5.3 Реализация запросов...............................................................28
6 Спецификация типовых объектов.......................................................33
7 Тестирование программы...................................................................34
8 Сообщение системному программисту ..............................................36
8.1 Дополнительные возможности..............................................36
Заключение............................................................................................37
Список используемой литературы.......................................................39
Приложение А. Графический интерфейс программы..........................40
Приложение В. Программный код приложения...................................43
ЗАДАНИЕ
Для курсового проекта по курсу МДК 03.01 Технология разработки программного обеспечениястудента 3 курса ПКС-04 группы Колледжа связи ПГУТИ Гарбуз Игоря Алексеевича.
Тема задания:Создание приложения в интегрированной среде Delphi для работы с базой данных«Склад предприятия».
Исходные данные:
Реализовать запросы к базе данных:
Курсовой проект на указанную тему выполняется студентом в следующем объеме:
1 Пояснительная записка
Введение:
- Выбор технологии, языка и среды программирования
- Структура взаимодействия входной и выходной информации
- Требования к программно-аппаратному окружению
- Проектирование базы данных
- Реализация базы данных
- Спецификация типовых объектов
- Отладка и тестирование программы
- Сообщение программисту
Заключение
Список используемой литературы
2Графическая часть проекта
Приложение A: Графический интерфейс программы
Приложение B:Программный код приложения
Дата выдачи _____________ Преподаватель: _________Л.Р.Строева
Срок сдачи ____________ Председатель П(Ц)К:______Е.А.Шомас
Протокол № ____ от ___________
Отзыв
на курсовую работу
по МДК 03.01 «Технология разработки программного обеспечения»
студента____________________________
3 курса группы
на тему: Создание приложения в интегрированной среде Delphi для работы с базой данных «Склад предприятия»
________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Преподаватель _______________________ / Л.Р. Строева /
Введение
В данной курсовой работе ставилась цель разработки информационной системы административного управления. В процессе решения данной цели ставилось несколько задач:
- Анализ предметной области поставленной задачи;
- Разработка структуры базы данных;
- Анализ входящей и исходящей документации;
- Разработка экранных форм заполнения базы данных;
- Разработка отчетов и запросов, которые будут обеспечивать функциональность базы данных.
Предметной областью настоящей курсовой работы является рабочее место кладовщика.
В процессе работы кладовщика ведется учет товаров на складе, регистрация товаров, и обработка записей клиентов в базе данных. Регистрация клиентов и оформление товара ведется через основную форму. Данные из основной формы заносятся в базу данных. На основе записей из базы данных составляется накладная. Так же кладовщик ведет учет и подсчет общей суммы товаров, провозимых клиентами.
В процессе заполнения базы данных кладовщик производит контроль свободных ячеек.
Одной из основных функций кладовщика является решение задачи учета расчетов с клиентами и анализ реализации товаров.
Выбор языка, среды программирования:
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 легко расширяется установкой дополнительных модулей. Пользовательский интерфейс, также хорошо настраиваемый - каждый организует рабочее пространство так, как ему будет удобно.
Преимущества:
- Удобная среда разработки, включающая функциональный отладчик, доступный в любой момент.
- Контекстная справочная система, по которой можно изучать язык без обращения к сторонним источникам.
- Высокая скорость компиляции, высокая скорость выполнения откомпилированных программ.
- Встроенная возможность использовать вставки на языке ассемблера.
- Простота.
- Эффективность.
Недостатки:
- Недостаток шаблонов.
- Статическое присоединение (linking) библиотеки VCL и компонентов к исполняемому файлу.
- Вся информация о форме, хранится в .exe файле не оптимальным образом.
Вывод:
Данная программа была выбрана для разработки программного продукта, потому что она проста в использовании и очень эффективна. Сделанная программа будет, быстро откомпилирована и ей можно будет пользоваться в тот же день. Этой программой может пользоваться как новичок, так и более опытный пользователь.
Структура взаимодействия входной и выходной информации
Входная информация по задаче — данные, поступающие на вход задачи и используемые для её решения.
А выходная информация может быть представлена в виде документов, кадров на экране монитора, информации в базе данных, выходного сигнала устройству управления.
Постановка задачи разрабатывается организацией, разработчиком программной продукции, на основании технического задания совместно с заказчиком. Главный исполнитель — это разработчик.
входная выходная
информация информация
Рисунок 1 - Схема взаимодействия входной и выходной информации
Требования к программно-аппаратному окружению
Для нормальной работы программы необходимо чтобы были выполнены следующие системные требования:
- CPU: 1Ghz и выше;
- RAM: от 256 Мб;
- Свободное место на ЖД не меньше 800 Мб;
- Операционная система: 98/NT/2000/Me/XP/Vista/7/8/8.1;
- установленная на компьютере программа Delphi последней версии.
Необходимо также наличие клавиатуры, монитора, мыши и печатающего устройства.
3.1 Требования к функциям, выполняемой системой
В данной программе используются следующие функции:
- данные о Пассажирах, билетах, рейсах и самолетах;
- Вывод все характеристики авиарейсов из пунктов (Отправления/Прибытия), сведения об пассажирах, людей, имеющих льготы, информацию обо всех полетов самолетов данного типа.
3.2 Требования к эргономике и технической эстетике интерфейса пользователя
Система должна иметь человеко-машинный интерфейс, удовлетворяющий следующим требованиям:
1) взаимодействие системы и пользователя должно осуществляться на русском языке, за исключением системных сообщений, не подлежащих русификации;
2) при работе с интерфейсом пользователь должен быть ориентирован на работу с клавиатурой и манипулятором графической информации «мышь»;
3) должно быть реализовано отображение на экране только тех возможностей, которые доступны конкретному пользователю в соответствии с его функциональной ролью в системе;
4) должна быть реализована возможность работы с системой при двух мониторной конфигурации дисплеев (как пример , для некоторых Заказчиков).
5) представление управляющих элементов, экранных форм и их информационных элементов (окон, панелей и т.п.) должно быть унифицировано. Экранные формы должны полностью находиться в видимой площади экрана монитора с диагональю 17’ при разрешении экрана 1280 х 1024 и выше.
Проектирование базы данных
Логическая модель базы данных
Логическая модель описывает понятия предметной области, их взаимосвязь, а также ограничения на данные, налагаемые предметной областью. Примеры понятий - «билеты», «пассажиры», «рейсы», «самолеты». Примеры взаимосвязей между понятиями - «Пассажиры имеют льготы на поездку», «У пассажира есть багаж». Примеры ограничений - «У пассажира должен быть багаж не больше 2 кг».
Логическая модель данных является начальным прототипом будущей базы данных. Она строится в терминах информационных единиц, но без привязки к конкретной СУБД. Более того, логическая модель данных необязательно должна быть выражена средствами именно реляционной модели данных.
Рисунок 2 - Схема логической базы данных
MicrosoftAccess - реляционная СУБДкорпорации Microsoft. Имеет широкий спектр функций, включая связанные запросы, связь с внешними таблицами и базами данных. Благодаря встроенному языку VBA, в самомAccess можно писать приложения, работающие с базами данных.
Достоинства MSAccess:
- Ускоренное освоение приложения благодаря использованию встроенных решений.
- Создание нескольких отчетов с разными представлениями одних и тех же данных.
- Быстрое создание таблиц без применения сложных операций управления базой данных.
- Новые типы полей, расширяющие возможности пользователей.
Физическая модель базы данных
Физическая модель определяет способ размещения данных на носителях (устройствах внешней памяти), а также способ и средства организации эффективного доступа к ним. Поскольку СУБД функционирует в составе и под управлением операционной системы, то организация хранения данных и доступа к ним зависит от принципов и методов управления данными операционной системы.
Однако механизмы буферизации и управления файловыми структурами не приспособлены для решения задач собственно СУБД, эти механизмы разрабатывались просто для традиционной обработки файлов, и с ростом объемов хранимых данных они стали неэффективными для использования СУБД. Тогда постепенно произошел переход от базовых файловых структур к непосредственному управлению размещением данных на внешних носителях самой СУБД. И пространство внешней памяти уже выходило из-под владения СУФ и управлялось непосредственно СУБД. При этом механизмы, применяемые в файловых системах, перешли во многом и в новые системы организации данных во внешней памяти, называемые чаще страничными системами хранения информации. Поэтому наш раздел, посвященный физическим моделям данных, мы начнем с обзора файлов и файловых структур, используемых для организации физических моделей, применяемых в базах данных, а в конце ознакомимся с механизмами организации данных во внешней памяти, использующими страничный принцип организации.
Рисунок 3 - «Схема данных БД»
Типы отношений между таблицами:
Рисунок 4 - «Отношение таблицы Склад к Товарам»
Рисунок 5 - «Отношение таблицы Склад к Накладной»
Рисунок 6 - «Отношение таблицы Товар к Наклкдной»
- Структурная схема программы
5 Реализация базы данных
Проект состоит из 9 форм:
- главная форма «Склад предприятия», из которой открываются все остальные формы;
- форма «Товар», содержащая всю информацию о ячейках;
- форма «Склад», содержащая всю информацию о товарах;
- форма «Накладная», содержащая всю информацию о клиентах;
- форма «Запрос », выводит информацию о всех запросах;
- Создание, связывание и заполнение таблиц
Создание базы данных «Библиотека» вMSAccess:
- Открытие программы MS Access;
- Ввод имени базы данных;
- Сохранение базы;
Создание таблиц:
- Выбор в меню вкладки «Создание» – Таблица;
- Добавление полей в таблицу;
- Определение формата полей;
- Выбор ключевых полей;
Заполнение таблиц данными (в режиме Конструктор):
Связывание таблиц:
- Выбор в меню вкладки «Работа с базами данных» – Схема данных;
- Добавление всех таблиц;
- Связывание таблиц по ключевым полям.
- Создание программы в 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
|
Отображает графическое изображение на форме.
|
Тестирование программы
Тщательное тестирование должен проходить любой программный продукт, тем более такой, как прикладные программные ИС. Стратегиятестирования должна предполагать использование реальных данных и должна быть построена таким образом, чтобы весь процесс выполнялся строго последовательно и методически правильно. Помимо обнаружения имеющихся в прикладных программах и, возможно, в структурах базы данных ошибок, сбор статистических данных на стадии тестирования позволяет установить показатели надежности и качества созданного программного обеспечения. В случае обнаружения ошибок и неучтенных информационных потребностей осуществляется откат назад в процессе проектирования на те стадии, где возможно внести необходимые изменения.
Для оценки законченности и корректности выполнения приложения базы данных может использоваться несколько различных стратегий тестирования:
- Нисходящее тестирование;
- Восходящее тестирование;
- Тестирование потоков;
- Интенсивное тестирование.
Нисходящее тестирование начинается на уровне подсистем с модулями, которые представлены заглушками, т.е. простыми компонентами, имеющими такой же интерфейс, как модуль, но без функционального кода. Каждый модуль низкого уровня представляется заглушкой. Постепенно все программные компоненты заменяются фактическим кодом и после каждой замены снова тестируются. Преимуществом этого подхода является то, что ошибки проектирования могут быть обнаружены ещё на ранней стадии тестирования, что позволяетисключить дорогостоящие работы по повторному проектированию и реализации. Кроме того, уже на ранней стадии создания можно получить работающую систему, хотя и с ограниченной функциональностью, способную продемонстрировать гибкость выбранной схемы. Недостатком этой стратегии тестирования являетсянеобходимость создания многочисленных заглушек модулей для моделирования низкоуровневых компонентов системы.
Восходящее тестирование выполняется в противоположном направлении по отношению к нисходящему. Оно начинается с тестирования модулей на самых низких уровнях иерархии системы, продолжается на более высоких уровнях и заканчивается на самом высоком уровне. Преимущества и недостатки при этом имеют обратный смысл преимуществ и недостатков, которыми обладает стратегия нисходящего тестирования.
Тестирование потоков осуществляется при тестировании работающих в реальном масштабе времени систем, которые обычно состоят из большого количества взаимодействующих процессов, управляемых с помощью прерываний. Стратегия тестирования потоков направлена на слежение за отдельными процессами. При этом «поток» обработки каждого внешнего события «проходит» через различные системные процессы. Данная стратегия включает идентификацию и выполнение каждого возможного «потока» обработки в системе. Однако выполнить исчерпывающее тестирование потоков системы просто не реально из-за огромного количества возможных комбинаций входных и выходных условий.
Стратегия интенсивного тестирования часто включает серию тестов с постепенно возрастающей нагрузкой и продолжается до тех пор, пока система не выйдет из строя. Эта стратегия предназначена для проверки возможности системы справляться с нагрузкой и обладает двумя основными преимуществами: она проверяет поведение системы, а также оказывает давление на систему, вызывая появление сбоев, которые не могли бы быть обнаружены в обычных условиях эксплуатации.
Сообщение системному программисту
8.1 Дополнительные возможности
В данном программном обеспечении реализованы дополнительные возможности:
- добавление записей - необходимо при добавлении новой записи;
- удаление записей - позволяет удалять записи;
- изменение записей - для корректировки записей;
Заключение
Целью курсового проекта являлась разработка программного продукта по продаже билетов в кассах аэрофлота. Для реализации этой цели были выполнены следующие этапы:
- Спроектирована логическая модель базы данных;
- Спроектирована физическая модель базы данных;
- Организован просмотр данных о наличии билетов в кассе;
- Предусмотрена возможность корректировки данных;
- Организован просмотр данных о пассажирах авиарейсах;
- Организован просмотр данных о рейсах авиалинии;
- Организован просмотр данных о самолетах компании;
- Организована возможность вывода информации о пассажирах летящих из одного пункта в другой;
- Предусмотрена возможность вывода данных о пассажирах,летящих заданным рейсом с указанным весом багажа;
- Обеспечено формирование списков пассажиров, имеющих льготы;
- Обеспечено формирование списка обо всех полетах самолетов заданного типа.
В результате выполнения курсовой работы была получена база данных «Кассы аэрофлота», которая содержит таблицы с информацией о билетах пассажирахи рейсах самолетов. А также программа, позволяющая просматривать эту информацию.
Поставленная в начале курсовой работы цель была достигнута. В программе выполняются все необходимые функциональные требования.
Программа проста и понятна для любого пользователя, для ее использования не нужно специального обучения. При этом она выполняет в основном все функции, необходимые для нормальной работы.
Для создания базы данных использовался Microsoft Office Access. Для написания программы использовался язык программирования Delphi, имеющий широкие возможности для работы с базами данных. Соединение с базой данных произведено при помощи технологии ADO. Обработка данных производилась при помощи операторов языка SQL, что значительно ускоряет работу программы.
Список используемой литературы
- Архангельский А. Я.«Программирование в Delphi 7».
- БобровскийС. «Delphi 7. Учебный курс».
- Владимир Гофман, Евгений Мещеряков, Владимир Никифоров,
Анатолий Хомоненко «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.
Создание приложения в интегрированной среде Delphi для работы с базой данных «Склад предприятия»