5.1.3. Экранная форма с результатами – Записями таблицы isp

Рис. 5.1. Экранная форма с результатами – Записями таблицы ISP

5.2. Чтение таблицы det (Детали)

5.2.1. Алгоритм чтения таблицы det

Описание данных и

настройки интерфейса

Определение количества записей, колонок таблицы DET

Определение количества строк и колонок сетки FlMN

Data2.Recordset.MoveFirst Переход к первой записи

таблицы DET

FlMN.TextMatrix(0, 0) = “ № п. п.”

Наименование 0 – ой колонки

Сетки FlMn

Цикл чтения записей таблицы DET и заполнения сетки FlMN

For I = 1 To Kzap

FlMN.TextMatrix(I, 0) = I

Ф Формирование номера строки

Сетки FlMn

НЕТ

ДА

I = 1

Заполнение нулевой строки

сетки FlMN именами

колонок таблицы DET

FlMN.TextMatrix(0, J =

Data2.Recordset.Fields(J - 1).Name

F

Заполнение сетки FlMN записями таблицы DET

lMN.TextMatrix(I, J) =

Data2.Recordset.Fields(J - 1).Value

Next J

Переход к следующей записи таблицы DET

Data2.Recordset.MoveNext

5.2.2. Программа чтения таблицы det

Private Sub mnuDet_Click()

Dim I As Integer, J As Integer 'индексы

Dim Kzap As Integer 'количество записей в таблице DET

Dim Kkol As Integer 'количество колонок в таблице DET

LbND.Caption = " Таблица ДЕТАЛИ" 'настройки итерфейса

LbSInf.Caption = "Считывание записей с таблицы ДЕТАЛИ "

TxtZmin.Visible = False

TxtZmax.Visible = False

FlMN.ColWidth(0) = 550

FlMN.ColWidth(1) = 1850

Kzap = Data2.Recordset.RecordCount 'определение количества записей

' таблицы DET

FlMN.Rows = Kzap + 1 'количество строк сетки FlMN

Kkol = Data2.Recordset.Fields.Count 'определение количества колонок

' таблицы DET

FlMN.Cols = Kkol + 1 'количество колонок сетки FlMN

Data2.Recordset.MoveFirst 'переход к первой записи таблицы DET

FlMN.TextMatrix(0, 0) = "№ п.п." ‘задание имени нулевой колонки сетки FlMN

For I = 1 To Kzap ' Цикл чтения записей таблицы DET

'и заполнения сетки FlMN

FlMN.TextMatrix(I, 0) = I ‘формирование номера строки сетки FlMN

For J = 1 To Kkol

‘заполнение нулевой строки сетки FlMN именами колонок таблицы DET

If I = 1 Then Fl1.TextMatrix(0, J) = Data2.Recordset.Fields(J – 1) _

.Name

‘заполнение сетки FlMN записями таблицы DET

FlMN.TextMatrix(I, J) = Data2.Recordset.Fields(J - 1).Value

Next J

Data2.Recordset.MoveNext 'переход к следующей записи таблицы DET

Next I

End Sub