Разработка программы в системе Microsoft Office Access на языке MVB
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
Введение
Задачей данной курсовой работы является написание программы в среде Microsoft Access на языке Microsoft Visual Basic, решающую следующую задачу: перенесение данных из таблицы Word в таблицу базы данных.
Если говорить о среде написания программ для решения задач - Microsoft Visual Basic for Application то это сочетание одного из самых простых языков программирования и всех вычислительных возможностей такой многогранной системы, как Access. С помощью VBA можно легко и быстро создавать разнообразные приложения даже не являясь специалистом в области программирования. VBA содержит относительно мощную графическую среду, позволяющую наглядно конструировать экранные формы и управляющие элементы. В общем Visual Basic for Application позволяет с легкостью решать многие задачи.
VBA встроен в любое приложение Microsoft Office, поэтому, нет необходимости устанавливать дополнительные пакеты прикладных программ. Тексты программ сохраняются в соответствующих приложениях, и, следовательно, их можно переносить с одного компьютера на другой, не задумываясь о необходимости создания исполняемых файлов, достаточно наличия на компьютерах пакета Microsoft Office.
Visual Basic считается хорошим средством быстрой разработки прототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows.
Название Visual Basic говорит само за себя. Visual Basic, в отличие от традиционных систем программирования, представляет совершенно иной стиль программирования. Уже по слову "Visual" можно догадаться, что в Visual Basic реализован визуальный стиль программирования. Здесь мы даже не программируем, а проектируем приложение. Наша первая задача при этом - создать рабочую среду, прежде чем начать набирать первую строку кода.
Слово Basic в названии указывает на то, что синтаксис программ и операторы опираются на язык высокого уровня Basic (Beginners Atlpurpose Symbolic Instruction Code - многоцелевой код символических команд для начинающих), но заметно от него отличается.
1. Постановка задачи
- Создать в базе данных Microsoft Office Access таблицу Закупаемые компоненты в соответствии с заданием
- Разработать форму для работы с таблицей Закупаемые компоненты
- Написать программу для расчета операций, указанных в задании
2. Описание алгоритма решения задачи в виде текстового описания
- Создать таблицу Закупаемые компоненты при помощи Конструктора и задать имя, тип, размер, формат каждого поля таблицы
- Создать при помощи Мастера форму с полями для ввода информации
- Поместить на форме кнопку Расчет
- Щелкнув правой кнопкой мыши по кнопке Расчет, выбрать в контекстном меню строку Обработка событий
- В открывшемся окне Microsoft Visual Basic написать программу для расчета незаполненных полей
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 Выполняет гр