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

Flg.TextMatrix(Kz, 2) = Data1.Recordset.Fields(2).Value

End If

Data1.Recordset.MoveNext

Next I

If Kz > 1 Then

For I = 1 To Kz - 1

T = I

For L = I + 1 To Kz

If Val(Flg.TextMatrix(T, 2)) > Val(Flg.TextMatrix(L, 2)) Then T = L

Next L

If T <> I Then

For J = 0 To 2

Q = Flg.TextMatrix(I, J): Flg.TextMatrix(I, J) = Flg.TextMatrix(T, J)

Flg.TextMatrix(T, J) = Q

Next J

End If

Next I

End If

Flg.Cols = 2

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

End Sub

Рисунок 17. Вид справки №1

Справка №2

Таблица GL

Private Sub mnuSpravka2_Click()

Dim I As Integer