Введение
Задачей данной курсовой работыявляется написание программы в среде Microsoft Access на языке Microsoft VisualBasic, решающую следующую задачу: перенесение данных из таблицы 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. Постановка задачи
1. Создать в базеданных Microsoft Office Access таблицу «Закупаемые компоненты» в соответствии сзаданием
2. Разработать формудля работы с таблицей «Закупаемые компоненты»
3. Написатьпрограмму для расчета операций, указанных в задании 2.Описание алгоритма решения задачи в виде текстового описания
1. Создать таблицу «Закупаемыекомпоненты» при помощи Конструктора и задать имя, тип, размер, формат каждогополя таблицы
2. Создать припомощи Мастера форму с полями для ввода информации
3. Поместить наформе кнопку «Расчет»
4. Щелкнув правойкнопкой мыши по кнопке «Расчет», выбрать в контекстном меню строку Обработкасобытий
5. В открывшемсяокне 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 Sub6. Подробное описание работы программы
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.* FROMSpect»
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'выход из цикла
End With
Me.Refresh 'Обновляет объекты в семействе всоответствии с текущими изменениями в схеме базы данных.
Exit_Кн1_Click: 'конец обработки события
Exit Sub 'конец объявления процедуры
Err_Кн1_Click:
MsgBox Err.Description'описание ошибки
ResumeExit_Кн1_Click 'продолжает выполнение программы после завершенияпроцедуры обработчика ошибок/>End Sub 'конец обработки события
7. Примеры работы программы
/>
Рисунок 9 – Экраннаяформа до выполнения расчета
/>
Рисунок 10 – Экраннаяформа после выполнения расчета/>
Заключение
база данные таблица word
В процессе выполнения данной курсовойработы была написана программа в среде Microsoft Access на языке MicrosoftVisual Basic, решающая следующую задачу: перенесение данных из таблицы Word втаблицу базы данных./>
Список литературы
1. А.С. Грошев Информатика: Учебник длявузов. – Архангельск, 2009.
2. А.С. Грошев Программирование наVBS. Методические указания к выполнению лабораторных работ. — Архангельск,2009.