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

 

Введение

.Общая часть

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Заключение

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

Приложения

Введение

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

.Общая часть

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

Задание на проектирование

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

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

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

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

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

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

) Код;

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

) ИНН;

) Адрес;

) Телефон;

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

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

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

) Код;

) Фамилия;

) Имя;

) Отчество;

) Адрес;

) Телефон.

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

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

) Код;

) Название;

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

) Цвет;

) Вес;

) Цена;

) Материал.

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

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

) Код;

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

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

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

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

)Код;

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

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

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

)Оплата.

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

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

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

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

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

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

)Клиенты;

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

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

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

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

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

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

1)Код;

2)Фамилия;

)Имя;

)Отчество;

)Название;

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

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

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

)Оплата.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Create table Klient (_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_k Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_k Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,AI_Klient_id (Klient_id),AI_Fam (Fam),AI_Im (Im),AI_Otch (Otch),AI_Adres_k (Adres_k),AI_Tel_k (Tel_k),Key (Klient_id)) TYPE = MyISAM_FORMAT = Default;table Meb (_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,_m Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_id Int UNSIGNED ZEROFILL BINARY NOT NULL,_id Int UNSIGNED ZEROFILL BINARY NOT NULL,_id Int UNSIGNED ZEROFILL BINARY NOT NULL,AI_Meb_id (Meb_id),AI_Name_m (Name_m),AI_Srok (Srok),AI_Cvet (Cvet),AI_Ves (Ves),AI_Cena (Cena),AI_Material (Material),Key (Meb_id,Postav_id,Zakaz_id,Klient_id)) TYPE = MyISAM_FORMAT = Default;table Postav (_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,_p Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_p Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_p Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,AI_Postav_id (Postav_id),AI_Name_p (Name_p),AI_Inn (Inn),AI_Adres_p (Adres_p),AI_Tel_p (Tel_p),AI_Ruck (Ruck),Key (Postav_id)) TYPE = MyISAM_FORMAT = Default;table Tip_oplata (_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,_b Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_s Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Int UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_id Int UNSIGNED ZEROFILL BINARY NOT NULL,AI_Oplata_id (Oplata_id),AI_Name_b (Name_b),AI_Nomer_s (Nomer_s),AI_summa (summa),Key (Oplata_id,Klient_id)) TYPE = MyISAM_FORMAT = Default;table Zakaz (_id Int UNSIGNED ZEROFILL BINARY NOT NULL AUTO_INCREMENT,_zakaza Date UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_ispoln Date UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_zakaz Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,Char(20) UNSIGNED ZEROFILL BINARY AUTO_INCREMENT,_id Int UNSIGNED ZEROFILL BINARY NOT NULL,AI_Zakaz_id (Zakaz_id),AI_Data_zakaza (Data_zakaza),AI_Data_ispoln (Data_ispoln),AI_Name_zakaz (Name_zakaz),AI_Oplata (Oplata),Key (Zakaz_id,Klient_id)) TYPE = MyISAM_FORMAT = Default;table Zakaz add Index IX_Relationship3 (Klient_id);table Zakaz add Foreign Key (Klient_id) references Klient (Klient_id) on delete restrict on update restrict;table Tip_oplata add Index IX_Relationship4 (Klient_id);table Tip_oplata add Foreign Key (Klient_id) references Klient (Klient_id) on delete restrict on update restrict;table Meb add Index IX_Relationship1 (Postav_id);table Meb add Foreign Key (Postav_id) references Postav (Postav_id) on delete restrict on update restrict;table Meb add Index IX_Relationship2 (Zakaz_id,Klient_id);table Meb add Foreign Key (Zakaz_id,Klient_id) references Zakaz (Zakaz_id,Klient_id) on delete restrict on update restrict;

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

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

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

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

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

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

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

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

)МЕБЕЛЬ - в данной таблице содержится информация обо всей

мебели содержащий магазин.

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

)ПОСТАВЩИК - в данной таблице содержаться названия и характеристики организаций, которые поставляют мебель на склад для продажи в магазине.

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

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

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

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

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

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

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

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

