Создание файлов базы данных

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

Вначале, для простоты работы с загрузкой новых записей базы данных, основной рабочий файл с данными будем создавать в корневом каталоге какого-либо диска, например, диска «c:» с полным именем «c:untitled.dan», а после выхода из формы для ввода и редактирования пользователю будет предложено сохранить данные в некотором файле. Для этих целей используем элемент управления «SaveFileDialog1» главной формы frmMenu. При этом фактически будет происходить переименование файла «c:untitled.dan» и присвоение ему имени, введенного пользователем в окне диалога.

Запишем процедуру обработки события выбора команды меню «Файл Создать».

Private Sub mnuFileNewItem_Click (ByVal sender As System. Object,_.

ByVal e As System. EventArgs) Handles mnuFileNewItem.Click.

Dim i As Integer.

` закрываются все открытые до этого времени файлы.

Decl.CloseAllFiles ().

' открывается основной файл «c:untitled.dan» .

Decl.Path = PathUntitled.

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

' и файл-справочник «c:untitled.spe» .

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

F1_sp = New FileStream (Decl.PathSpec, FileMode. Create).

' количество записей в основной таблице базы данных.

' равно нулю.

N = 0.

' инициализация индексного массива Ind, который будет.

' использоваться для сортировки данных, и массива Del.

' для пометки удаляемых записей.

For i = 1 To Nmax.

Ind (i) = i.

Del (i) = 0.

Next i.

' основная форма становится неактивной.

Me.Enabled = False.

' загрузка формы для ввода записей файла frmInputEdit.

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

frmInputEdit.Show ().

frmInputEdit.ShowNewZap () ' пользовательская процедура.

' ввода новой записи.

End Sub.

Поскольку, в данном коде программы участвует новая форма для ввода и редактирования данных, то необходимо добавить ее в проект, выполнив команду «Project/Add Windows Form», и дать новой форме имя frmInputEdit.

Теперь наш проект содержит две формы и нужно указать, какая из них является главной, т. е. запускается первой. Для этого нужно выполнить команду «Project/*имя проекта* Properties…» и в открывшемся диалоговом окне в поле ввода со списком StartUp Form выбрать в качестве стартового объекта форму frmMenu.

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