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

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

СОДЕРЖАНИЕ

• ВВЕДЕНИЕ
• 1. ТЕХНИЧЕСКОЕ ЗАДАНИЕ НА АВТОМАТИЗИРОВАННУЮ ИНФОРМАЦИОННУЮ СИСТЕМУ «АГЕНТСТВО ЦИФРОВЫХ И РЕКЛАМНЫХ УСЛУГ»
• 2. ОПИСАНИЕ ПРЕДМЕТНОЙ ОБЛАСТИ
• 3. ВЫБОР ПРОГРАММНЫХ И ТЕХНИЧЕСКИХ СРЕДСТВ
• 4. МОДЕЛЬ ТРЕБОВАНИЙ
• 5. МОДЕЛЬ АНАЛИЗА
• 6. МОДЕЛЬ ПРОЕКТИРОВАНИЯ
• 7. ИНТЕРФЕЙСЫ ФОРМ
• 8. ПРОГРАММНЫЕ КОДЫ ПРИЛОЖЕНИЯ
• ЗАКЛЮЧЕНИЕ
• БИБЛИОГРАФИЧЕСКИЙ СПИСОК


ВВЕДЕНИЕ

Проектирование ис, visual paradigm for uml 6.2, субд microsoft access 2007, microsoft visual basic 6.0., рекламное агентство records.

Объектом разработки является информационная система для автоматизации рабочего места оператора по расчету стоимости заказов и их регистрации в «Агентстве цифровых и рекламных услуг».

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

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

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

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

Благодаря разработкам Г. Буча, Д. Рамбо и И. Якобсона решение этой задачи стало возможно при помощиунифицированного языка моделирования (UML), который можно использовать для описания и моделирования системы. Диаграммы UML позволяют легче общаться разработчику с заказчиком, так как будущую систему можно подробно рассмотреть и собрать все возможные пожелания будущего пользователя еще до создания кода. программный информационный рекламный

Работу с UML диаграммами поддерживает Visual Paradigm for UML.

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



1. ТЕХНИЧЕСКОЕ ЗАДАНИЕ НА АВТОМАТИЗИРОВАННУЮ ИНФОРМАЦИОННУЮ СИСТЕМУ «АГЕНТСТВО ЦИФРОВЫХ И РЕКЛАМНЫХ УСЛУГ»

Введение

Наименование разработки: автоматизированная информационная система «Агентство цифровых и рекламных услуг».

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

Объект, на котором планируется использование информационной системы: ООО «Агентство цифровых и рекламных услуг».

2. Назначение разработки

Расчет стоимости заказов, учет заказов, расчет с заказчиками.

3. Требования к системе

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

Выполняемые функции:

а)ввод в базу данных системы справочной информации:

о предоставляемых услугах (код, название, стоимость, примечания);

о заказчиках (код, ФИО, адрес, телефон) и исполнителях (код, ФИО, должность, стоимость часа работы);

о заказах, принятых (код, дата поступления, срок изготовления, заказчик, ответственный исполнитель, код сметы) и выполненных (№ счета, код заказа, заказчик, наименование услуги, количество единиц, стоимость);

о материалах (код, название, количество, стоимость, номер партии), находящихся на складе, и их поставщиках (код, название, адрес, телефон);

о нормативах, на основании которых производится расчет стоимости оплаты времени и материалов (код, название работы, нормы расхода ресурса);

б)просмотр, корректировка и удаление данных из базы;

г) осуществление расчета стоимости материалов, расходов на оплату труда и итоговых смет на стоимость заказа.

Организация входных и выходных данных:

а) входные данные для учета клиентов вводятся на основании информации, предоставленной клиентом;

б) входные данные для учета материалов и поставщиков вводятся на основании информации, предоставленной со склада;

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

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

Временные характеристики:

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

время выполнения расчетов не должно превышать двадцати секунд.

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

Система должна быстро восстанавливаться после сбоев.

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

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

Потенциально опасные действия пользователя должны сопровождаться предупреждениями вида “Вы уверены, что …?” и т.п.

Необходимо создание системы подсказок, информирования об ошибках.

Условия эксплуатации