Введение

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

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

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

ОСНОВАНИЕ ДЛЯ РАЗРАБОТКИ

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

НАЗНАЧЕНИЕ

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

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

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

ТРЕБОВАНИЯ К ПРОГРАММЕ ИЛИ ПРОГРАММНОМУ ИЗДЕЛИЮ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ТРЕБОВАНИЯ К ПРОГРАММНОЙ ДОКУМЕНТАЦИИ

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

ЭТАПЫ РАЗРАБОТКИ

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

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

№Название этапаСрокОтчетность1Закрепление тем КП01.11.20102Анализ объекта автоматизации01.11.2010 - 08.11.2010Отчет3Системный анализ предметной области08.11.2010 - 15.11.2010Отчет4ERD - анализ15.11.2010 - 22.11.2010Отчет5Физическое проектирование БД22.11.2010 - 13.12.20106Написание общей части13.12.2010 - 10.01.2011Отчет7Проектирование структуры приложения10.01.2011 - 17.01.20118Программирование информационных процедур10.01.2011 - 31.01.20119Тестирование программного продукта31.01.2011 - 07.02.201110Написание специальной части07.02.2011 - 14.02.2011Отчет11Написание технологической части14.02.2011 - 21.02.2011Отчет12Компоновка пояснительной записки21.02.2011 - 28.02.2011Отчет13Представление программы и записки на рецензирование и проверку28.02.201114Исправление ошибок и недочетов28.02.2011 - 14.03.201115Защита проекта14.03.2011 - 27.03.20112.Специальная часть

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

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

1)T_klient;

2)T_postav;

)T_mebel;

4)T_oplata;

5)T_zakaz;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

.7 Проектирование формы "Мебель"

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

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

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

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

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

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

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

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

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

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

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

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

.8 Проектирование формы "Тип оплаты"

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

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

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

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

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

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

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

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

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

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

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

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

.9 Проектирование формы "Заказ"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

программный интерфейс база данные

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Заключение

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Приложения

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

unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Menus, jpeg, ExtCtrls, XPMan, ComObj, DB, DBTables;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TXPManifest;_klient: TTable;: TMenuItem;_postav: TTable;_mebel: TTable;_oplata: TTable;_zakaz: TTable;: TMenuItem;N1Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);FormCreate(Sender: TObject);FormPaint(Sender: TObject);N7Click(Sender: TObject);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);N8Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TGlavn;Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}TGlavn.N1Click(Sender: TObject);.Show;;TGlavn.N2Click(Sender: TObject);.Show;;TGlavn.N3Click(Sender: TObject);.Show;;TGlavn.N4Click(Sender: TObject);.Show;;TGlavn.N5Click(Sender: TObject);.Show;;TGlavn.N6Click(Sender: TObject);.Close;;TGlavn.FormCreate(Sender: TObject);.BorderStyle := bsToolWindow;;TGlavn.FormPaint(Sender: TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('1.bmp');.Canvas.Draw(0,0,bm);;TGlavn.N7Click(Sender: TObject);(Glavn.Handle,'help.hlp',HELP_CONTEXT,1);;TGlavn.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );;TGlavn.N8Click(Sender: TObject);.WindowState := wsMinimized;; end.

Форма 2 - КлиентыUnit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Menus, StdCtrls,, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;= class(TForm): TTable;: TDBGrid;: TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TRadioGroup;: TEdit;: TImage;: TDBEdit;: TImage;: TImage;: TLabel;: TMenuItem;: TMenuItem;: TXPManifest;N1Click(Sender: TObject);N2Click(Sender: TObject);RadioGroup1Click(Sender: TObject);Image1Click(Sender: TObject);Image4Click(Sender: TObject);Image5Click(Sender: TObject);DBGrid1CellClick(Column: TColumn);FormCreate(Sender: TObject);FormPaint(Sender: TObject);N3Click(Sender: TObject);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);N4Click(Sender: TObject);:short; t:integer; nz:short;

