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

Data1. Recordset. MoveFirst

Data2. Recordset. MoveFirst

grid3. Rows = 1: grid3. Cols = 8

For I = 0 To 2 'Дадим названия полей из таблицы БД полям в гибкой сетке

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

Next I

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

For I = 6 To 9

grid3. TextMatrix (0, I – 2) = Data1. Recordset. Fields(I).Name

Data1. Recordset. MoveFirst

Next I

For I = 1 To Data1. Recordset . RecordCount 'Отбор сертиф. продуктов, план по которым не выполняется

'в 1 и 4 кварталах и производят которые в цехах 3 и 5.

If Data2. Recordset. Fields(2).Value = «Да» And Data1. Recordset. Fields(6) < Data1. Recordset. Fields(2) And Data1. Recordset. Fields(9) < Data1. Recordset. Fields(5) Then

If Data1. Recordset. Fields(1) = «3» Or Data1. Recordset. Fields(1) = «5» Then

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

For L = 0 To 2

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

Next L

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

For L = 6 To 9

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

Next L

End If

End If

Data1. Recordset. MoveNext

Data2. Recordset. MoveNext

Next I

End Sub