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

Кафедра информационных технологий

Оптовый склад

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

к курсовой работе по дисциплине

«Базы данных»

КП - 02068055.230201.09 - 3.124 ПЗ



Содержание

ВВЕДЕНИЕ

I. Проектирование базы данных оптового склада

1.1 Описание предметной области

1.2 Концептуальное проектирование базы данных

1.3 Логическое проектирование базы данных

1.4Физическое проектирование базы данных

II. Разработка базы данных оптового склад

2.1 Требования, предъявляемые к аппаратному и программному обеспечению Borland Delphi 7.0 и MySQL.

2.2 Обоснование выбора среды разработки Borland Delphi 7.0 и MySQL.

2.3 Работа с базой данных оптового склада

Заключение

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

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

1.Unit1

2.Unit2



ВВЕДЕНИЕ

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

Термин база данных вошел в употребление в конце 60-х-иачале 70-х годов прошлого столетия. И то же время появились и работы, и которых обсуждались различные модели данных, анализировались принципы и особенности организации баз данных. К 1972 голу Э.Ф.Кодд предложил использовать для их описания исчисление отношений и разработал на его основе специальный язык манипулирования данными. Это значительно ускорило развитие реляционной модели, а базы данных с одноименным названием прочно заняли ведущее место среди инструментов хранения и представления информации.

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

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

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

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



I. Проектирование базы данных оптового склада

1.1 Описание предметной области

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

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

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

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

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

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

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

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

* Поставщики;

* Покупатели;

* Товар в наличие;

* Проданный товар;

* Поставленный товар;

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

1.2 Концептуальное проектирование базы данных

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

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

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

Построение концептуальной модели представляет собой процесс моделирования смыслового наполнения базы данных. Концептуальная модель состоит из следующих трёх основных компонентов:

1.Сущности - это элементы реального мира, которые могут существовать независимо.

2. Атрибуты. Атрибуты описывают сущность.

3.Связи. Связь представляет собой взаимодействие между сущностями.

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

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

В таблице 1 представлены поля и их типы реляционного отношения «Поставщики».

Таблица 1 - «Поставщики»

Имя Поля	Тип Данных	Ключевое поле
Номер поставщика	Числовой	Ключ
Название фирмы	Текстовый
Адрес поставщика	Текстовый
Индекс	Числовой
Телефон	Числовой
ИНН поставщика	Числовой

В таблице 2 представлены поля и их типы реляционного отношения «Покупатели».

Таблица 2 - «Покупатели»

Имя Поля	Тип Данных	Ключевое поле
Номер покупателя	Числовой	Ключ
ФИО	Текстовый
Адрес	Текстовый
Индекс	Числовой
Телефон	Числовой
ИНН поставщика	Числовой

В таблице 3 представлены поля и их типы реляционного отношения «Товар в наличие».

Таблица 3 - «Товар в наличие»

Имя Поля	Тип Данных	Ключевое поле
Номер товара	Числовой	Ключ
Наименование товара	Текстовый
Единица измерения	Текстовый
Цена за ед.измерения	Денежный
Количество товара	Числовой
ИНН поставщика	Числовой

В таблице 4 представлены поля и их типы реляционного отношения «Поставленный товар».

Таблица 4 - «Поставленный товар»

Имя поля	Тип данных	Ключевое поле
Номер поставки	Числовой
Наименование	Текстовый
Ед.измерения	Текстовый
Количество	Числовой
Цена за ед.изм.	Денежный
Стоимость товара(без налога)	Денежный

В таблице 5 представлены поля и их типы реляционного отношения «Проданный товар»

Таблица 5 - «Проданный товар»

Имя поля	Тип данных	Ключевое поле
Номер продажи	Числовой	Ключ
Наименование	Текстовый
Ед. Измер.	Текстовый
Количество	Числовой
Цена за ед.измер.	Денежный
Стоимость товара( без налога)	Денежный
Налоговая ставка	Числовой
Сумма налога	Денежный
Стоимость товара( с налогом)	Денежеый
Дата продажи	Числовой

1.3 Логическое проектирование базы данных

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

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

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

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

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

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

