ВУЗ:
Составители:
Рубрика:
52
' если записей нет, то вызов процедуры для заполнения
' новой записи
If N = 0 Then
Call ShowNewZap()
cmdAdd.Enabled = True
Else
' иначе производится загрузка и вывод первой записи
Pos = 1
vscrZap.Value = Pos
Call ShowZap(Pos)
' кнопки перемещения по записям становятся активными
cmdTop.Enabled = True
cmdBottom.Enabled = True
cmdForward.Enabled = True
cmdBackUp.Enabled = True
' кнопки «Изменить» и «Обновить» становятся активными
cmdEdit.Enabled = True
cmdPack.Enabled = True
' кнопка «Добавить» становится неактивной
cmdAdd.Enabled = False
' фокус передается на кнопку «Выход»
cmdExit.Focus()
End If
End Sub
В данной процедуре открытый файл проверяется на пустоту и если он пуст
(т.е. файл существует, но в нем нет ни одной записи данных), то вызывается про-
цедура создания нового файла-базы данных (процедура ShowNewZap). Если файл
не является пустым, то вызывается процедура ShowZap для вывода в форму пер-
вой записи, а
так же делаются активными кнопки, позволяющие перемещаться по
записям базы данных.
Для просмотра файла базы данных с использованием формы frmInputEdit
необходимо в форме frmMenu написать процедуру обработки события выбора
команды меню «Просмотр Æ Форма», которая содержит вызов пользовательской
процедуры View_Form, принадлежащей форме frmInputEdit:
Private Sub mnuViewFormItem_Click(ByVal sender As _
Страницы
- « первая
- ‹ предыдущая
- …
- 50
- 51
- 52
- 53
- 54
- …
- следующая ›
- последняя »
