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

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

Министерство образования и науки Республики Казахстан

Международная академия бизнеса

Факультет информационных технологий

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

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

к курсовой работе

по дисциплине Системы управленияя базами данных

Тема:

Разработка информационной системы «Магазин компьютерной техники»

Алматы, 2008

Задание

Магазин компьютерной техники

Задачей данного курсового проекта является разработка информационной поддержки деятельности «Магазина Компьютерной Техники» в среде Microsoft Visual FoxPro 8.0. База данных «Магазин Компьютерной Техники» осуществляет ведение списка поставщиков, списка товаров, статистика данных имеющихся товаров, поиск поставщиков и товаров.

Приложение позволяет:

1) осуществлять поиск товара по имени поставщика и по названию товара;

2) осуществлять поиск поставщика по имени, телефону, адресу;

3) добавлять и удалять данные о поставщиках;

4) добавлять и удалять данные о товарах;

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

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

Содержание

Задание

Введение

1. Разработка моделей базы данных

1.1 Разработка инфологической модели базы данных

1.2 Разработка даталогической модели базы данных

2. Разработка приложений базы данных

2.1 Разработка функциональной структуры приложения

2.2 Разработка форм

3. Инструкции

3.1 Инструкции программисту

3.2 Инструкции пользователю

Заключение

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

Приложение

Введение

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

Среди наиболее ярких представителей систем управления базами данных можно отметить: Lotus Approach, Microsoft Access, Borland dBase, Borland Paradox, Microsoft Visual FoxPro, Microsoft Visual Basic, а также баз данных Microsoft SQL Server и Oracle, используемые в приложениях, построенных по технологии «клиент-сервер».

Моя курсовая работа реализована в Visual FoxPro 8.0.

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

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

- показывает список допустимых дочерних объектов (свойств, событий, методов) для указанного объекта. Для СОМ-объектов информация считывается из библиотеки типов;

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

В редактор Visual FoxPro были добавлены следующие возможности:

- использование для выделения текста на выбор пробела или табулятора с настраиваемыми параметрами;

- настройка строк комментария;

- поддержка в редакторе гиперссылок на Web-страницы или документацию;

- поддержка Dirty File Indicator для отображения времени внесения изменений в код;

- удобная установка точек прерывания в программном коде;

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

Для настройки параметров редактора используются новые вкладки Editor (Редактор) и IDE (Интерактивная среда разработки) диалогового окна Options (Параметры), которое открывается при выполнении команды Options (Параметры) из меню Tools (Сервис).

Для облегчения работы пользователя с несколькими окнами, такими как Command (Команда), Properties (Свойства) и окном редактора, Visual FoxPro 8.0 позволяет перемещать и закреплять окна, т. е. манипулировать ими по своему усмотрению. Например, вы можете установить командное окно и окно свойств в одно окно-контейнер и привязать его к правому краю экрана, а окно редактора -- в другое окно-контейнер, привязав его к левому краю экрана.

СОМ-компоненты Visual FoxPro могут использовать свойства, события и методы СОМ-интерфейса, определенного в другом СОМ-компоненте. В Visual FoxPro появилось средство Task List (Список заданий), позволяющее пользователю формировать список задач в проекте и управлять их выполнением.

Приложение Object Browser (Браузер объекта), входящее в состав Visual FoxPro и запускаемое из меню Tools (Сервис), позволяет просматривать свойства, методы и события СОМ-объектов, что очень удобно при работе с объектами, на которые нет документации.

В Visual FoxPro появились новые средства управления XML-файлами:

XMLTOCURSOR -- преобразовывает XML-текст в курсор или таблицу Visual FoxPro;

CURSORTOXML -- преобразовывает курсор Visual FoxPro в XML-текст. Поддержка Active Accessibility в Visual FoxPro позволяет создавать приложения, которые могут использовать люди с проблемами зрения, слуха или моторики.

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

1. Разработка моделей базы данных