Первая нормальная форма

Первая нормальная форма:

· запрещает повторяющиеся столбцы (содержащие одинаковую по смыслу информацию)

· запрещает множественные столбцы (содержащие значения типа списка и т.п.)

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

Вторая нормальная форма

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

Третья нормальная форма

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

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

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



Поставщики Покупатели

1 1

Товар в наличие Поставленный товар

1 м

1

Проданный товар

м

Рисунок 1 - Логическая модель данных на языке«сущность - связь»

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

1.4 Физическое проектирование базы данных

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

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

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

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

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

¦ разработка средств защиты создаваемой системы.

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

¦ Они связаны с совершенно разными аспектами системы: что делать и как делать.

¦ Они выполняются в разное время, поскольку понять, что надо сделать, следует прежде, чем решить, как это сделать.

¦ Они требуют совершенно разных навыков и умений, которыми обычно обладают разные люди.



2. Разработка базы данных оптового склада

2.1 Требования, предъявляемые к аппаратному и программному обеспечению Borland Delphi 7.0 и MySQL

Для реализации базы данных используется одна из версий популярной мультиплатформенной среды быстрой разработки Borland Delphi 7.0 Enterprise Edition, являющейся первой системой разработки, которая поддерживает технологию .Net и не произведена самой компанией Microsoft, и позволяющей разработать не только приложения, которые пойдут на любой 32-х битной операционной системе Windows и, если понадобится, перенесутся на Linux, но и будут работать, используя технологию NET.

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

· Процессор Intel Pentium IV с тактовой частотой 800 МГц и выше;

· 3 Гб дискового пространства на жестком магнитном диске;

(1536 - 2048 Мб - для установки операционной системы, необходимой для обеспечения работы средства разработки, 475 Мб - для полной установки среды Borland Delphi 7.0 Enterprise Edition)

· 128 Мб оперативной памяти;

· привод CD - ROM;

· VGA монитор;

· клавиатура, мышь;

· модем.

Для использования среды разработки Borland Delphi 7.0 Enterprise Edition необходимо наличие на персональном компьютере одной из следующих операционных систем семейства Windows: Microsoft Windows XP, Windows 2000, или Windows 98.

Также при реализации базы данных было использовано СУБД MySQL.

MySQL разработал Михаэль Видениус (Michael Widenius). MySQL является относительно небольшой и быстрой реляционной СУБД основанной на традициях Hughes Technologies Mini SQL (mSQL).

Прежде чем использовать MySQL, ее необходимо установить. MySQL работает почти на любой известной Unix-платформе, а также под управлением Windows 9x, Windows NT и OS/2. Для Windows 9x и Windows NT требуется приобрести лицензию. Если вы хотите лишь протестировать работу этой СУБД, имеется более старая бесплатная версия.

2.2 Обоснование выбора среды разработки Borland Delphi 7.0 и MySQL

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

Для реализации поставленной задачи была выбрана система программирования Delphi версии 7 фирмы Enterprise (Borland), так как она предоставляет наиболее широкие возможности для программирования приложений операционной системы Windows.

Delphi - это продукт Borland International для быстрого создания приложений. Высокопроизводительный инструмент визуального построения приложений включает в себя настоящий высокопроизводительный компилятор кода и предоставляет средства визуального программирования, несколько похожие на те, что можно обнаружить в Microsoft Visual Basic или в других инструментах визуального проектирования. В основе Delphi лежит язык Object Pascal, который является расширением объектно-ориентированного языка Pascal.

Прежде всего, Delphi предназначен для профессиональных разработчиков, желающих очень быстро разрабатывать приложения в архитектуре клиент-сервер. Delphi производит небольшие по размерам (до 15-30 Кбайт) высокоэффективные исполняемые модули (.exe и .dll), поэтому в Delphi должны быть, прежде всего, заинтересованы те, кто разрабатывает продукты на продажу. С другой стороны небольшие по размерам и быстро исполняемые модули означают, что требования к клиентским рабочим местам существенно снижаются - это имеет немаловажное значение и для конечных пользователей.

