Сохранение и удаление файлов

Мы описали возможности ввода, просмотра и редактирования данных. Добавим несколько процедур, обрабатывающие события выбора следующих пунктов меню: «Файл Сохранить как», «Файл Закрыть» и «Файл Удалить».

При выборе данного пункта меню «Файл Сохранить как» основной файл базы (файл с данными) должен быть сохранен под новым именем, а затем, должно быть открыто это новое сохранение.

Private Sub mnuFileSaveAsItem_Click (ByVal sender As _.

System.Object, ByVal e As System. EventArgs) _.

Handles mnuFileSaveAsItem.Click.

Dim R As TStud = New TStud ().

Dim Sp As TSpec = New TSpec ().

Dim PathOld As String.

Dim PathOldSpec As String.

' запоминаются имена основного файла базы данных и.

' Файла-справочника.

PathOld = Decl.Path.

PathSpec = Mid (Decl.Path, 1, Len (Decl.Path) — 4) + «.spe» .

PathOldSpec = PathSpec.

' запрос имени нового файла базы.

With Me. SaveFileDialog1.

.FileName = «» .

.Filter = «Все файлы (*.*)|*.*|» + _.

" Текстовые файлы. (*.txt)|*.txt|" + _.

" Файлы исходных данных (*.dan)|*.dan|" + _.

" Файлы результатов (*.rez)|*.rez" .

.FilterIndex = 3.

.ShowDialog ().

Decl.Path = .FileName.

If Decl. Path «» Then.

PathSpec = Mid (Decl.Path, 1, Len (Decl.Path) — 4) + _.

" .spe" .

End If.

End With.

' если имя нового основного файла пусто, то рабочие файлы.

' остаются прежними и производится выход из процедуры.

If Decl. Path = «» Then.

Decl.Path = PathOld.

PathSpec = PathOldSpec.

Exit Sub.

End If.

' иначе файлы закрывается и производится копирование.

' рабочих файлов.

Close ().

If Not (Dir (Decl.Path) = «») Then.

Kill (Decl.Path).

Kill (PathSpec).

End If.

FileCopy (PathOld, Decl. Path).

FileCopy (PathOldSpec, PathSpec).

' после копирования открываются новые файлы.

f1 = New FileStream (Decl.Path, FileMode. Open).

F1_sp = New FileStream (PathSpec, FileMode. Open).

frmInputEdit.Text = «Файл: «+ Decl.Path.

End Sub.

При выборе пункта меню «Файл Закрыть» все открытые файлы должны быть закрыты и все пункты меню, недоступные в начале работы снова должны снова стать недоступными.

Private Sub mnuFileCloseItem_Click (ByVal sender As _.

System.Object, ByVal e As System. EventArgs) _.

Handles mnuFileCloseItem.Click.

' закрываются все файлы, открытые в процессе работы.

CloseAllFiles ().

' пункты меню, которые были неактивными в начале.

' работы программы, снова становятся неактивными.

mnuFileSaveItem.Enabled = False.

mnuFileSaveAsItem.Enabled = False.

mnuFileCloseItem.Enabled = False.

mnuFileDeleteItem.Enabled = False.

mnuView.Enabled = False.

mnuSort.Enabled = False.

mnuQuery.Enabled = False.

mnuSearch.Enabled = False.

End Sub.

При выборе пункта меню «Файл Удалить» основной файл базы (файл с данными) должен быть удален, и все пункты меню, недоступные в начале работы снова должны снова стать недоступными.

Private Sub mnuFileDeleteItem_Click (ByVal sender As _.

System.Object, ByVal e As System. EventArgs) _.

Handles mnuFileDeleteItem.Click.

Dim Button As Integer.

' запрос подтверждения на удаление.

Button = MsgBox («Действительно удалить?», vbYesNo + _.

vbQuestion, «Удаление файла»).

' в случае подтверждения вызывается процедура закрытия.

' и удаляется основной файл базы данных.

If Button = vbYes Then.

Call mnuFileCloseItem_Click (sender, e).

Kill (Decl.Path).

Kill (PathSpec).

End If.

End Sub.

На этом месте снова необходимо протестировать проект на работоспособность и корректность работы. Особое внимание следует уделить взаимодействию различных компонентов приложения.