1.1 Разработка инфологической модели базы данных

Инфологическая модель представляет собой информационное описание предметной области («Магазин Компьютерной Техники»), выполненная без учета средств реализации базы данных.

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

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

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

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

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

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

В таблице 1 представлена инфологическая модель для предметной области «Магазин Компьютерной Техники».

Таблица 1

Инфологическая модель

№	Объекты	Атрибуты	Значение
1.	Поставщики	Поставщик	Alser Computers
		РНН	3204604375
		Адрес	ул. Мынбаева, 46, офис 520
		Номер лицензии	0436723497
		Номер договора	000124
		Номер телефона	250-09-09
2.	Товары	Товар	Винчестер
		Модель	Seagate 400Gb 7200rpm 8Mb Cache Serial ATA150
		Дата поступления	27.11.2006
		Имя поставщика	Sirius
		Количество товара	129
		Бар-код	4698627008281
		Стоимость	300

В инфологической модели представлено 2 объекта:

- Поставщик

- Товары

Объект поставщик предназначен для представления информации о поставщиках, которые поставляют товар в магазин:

- Поставщик

- РНН

- Адрес

- Номер лицензии

- Номер договора

- Номер телефона

Объект товары предназначен для представления информации о товарах имеющихся в наличии в магазине:

- Товар

- Модель

- Дата поступления

- Имя поставщика

- Количество товара

- Бар-код

- Стоимость

1.2 Разработка даталогической модели базы данных

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

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

Каждому объекту ставится в соответствие таблица, каждому атрибуту ставится в соответствие столбец таблицы. Значение атрибута определяет тип столбца: числовой, символьный, дата, логический.

В таблице 2 представлена даталогическая модель объекта «Поставщики».

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

Таблица 2

Даталогическая модель объекта «Поставщики»

№	Имя поля	Тип поля	Ширина поля	Примечание
1.	Поставщик	character	20	Имя поставшика
2.	Рнн	numeric	15	Номер РНН
3.	Лицензия	numeric	15	Номер лицензии поставщика
4.	Договор	numeric	10	Номер договора с поставщиком
5.	Юр_адрес	character	40	Юридический адрес поставщика
6.	Телефон	numeric	10	Телефон поставщика

Таблица 3 - Даталогическая модель объекта «Товары»

№	Имя поля	Тип поля	Ширина поля	Примечание
1.	Товар	character	20	Название товара
2.	Модель	character	100	Модель товара
3.	Количество	numeric	10	Количество товара
4.	Бар-код	numeric	15	Идентификационный код продукции
5.	Дата_ввоза	character	15	Дата поступления товара
6.	Поставщик	character	20	Имя поставщика
7.	Цена_в_дол	numeric	10	Цена товара

Данные таблицы реализованы в СУБД VFP 8.0 с использованием конструктора таблиц. Но так же таблицы можно создать, используя команды SQL.

Например, таблицу «Поставщики» можно создать следующей командой:

CREATE TABLE Поставщики (Поставщик, character (20), Рнн, numeric (15), Лицензия, numeric (15), Договор, numeric (10), Юр_адрес, character (40), Телефон, numeric (10))

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

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

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

Для поддержания ссылочной целостности данных во многих СУБД имеется механизм так называемых внешних ключей. Смысл этого механизма состоит в том, что некоему атрибуту (или группе атрибутов) одного отношения назначается ссылка на первичный ключ другого отношения; тем самым закрепляются связи подчиненности между этими отношениями. При этом отношение, на первичный ключ которого ссылается внешний ключ другого отношения, называется master-отношением, или главным отношением; а отношение, от которого исходит ссылка, называется detail-отношением, или подчиненным отношением. После назначения такой ссылки СУБД имеет возможность автоматически отслеживать вопросы "ненарушения" связей между отношениями, а именно:

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

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

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

2. Разработка приложений базы данных

2.1 Разработка функциональной структуры приложения

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