Преимущества Delphi по сравнению с аналогичными программными продуктами.

· быстрота разработки приложения;

· высокая производительность разработанного приложения;

· низкие требования разработанного приложения к ресурсам компьютера;

· наращиваемость за счет встраивания новых компонент и инструментов в среду Delphi;

· возможность разработки новых компонент и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходных кодах);

· удачная проработка иерархии объектов.

Система программирования Delphi рассчитана на программирование различных приложений и предоставляет большое количество компонентов для этого. К тому же работодателей интересует, прежде всего, скорость и качество создания программ, а эти характеристики может обеспечить только среда визуального проектирования, способная взять на себя значительные объемы рутинной работы по подготовке приложений, а также согласовать деятельность группы постановщиков, кодировщиков, тестеров и технических писателей.

MySQL является наиболее приспособленной для применения в среде web СУБД. Также MySQL высокоэффективная СУБД, обладающая высокой надежностью.

По этим причинам MySQL стала незыблемым стандартом в области СУБД для web, а теперь в ней развиваются возможности для использования ее в любых критичных бизнес-приложениях, то есть конкурирует на равных с такими СУБД таких производителей, как Oracle, IBM, Microsoft и Sybase.

Основные преимущества MySQL:

· многопоточность, поддержка нескольких одновременных запросов;

· оптимизация связей с присоединением многих данных за один проход;

· записи фиксированной и переменной длины;

· ODBC драйвер;

· гибкая система привилегий и паролей;

· гибкая поддержка форматов чисел, строк переменной длины и меток времени;

· интерфейс с языками C и Perl, PHP;

· быстрая работа, масштабируемость;

· совместимость с ANSI SQL;

· бесплатна в большинстве случаев;

2.3 Работа с базой данных оптового склада

Приняв во внимание все аспекты работы оптового склада, было решено создать очень простую и понятную пользователю программу.

После запуска БД пользователю открывается окно следующей структуры:

1. Строка заголовка.

2. Строка меню.

3. Основная область БД

Первое что бросается в глаза это строка заголовка нашей базы данных. Там написано наше название базы данных.

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

Рисунок 2- меню проекта

Во второй кнопке под названием «Запросы» пользователь перейдет к форме запросов.

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

На главной форме для каждой таблицы добавлена панель навигации, с помощью которой можно осуществлять добавление, удаление и обновление информации. Переход между вкладками осуществляется с помощью кнопок «Вперед» и «Назад» а так же комбинациями клавиш.(рис. 3,4)



Рисунок 3 - основная форма проекта, вкладка «Поставщики»

Рисунок 4 - основная форма проекта, вкладка «Покупатели»

Когда пользователь нажимает на кнопку меню«Запросы», он попадает на отдельную форму запросов.

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

Рисунок 5 - выполнение запроса на стоимость товара без налога

Аналогичные действия нужно провести в следующей области «условие запроса».(рис.6)



Рисунок 6 - выполнение запроса по количеству товара в наличие

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



Рисунок 7 - выполнение запроса по количеству поставленного товара

Аналогичным способом выполнятся «запрос на сумму налога проданных товаров». (рис. 8)



Рисунок 8 - выполнение запроса на сумму налога проданных товаров

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

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



Заключение

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

В ходе выполнения курсовой работы были получены навыки проектирования баз данных, составления SQL запросов, изучены основные приёмы работы с средством разработки баз данных MS SQL и Borland Delphi 7.0.

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



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

1. В.Н.Шакин. Г.К.Сосновиков, И.Б.Юскова. Методические указания по дисциплине ТЕОРЕТИЧЕСКИЕ ОСНОВЫ ПОСТРОЕНИЯ БД. М., МТУСИ.2004

2. Г.К.Сосновиков, В.Н.Шакин, И.Б.Юскова. Методические указания и контрольные задания по дисциплине ОСНОВЫ ПОСТРОЕНИЯ БД. М., МТУСИ. 2004.

3. Т.Коннолли, К.Бегг, А.Страчан . БАЗЫ ДАННЫХ: ПРОЕКТИРОВАНИЕ, РЕАЛИЗАЦИЯ И СОПРОВОЖДЕНИЕ. ТЕОРИЯ II ПРАКТИКА