Система предназначена для эксплуатации ООО «Агентство цифровых и рекламных услуг».

Требования к квалификации персонала: навыки работы с компьютером и операционной системой Windows.

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

Технические средства должны обеспечивать возможность работы с операционной системой Windows ХР (Windows 7) и пакетом прикладных программ Microsoft Office 2007.

3.5 Требования к информационной и программной совместимости, защите информации и программ

Система должна функционировать под управлением операционных систем Windows XP и Windows 7.

3.6 Требования к документации (предварительный состав)

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

1. описание системы;

2. тексты программ;

3. руководство пользователя;

4. руководство программиста.

2. ОПИСАНИЕ ПРЕДМЕТНОЙ ОБЛАСТИ

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

В предметной области «Агентства цифровых, оформительных и рекламных услуг» подлежит автоматизации задача учета и расчета стоимости заказов. Эту задачу делим на 2 подзадачи: учет работы и расчет стоимости.

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

· для данных о заказчиках - информация, предоставляемая клиентами;

· о заказах - информация, составленная заказчиками вместе с дизайнерами и оформителями (проекты, сроки выполнения);

· о материалах - списки материалов и поставщиков со склада;

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

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

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

3. ВЫБОР ПРОГРАММНЫХ И ТЕХНИЧЕСКИХ СРЕДСТВ

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

Данная программа может работать в любой из ниже перечисленных операционных систем: Windows XP, Windows 7 -поскольку выбранный язык программирования Microsoft Visual Basic 6.0работает на платформе любой из этих ОС.

Выбранная СУБД - Microsoft Office Access 2007.Она обеспечивает нормальное функционирование программы, а также необходимые скоростные характеристики обработки информации. В таблице 2 представлены параметры Access в сравнении с СУБД Visual FoxPro.

Таблица 3.1 - Сравнение Microsoft Office Access и Visual FoxPro.

№	Характеристики	Средства
		Visual Foxpro	Access
1 1	Принцип обработки кода	Интерп.(псевдо Компилятор)	Интерп.(псевдо- компилятор.)
22	Язык	DBASE c с объектами	Basic c Объектами
33	Система	Закрытая	Закрытая
44	Встроенные базы данных	DBF, DBC, ODBC	MDB, ODBC
55	Создание пользовательских мастеров	-	-
66	Динамическое создание форм ввода, обработки сообщений	+	+
77	Модель создания приложения	-	-
88	Технология	Построители экранов, меню, отчетов (drag-and-drop), классов	Построители экранов, меню, отчетов (drag-and-drop), классов
99	Вывод из баз данных на печать	Встроенный Report	Встроенный Report
110	Обработка исключений	Процедура	Процедура
111	Поддержка CASE-средств	-	+
112	Цена базы данных	Формат бесплатен	Формат бесплатен
313	Основные преимущества	Высокий уровень объектной модели. Высокая скорость обработки данных. Интеграция объектно-ориентированного языка программирования с Xbase и SQL. Многоплатформенность.	Простота освоения. Возможность использования непрофессиональным программистом. Имеет мощные средства подготовки отчетов из БД различных форматов.
14.	Основное назначение	Создание приложений масштаба предприятия. Создание приложений для работы на различных платформах (Windows 3.x, Windows 95, Macintosh и т. д.)	Создание отчетов произвольной формы на основании различных данных. Разработка не коммерческих приложений.

Таким образом, можно сказать, что Visual FoxPro отличается высокой скоростью, имеет встроенный объектно-ориентированный язык программирования с использованием xBase и SQL. Однако в отличие от Visual FoxPro, фактически превратившегося в средство разработки приложений, Access ориентирован в первую очередь на пользователей Microsoft Office, в том числе и не знакомых с программированием, а сейчас мало людей не знакомых с компанией Microsoft Office, то есть простота использования один из самых решающих факторов выбора этой СУБД.

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

Для выбора характеристик компьютера необходимо учесть следующие моменты: время получения результатов запросов к базе данных допустимо в пределах нескольких секунд, то есть требования к скорости обработки данных невысоки; необходимо предусмотреть возможное развитие системы (увеличение объема базы данных, переход к новым версиям операционной системы и СУБД, включение системы в локальную вычислительную сеть и т.д.). Таким образом, технические требования приведены в таблице 3.2.