- поиск товара о товару или поставщику;

- поиск поставщиков по поставщику, адресу или телефону;

- добавление и удаление информации о поставщике;

- добавление и удаление информации о товаре;

- статистический анализ имеющихся товаров

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

Рисунок 1 - Функциональная структура приложения

2.2 Разработка форм

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

Все формы создавались с помощью команды FileNewFormNew file, далее на форму помещались объекты с панели Form Controls.

При разработке формы запуск.scx (см. рис. 2) были использованы объекты:

- CommandButton, кнопка для открытия доступа к приложению и главной форме, для работы кнопки Command1 в событие Click записываем программный код (см. приложение).

- TextBox, для отображения даты и времени;

- Timer, для отслеживания системного времени;

- CommandButton1, кнопка для закрытия формы, для работы кнопки в событие Click записываем программный код (см. приложение).

Рисунок 2 - Запуск Приложения

При разработке формы главная.scx (см. рис. 3) были использован объект:

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

- CommandButton, кнопка для закрытия формы, для работы кнопки в событие Click записываем программный код (см. приложение).

-

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

При разработке page 1 в pageframe (см. рис. 4) были использованы объекты:

- Grid, для отображения таблиц;

- Label, для отображения постоянных текстовых данных на форме;

- ComboBox, для отображения выпадающего списка;

- CommandButton, кнопки для поиска данных, для работы кнопки в событие Click записываем программный код (см. приложение );

- OptionGroup группа кнопок выбора, используется для выбора одного из нескольких вариантов.

Рисунок 4 - Поиск Товара (page 1)

При разработке page 2 в pageframe (см. рис. 5) были использованы объекты:

- Grid, для отображения таблиц;

- Label, для отображения постоянных текстовых данных на форме;

- ComboBox, для отображения выпадающего списка;

- CommandButton, кнопки для поиска данных, для работы кнопки в событие Click записываем программный код (см. приложение );

- OptionGroup группа кнопок выбора, используется для выбора одного из нескольких вариантов.

Рисунок 5 - Поиск Поставщика (page 2)

При разработке page 3 в pageframe (см. рис. 6) были использованы объекты:

- Grid, для отображения таблиц;

- Label, для отображения постоянных текстовых данных на форме;

- ComboBox, для отображения выпадающего списка;

- CommandButton, кнопки для добавления и удаления данных, для работы кнопки в событие Click записываем программный код (см. приложение );

- OptionGroup группа кнопок выбора, используется для выбора одного из нескольких вариантов.

- TextBox, для ввода и отображения данных;

база данный компьютерный магазин



Рисунок 6 - Поставщики (page 3)

При разработке page 4 в pageframe (см. рис. 7) были использованы объекты:

- Grid, для отображения таблиц;

- Label, для отображения постоянных текстовых данных на форме;

- ComboBox, для отображения выпадающего списка;

- CommandButton, кнопки для добавления и удаления данных, для работы кнопки в событие Click записываем программный код (см. приложение );

- OptionGroup группа кнопок выбора, используется для выбора одного из нескольких вариантов.

- TextBox, для ввода и отображения данных;

- Spinner, счётчик;

- OptionGroup группа кнопок выбора, используется для выбора одного из нескольких вариантов.



Рисунок 7 - Товары (page 4)

При разработке page5 в pageframe (см. рис. 8) были использованы объекты:

- Label, для отображения постоянных текстовых данных на форме;

- ComboBox, для отображения выпадающего списка;

- CommandButton, кнопки для подсчёта статистических данных, для работы кнопки в событие Click записываем программный код (см. приложение );

- TextBox, для ввода и отображения данных.

Рисунок 8 - Статистика (page 5)

При разработке page6 в pageframe (см. рис. 9) были использованы объекты:

- Label, для отображения постоянных текстовых данных на форме;

- Image, для отображения рисунков на форме.

Рисунок 9 - Форма, содержащая сведения о программе (page 6)

3. Инструкции

