Type kadrrec

famnum As String*10

dolnum As String*15

oklnum As String*10

End Type

Затем описать в этом же разделе модуля массив базы данных:

Public basa(1 To 10) As kadrrec ‘ база данных не более 10 записей

4. Для работы с базой данных потребуются различные текущие признаки, которые будут характеризовать текущее состояние базы данных. Эти признаки обычно присваивают глобальным целым переменным и описывают там же, где и структура, тип и массив базы данных. Добавить в модуль описания этих переменных:

Public currec As Integer ‘ текущая запись

Public recquant As Integer ‘ количество записей в базе

5. Список в главном окне приложения может показывать всю базу данных, но при этом может и не показывать все ее поля. Список необходимых для показа полей определяется программистом исходя из требований, предъявляемых к приложению. Для того, чтобы в списке в главном окне программы данные полей располагались в виде «правильных» столбцов, необходимо установить для этого списка непропорциональный шрифт, например: Courier или Courier New, в котором на каждый символ отводится одинаковое по ширине место.

Открыть главную форму проекта. Установить для объекта список свойство Font – Courier или Courier New, размер шрифта следует подобрать самостоятельно исходя из размеров объекта список.

5. Открыть окно редактора кодов программы для команды меню файл и записать следующий программный код:

Private Sub fm1_Click(Index As Integer)

Select Case Index

Case 1

glav.Enabled=False

Sod.Show

Case 2

glav.Enabled=False

Zapys.Show

Case 3

End

End Select