Таблица 3.2- Требования к оборудованию.

	Требования
	Минимальные	Рекомендуемые
Процессор	Pentium 400	Celeron - 1200
Объем оперативной памяти, Мбайт	64	128
Емкость жесткого диска, Мбайт	1000	6000
Привод FDD	Да	Да
Привод CD-ROM	Нет	Да
Монитор	14 дюймов	15 дюймов
Клавиатура	Да	Да
Мышь	Да	Да

4. МОДЕЛЬ ТРЕБОВАНИЙ

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

Диаграммой прецедентов, или использования (Use case diagram), называется диаграмма, на которой показана совокупность прецедентов и актеров, а также отношения между ними. Диаграммы прецедентов представляют собой один из пяти типов диаграмм, применяемых в UML для моделирования динамических аспектов системы. Они применяются для моделирования вида системы с точки зрения прецедентов (или вариантов использования). Чаще всего это предполагает моделирование контекста системы, подсистемы или класса либо моделирование требований, предъявляемых к поведению указанных элементов.

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

Диаграмма вариантов использования изображена на рисунке 4.1.

Рис. 4.1 Диаграмма вариантов использования

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

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

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

Рис. 4.2 Диаграмма деятельности: прием заказа



Рис. 4.3 Диаграмма деятельности: расчет с заказчиком

Рис. 4.4 Диаграмма деятельности: внесение материалов

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

5. МОДЕЛЬ АНАЛИЗА

Модель анализа выявляет основные классы и взаимоотношения между ними. Диаграммой классов (Class diagram) называют диаграмму, на которой показано множество классов, интерфейсов, коопераций и отношений между ними. В нашей системе всего четыре класса: смета, стоимость материалов, оплата времени, счета.Классы между собой находятся в отношении ассоциации. Ассоциацией (Association) называется структурное отношение, показывающее, что объекты одного типа неким образом связаны с объектами другого типа.

На рис. 5.1 показана диаграмма классов. На рисунке 5.2 изображена схема базы данных системы.

Рис. 5.1 Диаграмма классов

Рис. 5.2Схема базы данных



6. МОДЕЛЬ ПРОЕКТИРОВАНИЯ

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

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

На рис. 6.1, 6.2, 6.3 и 6.4 показаны диаграммы последовательностей.

Рис. 6.1 Диаграмма последовательностей: расчет стоимости заказа

Рис. 6.2 Диаграмма последовательностей: регистрация заказа

Рис. 6.3 Диаграмма последовательностей: расчет с заказчиком

Рис. 6.4 Диаграмма последовательностей: внесение материалов

На рис. 6.5, 6.6 и 6.7 показаны диаграммы кооперации.

Рис. 6.5 Диаграмма кооперации: расчет стоимости заказа и его регистрация

Рис. 6.6 Диаграмма кооперации: расчет с заказчиком

Рис. 6.7 Диаграмма кооперации: внесение материалов

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

На рис. 6.8, 6.9, 6.10 и 6.11 показаны диаграммы состояния.

Рис. 6.8 Диаграмма состояния: расчет стоимости заказа и его регистрация

Рис. 6.9 Диаграмма состояния: внесение материалов

Рис. 6.10 Диаграмма состояния: расчет с заказчиком



Рис. 6.11 Диаграмма состояния: ЖЦ заказа

7. ИНТЕРФЕЙСЫ ФОРМ

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

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

Эскизы форм приведены ниже на рис. 7.1 - 7.7.

Рис. 7.1 Главная форма: начало запуска

Рис. 7.2 Форма для составления и печати договоров



Рис. 7.3 Форма для расчета стоимости ресурсов

Рис. 7.4 Форма для расчета смет

Рис. 7.5 Форма для расчета с заказчиками

Рис. 7.6 Форма для внесения данных о материалах

Рис. 7.7 Форма списка заказчиков.

