Контрольная работа: Разработка программы в системе Microsoft Office Access на языке MVB

Рисунок 8 – Экранная форма

5. Текст разработанной программы

Private Sub Кн1_Click()

On Error GoTo Err_Кн1_Click

Dim rs As New ADODB.Recordset

s_sql = "SELECT [Закупаемые компоненты].* FROM [Закупаемыекомпоненты]"

rs.Open s_sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

With rs

.MoveFirst

Do Until .EOF

.Fields("Свободный запас") = .Fields("Наличный запас") - .Fields("Задержанный запас") - .Fields("Заказанный запас") - .Fields("Распределённый запас")

.Update

.MoveNext

Loop

Me.Refresh

Exit_Кн1_Click:

Exit Sub

Err_Кн1_Click:

MsgBox Err.Description

Resume Exit_Кн1_Click

End With

End Sub

6. Подробное описание работы программы

Option Compare Database

Private Sub Кнопка 1_Click() ' процедура обработки события

'On Error GoTo Err_ Кн 1_Click ' Значение ошибки

On Error Resume Next 'автоматическое завершение программы при возникновении ошибки будет предотвращено и появится возможность выполнить некоторые дополнительные действия

Dim rs As New ADODB.Recordset 'создается таблица, для каждого столбца которой определяется тип данных и значения в этом столбце должны соответствовать этому типу данных.

s_sql = "SELECT Spect.* FROM Spect"

rs.Open s_sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic ' создается динамический с оптимистической блокировкой записей

With rs 'Выполняет группу операторов для объекта Recordset