Федеральное управление по образованию 

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

высшего профессионального  образования 

«ГОСУДАРСТВЕННЫЙ  УНИВЕРСИТЕТ УПРАВЛЕНИЯ» 

Институт  информационных систем управления 

Кафедра компьютерных технологий 
 

      Специальность: Менеджмент организации

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

      Форма обучения: очная 
 
 

КУРСОВОЙ  ПРОЕКТ 

по дисциплине «Компьютерная подготовка»

на тему:

«Проектирование приложений в среде 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