3.1 Инструкции программисту

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

- Операционная система (для среды) Microsoft Windows 2000 с Service Pack 2 и выше или Microsoft Windows XP;

- IBM-совместимый компьютер с процессором не хуже Pentium;

- Наличие мыши;

- Не менее 64 Мбайт оперативной памяти (рекомендуется 128 Мбайт).

- 20 Мбайт свободной памяти - для минимальной установки, 165 Мбайт - для типичной и максимальной установки;

- Монитор типа 800x600 или более высокой разрешающей способности с палитрой 256 цветов (Рекомендуется 16-битовый High Color);

- Наличие установленной СУБД Visual Fox Pro 8.0 и выше.

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

3.2 Инструкции пользователю

Для работы с системой необходимо запустить файл запуск.scx через программу Visual Fox Pro 8.0 или версией выше. После этого на экране появится форма с двумя кнопками (рис.10), текущей датой и временем. Для входа в базу данных компьютерного магазина, нажмите на кнопку с названием «Магазин Компьютерной Техники». Для закрытия формы нажните на кнопку «Выход» (см. рис. 10).

Рисунок 10 - Запуск базы данных

После входа в базу данных магазина компьютерной техники, перед вами откроется форма с вкладками: поиск товара, поиск поставщика, поставщики, товары, статистика, о программе. Кнопка «Выход» предназначена для выхода из базы данных магазина компьютерной техники и возврату к предыдущей форме. Вкладка «Поиск Товара», позволяет осуществлять поиск товара при выборе критериев по его поиску (см. рис. 11).

Рисунок 11 - Вкладка «Поиск Товара»

Вкладка «Поиск Поставщика», позволяет осуществлять поиск поставщика при выборе критериев по его поиску (см. рис. 12).

Рисунок 12 - Вкладка «Поиск Поставщика»

Вкладка «Поставщики», позволяет добавлять данные о поставщике при заполнении соответствующих пунктов на форме. Так же можно удалять данные о поставщиках при выборе их из списка поставщиков (см. рис. 13).

Рисунок 13 - Вкладка «Поставщики»

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

Рисунок 14 - Вкладка «Товары»

Вкладка «Статистика», позволяет получить статистические данные о количестве товара оставшегося в магазине. Статистику можно проводить по наименованию товара и по моделям товара (см. рис. 15).

Рисунок 15 - Вкладка «Статистика»

Вкладка «О программе», позволяет получить данные о создателе данного приложения («Магазин Компьютерной Техники»)

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

Заключение

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

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

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

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

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

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

1. Дейт К. Введение в системы баз данных. / Пер.с англ. - М.: Вильямс, 2001.

2. Каратыгин С.А., Тихонов А.Ф., Тихонова Л.И. Visual FoxPro 7. Руководство пользователя с примерами. - М.: Бином, 2002.

3. Гарсиа - Молина Г., Ульман Дж., Уидом Дж. Системы баз данных. Полный курс. /Пер. с англ.- М.: Вильямс, 2003.

4. Сичкаренко В.А. SQL - 99. Руководство разработчика баз данных. - СПб: ДиаСофт, 2002.

5. Омельченко Л. Самоучитель Visual FoxPro 8.0. - СПб.: БХВ - Санкт-Петербург, 2004.

6. Мамаев Е.В. Microsoft SQL Server. - СПб.: БХВ - Санкт - Петербург, 2001.

7. Базиян М. И др. Использование Visual FoxPro 6. Пер. с англ. / Учебное пособие. - М.: Вильямс, 2000.

8. Джудит С. Боуман и др. Практическое руководство по SQL; пер. с англ. - М.: Диалектика, 1997.

9. Айтхожаева Е.Ж. Системы баз данных. / Учебник. - Алматы: КазНТУ, 2002.

Приложение

Форма запуск.scx

PROCEDURE command1.Click

DO FORM "F:\Магазин компьютерной техники\главная.scx"