Формы со списками услуг, заказов, выполненных заказов, счетов, исполнителей, норм расхода времени, норм расхода материалов, расчетов стоимости материалов, расчетов стоимости оплаты времени, расчетов смет, материалов, поставщиков аналогичны форме со списком заказчиков.

8. ПРОГРАММНЫЙ КОД ПРИЛОЖЕНИЯ

Класс «Счета» (Schet)

Описание свойств:

Option Explicit

Private mvarKol As Double

Private mvarStE As Double

Private mvarSk As Double

Private mvarYd As Double

Private mvarSum As Double

Private StM, sSk, S As Double

Public Property Let Kol(ByVal vData As Double)

mvarKol = vData

End Property

Public Property Get Kol() As Double

Kol = mvarKol

End Property

Public Property Let StE(ByVal vData As Double)

mvarStE = vData

End Property

Public Property Get StE() As Double

StE = mvarStE

End Property

Public Property Let Sk(ByVal vData As Double)

mvarSk = vData

End Property

Public Property Get Sk() As Double

Sk = mvarSk

End Property

Public Property Let Yd(ByVal vData As Double)

mvarYd = vData

End Property

Public Property Get Yd() As Double

Yd = mvarYd

End Property

Public Property Let Sum(ByVal S As Double)

mvarSum = S

End Property

Public Property Get Sum() As Double

Sum = mvarSum

End Property

Метод для расчета стоимости выполненного заказа:

Public Sub CalcStSch()

StM = Kol * StE

sSk = StM * Yd * Sk / 100

S = StM * Yd - sSk

frmRasch.txtSum.Text = S

End Sub

Метод для расчета итоговой суммы к оплате:

Private Function Quote(strVariable As String) As String

Quote = "'" & strVariable & "'"

End Function

Public Sub CalcSch()

Dim strS As String

If frmRasch.txtN.Text <> "" Then

strS = Trim(frmRasch.txtN.Text)

With frmRasch.Adodc3

.ConnectionString = "Агентство"

.RecordSource = "SELECT Sum([Сумма])As S FROM [Выполненные_заказы] WHERE [Выполненные_заказы].[№ Счета] LIKE " & Quote(strS)

.Refresh

End With

Set frmRasch.txtS.DataSource = frmRasch.Adodc3

frmRasch.txtS.DataField = "S"

Else

MsgBox "Введите значение текстового поля!", vbOKOnly

frmRasch.txtN.SetFocus

End If

End Sub

Класс «Смета» (Smeta)

Описание свойств:

Option Explicit

Private mvarVrDiz As Double

Private mvarStDiz As Double

Private mvarStMater As Double

Private mvarOHR As Double

Private mvarOPR As Double

Private mvarStOf As Double

Private mvarZatr As Double

Private mvarRent As Double

Private mvarOSt As Double

Private PZ, OPR, OHR, IZ, R, SP As Double

Public Property Let VrDiz(ByVal vData As Double)

mvarVrDiz = vData

End Property

Public Property Get VrDiz() As Double

VrDiz = mvarVrDiz

End Property

Public Property Let StDiz(ByVal vData As Double)

mvarStDiz = vData

End Property

Public Property Get StDiz() As Double

StDiz = mvarStDiz

End Property

Public Property Let StOf(ByVal vData As Double)

mvarStOf = vData

End Property

Public Property Get StOf() As Double

StOf = mvarStOf

End Property

Public Property Let StMater(ByVal vData As Double)

mvarStMater = vData

End Property

Public Property Get StMater() As Double

StMater = mvarStMater

End Property

Public Property Let sOHR(ByVal OHR As Double)

mvarOHR = OHR

End Property

Public Property Get sOHR() As Double

sOHR = mvarOHR

End Property

Public Property Let sOPR(ByVal OPR As Double)

mvarOPR = OPR

End Property

Public Property Get sOPR() As Double

sOPR = mvarOPR

End Property

Public Property Let Zatr(ByVal IZ As Double)

mvarZatr = IZ

End Property

Public Property Get Zatr() As Double

Zatr = mvarZatr

End Property

Public Property Let Rent(ByVal R As Double)

mvarRent = R

End Property

Public Property Get Rent() As Double

Rent = mvarRent

