Программный код.

 

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