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

Data1.Recordset.MoveNext

Next I

If Kz = 0 Then Fls.TextMatrix(Kz, 0) = "Нет записей удовлетворяющих условие"

End Sub

Рисунок 18. Вид справки №3

Документ

Private Sub mnuDoc1_Click()

Dim I As Integer, J as Integer

Dim Kz As Integer

Label5.Caption = "Документ"

Fls.Cols = 3: Fls.Rows = 1: Kz = 0

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

Fls.TextMatrix(0, 1) = "% сотрудников обеспеченных жильем"

Fls.TextMatrix(0, 2) = "Продукция на одного рабочего(в руб.)"

Data1.Recordset.MoveFirst

For I = 1 To Data1.Recordset.RecordCount

Data2.Recordset.MoveFirst

For J = 1 To Data2.Recordset.RecordCount

If Data2.Recordset.Fields(0) = Data1.Recordset.Fields(0) Then

If Data2.Recordset.Fields(1).Value + Data2.Recordset.Fields(2).Value + Data2.Recordset.Fields(3).Value <= 30 Then

Fls.Rows = Fls.Rows + 1: Kz = Fls.Rows - 1

Fls.TextMatrix(Kz, 0) = Data1.Recordset.Fields(1).Value

Fls.TextMatrix(Kz, 1) = 100 - (Data2.Recordset.Fields(1).Value + Data2.Recordset.Fields(2).Value + Data2.Recordset.Fields(3).Value)

Fls.TextMatrix(Kz, 2) = Data1.Recordset.Fields(3).Value / Data1.Recordset.Fields(2).Value

End If

End If