End Property

Public Property Let OSt(ByVal SP As Double)

mvarOSt = SP

End Property

Public Property Get OSt() As Double

OSt = mvarOSt

End Property

Метод расчета сметы:

Public Sub Calc()

PZ = VrDiz * StDiz + StOf + StMater

OPR = PZ * Val(frmMain.txtPP.Text) / 100

OHR = PZ * Val(frmMain.txtPH.Text) / 100

IZ = PZ + OPR + OHR

R = IZ * Val(frmMain.txtPR.Text) / 100

SP = IZ + R

frmMain.txtOPR.Text = OPR

frmMain.txtOHR.Text = OHR

frmMain.txtZatr.Text = IZ

frmMain.txtRent.Text = R

frmMain.txtStPr.Text = SP

End Sub

Класс «Стоимость материалов» (StoimMater)

Описание свойств:

Option Explicit

Private mvarRazm As Double

Private mvarStM As String

Private mvarRash As Double

Private mvarTse As Double

Private RM As Double

Public Property Let Razm(ByVal vData As Double)

mvarRazm = vData

End Property

Public Property Get Razm() As Double

Razm = mvarRazm

End Property

Public Property Let Tse(ByVal vData As Double)

mvarTse = vData

End Property

Public Property Get Tse() As Double

Tse = mvarTse

End Property

Public Property Let Rash(ByVal vData As Double)

mvarRash = vData

End Property

Public Property Get Rash() As Double

Rash = mvarRash

End Property

Public Property Let StM(ByVal RM As Double)

mvarStM = RM

End Property

Public Property Get StM() As Double

StM = mvarStM

End Property

Метод расчета стоимости материалов на весь заказ:

Public Sub CalcMater()

Dim strK2 As String

If frmRash.txtKod2.Text <> "" Then

strK2 = Trim(frmRash.txtKod2.Text)

With frmRash.Adodc7

.ConnectionString = "Агентство"

.RecordSource = "SELECT Sum([Стоимость])As Сумма FROM [Расход_материалов] WHERE [Расход_материалов].[Код расчета] LIKE " & Quote(strK2)

.Refresh

End With

Set frmRash.Text8.DataSource = frmRash.Adodc7

frmRash.Text8.DataField = "Сумма"

Else

MsgBox "Введите значение текстового поля!", vbOKOnly

frmRash.txtKod2.SetFocus

End If

End Sub

Метод расчета стоимости одного вида материала:

Public Sub CalcStM()

RM = Razm * Rash * Tse

frmRash.txtStM.Text = RM

End Sub

Класс «Оплата времени» (StoimVr)

Описание свойств:

Option Explicit

Private mvarVSt As Double

Private mvarKol As Double

Private mvarStoimSt As Double

Private mvarOplTr As Double

Private St As Double

Public Property Let VSt(ByVal vData As Double)

mvarVSt = vData

End Property

Public Property Get VSt() As Double

VSt = mvarVSt

End Property

Public Property Let Kol(ByVal vData As Double)

mvarKol = vData

End Property

Public Property Get Kol() As Double

Kol = mvarKol

End Property

Public Property Let StoimSt(ByVal vData As Double)

mvarStoimSt = vData

End Property

Public Property Get StoimSt() As Double

StoimSt = mvarStoimSt

End Property

Public Property Let OplTr(ByVal St As Double)

mvarStoimSt = St

End Property

Public Property Get OplTr() As Double

OplTr = mvarOplTr

End Property

Метод расчета оплаты времени на весь заказ:

Public Sub CalcTime()

Dim strK As String

If frmRash.txtKod.Text <> "" Then

strK = Trim(frmRash.txtKod.Text)

With frmRash.Adodc5

.ConnectionString = "Агентство"

.RecordSource = "SELECT Sum([Общая стоимость])As Сумма FROM [Время_работы] WHERE [Время_работы].[Код расчета] LIKE " & Quote(strK)

.Refresh

End With

Set frmRash.Text7.DataSource = frmRash.Adodc5

frmRash.Text7.DataField = "Сумма"

Else

MsgBox "Введите значение текстового поля!", vbOKOnly