{ Private declarations }

{ Public declarations };: TKlient;Unit1;

{$R *.dfm}TKlient.N1Click(Sender: TObject);.Show;;TKlient.N2Click(Sender: TObject);.Close;;TKlient.RadioGroup1Click(Sender: TObject);.Filtered:=true;RadioGroup1.ItemIndex

:Table1.Filtered:=false;

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

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

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

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

:Table1.Filter:='Tel_k='+ QuotedStr(Edit1.text);; end;TKlient.Image1Click(Sender: TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=R; ;TKlient.Image4Click(Sender: TObject);.FindKey ([nz]);.Delete;.Close;.Open;;TKlient.Image5Click(Sender: TObject);.Refresh;;TKlient.DBGrid1CellClick(Column: TColumn);:=Table1.fields[0].value;;TKlient.FormCreate(Sender: TObject);.BorderStyle := bsToolWindow;;TKlient.FormPaint(Sender: TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('2.bmp');.Canvas.Draw(0,0,bm);;TKlient.N3Click(Sender: TObject);,Sheet,Colum:Variant;,i:integer;

//Uses модуль ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\klient.xls');.workbooks[1].worksheets[1].Name:='клиенты' ;:=XL.workbooks[1].worksheets['клиенты'].columns;:=XL.workbooks[1].worksheets['клиенты'].Rows;:=XL.workbooks[1].worksheets['клиенты'];:=4;.First;i:=0 to table1.RecordCount-1 do:=t+1;.cells[index,1]:=t;.cells[index,2]:=table1.Fields[0].AsString;.cells[index,3]:=table1.Fields[1].AsString;.cells[index,4]:=table1.Fields[2].AsString;.cells[index,5]:=table1.Fields[3].AsString;.cells[index,6]:=table1.Fields[4].AsString;.cells[index,7]:=table1.Fields[5].AsString;(index);.Next;; end;TKlient.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );;TKlient.N4Click(Sender: TObject);.WindowState := wsMinimized;; end.

Форма 3 - МебельUnit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus,, Mask, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;= class(TForm): TDBGrid;: TTable;: TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TRadioGroup;: TEdit;: TImage;: TImage;: TImage;: TLabel;: TMenuItem;: TMenuItem;: TXPManifest;N1Click(Sender: TObject);N2Click(Sender: TObject);RadioGroup1Click(Sender: TObject);Image1Click(Sender: TObject);Image4Click(Sender: TObject);Image5Click(Sender: TObject);DBGrid1CellClick(Column: TColumn);FormCreate(Sender: TObject);FormPaint(Sender: TObject);N3Click(Sender: TObject);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);N4Click(Sender: TObject);:short; nz:short; t:integer;

{ Private declarations }

{ Public declarations };: TMebel;Unit1;

{$R *.dfm}TMebel.N1Click(Sender: TObject);.Show;;TMebel.N2Click(Sender: TObject);.Close;;TMebel.RadioGroup1Click(Sender: TObject);.Filtered:=true;RadioGroup1.ItemIndex

:Table1.Filtered:=false;

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

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

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

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

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

:Table1.Filter:='Cena='+ QuotedStr(Edit1.text);; end;TMebel.Image1Click(Sender: TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=M;;TMebel.Image4Click(Sender: TObject);.FindKey([nz]);.Delete;.Close;.Open;;TMebel.Image5Click(Sender: TObject);.Refresh;;TMebel.DBGrid1CellClick(Column: TColumn);:=Table1.fields[0].value;;TMebel.FormCreate(Sender: TObject);.BorderStyle := bsToolWindow;;TMebel.FormPaint(Sender: TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('3.bmp');.Canvas.Draw(0,0,bm);;TMebel.N3Click(Sender: TObject);,Sheet,Colum:Variant;,i:integer;

//Uses модуль ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\mebel.xls');.workbooks[1].worksheets[1].Name:='мебель' ;:=XL.workbooks[1].worksheets['мебель'].columns;:=XL.workbooks[1].worksheets['мебель'].Rows;:=XL.workbooks[1].worksheets['мебель'];:=4;.First;i:=0 to table1.RecordCount-1 do:=t+1;.cells[index,1]:=t;.cells[index,2]:=table1.Fields[0].AsString;.cells[index,3]:=table1.Fields[1].AsString;.cells[index,4]:=table1.Fields[2].AsString;.cells[index,5]:=table1.Fields[3].AsString;.cells[index,6]:=table1.Fields[4].AsString;.cells[index,7]:=table1.Fields[5].AsString;.cells[index,8]:=table1.Fields[6].AsString;(index);.Next;; end;TMebel.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );;TMebel.N4Click(Sender: TObject);.WindowState := wsMinimized;; end.

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

unit Unit5;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls,, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;= class(TForm): TTable;: TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TDBGrid;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TImage;: TImage;: TImage;: TRadioGroup;: TEdit;: TLabel;: TMenuItem;: TMenuItem;: TXPManifest;N1Click(Sender: TObject);N2Click(Sender: TObject);FormCreate(Sender: TObject);DBGrid1CellClick(Column: TColumn);Image1Click(Sender: TObject);Image2Click(Sender: TObject);Image3Click(Sender: TObject);RadioGroup1Click(Sender: TObject);FormPaint(Sender: TObject);N3Click(Sender: TObject);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);N4Click(Sender: TObject);O:short; K:short; KK:short; t:integer;

{ Private declarations }

{ Public declarations };: TOplata;Unit1;

{$R *.dfm}TOplata.N1Click(Sender: TObject);.Show;;TOplata.N2Click(Sender: TObject);.Close;;TOplata.FormCreate(Sender: TObject);.BorderStyle := bsToolWindow;;TOplata.DBGrid1CellClick(Column: TColumn);:=Table1.fields[0].value;;TOplata.Image1Click(Sender: TObject);.FindKey ([K]);.Delete;.Close;.Open;;TOplata.Image2Click(Sender: TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=KK;;TOplata.Image3Click(Sender: TObject);.Refresh;;TOplata.RadioGroup1Click(Sender: TObject);.Filtered:=true;RadioGroup1.ItemIndex

:Table1.Filtered:=false;

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

:Table1.Filter:='Nomer_s='+ QuotedStr(Edit1.text);; end;TOplata.FormPaint(Sender: TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('4.bmp');.Canvas.Draw(0,0,bm);;TOplata.N3Click(Sender: TObject);,Sheet,Colum:Variant;,i:integer;

//Uses модуль ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\oplata.xls');.workbooks[1].worksheets[1].Name:='Поставщик' ;:=XL.workbooks[1].worksheets['Поставщик'].columns;:=XL.workbooks[1].worksheets['Поставщик'].Rows;:=XL.workbooks[1].worksheets['Поставщик'];:=4;.First;i:=0 to table1.RecordCount-1 do:=t+1;.cells[index,1]:=t;.cells[index,2]:=table1.Fields[0].AsString;.cells[index,3]:=table1.Fields[1].AsString;.cells[index,4]:=table1.Fields[2].AsString;(index);.Next;; end;TOplata.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );;TOplata.N4Click(Sender: TObject);.WindowState := wsMinimized;; end.

Форма 5 - ПоставщикиUnit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, Mask,, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;= class(TForm): TDBGrid;: TTable;: TDataSource;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TMainMenu;: TMenuItem;: TMenuItem;: TEdit;: TRadioGroup;: TImage;: TImage;: TImage;: TLabel;: TMenuItem;: TMenuItem;: TXPManifest;Button2Click(Sender: TObject);Button3Click(Sender: TObject);N1Click(Sender: TObject);N2Click(Sender: TObject);RadioGroup1Click(Sender: TObject);Image1Click(Sender: TObject);Image4Click(Sender: TObject);Image5Click(Sender: TObject);DBGrid1CellClick(Column: TColumn);FormCreate(Sender: TObject);FormPaint(Sender: TObject);N3Click(Sender: TObject);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);N4Click(Sender: TObject);:short; nz:short; t:integer;

{ Private declarations }

{ Public declarations };: TPostav;Unit1;

{$R *.dfm}TPostav.Button2Click(Sender: TObject);not Table1.Locate('Name_p',Edit1.text,[LoCaseInsensitive,LoPartialKey])begin('Не найдено');.SetFocus;.AutoSelect:=true;; end;TPostav.Button3Click(Sender: TObject);.Cancel;;TPostav.N1Click(Sender: TObject);.Show;;TPostav.N2Click(Sender: TObject);.Close;;TPostav.RadioGroup1Click(Sender: TObject);.Filtered:=true;RadioGroup1.ItemIndex

:Table1.Filtered:=false;

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

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

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

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

:Table1.Filter:='Ruck='+ QuotedStr(Edit1.text);; end;TPostav.Image1Click(Sender: TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=P;;TPostav.Image4Click(Sender: TObject);.FindKey([nz]);.Delete;.Close;.Open;;TPostav.Image5Click(Sender: TObject);.Refresh;;TPostav.DBGrid1CellClick(Column: TColumn);:=Table1.fields[0].value;;TPostav.FormCreate(Sender: TObject);.BorderStyle := bsToolWindow;;TPostav.FormPaint(Sender: TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('6.bmp');.Canvas.Draw(0,0,bm);;TPostav.N3Click(Sender: TObject);,Sheet,Colum:Variant;,i:integer;

//Uses модуль ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\postav.xls');.workbooks[1].worksheets[1].Name:='поставщик' ;:=XL.workbooks[1].worksheets['поставщик'].columns;:=XL.workbooks[1].worksheets['поставщик'].Rows;:=XL.workbooks[1].worksheets['поставщик'];:=4;.First;i:=0 to table1.RecordCount-1 do:=t+1;.cells[index,1]:=t;.cells[index,2]:=table1.Fields[0].AsString;.cells[index,3]:=table1.Fields[1].AsString;.cells[index,4]:=table1.Fields[2].AsString;.cells[index,5]:=table1.Fields[3].AsString;.cells[index,6]:=table1.Fields[4].AsString;.cells[index,7]:=table1.Fields[5].AsString;(index);.Next;; end;TPostav.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );;TPostav.N4Click(Sender: TObject);.WindowState := wsMinimized; end; end.

Форма 6 - ЗаказUnit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls,, ComCtrls, jpeg, RpCon, RpConDS, RpDefine, RpRave, XPMan, ComObj;= class(TForm): TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TDBGrid;: TQuery;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TRadioGroup;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TDataSource;: TDBGrid;_postav: TTable;_zakaz: TTable;_klient: TTable;: TDataSource;: TDBGrid;_mebel: TTable;: TDataSource;: TDBGrid;_oplata: TTable;: TDataSource;: TDBGrid;: TButton;: TButton;: TButton;: TButton;: TDateTimePicker;: TDateTimePicker;: TMenuItem;: TMenuItem;: TXPManifest;_id: TSmallintField;_zakaza: TDateField;_ispol: TDateField;_id: TSmallintField;_id: TSmallintField;_id: TSmallintField;_id: TSmallintField;_p: TStringField;: TStringField;_m: TStringField;_b: TStringField;_s: TStringField;: TStringField;_zakazZakaz_id: TSmallintField;_zakazData_zakaza: TDateField;_zakazData_ispol: TDateField;_zakazPostav_id: TSmallintField;_zakazKlient_id: TSmallintField;_zakazMeb_id: TSmallintField;_zakazOplata_id: TSmallintField;N1Click(Sender: TObject);N2Click(Sender: TObject);FormCreate(Sender: TObject);DBGrid1CellClick(Column: TColumn);DBGpostavCellClick(Column: TColumn);Edit2MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);DBGklientCellClick(Column: TColumn);Edit3MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);DBGmebelCellClick(Column: TColumn);Edit4MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);DBGoplataCellClick(Column: TColumn);Edit5MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);RadioGroup1Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);FormPaint(Sender: TObject);DateTimePicker1Click(Sender: TObject);DateTimePicker2Click(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender: TObject);,n,postav,oplata,meb,klient:short; a:integer; t:integer;