ENDPROC

PROCEDURE timer1.Init

Thisform.text1.Value=DATE()

Thisform.text2.Value=TIME()

Thisform.timer1.Interval=2000

Thisform.timer2.Interval=60000

ENDPROC

PROCEDURE timer1.Timer

a1=INT(RAND()*250)

b1=INT(RAND()*250)

c1=INT(RAND()*250)

thisform.BackColor=RGB(a1,b1,c1)

ENDPROC

PROCEDURE command2.Click

Thisform.Release

ENDPROC

Форма главная.scx

PROCEDURE Activate

ENDPROC

PROCEDURE command1.Click

DO case

CASE thisform.pageframe1.page1.Optiongroup1.Value=1

SELECT * from "F:\Магазин Компьютерной Техники\товары.dbf"

WHERE товар=thisform.pageframe1.page1.combo1.Value INTO CURSOR

cur1

CASE thisform.pageframe1.page1.Optiongroup1.value=2

SELECT * from "F:\Магазин Компьютерной Техники\товары.dbf"

WHERE поставщик=thisform.pageframe1.page1.combo2.value INTO

CURSOR cur1

ENDCASE

thisform.pageframe1.page1.grdТовары.RecordSourceType=2

thisform.pageframe1.page1.grdТовары.RecordSource='cur1'

thisform.Refresh

thisform.pageframe1.page1.grdТовары.SetFocus

ENDPROC

PROCEDURE command2.Click

thisform.pageframe1.page1.combo1.Value=' '

Приложение

thisform.pageframe1.page1.combo2.Value=' '

thisform.Refresh

ENDPROC

PROCEDURE command1.Click

DO case

CASE thisform.pageframe1.page2.Optiongroup1.Value=1

SELECT * from "F:\Магазин Компьютерной Техники\Поставщики.dbf"

WHERE поставщик=thisform.pageframe1.page2.combo1.Value INTO

CURSOR cur2

CASE thisform.pageframe1.page2.Optiongroup1.value=2

SELECT * from "F:\Магазин Компьютерной Техники\Поставщики.dbf"

WHERE телефон=thisform.pageframe1.page2.combo2.value INTO

CURSOR cur2

CASE thisform.pageframe1.page2.Optiongroup1.value=3

SELECT * from "F:\Магазин Компьютерной Техники\Поставщики.dbf"

WHERE юр_адрес=thisform.pageframe1.page2.combo3.value INTO

CURSOR cur2

ENDCASE

thisform.pageframe1.page2.grdПоставщики.RecordSourceType=2

thisform.pageframe1.page2.grdПоставщики.RecordSource='cur2'

thisform.Refresh

thisform.pageframe1.page2.grdПоставщики.SetFocus

ENDPROC

PROCEDURE command2.Click

thisform.pageframe1.page2.combo1.Value=' '

thisform.pageframe1.page2.combo2.Value=' '

thisform.pageframe1.page2.combo3.Value=' '

thisform.Refresh

ENDPROC

PROCEDURE command1.Click

IF empty(thisform.pageframe1.page3.text1.value)

=MESSAGEBOX('Вы не ввели поставщика!')

else

IF EMPTY(thisform.pageframe1.page3.text2.value)

=MESSAGEBOX('Вы не ввели РНН!')

else

IF EMPTY(thisform.pageframe1.page3.text3.value)

=MESSAGEBOX('Вы не ввели № лицензии!')

else

IF EMPTY(thisform.pageframe1.page3.text4.value)

=MESSAGEBOX('Вы не ввели № договора!')

else

IF EMPTY(thisform.pageframe1.page3.text5.value)

=MESSAGEBOX('Вы не ввели адрес!')

else

Приложение

IF EMPTY(thisform.pageframe1.page3.text6.value)

=MESSAGEBOX('Вы не ввели телефон!')

else

f1=thisform.pageframe1.page3.text1.Value

k1=thisform.pageframe1.page3.text2.Value

