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

Label3.Caption = "Справка №2(по таблице GL)"

Flp.Cols = 2: Flp.Rows = 1: Kz = 0

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

Data2.Recordset.MoveFirst

For I = 1 To Data2.Recordset.RecordCount

If Data2.Recordset.Fields(3).Value > 15 Then

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

Flp.TextMatrix(Kz, 0) = Data2.Recordset.Fields(0).Value

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

End If

Data2.Recordset.MoveNext

Next I

If Kz > 1 Then

For I = 1 To Kz - 1

T = I

For L = I + 1 To Kz

If Val(Flp.TextMatrix(T, 1)) < Val(Flp.TextMatrix(L, 1)) Then T = L

Next L

If T <> I Then

For J = 0 To 1

Flp.TextMatrix(T, J) = Q

Next J

End If

Next I

End If

Flp.Cols = 1

If Kz = 0 Then Flp.TextMatrix(Kz, 0) = "Нет таких записей в таблице GL"

End Sub