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

Label4.Caption = "Таблица Обеспеченность жильём"

Data2.Recordset.MoveFirst

Flg.Rows = K + 1

Flg.Cols = 4

For I = 1 To K

For J = 1 To 4

Flg.TextMatrix(I, J - 1) = Text2(J - 1)

If I = 1 Then Flg.TextMatrix(I - 1, J - 1) = Data2.Recordset.Fields(J - 1).Name

Next J

Data2.Recordset.MoveNext

Next I

End Sub

Справка №1

Таблица PR

Private Sub mnuSpravka1_Click()

Dim I As Integer, T As Integer, L As Integer, J As Integer

Dim Kz As Integer

Dim Q As Variant

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

Label4.Caption = "Справка №1(по таблице PR)"

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

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

Data1.Recordset.MoveFirst

For I = 1 To Data1.Recordset.RecordCount

If Data1.Recordset.Fields(3).Value > 20000000 Then

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

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