5. Чтение созданной Базы Данных

Чтение таблиц ISP и DET созданной БАЗЫ ДАННЫХ, формирование справок и Документа будем производить на ЕДИНОЙ экранной форме (рис. 4.6.) с использованием разработанного Пользовательского МЕНЮ. Обработка указанных таблиц будет производиться непосредственным способом - без использования глобальных массивов.

5.1. Чтение таблицы isp (Исполнители)

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

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

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

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

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

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

таблицы ISP

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

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

сетки FlMN сетки FlMN

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

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

For I = 1 To Kzap

FlMN.TextMatrix(I, 0) = I

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

Сетки FlMn

НЕТ

ДА

I = 1

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

сетки FlMN именами колонок таблицы ISP

FlMN.TextMatrix(0, J) =

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

F

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

lMN.TextMatrix(I, J) =

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

Next J

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

Data1.Recordset.MoveNext

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

Private Sub mnuIsp_Click()

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

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

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

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

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

TxtZmin.Visible = False

TxtZmax.Visible = False

FlMN.ColWidth(0) = 550

FlMN.ColWidth(1) = 1850

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

'таблицы ISP

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

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

' таблицы ISP

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

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

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

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

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

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

For J = 1 To Kkol

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

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

.Name

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

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

Next J

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

Next I

End Sub