Проектирование и разработка информационной системы "Учет товаров на складе"

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

Министерство образования и науки РД

Государственное бюджетное профессиональное образовательное учреждение РД

«Технический колледж»

Курсовой проект

По междисциплинарному курсу «Технология разработки и защита баз данных»

На тему Проектирование и разработка информационной системы «Учет товаров на складе»

Выполнил:

Мирзоев А.

Проверила:

Газилалиева Р.А

Махачкала 2017 г.



Введение

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

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

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

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

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

Структура курсовой работы

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

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

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

Проектирование информационной системы на основе базы данных

Для работы будет создана реляционная (табличная) база данных состоящая из нескольких таблиц. Причиной создания реляционной базы данных является :

1. Обеспечение более высокой степени независимости от данных.

2. Создание прочного фундамента для решения проблем непротиворечивости и избыточности данных.

Для работы с данной базой данных необходима СУБД (Система Управления Базами Данных). Одной из самых популярных на данный момент СУБД является «MySQL». Свою популярность она получила благодаря своей универсальности, т.е обеспечивает работу с базами данных как локально, так и удаленно. К основным плюсам MySQL можно отнести высокую скорость работы, быстроту обработки данных и оптимальную надежность. Немаловажно и то, что данная СУБД распространяется бесплатно и представляет собой программное обеспечение с открытым кодом.

MySQL - это один из множества ПО для работы с SQL базами данных.

SQL - это структурированный язык запросов, созданный для управления реляционными БД. Он обладает широким перечнем возможностей, например, создать таблицу, редактировать и удалять данные, производить запросы из таблиц и многое другое.

Для создания информационной системы также необходимо правильно выбрать среду программирования. Информационная система будет разрабатываться в объектно-ориентированной среде программирования Delphi.

Delphi -- это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Язык Delphi -- строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal. Delphi - близкий родственник обычного языка Pascal, что обеспечило ему широкую популярность. В настоящее время Delphi стал основным инструментом разработки программного обеспечения во всем мире. Существует и версия Builder, в которой можно совместно использовать процедуры, написанные на языках C и Pascal.

Информационная система должна быть проста в использовании, обеспечивать различные манипулирования с базой данных и иметь «дружественный» интерфейс.

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

Цель работы

Предмет исследования - автоматизация работы ведения учета товаров на складе.

Цель исследования - проектирование и разработка информационной системы для автоматизации работы на складе.

Задача исследования :

- Проведение анализа сферы составления баз данных для складов.

- Создание и описание структурной модели склада.

- Моделирование баз данных.

- Разработка пользовательского приложения для ведения учета товаров на складе.



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

1.1 Постановка задачи

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

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

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

- Износ и устаревание журналов по ведению учета товаров.

- Невозможность поиска определенного товара среди его большого количества.

- Невозможность удаленного доступа к записям о товарах.

- Затруднительность поиска товара и информации о нем в журналах учета.

Следовательно, основную цель создания данного проекта можно разделить на несколько подцелей:

1) Улучшение производительности труда пользователя. Например: Быстрое получение информации о товаре

2) Улучшение качества хранения информации, ее обработки и передачи

3) Более строгий контроль наличия товара.

4) Повышенная степень защиты базы данных с информацией о товарах расположенных на складе.

Пользователь данного программного продукта получает ряд преимуществ, такие как:

- Пропадает необходимость хранения больших журналов, для ведения записей о товарах

- Быстрота поиска товара в базе данных. Поиск осуществляется за доли секунд.

- Уменьшение работы с бумагами.

- Повышение эффективности работы пользователя

- Возможность добавления, удаления и изменения информации о товаре.

Назначением проектирования «Информационной системы для учета товара на складе» является:

1) Автоматизация получения данных и добавления данных о товарах

2) Составление отчетности о Полученных и выданных товарах.

3) Автоматизация ввода и контроля данных.

4) Выдача информации по запросам.

5) Обеспечение централизованного хранения информации в базе данных.

1.1 Перечень входных и выходных данных

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

Таблица №1

Код товара	Назв-е	Кол-во	Цена	Код пост-ка	Пост-щик	Код клиент а	Клиент	Опис-ание
…………	………….	………….	………….	…………….	……………	……………	………….	………….

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

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

1.2 Взаимодействие с другими программами

Информационная система должна выводить отчеты в текстовый редактор Microsoft WordPad и также обеспечивать экспорт отчетности в файл формата PDF.

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

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

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

Для создания базы данных нам необходимо создать несколько таблиц, а именно таблицы: «Склад», «Товар», «Клиент» и «Поставщик».

Таблица «Склад» будет являться таблицей, которая будет хранить все данные о товарах, и которая будет выводиться на экран пользователя в нашей информационной системе.