{ Private declarations }

{ Public declarations };: TZakaz;Unit1, Unit3, Unit5;

{$R *.dfm}TZakaz.N1Click(Sender: TObject);.Show;;TZakaz.N2Click(Sender: TObject);.Close;;TZakaz.FormCreate(Sender: TObject);.BorderStyle := bsToolWindow;

//edit0.Text:=datetostr(date);

//edit1.Text:=datetostr(date);.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';;TZakaz.DBGrid1CellClick(Column: TColumn);:=qzakaz.Fields[0].Value;;TZakaz.DBGpostavCellClick(Column: TColumn);:=t_postav.Fields[0].Value;.Text:=t_postav.Fields[1].Value;.Visible:=false;;TZakaz.Edit2MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Visible:=true;;TZakaz.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TZakaz.DBGklientCellClick(Column: TColumn);:=t_klient.Fields[0].Value;.Text:=t_klient.Fields[1].Value;.Visible:=false;;TZakaz.Edit3MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Visible:=true;;TZakaz.DBGmebelCellClick(Column: TColumn);:=t_mebel.Fields[0].Value;.Text:=t_mebel.Fields[1].Value;.Text:=t_mebel.Fields[6].Value+' руб';.Visible:=false;;TZakaz.Edit4MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Visible:=true;;TZakaz.DBGoplataCellClick(Column: TColumn);:=t_oplata.Fields[0].Value;.Text:=t_oplata.Fields[1].Value;.Text:=t_oplata.Fields[2].Value;.Visible:=false;;TZakaz.Edit5MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);.Visible:=true;;TZakaz.RadioGroup1Click(Sender: TObject);.Filtered:=true;RadioGroup1.ItemIndex

