Контрольная работа по предмету "Информатика, программирование"


Разработка программы в системе Microsoft Office Access на языке MVB

Введение


Задачей данной курсовой работы является написание программы в среде Microsoft Access на языке Microsoft Visual Basic, решающую следующую задачу: перенесение данных из таблицы Word в таблицу базы данных.


Если говорить о среде написания программ для решения задач - Microsoft Visual Basic for Application – то это сочетание одного из самых простых языков программирования и всех вычислительных возможностей такой многогранной системы, как Access. С помощью VBA можно легко и быстро создавать разнообразные приложения даже не являясь специалистом в области программирования. VBA содержит относительно мощную графическую среду, позволяющую наглядно конструировать экранные формы и управляющие элементы. В общем Visual Basic for Application позволяет с легкостью решать многие задачи.


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


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


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


Слово Basic в названии указывает на то, что синтаксис программ и операторы опираются на язык высокого уровня Basic (Beginners Atlpurpose Symbolic Instruction Code - многоцелевой код символических команд для начинающих), но заметно от него отличается.



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


1. Создать в базе данных Microsoft Office Access таблицу «Закупаемые компоненты» в соответствии с заданием


2. Разработать форму для работы с таблицей «Закупаемые компоненты
»


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


2. Описание алгоритма решения задачи в виде текстового описания


1. Создать таблицу «Закупаемые компоненты» при помощи Конструктора и задать имя, тип, размер, формат каждого поля таблицы


2. Создать при помощи Мастера форму с полями для ввода информации


3. Поместить на форме кнопку «Расчет»


4. Щелкнув правой кнопкой мыши по кнопке «Расчет», выбрать в контекстном меню строку Обработка событий


5. В открывшемся окне MicrosoftVisualBasic написать программу для расчета незаполненных полей


3. Описание базы данных (структура таблиц, схема)


Таблица 1 – Описание структуры таблицы «Закупаемые компоненты»




















































Имя поля Тип данных Размер поля Индексированное поле
Склад Числовой Длинное целое Да(Совпадения допускаются)
Изделие Числовой Действительное Нет
Описание Текстовой 50 Нет
Наличный запас Числовой Действительное Нет
Задержанный запас Числовой Действительное Нет
Заказанный запас Числовой Длинное целое Нет
Распределённый запас Числовой Длинное целое Нет
Свободный запас Числовой Действительное Нет
Единицы Текстовой 50 Нет


Рисунок 1 – Таблица «
Закупаемые компоненты
» в режиме Конструктор






Рисунок 2– Таблица «Закупаемые компоненты


Таблица 2 – Описание структуры таблицы «Склад»






















Имя поля Тип данных Размер поля Индексированное поле
Склад Числовой Длинное целое Да(Совпадения не допускаются)
Тип склада Текстовой 50 Нет
Кластер Текстовой 50 Нет



Рисунок 3 – Таблица «Склад» в режиме Конструктор



Рисунок 4– Таблица «Склад»



Рисунок 5 – Запрос в режиме конструктора



Рисунок 6 – Запрос в режиме SQL



4. Копии с экрана форм для работы с базой данных при разработке их в конструкторе



Рисунок 7 – Экранная форма в режиме конструктор



Рисунок 8 – Экранная форма


5. Текст разработанной программы


Private Sub Кн1_Click()


On Error GoTo Err_Кн1_Click


Dim rs As New ADODB.Recordset


s_sql = "SELECT [Закупаемые компоненты].* FROM [Закупаемыекомпоненты]"


rs.Open s_sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic


With rs


.MoveFirst


Do Until .EOF


.Fields("Свободный запас") = .Fields("Наличный запас") - .Fields("Задержанный запас") - .Fields("Заказанный запас") - .Fields("Распределённый запас")


.Update


.MoveNext


Loop


Me.Refresh


Exit_Кн1_Click:


Exit Sub


Err_Кн1_Click:


MsgBox Err.Description


Resume Exit_Кн1_Click


End With


End Sub


6. Подробное описание работы программы


Option Compare Database


Private Sub
Кнопка
1_Click()
'
процедура
обработки
события


'On Error GoTo Err_
Кн
1_Click
'
Значение
ошибки


On Error Resume Next
'автоматическое завершение программы при возникновении ошибки будет предотвращено и появится возможность выполнить некоторые дополнительные действия


Dim rs As New ADODB.Recordset
'создается таблица, для каждого столбца которой определяется тип данных и значения в этом столбце должны соответствовать этому типу данных.


s_sql = "SELECT Spect.* FROM Spect"


rs.Open s_sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
'
создается
динамический
с
оптимистической
блокировкой
записей


With rs
'Выполняет группу операторов для объекта Recordset


Do Until .EOF
'повторяет блок команд, пока условие не станет верным


.Fields(0) = fld(0)
'код специальности


.Fields(1) = fld(1)
'наименование специальности


.Update
'для сохранения изменений и добавления записи в объект Recordset


.MoveNext
'перемещает текущую позицию в объекте Recordset на следующую запись


Next
'выход из цикла


EndWith


Me.Refresh
'Обновляет объекты в семействе в соответствии с текущими изменениями в схеме базы данных.


Exit_Кн1_Click:
'конец обработки события


Exit Sub
'конец объявления процедуры


Err_Кн1_Click:


MsgBox Err.Description
'описание ошибки


Resume
Exit
_Кн1_
Click
'продолжает выполнение программы после завершения процедуры обработчика ошибок



End Sub

'конец обработки события



7. Примеры работы программы



Рисунок 9 – Экранная форма до выполнения расчета



Рисунок 10 – Экранная форма после выполнения расчета



Заключение


база данные таблица word


В процессе выполнения данной курсовой работы была написана программа в среде Microsoft Access на языке Microsoft Visual Basic, решающая следующую задачу: перенесение данных из таблицы Word в таблицу базы данных.



Список литературы


1. А.С. Грошев Информатика: Учебник для вузов. – Архангельск, 2009.


2. А.С. Грошев Программирование на VBS. Методические указания к выполнению лабораторных работ. - Архангельск, 2009.



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

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