ВУЗ:
Составители:
Рубрика:
35
txtM3.Text = ""
txtM4.Text = ""
txtM5.Text = ""
lblZap.Text = "Новая запись"
txtFIO.Focus()
Check1.Visible = False
End Sub
После ввода всех значений новой записи, для внесения ее в базу данных
нужно нажать на кнопку «Добавить».
После окончания ввода данных необходимо закрыть форму frmInputEdit.
При этом все введенные данные должны сохраниться, поэтому при закрытии
формы необходимо запросить у пользователя имя файла, в который должно про-
изводиться сохранение. Но поскольку эту форму
можно закрыть несколькими
способами (например, нажав на кнопку «Выход» или кнопку
в правом верхнем
углу формы), поэтому необходимо обработать все события, обеспечивающие за-
крытие формы. А поскольку выходу из формы соответствует одна и та же после-
довательность действий, то оформим ее в виде пользовательской процедуры
ExitFromInputEdit.
Sub ExitFromInputEdit()
Dim PathOld As String
Dim PathOldSpec As String
' если путь к основному файлу равен "c:\untitled.dan", т.е.
' форма открыта в режиме создания,
frmMenu.Text = frmMenu.Text + " В.А."
If LCase(Decl.Path) = PathUntitled Then
' то выводится запрос пользователю о сохранении базы
Button = MsgBox("Сохранить файл?", vbQuestion +_
vbYesNoCancel, "Сохранение файла")
If Button = vbYes Then
' если пользователь подтверждает сохранение, то
' следует запрос имени файла, в который будет
' сохранена база данных
PathOld = Decl.Path
PathSpec = Mid(Decl.Path, 1, Len(Decl.Path) - 4) + _
".spe"
PathOldSpec = PathSpec
With frmMenu.SaveFileDialog1
.FileName = ""
Страницы
- « первая
- ‹ предыдущая
- …
- 33
- 34
- 35
- 36
- 37
- …
- следующая ›
- последняя »