:Qzakaz.Filtered:=false;

:Qzakaz.Filter:='name_p='+ QuotedStr(Edit22.text);

:Qzakaz.Filter:='fam='+ QuotedStr(Edit22.text);

:Qzakaz.Filter:='name_m='+ QuotedStr(Edit22.text);

:Qzakaz.Filter:='name_b='+ QuotedStr(Edit22.text);

:Qzakaz.Filter:='nomer_s='+ QuotedStr(Edit22.text);

:Qzakaz.Filter:='cena='+ QuotedStr(Edit22.text);; end;TZakaz.Button1Click(Sender: TObject);:=2;

//edit0.Text:=qzakaz.Fields[1].Value;

//edit1.Text:=qzakaz.Fields[2].Value;.Text:=qzakaz.Fields[7].Value;.Text:=qzakaz.Fields[8].Value;.Text:=qzakaz.Fields[9].Value;.Text:=qzakaz.Fields[10].Value;.Text:=qzakaz.Fields[11].Value;.Text:=qzakaz.Fields[12].Value;:=qzakaz.Fields[3].AsInteger;:=qzakaz.Fields[4].AsInteger;:=qzakaz.Fields[5].AsInteger;:=qzakaz.Fields[6].AsInteger;;TZakaz.Button2Click(Sender: TObject);(edit2.Text='') or (edit3.Text='')(edit4.Text='') or (edit5.Text='') or (edit6.Text='') or (edit7.Text='')

