Способ (непосредственная обработка таблицы)
Способ 2 основывается на использовании Методов элемента управления Data, обеспечивающих возможность непосредственной
работы с таблицами Базы Данных.
Шаги:
1. Выполнить пункты 2,3,4,5 Способа 1.
При создании формы Form1 (рис. 6.2) изменить надпись командной кнопки Cmd1 – на надпись “Таблица в сетку”.
2. Разработать процедуры Form1:
Private Sub Cmd1_Click ( ) ‘считывание
таблицы Postavka в сетку Flp
Dim I%, J%, K%
Data1.RecordSet.MoveFirst ‘переход на первую запись таблицы Postavka
K= Data1.RecordSet.RecordCount ‘количество записей таблицы Postavka
L = Data1.RecordSet.Fields.Count ‘количество полей таблицы
Flp.Rows = K+1: Flp.Cols = 6 ‘установление размеров сетки Flp
For I = 1 To K ‘по записям таблицы Postavka
For J = 1 To L ‘по полям текущей записи
If I = 1 Then
Flp. Flp.TextMatrix (I-1, J-1)=Data1.RecordSet.Fields(J-1). _
Name
Flp.TextMatrix (I, J-1) = Text1(J-1) ‘или = Data1.RecordSet.Fields(J-1).Value
Next J
Data1.RecordSet.MoveNext ‘переход к следующей записи
Next I
End Sub
Private Sub Cmd2_Click ( ) ‘нахождение изделий, объёмы поставок которых _
по кварталам монотонно падают
Dim I%, J%, F%, P%
Data1.RecordSet.MoveFirst
: P = -1
For I = 1 To
Data1RecordSet.RecordCount
F = 0
For J = 2 To 4
If Data1.RecordSet.Fields(J).Value <= Data1.RecordSet.Fields(J+1).Value
_
Then
F=1
Next J
If F = 0 Then P = P+1 : Lst1.List(P) = Data1.RecordSet.Fields(1).Value
Data1.RecordSet.MoveNext
Next I
If P = -1 Then
Lbl1.Caption = “нет таких изделий” Else _
Lbl1.Caption=“иск.изделия”
End Sub
Private Sub Cmd3_Click ( ) ‘выход из Проекта
End
End Sub
