Создание приложения в интегрированной среде Delphi для работы с базой данных 'Склад предприятия'
ФЕДЕРАЛЬНОЕ АГЕНТСТВО СВЯЗИ
Федеральное государственное
образовательное бюджетное учреждение высшего профессионального образования
"Поволжский государственный
университет телекоммуникаций и информатики"
КОЛЛЕДЖ СВЯЗИ
Форма обучения Дневная
Специальность 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. Пояснительная записка
Введение:
. Выбор технологии, языка и среды
программирования
2. Структура взаимодействия входной и
выходной информации
. Требования к программно-аппаратному
окружению
. Проектирование базы данных
. Реализация базы данных
. Спецификация типовых объектов
. Отладка и тестирование программы
. Сообщение программисту
Заключение
Список используемой литературы
2. Графическая часть проекта
Приложение A: Графический интерфейс программы
Приложение B: Программный код приложения
Дата выдачи _____________Преподаватель: _________Л.Р.
Строева
Срок сдачи ____________Председатель П (Ц) К: ______Е.А.
Шомас
Протокол № ____ от ___________
Отзыв
на курсовую работу
по МДК 03.01 "Технология разработки программного
обеспечения"
студента____________________________
курса группы
на тему: Создание приложения в интегрированной среде
Delphi для работы с базой данных "Склад предприятия"
______________________________________________________________________________________________________________________________________________________________________________________________________
Преподаватель _______________________ /Л.Р. Строева/
Введение
В данной курсовой работе ставилась цель разработки
информационной системы административного управления. В процессе решения данной
цели ставилось несколько задач:
• Разработка структуры базы данных;
• Анализ входящей и исходящей документации;
• Разработка экранных форм заполнения базы данных;
• Разработка отчетов и запросов, которые будут
обеспечивать функциональность базы данных.
Предметной областью настоящей курсовой работы является
рабочее место кладовщика.
В процессе работы кладовщика ведется учет товаров на складе,
регистрация товаров, и обработка записей клиентов в базе данных. Регистрация
клиентов и оформление товара ведется через основную форму. Данные из основной
формы заносятся в базу данных. На основе записей из базы данных составляется
накладная. Так же кладовщик ведет учет и подсчет общей суммы товаров,
провозимых клиентами.
В процессе заполнения базы данных кладовщик производит
контроль свободных ячеек.
Одной из основных функций кладовщика является решение задачи
учета расчетов с клиентами и анализ реализации товаров.
база приложение delphi программирование
1. Выбор
языка, среды программирования
Delphi - результат развития языка Турбо Паскаль, который, в
свою очередь, развился из языка Паскаль. Delphi оказал огромное влияние на
создание концепции языка C# для платформы.net. Многие его элементы и
концептуальные решения вошли в состав С#. Одной из причин называют переход
Андерса Хейлсберга, одного из ведущих разработчиков Дельфи, из компании
BorlandLtd. в MicrosoftCorp.
Версия 1 была предназначена для разработки под 16-ти
разрядную платформу Win16;
Версии со второй компилируют программы под 32-х разрядную
платформу Win32;
Вместе с 6-й версией Delphi вышла совместимая с ним по языку
и библиотекам среда Kylix, предназначенная для компиляции программ под
операционную систему Linux;
Версия 8 способна генерировать байт-код исключительно для
платформы.net. Это первая среда, ориентированная на разработку мультиязычных
приложений (лишь для платформы.net);
Последующие версии (обозначаемые годами выхода, а не
порядковыми номерами, как это было ранее) могут создавать как приложения Win32,
так и байт-код для платформы.net;.net - среда разработки Delphi, а так же язык
Delphi (ObjectPascal), ориентированные на разработку приложений для.net.- это
нечто иное, нежели Pascal, это совершенно другой качественный этап среды
программирования. С помощью Delphi создаются приложения для операционной
системы Windows, но помимо этого с помощью дополнительных средств можно
написать, например, программы и для Linux. Среда Delphi легко расширяется
установкой дополнительных модулей. Пользовательский интерфейс, также хорошо
настраиваемый - каждый организует рабочее пространство так, как ему будет
удобно.
Преимущества:
. Удобная среда разработки, включающая функциональный
отладчик, доступный в любой момент.
2. Контекстная справочная система, по которой можно
изучать язык без обращения к сторонним источникам.
. Высокая скорость компиляции, высокая скорость
выполнения откомпилированных программ.
. Встроенная возможность использовать вставки на языке
ассемблера.
. Простота.
. Эффективность.
Недостатки:
. Недостаток шаблонов.
2. Статическое присоединение (linking) библиотеки VCL и
компонентов к исполняемому файлу.
. Вся информация о форме, хранится в .exe файле не
оптимальным образом.
Вывод:
Данная программа была выбрана для разработки программного
продукта, потому что она проста в использовании и очень эффективна. Сделанная
программа будет, быстро откомпилирована и ей можно будет пользоваться в тот же
день. Этой программой может пользоваться как новичок, так и более опытный
пользователь.
2. Структура
взаимодействия входной и выходной информации
Входная информация по задаче - данные, поступающие на вход
задачи и используемые для её решения.
А выходная информация может быть представлена в виде
документов, кадров на экране монитора, информации в базе данных, выходного
сигнала устройству управления.
Постановка задачи разрабатывается организацией, разработчиком
программной продукции, на основании технического задания совместно с
заказчиком. Главный исполнитель - это разработчик.
входная выходная
информация информация
Рисунок 1 - Схема взаимодействия входной и выходной информации
3. Требования
к программно-аппаратному окружению
Для нормальной работы программы необходимо чтобы были
выполнены следующие системные требования:
. CPU: 1Ghz и выше;
2. RAM: от 256 Мб;
. Свободное место на ЖД не меньше 800 Мб;
. Операционная система:
98/NT/2000/Me/XP/Vista/7/8/8.1;
. установленная на компьютере программа Delphi
последней версии.
Необходимо также наличие клавиатуры, монитора, мыши и
печатающего устройства.
3.1
Требования к функциям, выполняемой системой
В данной программе используются следующие функции:
. данные о Пассажирах, билетах, рейсах и самолетах;
2. Вывод все характеристики авиарейсов из пунктов
(Отправления/Прибытия), сведения об пассажирах, людей, имеющих льготы,
информацию обо всех полетов самолетов данного типа.
.2 Требования
к эргономике и технической эстетике интерфейса пользователя
Система должна иметь человеко-машинный интерфейс,
удовлетворяющий следующим требованиям:
) взаимодействие системы и пользователя должно осуществляться
на русском языке, за исключением системных сообщений, не подлежащих
русификации;
) при работе с интерфейсом пользователь должен быть
ориентирован на работу с клавиатурой и манипулятором графической информации
"мышь";
) должно быть реализовано отображение на экране только тех
возможностей, которые доступны конкретному пользователю в соответствии с его
функциональной ролью в системе;
) должна быть реализована возможность работы с системой при
двух мониторной конфигурации дисплеев (как пример, для некоторых Заказчиков).
) представление управляющих элементов, экранных форм и их
информационных элементов (окон, панелей и т.п.) должно быть унифицировано.
Экранные формы должны полностью находиться в видимой площади экрана монитора с
диагональю 17’ при разрешении экрана 1280 х 1024 и выше.
4.
Проектирование базы данных
4.1
Логическая модель базы данных
Логическая модель описывает понятия предметной области, их
взаимосвязь, а также ограничения на данные, налагаемые предметной областью.
Примеры понятий - "билеты", "пассажиры", "рейсы",
"самолеты". Примеры взаимосвязей между понятиями - "Пассажиры
имеют льготы на поездку", "У пассажира есть багаж". Примеры
ограничений - "У пассажира должен быть багаж не больше 2 кг".
Логическая модель данных является начальным прототипом
будущей базы данных. Она строится в терминах информационных единиц, но без
привязки к конкретной СУБД. Более того, логическая модель данных необязательно
должна быть выражена средствами именно реляционной модели данных.
Рисунок 2 - Схема логической базы данных
- реляционная СУБДкорпорации Microsoft. Имеет широкий спектр
функций, включая связанные запросы, связь с внешними таблицами и базами данных.
Благодаря встроенному языку VBA, в самом Access можно писать приложения,
работающие с базами данных.
Достоинства MSAccess:
1. Ускоренное освоение приложения благодаря
использованию встроенных решений.
2. Создание нескольких отчетов с разными представлениями
одних и тех же данных.
. Быстрое создание таблиц без применения сложных
операций управления базой данных.
. Новые типы полей, расширяющие возможности пользователей.
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запрос:*
fromРейсыwhere [Пункт назначения] =’’ and [Пункт прибытия] =’’
Данный Запрос мы прописывали в модуле Edit1 во вкладке Text.
) Для формы "Запрос 2" был использован SQLзапрос:*
fromПассажирыwhere [Весбагажа] =’’ and [Код рейса] =’’
Данный Запрос мы прописывали в модуле Edit1 во вкладке Text.
При всём этом в модуле TDBgridмы использовали столбец [Код
рейса] из таблицы Рейсы.
) Для формы "Запрос 3" был использован SQLзапрос:*
from Билетыwhere Льготы =’’
Данный Запрос мы прописывали в модуле Edit1 во вкладке Text.
) Для формы "Запрос 4" был использован SQLзапрос:*
from Рейсыwhere [Кодсамолета] =’’
Данный Запрос мы прописывали в модуле Edit1 во вкладке Text.
Спецификация типовых объектов
Таблица 1 - Назначение объектов, использованных в программном
обеспечении "Склада предприятия"
Компонент
|
Назначение
|
ButtonСлужит для выдачи
команд на выполнение определенных функциональных действий.
|
|
EditПозволяет вводить и
редактировать с клавиатуры различные символы.
|
|
LabelВывод поясняющей
надписи на диалоговой форме.
|
|
DBGridОтображает набор данных
в формате электронной таблицы.
|
|
DataSourceДля связи компонентов
доступа к данным с визуальными компонентами.
|
|
ADOConnectionПозволяет устанавливать
подключение через провайдера OLE DB.
|
|
ADOQueryПозволяет выполнять
SQL-запросы при работе с данными через ADO.
|
|
ImageОтображает графическое
изображение на форме.
|
|
5.4
Тестирование программы
Тщательное тестирование должен проходить любой программный
продукт, тем более такой, как прикладные программные ИС. Стратегия тестирования
должна предполагать использование реальных данных и должна быть построена таким
образом, чтобы весь процесс выполнялся строго последовательно и методически
правильно. Помимо обнаружения имеющихся в прикладных программах и, возможно, в
структурах базы данных ошибок, сбор статистических данных на стадии
тестирования позволяет установить показатели надежности и качества созданного
программного обеспечения. В случае обнаружения ошибок и неучтенных
информационных потребностей осуществляется откат назад в процессе
проектирования на те стадии, где возможно внести необходимые изменения.
Для оценки законченности и корректности выполнения приложения
базы данных может использоваться несколько различных стратегий тестирования:
. Нисходящее тестирование;
2. Восходящее тестирование;
. Тестирование потоков;
. Интенсивное тестирование.
Нисходящее тестирование начинается на уровне подсистем с
модулями, которые представлены заглушками, т.е. простыми компонентами, имеющими
такой же интерфейс, как модуль, но без функционального кода. Каждый модуль
низкого уровня представляется заглушкой. Постепенно все программные компоненты
заменяются фактическим кодом и после каждой замены снова тестируются.
Преимуществом этого подхода является то, что ошибки проектирования могут быть
обнаружены ещё на ранней стадии тестирования, что позволяет исключить
дорогостоящие работы по повторному проектированию и реализации. Кроме того, уже
на ранней стадии создания можно получить работающую систему, хотя и с
ограниченной функциональностью, способную продемонстрировать гибкость выбранной
схемы. Недостатком этой стратегии тестирования является необходимость создания
многочисленных заглушек модулей для моделирования низкоуровневых компонентов
системы.
Восходящее тестирование выполняется в противоположном
направлении по отношению к нисходящему. Оно начинается с тестирования модулей
на самых низких уровнях иерархии системы, продолжается на более высоких уровнях
и заканчивается на самом высоком уровне. Преимущества и недостатки при этом
имеют обратный смысл преимуществ и недостатков, которыми обладает стратегия
нисходящего тестирования.
Тестирование потоков осуществляется при тестировании
работающих в реальном масштабе времени систем, которые обычно состоят из
большого количества взаимодействующих процессов, управляемых с помощью
прерываний. Стратегия тестирования потоков направлена на слежение за отдельными
процессами. При этом "поток" обработки каждого внешнего события
"проходит" через различные системные процессы. Данная стратегия
включает идентификацию и выполнение каждого возможного "потока"
обработки в системе. Однако выполнить исчерпывающее тестирование потоков
системы просто не реально из-за огромного количества возможных комбинаций
входных и выходных условий.
Стратегия интенсивного тестирования часто включает серию
тестов с постепенно возрастающей нагрузкой и продолжается до тех пор, пока
система не выйдет из строя. Эта стратегия предназначена для проверки
возможности системы справляться с нагрузкой и обладает двумя основными
преимуществами: она проверяет поведение системы, а также оказывает давление на
систему, вызывая появление сбоев, которые не могли бы быть обнаружены в обычных
условиях эксплуатации.
5.5 Сообщение
системному программисту
Дополнительные возможности
В данном программном обеспечении реализованы дополнительные
возможности:
. добавление записей - необходимо при добавлении новой
записи;
2. удаление записей - позволяет удалять записи;
. изменение записей - для корректировки записей;
Заключение
Целью курсового проекта являлась разработка программного
продукта по продаже билетов в кассах аэрофлота. Для реализации этой цели были
выполнены следующие этапы:
2. Спроектирована физическая модель базы данных;
. Организован просмотр данных о наличии билетов в
кассе;
. Предусмотрена возможность корректировки данных;
. Организован просмотр данных о пассажирах авиарейсах;
. Организован просмотр данных о рейсах авиалинии;
. Организован просмотр данных о самолетах компании;
. Организована возможность вывода информации о
пассажирах летящих из одного пункта в другой;
. Предусмотрена возможность вывода данных о
пассажирах, летящих заданным рейсом с указанным весом багажа;
. Обеспечено формирование списков пассажиров, имеющих
льготы;
. Обеспечено формирование списка обо всех полетах
самолетов заданного типа.
В результате выполнения курсовой работы была получена база
данных "Кассы аэрофлота", которая содержит таблицы с информацией о
билетах пассажирами рейсах самолетов. А также программа, позволяющая просматривать
эту информацию.
Поставленная в начале курсовой работы цель была достигнута. В
программе выполняются все необходимые функциональные требования.
Программа проста и понятна для любого пользователя, для ее
использования не нужно специального обучения. При этом она выполняет в основном
все функции, необходимые для нормальной работы.
Для создания базы данных использовался Microsoft Office
Access. Для написания программы использовался язык программирования Delphi,
имеющий широкие возможности для работы с базами данных. Соединение с базой
данных произведено при помощи технологии ADO. Обработка данных производилась
при помощи операторов языка SQL, что значительно ускоряет работу программы.
Список
используемой литературы
1. Архангельский
А.Я. "Программирование в Delphi 7".
2. БобровскийС.
"Delphi 7. Учебный курс".
. Владимир
Гофман, Евгений Мещеряков, Владимир Никифоров,
Анатолий
Хомоненко "Delphi 7. Наиболее полное руководство".
• Осипов
Д. "Delphi. Профессиональное программирование".
• Фаронов
В.В. "Delphi. Программирование на языке высокого
уровня".
Приложения
Приложение А.
Графический интерфейс программы
Приложение B.
Программный код приложения
Главная Форма
unit Unit4;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, StdCtrls, Menus;= class (TForm): TMainMenu;: TPopupMenu;:
TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;Button1Click (Sender:
TObject);Button2Click (Sender: TObject);Button3Click (Sender: TObject);N2Click
(Sender: TObject);N3Click (Sender: TObject);N4Click (Sender: TObject);N5Click
(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;Unit3, Unit2, Unit1, Unit5;
{$R *. dfm}TForm1. Button1Click (Sender: TObject);. show;.
Hide;;TForm1. Button2Click (Sender: TObject);. show;. Hide;;TForm1.
Button3Click (Sender: TObject);. show;. Hide;;TForm1. N2Click (Sender:
TObject);. show;. Hide;;TForm1. N3Click (Sender: TObject);. show;. Hide;;TForm1.
N4Click (Sender: TObject);. show;. Hide;;TForm1. N5Click (Sender: TObject);.
show;. Hide;;.
Форма "Склад"
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, DB, ADODB, Grids, DBGrids, StdCtrls;= class (TForm): TDataSource;:
TADOConnection;: TADOQuery;: TButton;: TButton;: TButton;: TButton;:
TDBGrid;FormCreate (Sender: TObject);Button1Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm4;Unit4, Unit2;
{$R *. dfm}TForm4. FormCreate (Sender: TObject);. SQL.
Clear;. SQL. Add ('SELECT * FROM накладная');. Active: =True;;TForm4.
Button1Click (Sender: TObject);. show;. Hide;;.
Форма Товар
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, DB, ADODB, Grids, DBGrids, StdCtrls;= class (TForm):
TDataSource;: TADOConnection;: TADOQuery;: TButton;: TButton;: TButton;:
TButton;: TDBGrid;FormCreate (Sender: TObject);Button1Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm2;Unit4, Unit3;
{$R *. dfm}TForm2. FormCreate (Sender: TObject);. SQL.
Clear;. SQL. Add ('SELECT * FROM Товар');. Active: =True;;TForm2. Button1Click
(Sender: TObject);. show;. Hide;;.
Форма Накладная
unit Unit3;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, DB, ADODB, Grids, DBGrids, StdCtrls;= class (TForm):
TDataSource;: TADOConnection;: TADOQuery;: TButton;: TButton;: TButton;:
TButton;: TDBGrid;FormCreate (Sender: TObject);Button1Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm3;Unit4, Unit1;
{$R *. dfm}TForm3. FormCreate (Sender: TObject);. SQL.
Clear;. SQL. Add ('SELECT * FROM Склад');. Active: =True;;TForm3. Button1Click
(Sender: TObject);. show;. Hide;;.
Форма Запросы
unit Unit5;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls,
ADODB;= class (TForm)_Close: TButton;: TDataSource;: TADOQuery;:
TADOConnection;: TEdit;: TButton;: TButton;: TButton;: TDBGrid;: TLabel;:
TLabel;: TLabel;: TButton;: TButton;: TButton;: TButton;: TEdit;: TEdit;:
TEdit;FormCreate (Sender: TObject);btn1Click (Sender: TObject);btn2Click
(Sender: TObject);btn3Click (Sender: TObject);btn_CloseClick (Sender:
TObject);btn4Click (Sender: TObject);btn5Click (Sender: TObject);btn6Click
(Sender: TObject);btn7Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm5;Unit4;
{$R *. dfm}TForm5. FormCreate (Sender: TObject);. SQL.
Clear;. SQL. Add ('SELECT * FROM накладная');. Active: =True;;TForm5. btn1Click
(Sender: TObject);. Active: =False;. SQL. Text: =Edit1. Text;. Active:
=True;;TForm5. btn2Click (Sender: TObject);. Clear;. Text: ='select * from
накладная Where [Time] = '+Edit4. Text+'';;TForm5. btn3Click (Sender:
TObject);. Clear;. Text: ='select *,Num from Склад, Товар';;TForm5.
btn_CloseClick (Sender: TObject);. Hide;. Show;;TForm5. btn4Click (Sender:
TObject);. Clear;. Text: = 'select * from накладная Where [Time] >'+Edit2.
text+' and [Time] <'+Edit3. Text+'';;TForm5. btn5Click (Sender: TObject);.
Clear;. Text: ='select Name from Склад';;TForm5. btn6Click (Sender: TObject);.
Visible: =True;. Visible: =True;;TForm5. btn7Click (Sender: TObject);. Visible:
=False;. Visible: =False;;.