then showmessage('Введите все записи!')

elsea=2 then_zakaz.FindKey([nz]);_zakaz.Edit;_zakaz.Fields[0].Value:=nz;_zakaz.Fields[1].Value:=DateTimePicker1.Date;

//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);

//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);_zakaz.Fields[2].Value:=DateTimePicker2.Date;_zakaz.Fields[3].Value:=postav;_zakaz.Fields[4].Value:=klient;_zakaz.Fields[5].Value:=meb;_zakaz.Fields[6].Value:=oplata;_zakaz.Post;_zakaz.Close;_zakaz.Open;.Close;.Open;:=0;_zakaz.Last;:=t_zakaz.Fields[0].Value;_zakaz.Append;_zakaz.Fields[0].Value:=n+1;_zakaz.Fields[1].Value:=DateTimePicker1.Date;

//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);_zakaz.Fields[2].Value:=DateTimePicker2.Date;

//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);_zakaz.Fields[3].Value:=postav;_zakaz.Fields[4].Value:=klient;_zakaz.Fields[5].Value:=meb;_zakaz.Fields[6].Value:=oplata;_zakaz.Post;_zakaz.Close;_zakaz.Open;.Close;.Open;;

//edit0.Text:='';

//edit1.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';;TZakaz.Button3Click(Sender: TObject);(edit2.Text='') or (edit3.Text='')(edit4.Text='') or (edit5.Text='') or (edit6.Text='') or (edit7.Text='')

