Создание и обработка баз данных средствами языка Visual Basic 60 (стр. 3 из 3)

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

EndSub

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

5.4 Выполнение формирования Итогового документа

Создание Документа:

Сведения j наиболее ритмичном производстве сертифицированной продукции в 1, 2 и 3 цехах

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

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

Сертификат Качества

Номер цеха

Показатель ритмичности

Показатель ритмичности производства продукции определяется по формуле:

Рос=|F1‑P1|+|F2‑P2|+|F3‑P3|+|F4‑P4|

где – F1, F2, F3, F4 – фактический поквартальный выпуск продукции

- P1, P2, P3, P4 – плановый поквартальный выпуск продукции.

Лучшая ритмичность достигается при минимальном Рос.

5.4.1 Алгоритм формирования Итогового Документа