frmRash.txtKod.SetFocus

End If

End Sub

Метод расчета времени на выполняемую работу:

Public Sub CalcSt()

St = VSt * StoimSt * Kol

frmRash.txtOplTr.Text = St

End Sub

Создание нового объекта «Смета» для расчета сметы (frmMain)

Private Sub btnRaschet_Click()

If txtPP.Text <> "" And txtPH.Text <> "" And txtPR.Text <> "" Then

If txtVrD.Text <> "" And txtStoim.Text <> "" And txtOplTr.Text <> "" And txtMater.Text <> "" Then

Dim objSmeta As New Smeta

objSmeta.VrDiz = txtVrD.Text

objSmeta.StDiz = txtStoim.Text

objSmeta.StOf = txtOplTr.Text

objSmeta.StMater = txtMater.Text

objSmeta.Calc

Else

MsgBox "Необходимо заполнить поля с расчетными данными", , "Расчет сметы"

End If

Else

MsgBox "Необходимо заполнить поля с размером процентов", , "Расчет сметы"

End If

End Sub

Создание нового объекта «Оплата времени» для расчета данных по виду работы и для заказа в целом (frmRash):

Private Sub btnSchet_Click()

Dim objStVr As New StoimVr

objStVr.CalcTime

End Sub

Private Sub Command8_Click()

If txtVSt.Text <> "" And txtStoimSt.Text <> "" And txtKol <> "" Then

Dim objStVr As New StoimVr

objStVr.VSt = txtVSt.Text

objStVr.Kol = txtKol.Text

objStVr.StoimSt = txtStoimSt.Text

objStVr.CalcSt

Else

MsgBox "Необходимо заполнить поля", , "Расчет на оплату времени"

End If

End Sub

Создание нового объекта «Стоимость материалов» для расчета данных по виду работы и для заказа в целом (frmRash):

Private Sub btnSchM_Click()

Dim objStM As New StoimMater

objStM.CalcMater

End Sub

Private Sub Command9_Click()

If txtRazmer.Text <> "" And txtRash.Text <> "" And txtTse.Text <> "" Then

Dim objStM As New StoimMater

objStM.Rash = txtRash.Text

objStM.Razm = txtRazmer.Text

objStM.Tse = txtTse.Text

objStM.CalcStM

Else

MsgBox "Необходимо заполнить поля", , "Расчет матриалов"

End If

End Sub

Программный код для добавления и удаления записей в базе данных:

Private Sub Command1_Click()

prompt$ = "Для ввода новой записи нажмите на кнопку ОК"

reply = MsgBox(prompt$, vbOKCancel, "Добавить запись")

If reply = vbOK Then

Text1.SetFocus

Adodc3.Recordset.AddNew

End If

End Sub

Private Sub Command2_Click()

prompt$ = "Вы действительно хотите удалить эту запись?"

reply = MsgBox(prompt$, vbOKCancel, "Удаление записи")

If reply = vbOK Then

Adodc3.Recordset.Delete

Adodc3.Recordset.MoveNext

End If

End Sub

Программный код для автоматического вставления данных (frmRash):

Private Sub Command10_Click()

If Text2.Text = "" And Text3.Text = "" And txtVSt.Text = "" Then

Text2.Text = txtNK.Text

Text3.Text = txtNN.Text

txtVSt.Text = txtNV.Text

Else

MsgBox "Добавьте новую строку, или очистите поле", , "Расчет расхода ресурсов"

End If

End Sub

Печать (аналогичен для смет, расчетов стоимости материалов, счетов):

Private Sub Command3_Click()

Dim strS As String

If txtKod.Text <> "" Then

strS = Trim(txtKod.Text)

With Adodc5

.ConnectionString = "Агентство"

.RecordSource = "SELECT * FROM [Время_работы] WHERE [Время_работы].[Код расчета] LIKE " & Quote(strS)

.Refresh

End With

Set DataGrid1.DataSource = Adodc5

Printer.Print ""

Printer.FontName = "Times New Roman"

Printer.FontSize = 14

Printer.Print DataGrid1.Text

Printer.EndDoc

Else

