Создание приложения в интегрированной среде Delphi для работы с базой данных «Склад предприятия»

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

2015-09-25

370.68 KB

151 чел.


Поделитесь работой в социальных сетях

Если эта работа Вам не подошла внизу страницы есть список похожих работ. Так же Вы можете воспользоваться кнопкой поиск


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

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

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

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

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

Специальность 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 Пояснительная записка

Введение:

  1.  Выбор технологии, языка и среды программирования
  2.   Структура взаимодействия входной и выходной информации
  3.   Требования к программно-аппаратному окружению
  4.  Проектирование базы данных
  5.  Реализация базы данных
  6.  Спецификация типовых объектов
  7.   Отладка и тестирование программы
  8.  Сообщение программисту

Заключение

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

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 легко расширяется установкой дополнительных модулей. Пользовательский интерфейс, также хорошо настраиваемый - каждый организует рабочее пространство так, как ему будет удобно.

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

  1.  Удобная среда разработки, включающая функциональный отладчик, доступный в любой момент. 
  2.  Контекстная справочная система, по которой можно изучать язык без обращения к сторонним источникам. 
  3.  Высокая скорость компиляции, высокая скорость выполнения откомпилированных программ. 
  4.  Встроенная возможность использовать вставки на языке ассемблера. 
  5.  Простота.
  6.  Эффективность.

Недостатки:

  1.  Недостаток шаблонов.
  2.  Статическое присоединение (linking) библиотеки VCL и компонентов к исполняемому файлу.
  3.  Вся информация о форме, хранится в .exe файле не оптимальным образом.

Вывод:

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

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

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

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

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

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

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

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

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

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

  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 и выше.

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

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

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

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

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

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

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

  1.  Ускоренное освоение приложения благодаря использованию встроенных решений.
  2.  Создание нескольких отчетов с разными представлениями одних и тех же данных.
  3.  Быстрое создание таблиц без применения сложных операций управления базой данных.
  4.  Новые типы полей, расширяющие возможности пользователей.

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

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

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

Рисунок 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

Отображает графическое изображение на форме.

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

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

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

  1.  Нисходящее тестирование;
  2.  Восходящее тестирование;
  3.  Тестирование потоков;
  4.  Интенсивное тестирование.

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

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

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

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

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

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

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

  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.



 

Другие похожие работы, которые могут вас заинтересовать.
9750. Разработка интерфейса пользователя для работы с базой данных «Автомастерская» 9.31 MB
  При разработке структуры базы данных использована идея семантического моделирования выделены имеющиеся функциональные зависимости и выполнена нормализация полученных отношений разработана программа для работы с базой данных конечного пользователя. Поэтому основным программным средством для обработки информации на данный момент являются различные информационные системы и базы данных. Для обработки таблиц Microsoft ccess использует мощный язык SQL Structured Query Lnguge структурированный язык запросов.
7643. Основные принципы работы с базой данных в Microsoft Access 9.01 KB
  Основные принципы работы с базой данных в Microsoft ccess. Что такое База данных. Проектирование базы данных. Создание базы данных.
20996. Графические объекты в среде Delphi 365.54 KB
  Цель работы: изучение графических возможностей среды Delphi для создания учебного материала по графике в Delphi. Для работы с графикой в Delphi существует библиотека визуальных компонентов VCL скрывающая механизм взаимодействия приложения с операционной системой и облегчающая работу с графикой. В каждом параграфе предлагается основной теоретический материал по теме практические задания с описанием пошагового выполнения действий для их выполнения вопросы для закрепления основных умений и навыков вырабатываемых в процессе изучения...
12494. Разработка аудиоплеера в кроссплатформенной среде Embarcadero Delphi 1.21 MB
  Профессия программиста состоит не только из написания кода к физическим и логическим объектам программной среды она подразумевает умение работать с растровыми и векторными графическими редакторами использовать внешние аудио библиотеки и кодеки группировать объекты согласно их назначению и придавать законченный программный вид понятный и доступный для работы широкого спектра пользователей. Embrcdero Delphi [дэ́лф’и] ранее Borlnd Delphi и CodeGer Delphi интегрированная среда разработки ПО для Microsoft Windows Mc OS iOS иndroid на...
13161. Создание веб-приложения на тему «Экономические новости Евросоюза» 443.59 KB
  Привлекательность Web-технологий как средства доставки информации во многом определяет универсальный интерфейс между человеком и компьютером. Каждому человеку понятны надписи, заголовки, ссылки, картинки. Веб-интерфейс как средство доступа к информации интуитивно понятен. Следствием простоты веб-интерфейса является широкая употребимость Интернета как канала коммуникации.
1542. Создание мобильного приложения колледжа “Угреша” для операционной системы iOS 21.57 MB
  Выпускная квалификационная работа посвящена разработке и Создание мобильного приложения колледжа “Угреша” для операционной системы iOS. В теоретической части произведен литературный обзор, в ходе которого были рассмотрены способы создания данного приложения...
4474. Создание интерфейса оператора и модели управления в инструментальной среде TRACE MODE 6 31.89 KB
  Изучение принципов разработки интерфейса оператора и моделирования системы управления объектом средствами SCADA-системы TRACE MODE 6.
10003. Проектирование приложения для автоматизации учёта товаров на складе торгового предприятия 735.69 KB
  В условиях относительной неопределенности в налоговой сфере предприятие может сильно пострадать или даже потерпеть крах, и всего лишь из-за небрежности в бухгалтерском учете. Примеров тому в России очень много, причем часто страдают предприятия, стремящиеся работать честно. Страдают из-за небрежного ведения внутренней бухгалтерии предприятия. Страдают также из-за незнания и соответственно невыполнения последних законов и распоряжений (а они принимаются сплошь и рядом). При ведении бухгалтерского учета вручную возможны и простейшие арифметические ошибки.
5061. Создание базы данных поликлиники 2.4 MB
  Развитие средств вычислительной техники и информационных технологий обеспечило возможности для создания и широкого применения автоматизированных информационных систем (АИС) разнообразного назначения. Разрабатываются и внедряются информационные системы управления хозяйственными и техническими объектами
5251. Создание информационного банка данных 2.13 MB
  Для создания новой таблицы следует выбрать пункт меню File New Tble. Для создания вторичных индексов используется меню Secondry Indexes в выпадающем списке. Для создания связей между таблицами Student и Komnts используется меню Referentil Integrity в выпадающем списке Tble Properties...
© "REFLEADER" http://refleader.ru/
Все права на сайт и размещенные работы
защищены законом об авторском праве.