Таблица «Товар» будет содержать информацию о коде товара, его названии, количестве и цене.

Таблица «Клиент» будет содержать информацию о коде клиента и информации о нем.

Таблица «Поставщик» будет содержать информацию о коде поставщика и информации о нем.



2. Разработка логической структуры базы данных

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

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

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

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

Исходя из вышесказанного следует, что нам необходимо использовать связь «многие-ко-многим».

Для того чтобы организовать данную связь мы должны:

1)Выбрать базу данных (в нашем случае это база данных «Склад»)

2)Войти в режим «Дизайнер»

3)В выпадающем меню выбираем кнопку «Создать связь»

4)Далее необходимо выбрать поле с первичным ключем и после этого выбрать поле с индексом. (Например, выбираем поле с первичным ключем «Код товара» в таблице «Склад», и далее выбираем поле с индексом «Код товара» уже в таблице «Товар».

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

В итоге мы получаем такой набор таблиц объединенных друг с другом (рис.2).

Таблица «Склад»

Таблица «Товар»

Таблица «Клиент»

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

Логическая модель



3. Реляционная модель

Реляционная модель проектируемой базы данных:

1) Склад (Код товара, название товара, количество, цена, код поставщика, поставщик, код клиента, клиент, описание).

2) Товар (Код товара, название товара, количество, цена).

3) Поставщик (Код поставщика, поставщик).

4) Клиент (Код клиента, клиент).

Таблица «Склад»:

Внешний ключ: Код товара

Таблица «Товар»:

Внешний ключ: Код товара

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

Внешний ключ: Код поставщика

Таблица «Клиент»

Внешний ключ: Код клиента

Описание таблиц базы данных

Таблица «Склад» Содержит общую информацию о товарах находящихся на складе. Объединяет всю информацию с разных таблиц базы данных.

Таблица

Наименование поля	Тип поля	Размер поля	Обязательное поле	Ключевое поле
Код товара	Числовой	11	Да	Да
Название товара	Текстовое	50	Нет	Нет
Количество	Числовой	11	Нет	Нет
Цена	Текстовое	50	Нет	Нет
Код поставщика	Числовой	11	Нет	Нет
Поставщик	Текстовый	50	Нет	Нет
Код клиента	Числовой	11	Нет	Нет
Клиент	Текстовый	50	Нет	Нет
Описание	Текстовый	70	Нет	Нет



Таблица «Товар»

Содержит информацию о товарах.

Таблица

Наименование поля	Тип поля	Размер поля	Обязательное поле	Ключевое поле
Код товара	Числовой	11	Да	Да
Название товара	текстовый	50	Нет	Нет
Количество	Числовой	11	Нет	Нет
Цена	Текстовый	50	Нет	Нет

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

Содержит информацию о поставщике, который привез товар на склад.

Таблица

Наименование поля	Тип поля	Размер поля	Обязательное поле	Ключевое поле
Код поставщика	Числовой	11	Да	Да
Поставщик	Текстовый	50	Нет	Нет

Таблица «Клиент»

Содержит информацию о клиентах которым был выдан товар.

Таблица

Наименование поля	Тип поля	Размер поля	Обязательное поле	Ключевое поле
Код клиента	Числовой	11	Да	Да
Клиент	Текстовый	50	Нет	Нет

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

Нормализация - метод создания набора отношений с заданными свойствами на основе требований к данным, установленных в некоторой организации.

Нормализация базы данных производится для того, чтобы:

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

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

- Обеспечить быстрый доступ к данным в таблицах.