MsgBox "Введите код расчета для печати!", vbOKOnly

txtKod.SetFocus

End If

End Sub

Печать таблиц с данными:

Private Sub Command2_Click()

Printer.Print ""

Printer.FontName = "Times New Roman"

Printer.FontSize = 14

Printer.Print DataGrid1.Text

Printer.EndDoc

End Sub



ЗАКЛЮЧЕНИЕ

В ходе выполнения курсовой работы спроектирована и разработана информационная система для выбранной предметной области - агентства цифровых, оформительных и рекламных услуг. Результат разработки - приложение, выполненное при помощи средств СУБД - Microsoft Access на языке программирования Visual Basic.

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

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

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

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

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

4. Для внесения информации о наличии материалов на складе и поставщиках нужно выполнить команду Открыть/Запас материалов и внести нужные данные.

5. Для расчета стоимости материалов нужно выполнить команду Открыть/Расчет ресурсов. В области для расчета стоимости материалов нажать кнопку «Добавить», в появившемся сообщении подтвердить намерение добавления новой записи нажатием кнопки «ОК». В таблице появится новая строка, очистятся текстовые поля. В текстовые поля заносятся данные о коде расчета. Слева от области для расчета стоимости материалов находится область с нормами расхода материалов. В ней находим нужный код материала и выполняемую работу, нажимаем кнопку «Вставить» либо дважды щелкаем в одном из текстовых полей для вставки данных в таблицу для расчета. Далее вводим размер изделия (в м²) либо количество (для букв) и стоимость материалов. Для расчета стоимости расходуемого материала нажимаем кнопку «Считать». В текстовом поле «Стоимость (руб.)» появится рассчитанная стоимость материала. Аналогично рассчитываем стоимость остальных материалов для одного заказа.Длярасчета общей стоимости материалов по одному заказу вводим в текстовое поле «Введите код расчета» код расчета и нажимаем кнопку «Считать». В текстовом поле «Стоимость материалов (руб.)» появится рассчитанная стоимость материалов по интересующему нас заказу.

6. Для расчета расходов на оплату времени нужно выполнить команду Открыть/Расчет стоимости ресурсов и в соответствующей области выполнить действия, аналогичные тем, что описаны в п. 5 для расчета стоимости материалов.

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

8. Для закрытия форм со списками и форм для расчета нужно нажать кнопку «Закрыть», имеющуюся в каждой форме.

9. Для выхода из приложения нужно выполнить команду Файл/Выход.

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



СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

1. Разработка баз данных в системе Microsoft Access: учебник. - 2-е изд. - М.: ФОРУМ: ИНФА-М, 2007. - 224 с.: ил. - (Профессиональное образование)

2. Microsoft Visual Basic 6.0 для профессионалов. Шаг за шагом: Практ. пособ./Пер. с англ. - М.: Издательство ЭКОМ, 2004. - 720 с.: илл.

3. Глушаков С. В., Сурядный А. С. Программирование на Visual Basic 6.0: учебное издание.- М.: Издательство «Фолио», 2002. - 497 с.

4. Брайан Сайлер «Использование Visual Basic 6»: специальное издание/Сайлер, Брайан, Споттс, Джефф - М: Вильямс, 2005. - 830с.

5. Г. Буч, Д. Рамбо, А. Джекобсон «Язык UML. Руководство пользователя».

6. Черемных, С. В.Структурный анализ систем. IDEF-технологии/ С. В. Черемных, И. О. Семенов. - М.: Финансы и статистика, 2002.

7. Марка, Д. А. SADT - методология структурного анализа и проектирования/ Д.А. Марка. - М.: Метатехнология, 1993.

8. Дейт, К.Дж. Введение в системы базы данных / К. Дж. Дейт - Вильямс, 2001. - 1072 с.

9. Вендров, А.М. Практикум по проектированию программного обеспечения экономических информационных систем/ А.М. Вендров.- М.: Финансы и статистика,2006. - 192 с.

10. Маклаков С.В. Создание информационных систем с AllFusion Modeling Suite / С.В. Маклаков. -М.: Диалог-Мифи, 2003. - 432 с.

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

...