Разработка программного приложения "Виртуальный магазин по продаже мебели"

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

Содержание

Введение

1. Общая часть

1.1 Системный анализ предметной области

1.2 Формирование атрибутов исходного отношения

1.3 Логическое проектирование БД (ER-технология)

1.4 SQL - скрипт генерации таблиц БД

1.5 Формирование выходных данных

1.6 Формирование входных данных

1.7 Выбор среды разработки

1.8 Техническое задание на курсовой проект

2. Специальная часть

2.1 Разработка таблиц базы данных

2.2 Структура прикладной программы

2.3 Создание интерфейса приложения

2.4 Проектирование формы «Виртуальный магазин»

2.5 Проектирование формы «Поставщики»

2.6 Проектирование Формы «Клиенты»

2.7 Проектирование формы «Мебель»

2.8 Проектирование формы «Тип оплаты»

2.9 Проектирование формы «Заказ»

3. Эксплуатационная часть

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

3.2 Инструкция по установке ПП

3.3 Инструкция по тестированию ПП

3.4 Инструкция по эксплуатации ПП

Заключение

Список источников

Приложение №1

Введение

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

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

1) Быстрый поиск информации

2) Редактирование и обновление информации

3) Добавление и удаление информации

4) Представлять в виде отчета интересующую информацию

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

1) добавить в таблицу одну или несколько записей;

2) удалить из таблицы одну или несколько записей;

3) обновить значения некоторых полей в одной или нескольких записях;

4) найти одну или несколько записей, удовлетворяющих заданному условию.

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

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

1) Программа должна быть простой в использовании и понятной даже для неопытного пользователя;

2) Программа должна иметь дружественный и интуитивно понятный интерфейс;

3) Программа должна быть отказоустойчивой;

4) Программа должна содержать огромное количество информации, но при этом потреблять минимум ресурсов компьютера.

Данная курсовая работа состоит из 3 частей:

1) Общая часть - содержит системный анализ предметной области, логическое проектирование БД, формирование входных и выходных данных, выбор стандарта БД, а также выбор среды разработки;

2) Специальная часть - содержит описание создания БД, а также проектирования интерфейса программного приложения;

3) Технологическая часть - содержит требования к аппаратно - программному обеспечению, инструкцию по установке ПП, инструкцию по тестированию ПП, инструкцию по эксплуатации ПП.

Довольно долгое время весь контроль над продажей мебели осуществлялся вручную, что было очень затруднительно, неудобно и требовало очень много времени. Чтобы решить эту проблему нужно разработать автоматизированную АИС «Виртуальный магазин по продаже мебели».

1. Общая часть

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

sql программный эксплуатация интерфейс

Разработать программу виртуальный магазин по продаже мебели.

Расширенная формулировка задания

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

Описание объектов предметной области и их характеристик

Объект 1 - Поставщик.

Характеристики объекта 1:

1) Код;

2) Наименование;

3) ИНН;

4) Адрес;

5) Телефон;

6) Руководитель.

Объект 2 - Клиенты.

Характеристики объекта 2:

1) Код;

2) Фамилия;

3) Имя;

4) Отчество;

5) Адрес;

6) Телефон.

Объект 3 - Мебель.

Характеристики объекта 3:

1) Код;

2) Название;

3) Срок службы;

4) Цвет;

5) Вес;

6) Цена;

7) Материал.

Объект 4 - Тип оплаты.

Характеристики объекта 4:

1) Код;

2) Название банка;

3) Номер счета.

Объект 5 - Заказ.

Характеристики объекта 5:

1) Код;

2) Дата заказа;

3) Дата исполнения;

4) Название заказа;

5) Оплата.

Общесистемные ограничения на информацию

1) Номер каждой мебели уникален.

2) Номер клиента уникален.

3) Номер каждого заказа уникален.

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

1) Администратор;

2) Клиенты;

Описание задач «Администратор»

Техническое сопровождение и обслуживание программного приложения.

Описание задач «Клиенты»

1) Быстрый поиск интересующей информации по мебели;

2) Заказ товара.

1.2 Формирование атрибутов исходного отношения

1) Код;

2) Фамилия;

3) Имя;

4) Отчество;

5) Название;

6) Номер счета;

7) Дата заказа;

8) Дата исполнения;

9) Оплата.

1.3 Логическое проектирование БД (ER - анализ)

Выделение сущностей и связей между ними

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

1) Поставщик (код);

1) Клиенты (код);

2) Мебель (код);

3) Тип оплаты (код);

4) Заказ (код).

Выделенные сущности находятся в следующих связях:

1) Поставщик поставляет мебель;

2) Клиент делает заказ;

3) Клиент осуществляет тип оплаты;

4) Заказ содержит мебель.

Построение диаграммы er-типа с учетом всех сущностей и связей между ними

Рисунок 1 - Связь «Поставщик - Мебель»

Рисунок 2 - Связь «Клиент - Заказ»



Рисунок 3 - Связь «Клиент - Тип оплаты »

Рисунок 4 - Связь «Заказ - Мебель»

Схема 1 - Общие связи таблиц

Формирование набора предварительных отношений с указанием предполагаемого первичного ключа

Таблица 1 - Отношение «Поставщик - мебель»

Отношение	Мебель
Первичный ключ	Код мебели
Внешний ключ	Код поставщика	Добавляем
Отношение	Поставщик
Первичный ключ	Код поставщика

Таблица 2 - Отношение «Клиент - заказ»

Отношение	Заказ
Первичный ключ	Код заказа
Внешний ключ	Код клиента	Добавляем

Отношение	Клиент
Первичный ключ	Код клиента

Таблица 3 - Отношение «Клиент - Тип оплаты»

Отношение	Тип оплаты
Первичный ключ	Код клиент
Внешний ключ	Код тип оплаты	Добавляем

Отношение	Тип оплаты
Первичный ключ	Код тип оплаты

Таблица 4 - Отношение «Заказ - мебель»

Отношение	Заказ
Первичный ключ	Код заказа
Внешний ключ	Код мебели	Добавляем

Отношение	Мебель
Первичный ключ	Код мебели



Схема 2 - Структурная схема базы данных

Таблица 5 - «Атрибуты таблицы поставщик»

Отношение	Поставщик
Атрибуты	Тип	Описание
Код	Числовой, ключ	Номер постав
Наименование	Строковый	Наименование постав
ИНН	Числовой	ИНН постав
Адрес	Строковый	Адрес постав
Телефон	Числовой	Телефон постав
Руководитель	Строковый	Руководитель постав

Таблица 6 - «Атрибуты таблицы клиенты»

Отношение	Клиенты
Атрибуты	Тип	Описание
Код	Числовой, ключ	Номер кл
Фамилия	Строковый	Фамилия кл
Имя	Строковый	Имя кл
Отчество	Строковый	Отчество кл
Телефон	Числовой	Телефон кл
Адрес	Строковый	Адрес кл

Таблица 7 - «Атрибуты таблицы мебель»

Отношение	Мебель
Атрибуты	Тип	Описание
Код	Числовой, ключ	Номер мебели
Название	Строковый	Название мебели
Срок службы	Строковый	Срок службы мебели
Цвет	Строковый	Цвет мебели
Материал	Строковый	Материал мебели
Цена	Числовой	Цена мебели

Таблица 8 - «Атрибуты таблицы тип оплаты»

Отношение	Тип оплаты
Атрибуты	Тип	Описание
Код	Числовой, ключ	Номер тп
Название банка	Строковый	Название банка тп
Номер счета	Числовой	Номер счета тп
Сумма	Числовой	Сумма тп

Таблица 9 - «Атрибуты таблицы заказ»

Отношение	Заказ
Атрибуты	Тип	Описание
Код	Числовой, ключ	Номер зак
Дата заказа	Дата	Дата заказа зак
Дата исполнения	Дата	Дата исполнения зак
Название заказа	Строковый	Название заказа зак
Оплата	Числовой	Оплата зак

1.4 SQL - скрипт генерации таблиц БД

Create table Klient (

Klient_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,

Fam Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Im Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Otch Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Adres_k Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Tel_k Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Index AI_Klient_id (Klient_id),

Index AI_Fam (Fam),

Index AI_Im (Im),

Index AI_Otch (Otch),

Index AI_Adres_k (Adres_k),

Index AI_Tel_k (Tel_k),

Primary Key (Klient_id)) TYPE = MyISAM

ROW_FORMAT = Default;

Create table Meb (

Meb_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,

Name_m Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Srok Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Cvet Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Ves Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Cena Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Material Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Postav_id Int UNSIGNED ZEROFILL BINARY NOT NULL,

Zakaz_id Int UNSIGNED ZEROFILL BINARY NOT NULL,

Klient_id Int UNSIGNED ZEROFILL BINARY NOT NULL,

Index AI_Meb_id (Meb_id),

Index AI_Name_m (Name_m),

Index AI_Srok (Srok),

Index AI_Cvet (Cvet),

Index AI_Ves (Ves),

Index AI_Cena (Cena),

Index AI_Material (Material),

Primary Key (Meb_id,Postav_id,Zakaz_id,Klient_id)) TYPE = MyISAM

ROW_FORMAT = Default;

Create table Postav (

Postav_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,

Name_p Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Inn Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Adres_p Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Tel_p Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Ruck Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Index AI_Postav_id (Postav_id),

Index AI_Name_p (Name_p),

Index AI_Inn (Inn),

Index AI_Adres_p (Adres_p),

Index AI_Tel_p (Tel_p),

Index AI_Ruck (Ruck),

Primary Key (Postav_id)) TYPE = MyISAM

ROW_FORMAT = Default;

Create table Tip_oplata (

Oplata_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,

Name_b Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Nomer_s Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

summa Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Klient_id Int UNSIGNED ZEROFILL BINARY NOT NULL,

Index AI_Oplata_id (Oplata_id),

Index AI_Name_b (Name_b),

Index AI_Nomer_s (Nomer_s),

Index AI_summa (summa),

Primary Key (Oplata_id,Klient_id)) TYPE = MyISAM

ROW_FORMAT = Default;

Create table Zakaz (

Zakaz_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,

Data_zakaza Date UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Data_ispoln Date UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Name_zakaz Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Oplata Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,

Klient_id Int UNSIGNED ZEROFILL BINARY NOT NULL,

Index AI_Zakaz_id (Zakaz_id),

Index AI_Data_zakaza (Data_zakaza),

Index AI_Data_ispoln (Data_ispoln),

Index AI_Name_zakaz (Name_zakaz),

Index AI_Oplata (Oplata),

Primary Key (Zakaz_id,Klient_id)) TYPE = MyISAM

ROW_FORMAT = Default;

Alter table Zakaz add Index IX_Relationship3 (Klient_id);

Alter table Zakaz add Foreign Key (Klient_id) references Klient (Klient_id) on delete restrict on update restrict;

Alter table Tip_oplata add Index IX_Relationship4 (Klient_id);

Alter table Tip_oplata add Foreign Key (Klient_id) references Klient (Klient_id) on delete restrict on update restrict;

Alter table Meb add Index IX_Relationship1 (Postav_id);

Alter table Meb add Foreign Key (Postav_id) references Postav (Postav_id) on delete restrict on update restrict;

Alter table Meb add Index IX_Relationship2 (Zakaz_id,Klient_id);

Alter table Meb add Foreign Key (Zakaz_id,Klient_id) references Zakaz (Zakaz_id,Klient_id) on delete restrict on update restrict;

1.5 Формирование выходных данных

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

Таблица 10 - Каталог заказа

Код	Дата заказа	Дата испол.	Поставщик	Фамилия	Наименование	Банк	Номер счета	Цена

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

1.6 Формирование входных данных

Входные данные проектируемой системы содержатся в следующих таблицах:

1) Клиенты - в данной таблице содержится информация обо всех клиентах, которые заказывали мебель в магазине.

2) Мебель - в данной таблице содержится информация обо всей мебели содержащий магазин.

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

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

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

1.7 Выбор среды разработки

АИС «Виртуальный магазин по продаже мебели» должна функционировать под управлением операционной системы Windows XP на IBM - совместимом компьютере. Для функционирования программного обеспечения системы необходимо, чтобы на компьютере была установлена программа BDE.

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

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

Для физического создания таблиц базы данных в формате Paradox была использована известная утилита Database Desktop, поставляемая фирмой Borland в составе их программного пакета Delphi.

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

1.8 Техническое задание на курсовой проект

Введение

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

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

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

Основание для разработки

Программа разрабатывается на основе государственного образовательного стандарта специальности Автоматизированные системы обработки информации и управления (по отраслям).

Назначение

Основными направлениями работы продажи мебели являются, составление каталога, продажа мебели, учет количества мебели на складе и др.

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

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

Требования к программе или программному изделию

Требования к функциональным характеристикам:

Перечисленные выше функции выполняются вручную и практически усложняют взаимоотношения с клиентами. Например, заполнение анкет отнимает много времени у клиентов.

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

1) Добавление записей об имеющихся и поступивших товарах в базу данных, а также обновление и редактирование этих записей.

2) Добавление данных о новых клиентах, а также редактирование этих данных.

3) Добавление данных о заказах, а также редактирование этих данных.

4) Обеспечивать минимальные затраты.

5) Поднять производительность труда.

6) Осуществлять учёт поставщиков и поставок.

7) Формировать каталог.

8) Составление отчетной и деловой документации.

9) Обеспечение быстрого доступа к информации.

Для этих задач должны быть реализованы:

1) Алгоритм, обеспечивающий получение точного решения.

2) Проектирование базы данных методом «Сущность - Связь» для разработанной функциональной модели.

3) Состав и описание таблиц базы данных.

4) Построение схемы базы данных.

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

Требования к надежности:

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

2) Обеспечить целостность информации, хранящейся в базе данных.

Требования к составу и параметрам технических средств:

Система должна работать на IBM совместимых персональных компьютерах.

Минимальная конфигурация:

1) Процессор 500 MHz

2) Оперативная память 128 Мб RAM

3) Видеоадаптер и монитор VGA (800 x 600)

4) Свободное место на HDD 25 Мб

Устройства взаимодействия с пользователем клавиатура и мышь

Минимальные требования к информационной и программной совместимости:

Операционной система Win32

Требования к программной документации

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

Этапы разработки

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

Таблица 11 - Календарный график этапов разработки АИС

№	Название этапа	Срок	Отчетность
1	Закрепление тем КП	01.11.2010
2	Анализ объекта автоматизации	01.11.2010 - 08.11.2010	Отчет
3	Системный анализ предметной области	08.11.2010 - 15.11.2010	Отчет
4	ERD - анализ	15.11.2010 - 22.11.2010	Отчет
5	Физическое проектирование БД	22.11.2010 - 13.12.2010
6	Написание общей части	13.12.2010 - 10.01.2011	Отчет
7	Проектирование структуры приложения	10.01.2011 - 17.01.2011
8	Программирование информационных процедур	10.01.2011 - 31.01.2011
9	Тестирование программного продукта	31.01.2011 - 07.02.2011
10	Написание специальной части	07.02.2011 - 14.02.2011	Отчет
11	Написание технологической части	14.02.2011 - 21.02.2011	Отчет
12	Компоновка пояснительной записки	21.02.2011 - 28.02.2011	Отчет
13	Представление программы и записки на рецензирование и проверку	28.02.2011
14	Исправление ошибок и недочетов	28.02.2011 - 14.03.2011
15	Защита проекта	14.03.2011 - 27.03.2011

2. Специальная часть

2.1 Разработка таблиц базы данных

Физическое создание таблиц производилось с использованием известной утилиты DataBase Desktop, входящей в пакет Borland Delphi. Таблицы БД получили следующие соответствующие физические имена (имена файлов таблиц формата Paradox):

1) T_klient;

2) T_postav;

3) T_mebel;

4) T_oplata;

5) T_zakaz;

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

Ниже приведены фрагменты таблиц БД «Магазин мебели», раскрытых в окне программы Database Desktop.

Рисунок 5 - Структура таблицы «Клиенты»



Рисунок 6 - Структура таблицы «Поставщики»

Рисунок 7 - Структура таблицы «Мебель»

Рисунок 8 - Структура таблицы «Тип оплаты»

Рисунок 9 - Структура таблицы «Заказ»

2.2 Структура прикладной программы

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

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

Схема 3 - Структура программы «Виртуальный магазин по продаже мебели»

2.3 Создание интерфейса приложения

Для создания программного приложения была выбрана интегрированная среда разработки Delphi 7

В создаваемом приложении будет создано 6 форм:

1) Главная форма «Виртуальный магазин по продаже мебели» (Form_Glavn) - содержит меню для перехода в другую форму.

2) Форма «Сущность - Поставщики» (Form_Postav) - содержит информацию обо всех поставщиках мебели.

3) Форма «Сущность - Клиенты» (Form_Klient) - позволяет вносить в базу, данные о новых клиентах магазина.

4) Форма «Сущность - Мебель» (Form_Mebel) - позволяет вносить в базу, данные о мебели.

5) Форма «Сущность - Тип оплаты» (Form_Oplata) - позволяет посмотреть информацию, по типу возможности оплатить товар.

6) Форма «Сущность - Заказ» (Form_Zakaz) - позволяет вносить в базу, данные о заказе, предоставляет возможность поиска, редактирования данных, вывод отчета.

2.4 Проектирование формы «Виртуальный магазин по продаже мебели»

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

Рисунок 10 - Главная форма «Виртуальный магазин по продаже мебели»

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

1) Один компонент MainMenu - меню навигации;

2) Пять компонентов Table - для обновления данных в таблицах;

3) Один компонент XPManifest - это компонент, который из обычной темы (в программе) сделает в XP;

2.5 Проектирование формы «поставщики»

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

Рисунок 11 - Форма «Поставщики»

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

1) Один компонент DataSource - для связи компонентов Table с другими компонентами;

2) Один компонент DBGrid - для отображения информации о ценностях на экране;

3) Один компонента Edit -ввод для поиска;

4) Три компонента Image - осуществляют функции кнопок;

5) Шесть компонентов Label - для отображения надписи;

6) Один компонент Table - для вывода информации из таблицы;

7) Пять компонентов DBEdit - для ввода и редактирования данных;

8) Один компонент RadioGroup - для фильтрации по полям;

9) Один компонент MainMenu - меню навигации;

2.6 Проектирование формы «Клиенты»

Рисунок 12 - Форма «Клиенты»

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

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

1) Один компонент DBGrid - для отображения информации о ценностях на экране;

2) Один компонента Edit -ввод для поиска;

3) Три компонента Image - осуществляют функции кнопок;

4) Шесть компонентов Label - для отображения надписи;

5) Один компонент Table - для вывода информации из таблицы;

6) Пять компонентов DBEdit - для ввода и редактирования данных;

7) Один компонент RadioGroup - для фильтрации по полям;

8) Один компонент MainMenu - меню навигации;

2.7 Проектирование формы «Мебель»

Форма «Мебель» - на ней представлена информация обо всей мебели, который продает магазин.

Рисунок 13 - Форма «Мебель»

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

1) Один компонент DataSource - для связи компонентов Table с другими компонентами;

2) Один компонент DBGrid - для отображения информации о ценностях на экране;

3) Один компонента Edit -ввод для поиска;

4) Три компонента Image - осуществляют функции кнопок;

5) Шесть компонентов Label - для отображения надписи;

6) Один компонент Table - для вывода информации из таблицы;

7) Пять компонентов DBEdit - для ввода и редактирования данных;

8) Один компонент RadioGroup - для фильтрации по полям;

9) Один компонент MainMenu - меню навигации;

2.8 Проектирование формы «Тип оплаты»

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

Рисунок 14 - Форма «Тип оплаты»

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

1) Один компонент DataSource - для связи компонентов Table с другими компонентами;

2) Один компонент DBGrid - для отображения информации о ценностях на экране;

3) Один компонента Edit -ввод для поиска;

4) Три компонента Image - осуществляют функции кнопок;

5) Один компонент Label - для отображения надписи;

6) Один компонент Table - для вывода информации из таблицы;

7) Два компонента DBEdit - для ввода и редактирования данных;

8) Один компонент RadioGroup - для фильтрации по полям;

9) Один компонент MainMenu - меню навигации;

2.9 Проектирование формы «Заказ»

Форма «Заказ» является основой формой проекта. На ней представлена информация обо всех имеющихся заказов.

Рисунок 15 - Форма «Заказ»

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

1) Пять компонентов DataSource - для связи компонентов Table с другими компонентами;

2) Пять компонентов DBGrid - для отображения информации о ценностях на экране;

3) Семь компонентов Edit -ввод для поиска;

4) Девять компонентов Label - для отображения надписи;

5) Пять компонент Table - для вывода информации из таблицы;

6) Один компонент RadioGroup - для фильтрации по полям;

7) Один компонент MainMenu - меню навигации;

8) Один компонент Query - для вывода информации;

9) Четыре компонента Button - кнопки;

10) Два компонента DateTimePicker - для ввода даты;

3. Эксплуатационная часть

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

Система должна работать на IBM совместимых персональных компьютерах.

Минимальная конфигурация:

1) Процессор 500 MHz

2) Оперативная память 128 Мб RAM

3) Видеоадаптер и монитор VGA (800 x 600)

4) Свободное место на HDD 25 Мб

5) Устройства взаимодействия с пользователем клавиатура и мышь.

Минимальные требования к информационной и программной совместимости:

Операционной система Win32

3.2 Инструкция по установке ПП

Установка программного продукта «Виртуальный магазин по продаже мебели» осуществляется в два этапа:

1) Скопировать папку с программой в корень диска «C:\», для того чтобы без ошибок функционировала функция отчета.

2) Открытие Файла Project.exe в папке с программой.

3.3 Инструкция по тестированию ПП

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

После запуска exe файла появляется главное окно программы, где следует перейти в меню на основную форму программы «Заказ», которая выглядит следующим образом:

Рисунок 16 - Форма - Заказ

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



Рисунок 17 - Форма - Заказ

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

Рисунок 18 - Форма - Заказ

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

3.4 Инструкция по эксплуатации ПП

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

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

Клиентское программное обеспечение функционирует на IBM-совместимых рабочих станциях под управлением операционной системы Windows 98/2000/XP.

Запускаем исполняемый файл приложения. Появляется главное окно программы.

При запуске программы открывается главная форма.

Рисунок 19 - Главная форма

Меню содержит восемь пунктов: «Поставщики», «Клиенты», «Мебель», «Тип оплаты», «Заказ», «Выход», «Справка», «Свернуть».

1) Меню «Поставщики» содержит информацию о поставщиках.

2) Меню «Клиенты» содержит информацию о клиентах.

3) Меню «Мебель» содержит информацию о мебели.

4) Меню «Тип оплаты» содержит информацию по способу оплаты заказанного товара .

5) Меню «Выход» данная кнопка позволяет выйти из приложения.

6) Меню «Справка» позволяет пользователи подробней ознакомится с данным приложением.

7) Меню «Свернуть» позволяет пользователи свернуть и развернуть приложение.

Заключение

В результате выполнения данной курсовой работы мною было разработано программное приложение «Виртуальный магазин по продаже мебели».

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

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

1) Простой и понятный интерфейс, позволяющий работать с программой любому пользователю вне зависимости от навыков работы с ПК;

2) Разработанная программа довольно проста в использовании;

3) Данная программа является отказоустойчивой;

4) Разработанное программное приложение содержит огромное количество информации и при этом потребляет минимум ресурсов компьютера;

5) Реализация широких возможностей по учету вычислительной техники, с возможностью автоматизированного сбора информации об используемых технических средствах с рабочих мест;

6) Эргономичный и интуитивно понятный интерфейс;

Курсовая работа содержит: страниц - 67; рисунков - 19; схем - 3; таблиц - 11; приложений - 1;

Список источников

1. Астахова И.Ф. SQL в примерах и задачах: Учеб. пособие. Мн.: Новое знание, 2008.-176с.

2. Базы данных: Учебник для вузов/ Под ред. А.Д. Хомоненко. - СП.: Корона принт, 2007.-416с.

3. Гайдамакин Н.А. Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учеб. пособие.- М.: Гелиос АРВ,2008.-368с.:ил.

4. Глушаков С.В., Ломотько Д.В. Базы данных: Учеб. курс. - Харьков: Фолио, 2009.-540с.

5. Грабер М. Введение в SQL.-М.: ЛОРИ, 2009.-376 с.

6. Грофф Дж., Вайнберг П. Энциклопедия SQL. - СПб.: Питер, 2007. - 896с.

7. Дунаев В.В. Базы данных. Язык SQL.- СПб.: БХВ - Петербург, 2009.-288с.

8. Карпова Т.С. Базы данных: модели, разработка, реализация. - СПб.: Питер,2007.-304с.:ил.

9. Конноли Т. и др. Базы данных: Проектирование, реализация и сопровождение. Теория и практика. - М.: Вильямс, 2007.-1120с.

10. Лебедев А.Н. Visual FoxPro 9.0. - М.: НТ Пресс, 2009. - 328с.

11. Малыхина М.П. Базы данных: основы, проектирование, использование. - СПб.: БХВ-Петербург, 2006.-512 с.

12. Мирошниченко Г.А. Реляционные базы данных: практические приемы оптимальных решений. - СПб.: БХВ - Петербург, 2007.- 400с.

13. Рудикова Л.В. Базы данных. Разработка приложений. - СПб.: БХВ - Петербург, 2009.- 496с.

14. Советов Б.Я. Базы данных: теория и практика: Учебник для вузов / Б.Я. Советов, В.В. Цехановский, В.Д. Чертовский. - М.: Высш.шк., 2008. - 463с.

15. Форта Б. Освой самостоятельно SQL. 10 минут на урок, 3-е издание.: Пер. с англ. - М.: Вильямс, 2007.-288с.

Приложение №1

Форма 1 - Виртуальный магазин по продаже мебели

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Menus, jpeg, ExtCtrls, XPMan, ComObj, DB, DBTables;

type

TGlavn = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

XPManifest1: TXPManifest;

T_klient: TTable;

N7: TMenuItem;

T_postav: TTable;

T_mebel: TTable;

T_oplata: TTable;

T_zakaz: TTable;

N8: TMenuItem;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Glavn: TGlavn;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TGlavn.N1Click(Sender: TObject);

begin

Postav.Show;

end;

procedure TGlavn.N2Click(Sender: TObject);

begin

Klient.Show;

end;

procedure TGlavn.N3Click(Sender: TObject);

begin

Mebel.Show;

end;

procedure TGlavn.N4Click(Sender: TObject);

begin

Oplata.Show;

end;

procedure TGlavn.N5Click(Sender: TObject);

begin

Zakaz.Show;

end;

procedure TGlavn.N6Click(Sender: TObject);

begin

Glavn.Close;

end;

procedure TGlavn.FormCreate(Sender: TObject);

begin

Glavn.BorderStyle := bsToolWindow;

end;

procedure TGlavn.FormPaint(Sender: TObject);

var

bm:TBitMap;

begin

bm:=TBitMap.Create;

bm.Loadfromfile('1.bmp');

Glavn.Canvas.Draw(0,0,bm);

end;

procedure TGlavn.N7Click(Sender: TObject);

begin

winhelp(Glavn.Handle,'help.hlp',HELP_CONTEXT,1);

end;

procedure TGlavn.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

Perform ( WM_SYSCOMMAND, SC_MOVE+2, 0 );

end;

procedure TGlavn.N8Click(Sender: TObject);

begin

Glavn.WindowState := wsMinimized;

end; end.

Форма 2 - Клиенты

unit Unit3;

interface

uses

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

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

Mask, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;

type

TKlient = class(TForm)

Table1: TTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

RadioGroup1: TRadioGroup;

Edit1: TEdit;

Image1: TImage;

DBEdit5: TDBEdit;

Image4: TImage;

Image5: TImage;

Label6: TLabel;

N3: TMenuItem;

N4: TMenuItem;

XPManifest1: TXPManifest;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N4Click(Sender: TObject);

private

R:short; t:integer; nz:short;

{ Private declarations }

public

{ Public declarations }

end;

var

Klient: TKlient;

implementation

uses Unit1;

{$R *.dfm}

procedure TKlient.N1Click(Sender: TObject);

begin

Glavn.Show;

end;

procedure TKlient.N2Click(Sender: TObject);

begin

Klient.Close;

end;

procedure TKlient.RadioGroup1Click(Sender: TObject);

begin

Table1.Filtered:=true;

case RadioGroup1.ItemIndex

of

0:Table1.Filtered:=false;

1:Table1.Filter:='Fam='+ QuotedStr(Edit1.text);

2:Table1.Filter:='Im='+ QuotedStr(Edit1.text);

3:Table1.Filter:='Otch='+ QuotedStr(Edit1.text);

4:Table1.Filter:='Adres_k='+ QuotedStr(Edit1.text);

5:Table1.Filter:='Tel_k='+ QuotedStr(Edit1.text);

end; end;

procedure TKlient.Image1Click(Sender: TObject);

begin

Table1.Last;

R:=Table1.Fields[0].Value+1;

Table1.Insert;

Table1.Append;

Table1.Fields[0].Value:=R;

end;

procedure TKlient.Image4Click(Sender: TObject);

begin

Table1.FindKey ([nz]);

Table1.Delete;

Table1.Close;

Table1.Open;

end;

procedure TKlient.Image5Click(Sender: TObject);

begin

Table1.Refresh;

end;

procedure TKlient.DBGrid1CellClick(Column: TColumn);

begin

nz:=Table1.fields[0].value;

end;

procedure TKlient.FormCreate(Sender: TObject);

begin

Klient.BorderStyle := bsToolWindow;

end;

procedure TKlient.FormPaint(Sender: TObject);

var

bm:TBitMap;

begin

bm:=TBitMap.Create;

bm.Loadfromfile('2.bmp');

Klient.Canvas.Draw(0,0,bm);

end;

procedure TKlient.N3Click(Sender: TObject);

var

XL,Sheet,Colum:Variant;

index,i:integer;

//Uses модуль ComObj

begin

t:=0;

table1.Close;

table1.Open;

XL:=CreateOLEObject('Excel.Application');

XL.visible:=true;

XL.WorkBooks.add('F:\BD_Kursovik\klient.xls');

XL.workbooks[1].worksheets[1].Name:='клиенты' ;

Colum:=XL.workbooks[1].worksheets['клиенты'].columns;

Colum:=XL.workbooks[1].worksheets['клиенты'].Rows;

sheet:=XL.workbooks[1].worksheets['клиенты'];

index:=4;

table1.First;

for i:=0 to table1.RecordCount-1 do

begin

t:=t+1;

sheet.cells[index,1]:=t;

sheet.cells[index,2]:=table1.Fields[0].AsString;

sheet.cells[index,3]:=table1.Fields[1].AsString;

sheet.cells[index,4]:=table1.Fields[2].AsString;

sheet.cells[index,5]:=table1.Fields[3].AsString;

sheet.cells[index,6]:=table1.Fields[4].AsString;

sheet.cells[index,7]:=table1.Fields[5].AsString;

inc(index);

table1.Next;

end; end;

procedure TKlient.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

Perform ( WM_SYSCOMMAND, SC_MOVE+2, 0 );

end;

procedure TKlient.N4Click(Sender: TObject);

begin

Klient.WindowState := wsMinimized;

end; end.

Форма 3 - Мебель

unit Unit4;

interface

uses

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

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

StdCtrls, Mask, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;

type

TMebel = class(TForm)

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

RadioGroup1: TRadioGroup;

Edit1: TEdit;

Image1: TImage;

Image4: TImage;

Image5: TImage;

Label7: TLabel;

N3: TMenuItem;

N4: TMenuItem;

XPManifest1: TXPManifest;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N4Click(Sender: TObject);

private

M:short; nz:short; t:integer;

{ Private declarations }

public

{ Public declarations }

end;

var

Mebel: TMebel;

implementation

uses Unit1;

{$R *.dfm}

procedure TMebel.N1Click(Sender: TObject);

begin

Glavn.Show;

end;

procedure TMebel.N2Click(Sender: TObject);

begin

Mebel.Close;

end;

procedure TMebel.RadioGroup1Click(Sender: TObject);

begin

Table1.Filtered:=true;

case RadioGroup1.ItemIndex

of

0:Table1.Filtered:=false;

1:Table1.Filter:='Name_m='+ QuotedStr(Edit1.text);

2:Table1.Filter:='Srok='+ QuotedStr(Edit1.text);

3:Table1.Filter:='Cvet='+ QuotedStr(Edit1.text);

4:Table1.Filter:='Ves='+ QuotedStr(Edit1.text);

5:Table1.Filter:='Material='+ QuotedStr(Edit1.text);

6:Table1.Filter:='Cena='+ QuotedStr(Edit1.text);

end; end;

procedure TMebel.Image1Click(Sender: TObject);

begin

Table1.Last;

M:=Table1.Fields[0].Value+1;

Table1.Insert;

Table1.Append;

Table1.Fields[0].Value:=M;

end;

procedure TMebel.Image4Click(Sender: TObject);

begin

Table1.FindKey([nz]);

Table1.Delete;

Table1.Close;

Table1.Open;

end;

procedure TMebel.Image5Click(Sender: TObject);

begin

Table1.Refresh;

end;

procedure TMebel.DBGrid1CellClick(Column: TColumn);

begin

nz:=Table1.fields[0].value;

end;

procedure TMebel.FormCreate(Sender: TObject);

begin

Mebel.BorderStyle := bsToolWindow;

end;

procedure TMebel.FormPaint(Sender: TObject);

var

bm:TBitMap;

begin

bm:=TBitMap.Create;

bm.Loadfromfile('3.bmp');

Mebel.Canvas.Draw(0,0,bm);

end;

procedure TMebel.N3Click(Sender: TObject);

var

XL,Sheet,Colum:Variant;

index,i:integer;

//Uses модуль ComObj

begin

t:=0;

table1.Close;

table1.Open;

XL:=CreateOLEObject('Excel.Application');

XL.visible:=true;

XL.WorkBooks.add('F:\BD_Kursovik\mebel.xls');

XL.workbooks[1].worksheets[1].Name:='мебель' ;

Colum:=XL.workbooks[1].worksheets['мебель'].columns;

Colum:=XL.workbooks[1].worksheets['мебель'].Rows;

sheet:=XL.workbooks[1].worksheets['мебель'];

index:=4;

table1.First;

for i:=0 to table1.RecordCount-1 do

begin

t:=t+1;

sheet.cells[index,1]:=t;

sheet.cells[index,2]:=table1.Fields[0].AsString;

sheet.cells[index,3]:=table1.Fields[1].AsString;

sheet.cells[index,4]:=table1.Fields[2].AsString;

sheet.cells[index,5]:=table1.Fields[3].AsString;

sheet.cells[index,6]:=table1.Fields[4].AsString;

sheet.cells[index,7]:=table1.Fields[5].AsString;

sheet.cells[index,8]:=table1.Fields[6].AsString;

inc(index);

table1.Next;

end; end;

procedure TMebel.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

Perform ( WM_SYSCOMMAND, SC_MOVE+2, 0 );

end;

procedure TMebel.N4Click(Sender: TObject);

begin

Mebel.WindowState := wsMinimized;

end; end.

Форма 4 - Тип оплаты

unit Unit5;

interface

uses

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

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

Mask, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;

type

TOplata = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

DBGrid1: TDBGrid;

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Image1: TImage;

Image2: TImage;

Image3: TImage;

RadioGroup1: TRadioGroup;

Edit1: TEdit;

Label6: TLabel;

N3: TMenuItem;

N4: TMenuItem;

XPManifest1: TXPManifest;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure Image1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N4Click(Sender: TObject);

private O:short; K:short; KK:short; t:integer;

{ Private declarations }

public

{ Public declarations }

end;

var

Oplata: TOplata;

implementation

uses Unit1;

{$R *.dfm}

procedure TOplata.N1Click(Sender: TObject);

begin

Glavn.Show;

end;

procedure TOplata.N2Click(Sender: TObject);

begin

Oplata.Close;

end;

procedure TOplata.FormCreate(Sender: TObject);

begin

Oplata.BorderStyle := bsToolWindow;

end;

procedure TOplata.DBGrid1CellClick(Column: TColumn);

begin

K:=Table1.fields[0].value;

end;

procedure TOplata.Image1Click(Sender: TObject);

begin

Table1.FindKey ([K]);

Table1.Delete;

Table1.Close;

Table1.Open;

end;

procedure TOplata.Image2Click(Sender: TObject);

begin

Table1.Last;