g1=thisform.pageframe1.page3.text3.Value

o1=thisform.pageframe1.page3.text4.Value

p1=thisform.pageframe1.page3.text5.Value

r1=thisform.pageframe1.page3.text6.Value

INSERT INTO "F:\Магазин Компьютерной

Техники\Поставщики.dbf"(Поставщик, Рнн, Лицензия, Договор,

Юр_адрес, Телефон);

VALUES (f1,k1,g1,o1,p1,r1)

thisform.Refresh

thisform.pageframe1.page3.grdПоставщики1.SetFocus

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ENDPROC

PROCEDURE command2.Click

IF MESSAGEBOX('Удалить?',4+32+256,'Внимание')=6

SELECT Поставщики

PACK

thisform.refresh

thisform.pageframe1.page3.grdПоставщики1.SetFocus

ELSE

ENDIF

thisform.pageframe1.page3.grdПоставщики1.RecordSourceType= 2

thisform.pageframe1.page3.grdПоставщики1.RecordSource='F:\Магазин

Компьютерной Техники\Поставщики.dbf'

thisform.refresh

thisform.pageframe1.page3.grdПоставщики1.SetFocus

ENDPROC

PROCEDURE command3.Click

DELETE FROM "F:\Магазин Компьютерной Техники\Поставщики.dbf"

WHERE;

Поставщик=(thisform.pageframe1.page3.combo1.Value)

thisform.Refresh

thisform.pageframe1.page3.grdПоставщики1.SetFocus

ENDPROC

PROCEDURE command4.Click

RECALL all

thisform.pageframe1.page3.combo1.Value=' '

thisform.Refresh

thisform.pageframe1.page3.grdПоставщики1.SetFocus

Приложение

ENDPROC

PROCEDURE command1.Click

IF empty(thisform.pageframe1.page4.text1.value)

=MESSAGEBOX('Вы не ввели название товара!')

else

IF EMPTY(thisform.pageframe1.page4.text2.value)

=MESSAGEBOX('Вы не ввели модель товара!')

else

IF EMPTY(thisform.pageframe1.page4.spinner1.value)

=MESSAGEBOX('Вы не ввели количество товара!')

else

IF EMPTY(thisform.pageframe1.page4.text3.value)

=MESSAGEBOX('Вы не ввели бар-код товара!')

else

IF EMPTY(thisform.pageframe1.page4.text4.value)

=MESSAGEBOX('Вы не ввели дату поступления товара!')

else

IF EMPTY(thisform.pageframe1.page4.text5.value)

=MESSAGEBOX('Вы не ввели поставщика товара!')

else

IF EMPTY(thisform.pageframe1.page4.spinner2.value)

=MESSAGEBOX('Вы не ввели стоимость товара!')

else

a1=thisform.pageframe1.page4.text1.Value

b1=thisform.pageframe1.page4.text2.Value

c1=thisform.pageframe1.page4.spinner1.Value

d1=thisform.pageframe1.page4.text3.Value

e1=thisform.pageframe1.page4.text4.Value

q1=thisform.pageframe1.page4.text5.Value

w1=thisform.pageframe1.page4.spinner2.Value

INSERT INTO "F:\Магазин Компьютерной Техники\Товары.dbf"(Товар,

Модель, Количество, Бар_код, дата_ввоза, поставщик, цена_в_дол);

VALUES (a1,b1,c1,d1,e1,q1,w1)

thisform.Refresh

thisform.pageframe1.page4.grdТовары1.SetFocus

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ENDPROC

PROCEDURE command2.Click

DO case

CASE thisform.pageframe1.page4.Optiongroup1.Value=1

Приложение

SELECT * from "F:\Магазин Компьютерной Техники\Товары.dbf"

WHERE товар=thisform.pageframe1.page4.combo1.Value INTO CURSOR

cur3

CASE thisform.pageframe1.page2.Optiongroup1.value=2