then showmessage('Введите все записи!')

elsea=2 then_zakaz.FindKey([nz]);_zakaz.Edit;_zakaz.Fields[0].Value:=nz;_zakaz.Fields[1].Value:=DateTimePicker1.Date;

//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);_zakaz.Fields[2].Value:=DateTimePicker2.Date;

//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);_zakaz.Fields[3].Value:=postav;_zakaz.Fields[4].Value:=klient;_zakaz.Fields[5].Value:=meb;_zakaz.Fields[6].Value:=oplata;_zakaz.Post;_zakaz.Close;_zakaz.Open;.Close;.Open;:=0;_zakaz.Last;:=t_zakaz.Fields[0].Value;_zakaz.Append;_zakaz.Fields[0].Value:=n+1;_zakaz.Fields[1].Value:=DateTimePicker1.Date;

//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);_zakaz.Fields[2].Value:=DateTimePicker2.Date;

//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);_zakaz.Fields[3].Value:=postav;_zakaz.Fields[4].Value:=klient;_zakaz.Fields[5].Value:=meb;_zakaz.Fields[6].Value:=oplata;_zakaz.Post;_zakaz.Close;_zakaz.Open;.Close;.Open;;

//edit0.Text:='';

//edit1.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';;TZakaz.Button4Click(Sender: TObject);_zakaz.FindKey([nz]);_zakaz.Delete;_zakaz.Close;_zakaz.Open;.Close;.Open;;TZakaz.FormPaint(Sender: TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('5.bmp');.Canvas.Draw(0,0,bm);;TZakaz.DateTimePicker1Click(Sender: TObject);.Visible:=true;;TZakaz.DateTimePicker2Click(Sender: TObject);.Visible:=true;;TZakaz.N3Click(Sender: TObject);,Sheet,Colum:Variant;,i:integer;

//Uses модуль ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\zakaz.xls');.workbooks[1].worksheets[1].Name:='заказ' ;:=XL.workbooks[1].worksheets['заказ'].columns;:=XL.workbooks[1].worksheets['заказ'].Rows;:=XL.workbooks[1].worksheets['заказ'];:=4;.First;i:=0 to qzakaz.RecordCount-1 do:=t+1;.cells[index,1]:=t;.cells[index,2]:=qzakaz.Fields[0].AsString;.cells[index,3]:=qzakaz.Fields[1].AsString;.cells[index,4]:=qzakaz.Fields[2].AsString;.cells[index,5]:=qzakaz.Fields[3].AsString;.cells[index,6]:=qzakaz.Fields[4].AsString;.cells[index,7]:=qzakaz.Fields[5].AsString;.cells[index,8]:=qzakaz.Fields[6].AsString;.cells[index,9]:=qzakaz.Fields[7].AsString;.cells[index,10]:=qzakaz.Fields[8].AsString;(index);.Next;; end;TZakaz.N4Click(Sender: TObject);.WindowState := wsMinimized;;

end.

Введение .Общая часть 1.1 Системный анализ предметной области 1.2 Формирование атрибутов исходного отношения .3 Логическое проектирование БД (ER-тех

Больше работ по теме: