Задание для самостоятельной работы

Разработать и отладить базу данных “Успеваемость” с использованием файла последовательного доступа.

6.2. Файлы прямого доступа

6.2.1. Создание файлов прямого доступа

В файле прямого доступа данные организованы в виде записей фиксированной длины. Каждая запись состоит из полей. Для каждого поля указывается имя и размер в байтах. Поэтому для символьных полей тип поля должен быть указан с фиксированной длиной, например, Familij As String*20. Длина числовых полей определяется по типу данных.

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

Открытие файла прямого доступа.

Open “спецификация_файла” For Random Access доступ Lock блокировка

As #  N  Len = длина

Определение длины записи довольно трудоемкая задача. Однако эту задачу можно облегчить, если использовать функцию Len (переменная).

Запись данных в файл прямого доступа осуществляется командой

Put # НомерФайла, НомерЗаписи, Переменная.

Для чтения данных из файла служит оператор Get:

Get # НомерФайла, НомерЗаписи, Переменная.

Для чтения и записи данных в файл прямого доступа используется переменная пользовательского типа. Объявление переменной пользовательского типа осуществляется оператором Type / End Type.

Пример 6.4. Объявим пользовательскую переменную Каталог.

Type Каталог

Фамилия_Автора As String * 20

Соавтор 1 As String * 20

Соавтор 2 As String * 20

Наименование As String * 100

Издательство As String * 15

ГодИздания As Integer

As Integer

End Type

А теперь объявим переменную Библиотека.

Dim Библиотека As Каталог

Обращение к полям переменной осуществляется также как и к свойствам элементов управления.

Библиотека. Фамилия_Автора = “Чингиз Айтматов”

Библиотека. Наименование = “Буранный полустанок”

Библиотека. Издательство = “М.: Нева”

Библиотека. ГодИздания = 1975

Запись данных в файл

Private Sub mnuSave_Click ( )

Put # 1, 1, Библиотека

End Sub

Чтение данных из файла

Private Sub mnuOpen_Click ( )

Dim Автор As String, Наименование As String,

Dim Издательство As String, ГодИздания As Integer

Get #1, 1, Библиотека

Автор = Библиотека. Фамилия_Автора

Наименование = Библиотека. Наименование

Издательство = Библиотека. Издательство

ГодИздания = Библиотека. ГодИздания

End Sub

6.2.2. Команды и функции для работы с файлами Команды для работы с файлами

Visual Basic 6 имеет значительное число команд для работы с файлами, которые непосредственно взаимодействуют с операционной системой на низком уровне. Эти команды имитируют команды ОС для работы с файлами и накопителями на компьютере:

MkDir – создание каталога: MkDir “C:\PROBA”

Kill - удаление одного или нескольких файлов: Kill “ *.bak “

Name - переименование, а также перемещение файлов:

Перемещение файла:

Name “C:\VB\TEST.BAS” As “C: \ ARCHIV\ TEST.BAS”

Переименование файла:

Name “C:\VB\TEST.BAS” As “TEST.BAK”

RmDir – удаление каталога файла: RmDir “C:\PROBA”

ChDir – замена текущего каталога: ChDir <маршрут>

ChDrive – замена текущего диска: ChDrive <диск>