SELECT * from "F:\Магазин Компьютерной Техники\Товары.dbf"

WHERE модель=thisform.pageframe1.page4.combo2.value INTO

CURSOR cur3

ENDCASE

thisform.pageframe1.page4.grdТовары1.RecordSourceType=2

thisform.pageframe1.page4.grdТовары1.RecordSource='cur3'

thisform.Refresh

thisform.pageframe1.page4.grdТовары1.SetFocus

ENDPROC

PROCEDURE command3.Click

IF MESSAGEBOX('Удалить?',4+32+256,'Внимание')=6

SELECT 'F:\Магазин Компьютерной Техники\товары.dbf'

PACK

thisform.refresh

thisform.pageframe1.page4.grdТовары1.SetFocus

ELSE

ENDIF

thisform.pageframe1.page4.grdТовары1.RecordSourceType= 2

thisform.pageframe1.page4.grdТовары1.RecordSource='F:\Магазин

Компьютерной Техники\товары.dbf'

thisform.refresh

thisform.pageframe1.page4.grdТовары1.SetFocus

ENDPROC

PROCEDURE command4.Click

RECALL all

thisform.pageframe1.page4.combo1.Value=' '

thisform.pageframe1.page4.combo2.Value=' '

thisform.Refresh

thisform.pageframe1.page4.grdТовары1.SetFocus

ENDPROC

PROCEDURE command5.Click

DELETE from "F:\Магазин Компьютерной Техники\Товары.dbf"

WHERE;

товар=thisform.pageframe1.page4.combo1.Value;

OR модель=thisform.pageframe1.page4.combo2.value

thisform.Refresh

thisform.pageframe1.page4.grdТовары1.SetFocus

ENDPROC

PROCEDURE command1.Click

Приложение

SELECT count(*), sum(Количество),

INT((sum(Количество))*(INT(avg(цена_в_дол)))), int(avg(цена_в_дол))

FROM "F:\Магазин компьютерной Техники\товары.dbf";

where товар=thisform.pageframe1.page5.combo1.value;

INTO ARRAY mas1

thisform.pageframe1.page5.text1.Value=mas1(1)

thisform.pageframe1.page5.text2.Value=mas1(2)

thisform.pageframe1.page5.text3.Value=mas1(3)

thisform.pageframe1.page5.text4.Value=mas1(4)

thisform.Refresh

SELECT sum(Количество) FROM "F:\Магазин компьютерной

Техники\товары.dbf" INTO ARRAY mas5

thisform.pageframe1.page5.text8.Value=mas5(1)

thisform.Refresh

ENDPROC

PROCEDURE command2.Click

thisform.pageframe1.page5.combo1.Value=' '

thisform.pageframe1.page5.text1.Value=' '

thisform.pageframe1.page5.text2.Value=' '

thisform.pageframe1.page5.text3.Value=' '

thisform.pageframe1.page5.text4.Value=' '

thisform.pageframe1.page5.text8.Value=' '

thisform.Refresh

ENDPROC

PROCEDURE command3.Click

SELECT sum(Количество),

INT((sum(Количество))*(INT(avg(цена_в_дол)))), int(avg(цена_в_дол))

FROM "F:\Магазин компьютерной Техники\товары.dbf";

where модель=thisform.pageframe1.page5.combo2.value;

INTO ARRAY mas2

thisform.pageframe1.page5.text5.Value=mas2(1)

thisform.pageframe1.page5.text6.Value=mas2(2)

thisform.pageframe1.page5.text7.Value=mas2(3)

thisform.Refresh

ENDPROC

PROCEDURE command4.Click

thisform.pageframe1.page5.combo2.Value=' '

thisform.pageframe1.page5.text5.Value=' '

thisform.pageframe1.page5.text6.Value=' '

thisform.pageframe1.page5.text7.Value=' '

thisform.Refresh

ENDPROC

PROCEDURE command1.Click

Thisform.Release

ENDPROC

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