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

Data2. Visible = False

Data2. Recordset. MoveFirst

grid3. Rows = 1: grid3. Cols = 3

grid3. TextMatrix (0, 0) = Data2. Recordset. Fields(0).Name

grid3. TextMatrix (0, 1) = Data2. Recordset. Fields(1).Name

grid3. TextMatrix (0, 2) = Data2. Recordset. Fields(2).Name

Data2. Recordset. MoveFirst

For I = 1 To Data2. Recordset. RecordCount

If Data2. Recordset. Fields(2).Value = «Да» And (InStr _
(P, Mid (Data2. Recordset. Fields(1).Value , 1, 1))) <> 0 Then

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

For L = 0 To 2

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

Next L

End If

Data2. Recordset. MoveNext

Next I

End Sub

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

5.3 Выполнение запроса по таблицам VIP и PROD

Справка 3. Виды продукции с сертификатом качества, план по которым не выполняется в 1‑ом и 4‑ом кварталах и которые производятся в цехах с номерами 3 и 5.

Шифр продукции	Наименование продукции	Сертификат качества	Номер цеха	Фактический выпуск по кварталам
				1‑й кв	2‑й кв.	3‑й кв.	4‑й кв.

5.3.1 Алгоритм выполнения запроса по таблицам VIP и PROD

5.3.2 Программа совместного запроса по таблицам VIP и PROD

Private Sub Command4_Click()

Dim I%, K%, Kz%, T%, H%, J%, Zeh%

grid3. Visible = True

Data1. Visible = False