ВУЗ:
Составители:
Рубрика:
57
' открывается новый основной (рабочий файл) базы
f1 = New FileStream(Decl.Path, FileMode.Open)
N = f1.Length \ R.len
' возвращение исходных значений массивам Ind и Del
For i = 1 To Nmax
Ind(i) = i
Del(i) = 0
Next i
' вывод первой записи данных
Pos = 1
If N = 0 Then
Call ShowNewZap()
Else
Call ShowZap(Pos)
End If
MsgBox("Обновление выполнено успешно!")
End Sub
Таким образом, для удаления записей используется временный файл, куда
переносятся все те записи, которые не должны быть удалены (для них значение
Del(i) равно нулю), затем исходный файл удаляется, а временный файл переиме-
новывается.
Новый этап тестирования проекта с целью проверки его работоспособности
при добавленных возможностях.
11.4. Сохранение и удаление файлов
Мы описали возможности ввода, просмотра и редактирования данных. До-
бавим несколько процедур, обрабатывающие события выбора следующих пунк-
тов меню: «Файл Æ Сохранить как», «Файл Æ Закрыть» и «Файл Æ Удалить».
При выборе данного пункта меню «Файл Æ Сохранить как» основной файл
базы (файл с данными) должен
быть сохранен под новым именем, а затем, должно
быть открыто это новое сохранение.
Private Sub mnuFileSaveAsItem_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Страницы
- « первая
- ‹ предыдущая
- …
- 55
- 56
- 57
- 58
- 59
- …
- следующая ›
- последняя »