KK:=Table1.Fields[0].Value+1;

Table1.Insert;

Table1.Append;

Table1.Fields[0].Value:=KK;

end;

procedure TOplata.Image3Click(Sender: TObject);

begin

Table1.Refresh;

end;

procedure TOplata.RadioGroup1Click(Sender: TObject);

begin

Table1.Filtered:=true;

case RadioGroup1.ItemIndex

of

0:Table1.Filtered:=false;

1:Table1.Filter:='Name_b='+ QuotedStr(Edit1.text);

2:Table1.Filter:='Nomer_s='+ QuotedStr(Edit1.text);

end; end;

procedure TOplata.FormPaint(Sender: TObject);

var

bm:TBitMap;

begin

bm:=TBitMap.Create;

bm.Loadfromfile('4.bmp');

Oplata.Canvas.Draw(0,0,bm);

end;

procedure TOplata.N3Click(Sender: TObject);

var

XL,Sheet,Colum:Variant;

index,i:integer;

//Uses модуль ComObj

begin

t:=0;

table1.Close;

table1.Open;

XL:=CreateOLEObject('Excel.Application');

XL.visible:=true;

XL.WorkBooks.add('F:\BD_Kursovik\oplata.xls');

XL.workbooks[1].worksheets[1].Name:='Поставщик' ;

Colum:=XL.workbooks[1].worksheets['Поставщик'].columns;

Colum:=XL.workbooks[1].worksheets['Поставщик'].Rows;

sheet:=XL.workbooks[1].worksheets['Поставщик'];

index:=4;

table1.First;

for i:=0 to table1.RecordCount-1 do

begin

t:=t+1;

sheet.cells[index,1]:=t;

sheet.cells[index,2]:=table1.Fields[0].AsString;

sheet.cells[index,3]:=table1.Fields[1].AsString;

sheet.cells[index,4]:=table1.Fields[2].AsString;

inc(index);

table1.Next;

end; end;

procedure TOplata.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

Perform ( WM_SYSCOMMAND, SC_MOVE+2, 0 );

end;

procedure TOplata.N4Click(Sender: TObject);

begin

Oplata.WindowState := wsMinimized;

end; end.

Форма 5 - Поставщики

unit Unit2;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, Mask,

Menus, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;

type

TPostav = class(TForm)

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Bdedit1: TDBEdit;

Bdedit2: TDBEdit;

Bdedit3: TDBEdit;

Bdedit4: TDBEdit;

Bdedit5: TDBEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Edit1: TEdit;

RadioGroup1: TRadioGroup;

Image1: TImage;

Image4: TImage;

Image5: TImage;

Label6: TLabel;

N3: TMenuItem;

N4: TMenuItem;

XPManifest1: TXPManifest;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N4Click(Sender: TObject);

private

P:short; nz:short; t:integer;

{ Private declarations }

public

{ Public declarations }

end;

var

Postav: TPostav;

implementation

uses Unit1;

{$R *.dfm}

procedure TPostav.Button2Click(Sender: TObject);

begin

if not Table1.Locate('Name_p',Edit1.text,[LoCaseInsensitive,LoPartialKey])

then begin

ShowMessage('Не найдено');

Edit1.SetFocus;

Edit1.AutoSelect:=true;

end; end;

procedure TPostav.Button3Click(Sender: TObject);

begin

Table1.Cancel;

end;

procedure TPostav.N1Click(Sender: TObject);

begin

Glavn.Show;

end;

procedure TPostav.N2Click(Sender: TObject);

begin

Postav.Close;

end;

procedure TPostav.RadioGroup1Click(Sender: TObject);

begin

Table1.Filtered:=true;

case RadioGroup1.ItemIndex

of

0:Table1.Filtered:=false;

1:Table1.Filter:='Name_p='+ QuotedStr(Edit1.text);

2:Table1.Filter:='Inn='+ QuotedStr(Edit1.text);

3:Table1.Filter:='Adres_p='+ QuotedStr(Edit1.text);

4:Table1.Filter:='Tel_p='+ QuotedStr(Edit1.text);

5:Table1.Filter:='Ruck='+ QuotedStr(Edit1.text);

end; end;

procedure TPostav.Image1Click(Sender: TObject);

begin

Table1.Last;

P:=Table1.Fields[0].Value+1;

Table1.Insert;

Table1.Append;

Table1.Fields[0].Value:=P;

end;

procedure TPostav.Image4Click(Sender: TObject);

begin

Table1.FindKey([nz]);

Table1.Delete;

Table1.Close;

Table1.Open;

end;

procedure TPostav.Image5Click(Sender: TObject);

begin

Table1.Refresh;

end;

procedure TPostav.DBGrid1CellClick(Column: TColumn);

begin

nz:=Table1.fields[0].value;

end;

procedure TPostav.FormCreate(Sender: TObject);

begin

Postav.BorderStyle := bsToolWindow;

end;

procedure TPostav.FormPaint(Sender: TObject);

var

bm:TBitMap;

begin

bm:=TBitMap.Create;

bm.Loadfromfile('6.bmp');

Postav.Canvas.Draw(0,0,bm);

end;

procedure TPostav.N3Click(Sender: TObject);

var

XL,Sheet,Colum:Variant;

index,i:integer;

//Uses модуль ComObj

begin

t:=0;

table1.Close;

table1.Open;

XL:=CreateOLEObject('Excel.Application');