Нормализованное отношение представляется в виде личной структуры. Имя таблицы (соответствует имени отношения, имена столбцов - именам атрибутов, а строки таблицы - кортежам.

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

- первая нормальная форма

- вторая нормальная форма

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

- нормальная форма Бойса-Кодда

- четвертая нормальная форма

- пятая нормальная форма

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

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

Для реляционной БД выделяют три группы правил целостности:

1. Целостность по сущностям (не допускается, чтобы какой-либо атрибут, участвующий в первичном ключе, принимал неопределенное значение).

2. Целостность по ссылкам (значение внешнего ключа должно либо быть равным значению первичного ключа цели, либо быть полностью неопределенным, т.е. каждое значение атрибута, участвующего во внешнем ключе должно быть неопределенным)

3. Целостность, определяемая пользователем.

Для любой конкретной базы данных существует ряд дополнительных специфических правил, которые относятся к ней одной и определяются разработчиком. Чаще всего контролируются: уникальность тех или иных атрибутов; диапазон значений (экзаменационная оценка от 2 до 5); принадлежность набору значений (пол "М" или "Ж")

Таблица описания сущностей

Таблица

Сущность	Описание
Склад	Таблица в которых будет собрана вся информация о товаре со всех таблиц базы данных
Клиент	Таблица в которых хранится информация о клиентах
Поставщик	Таблица в которой хранится информация о поставщиках
Товар	Таблица в которой хранится информация о товарах

Сущность - это важная вещь или объект, сведения о котором нужно сохранить. Не все вещи являются сущностями, а только те, данные о которых должны быть сохранены. Сведения о сущностях имеют вид атрибутов и/или связей. Если некий кандидат на то, чтобы быть сущностью, не имеет атрибутов или связей, в действительности он не является сущностью. В модели базы данных сущности представляются в виде прямоугольника с заголовком. Заголовок является именем сущности.

Таблица описания атрибутов

Таблица

Название атрибута	Описание
Код товара	Уникальный номер товара
Название товара	Название товара
Количество	Количество товара расположенного на складе
Цена	Цена за товар
Код поставщика	Уникальный номер поставщика
Поставщик	Имя (Название) поставщика
Код клиента	Уникальный номер клиента
Клиент	Имя (Название) клиента
Описание	Общая информация о товаре

Атрибут описывает данные о сущности, которые нужно сохранить. У каждой сущности ноль или более атрибутов, описывающих ее, и каждый атрибут описывает в точности одну сущность. Каждый экземпляр сущности (строка таблицы) имеет в точности одно значение, возможно, равное NULL, для каждого из своих атрибутов. Значение атрибута может быть числом, строкой символов, датой, временем или другим базовым значением данных. На первом этапе проектирования базы данных, логическом моделировании, нас не заботит то, каким образом будут храниться данные.



4. Создание глобальной схемы связей. Поддержка целостности данных

Запросы. Структура и назначение. SQL - запросы.

При проектировании информационной системы будут использоваться следующие SQL - запросы:

1) Запрос для вывода всей информации из таблицы «Склад»

Select * from sklad;

2) Запрос для поиска информации о товаре, название которого будет равно записи введенной в поле для поиска.

SELECT * FROM sklad WHERE tovar LIKE '''+Edit1.Text+'%''



5. Описание модулей информационной системы

В информационной системе присутствуют следующие модули:

1)Unit1 - стартовое окно авторизации

2)Unit2 - окно выводящее информацию в табличном виде

3)Unit3 - окно для выводящее предварительный вариант документа, который в последующем будет распечатан.

4)Unit4 - окно выводящее информацию о программе.

Структура модулей:

Unit1- стартовое окно. Выполняет следующие функции:

-ввод логина и пароля. (присутствуют права доступа пользователя, администратора и гостя)

Unit2 - Выполняет следующие функции:

-Поиск в базе данных информации о товарах

-Редактирование информации: удаление, добавление, изменение (в зависимости от уровня доступа)

-Сортировка выводимых на таблицу данных.

Unit3 - Выполняет следующие функции:

-Вывод предварительной формы оформления отчетного документа.

-Печать документа

-Закрытие окна

Unit4- Выполняет следующие функции:

-Вывод информации о программе.



6. Описание работы «Информационной системы для учета товаров на складе»

Стартовое окно - «Авторизация»

В данном окне происходит авторизация пользователя, где тот должен ввести свой логин и пароль. Доступ разграничен на 3 уровня это:

-Администратор

-Пользователь

-Гость

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

Окно «Склад»

В этом окне проходит работа с информацией о товарах.

В данном окне присутствует главное меню, поля для поиска товаров, кнопки для сортировки информации и навигатор по таблице. В зависимости от прав доступа возможность изменения информации будет отсутствовать и навигатора на окне не будет.

Под каждой кнопкой навигатора расписано действие, которое выполняет соответствующая кнопка (например, «В начало», «Добавить», «Удалить» и т.д.).

Также присутствует панель с вариантами сортировки. После нажатия на один из вариантов сортировки, записи в таблицы будут отсортированы по выбранному параметру.

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



Взаимодействие с другими программами осуществляется посредством экспорта. Предусмотрен экспорт в файлы формата RTF и PDF.

Окно «Печать»

Данное окно необходимо для печати отчетности. На этом окне предоставлен предварительный вариант документа.

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

Окно «О программе»

Выводит информацию о создателе программы.



7. Описание компонентов используемых при проектировании «Информационной системы для учета товаров на складе»

- TForm - основа программы. Его свойства определяют вид окна программы и на него добавляются другие компоненты.

- TLabel - предназначен для вывода текста на окно программы. В свойства входит изменение вида и расположения текста.

-TButton - кнопка выполняющая прописанную команду.

-DBEdit - поле для ввода текста

-DBGrid - компонент для вывода и редактирования базы данных

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

-AdoConnection - компонент с помощью которого база данных объединяется с программой.

-MainMenu - компонент реализующий создание панели главного меню.

-frxReport - компонент позволяющий настроить внешний вид отчетного документа.

-frxPrewiew - компонент выводящий предварительный вариант отчетного документа

-frxPDFExport компонент позволяющий осуществить экспорт отчетного документа в файл формата PDF

-frxRTFExport компонент позволяющий осуществить экспорт отчетного документа в файл формата RTF



8. Руководство пользователя

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

- Процессор Intel или AMD с тактовой частотой не менее 1ГГц.

-512 МБ оперативной памяти

-Операционная система Windows любых версий

-Предварительно установленный драйвер ODBC



Заключение

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

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

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

3. Организован просмотр информации о товарах присутствующих на складе.

4. Организована возможность изменения записей о товарах

5. Организована возможность поиска информации о товарах

6. Предусмотрена возможность сортировки данных в таблице

7. Предусмотрена возможность экспортирования информации о товарах в файлы формата PDF и RTF.

8. Организована возможность печати отчетности.

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

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

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



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

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

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

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

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

5. Осипов Д.«Delphi. Профессиональное программирование».

6. Фаронов В. В. «Delphi. Программирование на языке высокого уровня».



Приложение

Код программы.

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

sklad: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

PDF1: TMenuItem;

RTF1: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

DBNavigator1: TDBNavigator;

Edit1: TEdit;

ADOTable1: TADOTable;

Label12: TLabel;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

Label13: TLabel;

Label14: TLabel;

Edit2: TEdit;

Edit3: TEdit;

N3: TMenuItem;

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure PDF1Click(Sender: TObject);

procedure RTF1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);

begin

form1.Close;

Form4.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form1.Close;

Form4.Close;

end;

procedure TForm1.PDF1Click(Sender: TObject);

begin

Form2.frxReport1.ShowReport();

Form2.frxReport1.Export(Form2.frxPDFExport1)

end;

procedure TForm1.RTF1Click(Sender: TObject);

begin

Form2.frxReport1.ShowReport();

Form2.frxReport1.Export(Form2.frxRTFExport1)

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form2.Show;

Form2.frxReport1.ShowReport();

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM sklad WHERE nazvanie_tovara LIKE '''+Edit1.Text+'%''');

