Курсовая работа: Создание и обработка баз данных средствами языка Visual Basic 60

grid3. Rows = grid3. Rows + 1: Kz = grid3. Rows – 1

For L = 0 To 1

grid3. TextMatrix (Kz, L) = Data1. Recordset. Fields(L).Value

Next L

For L = 6 To 9

grid3. TextMatrix (Kz, L – 4) = Data1. Recordset. Fields(L).Value

Next L

End If

Data1. Recordset. MoveNext

Next I

grid3. Col = 1 'Выберем колонку для сортировки

grid3. Sort = 1 'Сортируем строчки по нисходящей

End Sub

Экранная форма в исходном состоянии

5.1.4 Экранная форма с выходными результатами

5.2 Выполнение Запроса 2 (справки 2) по таблице PROD

Справка 2. Виды продукции, имеющие сертификат качества. Названия которых начинается с букв от «Г» до «Т».

Шифр продукции

Наименование продукции

Наличие сертификата качества

5.2.1 Алгоритм Запроса 2 (справки2) по таблице PROD

4

1

4

3

5.2.2 Экранная форма и ее описание

Для компоновки экранной формы были использованы следующие элементы управления окна Toolbox:

– Элементы управления Data с именами Data1 и Data2, обеспечивающий доступ к Базе Данных;

– Не входящий в базовый набор элемент управления MsFlexGrid (гибкая сетка) с именами Grid1, Grid2, Grid3, служащая для непосредственного отображения записей таблиц VIP, PROD и справок.

– Команднаякнопка Command Button сименами Command1, Command2, Command3, Command4, Command5

Свойства элемента Data 1:

Caption = Таблица VIP

Name = Data1

Connect = Access