Реферат Проектирование приложений в среде Visual Basic 6.0 и СУБД MS Access
Работа добавлена на сайт bukvasha.net: 2015-10-28Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
от 25%
Подписываем
договор
Федеральное управление по образованию
Государственное образовательное учреждение
высшего профессионального образования
«ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ УПРАВЛЕНИЯ»
Институт информационных систем управления
Кафедра компьютерных технологий
Специальность: Менеджмент организации
Специализация:
Форма обучения: очная
КУРСОВОЙ ПРОЕКТ
по дисциплине «Компьютерная подготовка»
на тему:
«Проектирование приложений в среде Visual Basic 6.0 и СУБД MS Access»
Исполнитель:
студент_1_курса, _2_ группы ____________ ___Исмагилова М.Р.___
(подпись) (инициалы и фамилия)
Руководитель проекта:
___________________________ __________ ____Каширина Н.В._____
(учёная степень, учёное звание) (подпись) (инициалы и фамилия)
Москва -
Федеральное управление по образованию
Государственное образовательное учреждение
высшего профессионального образования
«ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ УПРАВЛЕНИЯ»
Институт информационных систем управления
Кафедра компьютерных технологий
Задание к курсовому проекту
студента(ки) _1_ курса, __2_____ группы, ______очной______формы обучения
Исмагиловой Марии Ринатовны
(фамилия, имя, отчество)
Вариант № 11
Тема курсового проекта: «Проектирование приложений в среде Visual Basic 6.0 и СУБД MS Access»
Структура проекта:
- Создание собственных приложений в среде Visual Basic 6.0 для решения поставленных задач.
- Проектирование форм и программных кодов для заставки и главного меню КП.
- Создание базы данных в MS Access.
- Формирование различного вида запросов.
- Работа с базой данных инструментальными средствами Visual Basic 6.0.
- Экспорт данных из MS Access в VB для создания и обработки файлов прямого доступа.
Базовая литература:
- Конспект лекций по дисциплине «Компьютерная подготовка» за 1 и 2 семестр.
- В.А. Машурцев, Б.М. Кудрявцев. Алгоритмизация и программирование задач в среде Visual Basic 6.0 для Windows (русифицированная версия). Часть 1. Текст лекций. /ГУУ.-М.,2005
- И.Д. Древаль, Т.П. Катрич, В.А.Машурцев. Проектирование приложений в интегрированной среде Visual Basic. Учебное пособие. /ГУУ.-М.,2008
- 530. Е.В. Лемешко, Т.В. Бугреева, И.А. Ильина. Методические указания к курсовому проектированию по дисциплине "Компьютерная подготовка" (с применением СУБД Access и языка программирования VBA). /ГУУ.- М.,2005
Срок сдачи студентом готового проекта:
Дата выдачи задания:
Руководитель курсового проекта: ______________________________________________
(подпись) (учёная степень, учёное звание, инициалы и фамилия)
Содержание
1.Введение………………………………………………………………………………3
2.Задача № 1(Условный оператор)...…………………………………………………..4
3.Задача № 2(Циклы)..…………………………………………………………………..6
4.Задача №3(Одномерный массив)....………………………………………………….9
5.Задача № 4(Двумерный массив)……………………………………………………..12
6.Задача № 5(Процедура)…………………………………………………………...…..14
7.Задача № 6(Создание файла, обработка)…………………………………………….17
8.Задача № 7(Создание базы данных, обработка)……………………………………..20
9.Заключение…………………………………………………………………………….23
10.Список использованной литературы………………………………………………..24
ВВЕДЕНИЕ
Курсовой проект по Компьютерной подготовке стал для меня первой работой такого масштаба и объёма. Его создание заняло больше двух недель, если говорить о финальной стадии подготовки, а если учитывать все задания, то полное создание заняло весь семестр.
Но вот закончились бессонные ночи и курсовой проект по компьютерной подготовке готов. Целью его создания является овладение программной средой, разработанной компанией Microsoft, Visual Basic 6.0.
Visual Basic это среда объектно-ориентированного программирования, отличающаяся наибольшей дружелюбностью к пользователю по сравнению с другими языками программирования, при этом не уступая им по функциональным возможностям.
Visual Basic разработан в
визуального проектирования программ, работающих в операционной среде Windows. При относительной простоте языка, он позволяет быстро создавать программный
продукт, который мало отличается от подобных продуктов, созданных профессионалами
с использованием языков C и Pascal.
Модификация языка Visual Basic может использоваться в Microsoft Office, в частности в Excel и Access. Он обеспечивает простой доступ и эффективную обработку
данных различных систем управления базами данных (СУБД). Поэтому очень важным является овладение базовыми навыками его использования. Знания алгоритмов и принципов действия позволит в дальнейшем разрабатывать необходимые прикладные приложения самому, не прибегая к помощи сторонних разработчиков.
Курсовой проект состоит из 7 заданий для выполнения в среде Visual Basic и создания пользовательского меню курсового проекта.
В данной пояснительной записке содержатся отчёты по созданию всех пунктов с приведёнными скриншотами и результатами выполнения готовых приложений.
3
ЗАДАЧА № 1.
Условие: Известна фамилия сотрудника, его оклад и стаж работы. Премия составляет 15 % от оклада. Если стаж сотрудника больше 10 лет, то премия увеличивается на 5%. А если стаж сотрудника больше 20 лет, то премия увеличивается на 8 %. Сколько денег получит сотрудник?
Расположение объектов на форме.
4
Программный код.
Private Sub Command1_Click()
Dim a As Single
Dim b As Integer
Dim c As Single
a = Val(Text2.Text)
b = Val(Text3.Text)
If b >= 10 Then c = 0.2 * a
If b > 20 Then c = 0.23 * a
If b < 10 Then c = 0.15 * a
Text4.Text = c
End Sub____________________________________
Private Sub Command2_Click()
End
End Sub
Результат выполнения программы.
5
Вводим данные, нажимаем кнопку «Вычислить», в четвертое текстовое окно выводится премия сотрудника (В данном случае 2000, т.к. стаж работы больше 10 лет и премия составляет 20% от 10000). Если меняем данные в полях оклад и стаж работы, то премия меняется в соответвии условию задачи. Для завершения работы программы, нажимаем кнопку «Выход».
ЗАДАЧА №2.
Условие: Дано натуральное число. Определить, есть ли в числе цифры, равные последней цифре числа.
Расположение объектов на форме.
6
Программнй код.
Private Sub Command1_Click()
Dim n As Long
Dim c As Integer
Dim last As Integer
Dim have As Boolean
n = InputBox("введите число")
have = False
last = n Mod 10
n = n \ 10
While n <> 0
c = n Mod 10
n = n \ 10
If c = last Then
have = True
End If
Wend
If have = True Then
MsgBox "цифры равные последней цифре (" + Str(last) + ") есть!"
Else
MsgBox "цифер равных последней цифре (" + Str(last) + ") нет!"
End If
End Sub___________________________________________________
Private Sub Command2_Click()
End
End Sub
7
Результат выполнения программы.
После нажатия клавиши «Запуск» , открывается диалоговое окно, в которое вводим любое число( в данном случае 4554), нажимаем ок, открывается сообщение о том есть ли в числе цифры равные последней цифре числа.
8
ЗАДАЧА №3.
Условие: Дан массив из М чисел. Определить, во сколько раз значение максимального элемента больше значения минимального элемента.
9
Расположение объектов на форме.
Программный
код
.
Private Sub Command1_Click()
Dim a() As Single
Dim min As Single
Dim max As Single
Dim n As Integer
Dim i As Integer
List1.Clear
n = InputBox("введите длинну массива")
ReDim a(1 To n)
For i = 1 To n
a(i) = InputBox("введите элемент массива")
List1.List(i - 1) = a(i)
Next i
min = a(1)
max = a(1)
For i = 2 To n
If a(i) < min Then min = a(i)
If a(i) > max Then max = a(i)
Next i
10
Label2.Caption = "Максимальный элемент " + Str(max) + " больше минимального " +
Str(min) + " в " + Str(max / min) + " раз."
End Sub______________________
Private Sub Command2_Click()
End
End sub
Результат выполнения программы.
Нажимаем клавишу запуск, заполняем массив и в Label выводится ответ задачи.
11
ЗАДАЧА №4.
Условие: Дан массив A(N,M). Найти среднее арифметическое элементов массива, значения которых меньше заданного, в каждом столбце массива.
Расположение объектов на форме.
Программный
код
.
Private Sub Command1_Click()
Dim a() As Single
Dim num As Single
Dim n As Integer
Dim m As Integer
Dim i As Integer
Dim j As Integer
Dim st As String
Dim sum As Single
Dim q As Integer
n = InputBox("введите количество строк")
m = InputBox("введите количество столбцов")
num = InputBox("введите число")
kol = 0
List1.Clear
ReDim a(1 To n, 1 To m)
12
For i = 1 To n
st = ""
For j = 1 To m
a(i, j) = InputBox(Str(i) + ", " + Str(j) + ": введите элемент")
st = st + Str(a(i, j)) + " "
Next j
List1.List(i - 1) = st
Next i
st = ""
For j = 1 To m
sum = 0: q = 0
For i = 1 To n
If a(i, j) < num Then
sum = sum + a(i, j)
q = q + 1
End If
Next i
If q = 0 Then
st = st + "0 "
Else
st = st + Str(sum / q) + " "
End If
Next j
List1.List(n) = "Средние арифметические среди элементов меньше " + Str(num) + ":"
List1.List(n + 1) = st
End Sub________________________________
Private Sub Command2_Click()
End
End Sub
13
Результат выполнения программы.
ЗАДАЧА №5.
Условие: Написать процедуру, которая четные числа в одномерном массиве заменяет нулями. Применить эту процедуру к заданному массиву.
14
Расположение объектов на форме.
Программный
код
.
Private Sub Command1_Click()
Dim a() As Single
Dim num As Single
Dim n As Integer
Dim m As Integer
Dim i As Integer
Dim j As Integer
Dim st As String
Dim sum As Single
Dim q As Integer
n = InputBox("введите количество строк")
m = InputBox("введите количество столбцов")
num = InputBox("введите число")
kol = 0
List1.Clear
ReDim a(1 To n, 1 To m)
For i = 1 To n
15
st = ""
For j = 1 To m
a(i, j) = InputBox(Str(i) + ", " + Str(j) + ": введите элемент")
st = st + Str(a(i, j)) + " "
Next j
List1.List(i - 1) = st
Next i
st = ""
For j = 1 To m
sum = 0: q = 0
For i = 1 To n
If a(i, j) < num Then
sum = sum + a(i, j)
q = q + 1
End If
Next i
If q = 0 Then
st = st + "0 "
Else
st = st + Str(sum / q) + " "
End If
Next j
List1.List(n) = "Средние арифметические среди элементов меньше " + Str(num) + ":"
List1.List(n + 1) = st
End Sub_______________________________________________
Private Sub Command2_Click()
End
End Sub
16
Результат выполнения программы.
ЗАДАЧА №6.
Условие: Имеются сведения о городах: название, количество осадков 1 июля. Определить город, в котором было меньше всего осадков и само это количество осадков.
17
Расположение объектов на форме.
Программный
код
.
Private Type data
naz As String * 20
osad As Integer
End Type__________________________________
Private Sub Command1_Click()
MSFlexGrid1.Clear
Dim dan As data
Dim i As Integer
Open "aa.dat" For Random As #1 Len = Len(dan)
Do
dan.naz = InputBox("введите название города")
dan.osad = InputBox("введите количество осадков")
Put #1, , dan
Loop Until MsgBox("Продолжить ввод?", 36) = vbNo
MsgBox "файл создан"
Close #1
Open "aa.dat" For Random As #1 Len = Len(dan)
18
For i = 1 To LOF(1) / Len(dan)
Get #1, , dan
MSFlexGrid1.TextMatrix(i, 0) = dan.naz
MSFlexGrid1.TextMatrix(i, 1) = dan.osad
Next i
Close #1
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim min As Integer
Dim dan As data
Dim naz As String
Open "aa.dat" For Random As #1 Len = Len(dan)
Get #1, , dan
min = dan.osad
naz = dan.naz
For i = 2 To LOF(1) / Len(dan)
Get #1, , dan
If min > dan.osad Then
min = dan.osad
naz = dan.naz
End If
Next i
Close #1
MsgBox "Минимальное количество осадков(" + Str(min) + ") в городе " + naz
End Sub_____________________________________________________
Private Sub Command3_Click()
Kill "aa.dat"
End Sub
19
Результат выполнения программы.
ЗАДАЧА №7
Условие: Имеются сведения о музеях : название, количество экспонатов, количество экспонатов в запасном фонде. Вывести сведения о музеях, в которых количество экспонатов в запасном фонде больше 30% от количества экспонатов.
20
Расположение объектов на форме.
Программный
код
.
Private Sub Command1_Click()
Dim kol As Double
Dim j As Integer
Dim k As Integer
k = 1
MSFlexGrid2.Clear
MSFlexGrid2.Cols = Data1.Recordset.Fields.Count
MSFlexGrid2.Rows = Data1.Recordset.RecordCount + 1
For i = 0 To Data1.Recordset.Fields.Count - 1
MSFlexGrid2.TextMatrix(0, i) = Data1.Recordset.Fields(i).Name
Next i
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
21
If Data1.Recordset.Fields(2).Value > Data1.Recordset.Fields(1).Value * 0.3 Then
For j = 0 To Data1.Recordset.Fields.Count - 1
MSFlexGrid2.TextMatrix(k, j) = Data1.Recordset.Fields(j).Value
Next j
k = k + 1
End If
Data1.Recordset.MoveNext
Wend
End Sub
Результат выполнения программы.
22
Заключение
Цели создания курсового проекта по дисциплине компьютерная подготовка были следующие:
¾ Ознакомиться с возможностями, назначением и экранным интерфейсом интегрированных сред визуального проектирования на примере Visual Basic 6.0.
¾ Научиться проектировать и программировать собственные приложения для решения поставленных задач.
¾ Углубленить знания основ алгоритмизации задач и методов представления информации.
¾ Закрепить и углубить знания по созданию и обработке баз данных в СУБД MS Access.
¾ Освоить Реализацию обмена данными между Visual Basic и СУБД Access и их программная обработка.
Все эти цели были выполнены не только с целью учебных достижений. Полученные в результате их выполнения навыки будут полезны в будущем для решения многих практических задач. Научившись выполнять простые учебные задания можно не бояться браться за реальные задачи, которые могут облегчить и текущую жизнь и помочь в будущей карьере управленца.
23
Литература.
1. В.А. Машурцев, Б.М. Кудрявцев. Алгоритмизация и программирование задач в среде Visual Basic 6.0 для Windows (русифицированная версия). Часть 1. Текст лекций. /ГУУ.-М.,2005
2.
3.
4.
5.
6. 243. Т. В. Бугреева, И.А. Ильина и др. Методические указания к выполнению лабораторной работы по дисциплине «Компьютерная подготовка» с применением СУБД Access , выпуск 1, Москва, 2002.
7. 530 Е.В. Лемешко, Т.В. Бугреева, И.А. Ильина. Методические указания к курсовому проектированию по дисциплине " Компьютерная подготовка" (с применением СУБД Access и языка программирования VBA). /ГУУ.- М.,2005
8. В.Г. Кузьменко. Visual Basic 6.0. Руководство программиста. -М: БИНОМ, 2005
9. С. В. Глушаков, И. В. Мельников, А. С. Сурядный. Программирование в среде Windows, Харьков, ”Фолио”, Москва, “Аст”,2001.
10. 004Н19. С.В. Назаров, П.П. Мельников “ Программирование на MS Visual Basic”, Москва, Финансы и статистика, 2001.
11. 68В26. Д. Вейскас “Эффективная работа с Microsoft Access
12. Н. М. Якушева “ Visual Basic” , компания “Спутник”, Москва, 2001.
24