ADOQuery1.Active:=True;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked then

ADOQuery1.Sort:='kod'

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked then

ADOQuery1.Sort:='postavshik';

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

if RadioButton3.Checked then

ADOQuery1.Sort:='klient'

end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

if RadioButton4.Checked then

ADOQuery1.Sort:='kod_tovara'

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM sklad WHERE postavshik LIKE '''+Edit2.Text+'%''');

ADOQuery1.Active:=True;

end;

procedure TForm1.Edit3Change(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM sklad WHERE klient LIKE '''+Edit3.Text+'%''');

ADOQuery1.Active:=True;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, frxClass, frxPreview, frxDBSet, frxExportRTF, frxExportPDF,

StdCtrls;

type

TForm2 = class(TForm)

frxReport1: TfrxReport;

frxDBDataset1: TfrxDBDataset;

frxPreview1: TfrxPreview;

frxPDFExport1: TfrxPDFExport;

frxRTFExport1: TfrxRTFExport;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.frxReport1.ShowReport();

Form2.frxReport1.Print;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form2.Close;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, StdCtrls;

type

TForm4 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

if (Form4.Edit1.Text = 'admin') and (Form4.Edit2.Text = '12345')

then

begin

Form1.Show;

Form4.Hide;

end

else

if (Form4.Edit1.Text = 'sotrudnik') and (Form4.Edit2.Text = '1111')

then

begin

Form1.Show;

Form4.Hide;

end

else

if (Form4.Edit1.Text = 'root') and (Form4.Edit2.Text = '')

then

begin

Form1.Show;

Form4.Hide;

end

else

if (Form4.Edit1.Text = 'guest') and (Form4.Edit2.Text = '')

then

begin

Form1.Show;

Form4.Hide;

Form1.DBGrid1.ReadOnly:= True;

Form1.DBNavigator1.Visible:= False;

Form1.Height:= 570;

Form1.Label2.Visible:= False;

Form1.Label3.Visible:= False;

Form1.Label4.Visible:= False;

Form1.Label5.Visible:= False;

Form1.Label6.Visible:= False;

Form1.Label7.Visible:= False;

Form1.Label8.Visible:= False;

Form1.Label9.Visible:= False;

Form1.Label10.Visible:= False;

Form1.Label11.Visible:= False;

end

else

form4.Label3.Visible:= True;

end;

end.

Перед непосредственным проектированием первоначально необходимо подключить базу данных MySQL к программе. Это происходит следующим образом:

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

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

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

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

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

· В появившемся окне нажатие на кнопку «Build…»

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

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

· Нажатие кнопки «Ок»

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