4. Пушников А.Ю. Введение в системы управления базами данных. Часть 1. Реляционная модель данных: Учебное пособие/Изд-е Башкирского унта. - Уфа, 1999. - 108 с. - ISBN 5-7477-0350-1.

5. Пушников А.Ю. Введение в системы управления базами данных. Часть 2. Нормальные формы отношений и транзакции: Учебное пособие/Изд-е Башкирского ун-та. - Уфа, 1999. - 138 с. - ISBN 5-7477-0351-Х.

6. Гофман В. Э., Хомоненко А. Д. Delphi 7. - СПб.: БХВ-Петербург, 2002. - 1152 с.: ил.

7. Фаронов В. В. Delphi. Программирование на языке высокого уровня: Учебник для вузов. - СПб.: Питер, 2007. - 640 с.: ил.

8. Тюкачев Н.А. Программирование в Delphi для начинающих. - СПб.: БХВ - Петербург, 2007. - 672 с.: ил.

9. Климова Л. М. Delphi 7. Основы программирования. Решение типовых задач. Самоучитель. - М.: КУДИЩ - ОБРАЗ, 2006. - 450 с.:ил.

10. Ржеуцкая С.Ю. Базы данных. Язык SQL. Вологда: ВоГТУ, 2010 г. -159 с.



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

1.Unit1

unit Unit1;

interface

uses

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

Dialogs, Menus, ComCtrls, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids,

DBGrids;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOTable2: TADOTable;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

ADOTable3: TADOTable;

DataSource3: TDataSource;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

ADOTable4: TADOTable;

DataSource4: TDataSource;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

ADOTable5: TADOTable;

DataSource5: TDataSource;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

ADOQuery1: TADOQuery;

N8: TMenuItem;

N9: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);

procedure DBGrid3KeyPress(Sender: TObject; var Key: Char);

procedure DBGrid4KeyPress(Sender: TObject; var Key: Char);

procedure DBGrid5KeyPress(Sender: TObject; var Key: Char);

procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

TabSheet5.Show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

TabSheet5.Show;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0]of Char;

begin

s2[0]:=Key;

if DBGrid1.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.DBGrid2KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0]of Char;

begin

s2[0]:=Key;

if DBGrid2.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.DBGrid3KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0]of Char;

begin

s2[0]:=Key;

if DBGrid3.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.DBGrid4KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0]of Char;

begin

s2[0]:=Key;

if DBGrid4.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.DBGrid5KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0]of Char;

begin

s2[0]:=Key;

if DBGrid5.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form2.Show;

Form2.TabSheet1.Show;

end;

end.

2.Unit2

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, DB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus,

ComCtrls, ADODB;

type

TForm2 = class(TForm)

MainMenu1: TMainMenu;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

N1: TMenuItem;

N2: TMenuItem;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Edit3: TEdit;

Edit4: TEdit;

Label2: TLabel;

Button3: TButton;

Button4: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);

begin

ADOQuery1.Active := false;

ADOQuery1.sql.Clear;

ADOQuery1.SQL.Add('select * from postavlenniy_tovar where kolichestvo > 100');

ADOQuery1.Active := True;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

ADOQuery1.Active := false;

ADOQuery1.sql.Clear;

ADOQuery1.SQL.Add('select * from prodanyi_tovar where stoimost_tovara_bez_naloga >='+Edit1.Text+' and stoimost_tovara_bez_naloga <'+Edit2.Text);

ADOQuery1.Active := True;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

ADOQuery1.Active := false;

ADOQuery1.sql.Clear;

ADOQuery1.SQL.Add('select * from tovar_v_nalichie where kolichestvo >='+Edit3.Text+' and kolichestvo <'+Edit4.Text);

ADOQuery1.Active := True;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

ADOQuery1.Active := false;

ADOQuery1.sql.Clear;

ADOQuery1.SQL.Add('select * from prodanyi_tovar where summa_naloga > 22.9');

ADOQuery1.Active := True;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

close;

end;

end.

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