Glav.spisok.RemoveItem recquant-1

basa(recquant).famnum=izmen.fam.Text

strvar=basa(recquant).famnum & ""

basa(recquant).dolnum=izmen.dol.Text

strvar=strvar+basa(recquant).dolnum & ""

basa(recquant).oklnum=izmen.okl.Text

strvar=strvar+basa(recquant).oklnum

Glav.spisok.AddItem strvar, recquant-1

End Sub

В событийную процедуру для кнопки ОК запишем строку вызова процедуры izmrecinput:

Private Sub okbut_Click()

Call izmrecinput

End Sub

13. Добавить к проекту форму. Задать свойство name формы – sod. Внешний вид формы показан на рис. 75. Оформить форму по образцу, ус тановить необходимые значения свойств объектов формы согласно рис. 75. Просмотр содержимого базы данных осуществляется с помощью кнопок предыдущий и следующий, событийные проце-дуры которых аналогичны процедурам одноименных кнопок в окне команды изменить. Кнопка ОК выгружает окно просмотра и возвращает пользователя в главное окно проекта.

Запишите событийные процедуры для кнопок предыдущий и следующий, изменив в кодах свойство name формы, а также свойства объектов, отображающих содержание полей базы данных (см. п. 11).

Private Sub pred_Click()

Dim a As Integer

a=recquant-1

If a<=0 Then

MsgBox "вы просмотрели базу до начала", 48, "СТОП"

Exit Sub

End If

recquant=recquant-1

sod.fam.Caption=basa.basa(recquant).famnum

sod.dol.Caption=basa.basa(recquant).dolnum

sod.okl.Caption=basa.basa(recquant).oklnum

sod.nomer.Caption=recquant

End Sub

Private Sub sled_Click()

Dim a As Integer

a=recquant+1

If a>=11 Then

MsgBox "вы просмотрели базу до конца", 48, "СТОП"

Exit Sub

End If

recquant=recquant+1

sod.fam.Caption=basa.basa(recquant).famnum

sod.dol.Caption=basa.basa(recquant).dolnum

sod.okl.Caption=basa.basa(recquant).oklnum

sod.nomer.Caption=recquant

End Sub

Запишите событийную процедуру для кнопки ОК.

Private Sub okbut_Click()

Unload sod

glav.Enabled=True

Glav.SetFocus

End Sub

14. Добавить к проекту 2 формы, которые должны выполнять функции справочных диалоговых окон. Задать свойства name форм – opisanie и spravka. Внешний вид форм показан на рис. 76. Оформить формы по образцу. Окно описание программы содержит краткую инструкцию для пользователя. Окно справка содержит инфор-мацию о самой программе и сведения о разработчике. Запишите для этих форм программные коды для кнопок ОК и закрыть.

Private Sub okbut_Click()

Unload opisanie

glav.Enabled=True

Glav.SetFocus

End Sub

Private Sub zakr_Click()

Unload spravka

glav.Enabled=True

Glav.SetFocus

End Sub

15. В главной форме проекта запишите программный код для команд операционного меню справка.

Private Sub sp1_Click(Index As Integer)

Select Case Index

Case 1

glav.Enabled=False

Opisanie.Show

Case 2

glav.Enabled=False

Spravka.Show

End Select

End Sub

Private Sub okbut_Click()

Unload opisanie

glav.Enabled=True

Glav.SetFocus

End Sub

Private Sub zakr_Click()

Unload spravka

glav.Enabled=True

Glav.SetFocus

End Sub

16. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект, формы и модуль с именами (см. рис. 77): basa.vbp, glav.frm, zapys.frm, izmen.frm, sod.frm, opisanie.frm, spravka.frm, basa.bas соответствующими командами из меню file.

Форма отчета: дискета или иной носитель с файлами модуля, форм и проектов работы № 7; текстовый файл с изображениями форм и текстами программных кодов.