Реферат

Реферат Проектирование приложений в среде Visual Basic 6.0 и СУБД MS Access

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025





Федеральное управление по образованию
Государственное образовательное учреждение

высшего профессионального образования
«ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ УПРАВЛЕНИЯ»
Институт информационных систем управления
Кафедра компьютерных технологий
          Специальность: Менеджмент организации

          Специализация:

          Форма обучения: очная
КУРСОВОЙ ПРОЕКТ
по дисциплине «Компьютерная подготовка»

на тему:

«Проектирование приложений в среде Visual Basic 6.0  и  СУБД  MS Access»
     Исполнитель:

студент_1_курса, _2_ группы                 ____________              ___Исмагилова М.Р.___

                                                                   (подпись)                     (инициалы и фамилия)
    Руководитель проекта:
___________________________            __________                  ____Каширина Н.В._____

(учёная степень, учёное звание)            (подпись)                     (инициалы и фамилия)
Москва  - 2010 г.
Федеральное управление по образованию
Государственное образовательное учреждение

высшего профессионального образования
«ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ УПРАВЛЕНИЯ»
Институт информационных систем управления
Кафедра компьютерных технологий


Задание к курсовому проекту




студента(ки) _1_ курса, __2_____ группы,  ______очной______формы обучения

Исмагиловой Марии Ринатовны

(фамилия, имя, отчество)

Вариант № 11

Тема курсового проекта: «Проектирование приложений в среде Visual Basic 6.0  и  СУБД  MS Access»

Структура проекта:
  1. Создание собственных приложений в среде Visual Basic 6.0 для решения поставленных задач.
  2. Проектирование форм и программных кодов для заставки и главного меню КП.
  3. Создание базы данных в MS Access.
  4. Формирование различного вида запросов.
  5. Работа с базой данных инструментальными средствами Visual Basic 6.0.
  6. Экспорт данных из MS Access в VB для создания и обработки файлов прямого доступа.

Базовая литература:
  1. Конспект лекций по дисциплине «Компьютерная подготовка» за 1 и 2 семестр.
  2. В.А. Машурцев, Б.М. Кудрявцев. Алгоритмизация и программирование задач в среде  Visual Basic 6.0 для Windows (русифицированная версия). Часть 1. Текст лекций. /ГУУ.-М.,2005
  3. И.Д. Древаль, Т.П. Катрич, В.А.Машурцев. Проектирование приложений  в интегрированной среде Visual Basic. Учебное пособие. /ГУУ.-М.,2008
  4. 1403. М.Е. Буланая, Т.Н. Ламина, Т.А. Лукина. Методические указания к практическим занятиям и лабораторным работам "Проектирование интерфейса пользователя в среде Visual Basic", -М, 2006
  5. 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 разработан в 1991 г. фирмой Microsoft как удобное и мощное средство

визуального проектирования программ, работающих в операционной среде 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.       1403. М.Е. Буланая, Т.Н. Ламина, Т.А. Лукина. Методические указания к практическим занятиям и лабораторным работам "Проектирование интерфейса пользователя в среде Visual Basic", -М, 2006

3.       1019. М. Е. Буланая, Т. Н. Ламина и др. Методические указания к выполнению лабораторных работ по дисциплине «Компьютерная подготовка» с использованием языка программирования Visual Basic, Москва, 2000.

4.        106. М. Е. Буланая, Т. А. Лукина и др. Методические указания к выполнению лабораторных работ по дисциплине «Компьютерная подготовка» с использованием языка программирования Visual Basic. Процедуры и функции, Москва, 2001.

5.       531. М. Е. Буланая, В.В. Барковский и др. Методические указания к выполнению лабораторных работ по дисциплине «Компьютерная подготовка» с использованием языка программирования Visual Basic. Москва, 2004.

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 97”, Питер, 2000.

12.   Н. М. Якушева “ Visual Basic” , компания “Спутник”, Москва, 2001.
24

1. Реферат на тему The Romantically Impaired Prufrock Essay Research Paper
2. Диплом Плоские кривые
3. Реферат на тему Предмет учебной дисциплины изучающей теорию и методику научных исследований в физической культуре
4. Реферат на тему Paine Jefferson Crevecoeur
5. Реферат на тему What Really Is At The Bottom Of
6. Реферат Индийский аист-разиня
7. Реферат на тему Исламская экономика и глобализация
8. Реферат на тему Boxing Rules Essay Research Paper Marquis of
9. Статья Химическая кинетика и равновесие в гомогенных системах
10. Курсовая Трудовые ресурсы и производительность труда сельскохозяйственных предприятий