6.1.4.Упражнение: создание базы данных

Задача 1. Разработайте программу для сохранения и загрузки исходных данных и вывода на печать исходных данных и результатов для задачи 2 задания 5.2.6.

Порядок работы.

При табулировании функции двух переменных исходные данные содержат шесть значений Xнач, Хкон, dX, Yнач, Yкон, dY. При открытии файла данных эти значения должны быть считаны и присвоены текстовым полям.

• Откройте пункт меню Файл\Открыть и запишите текст программы:

Private Sub mnuOpen_Click()

Dim Z1 As String

Dim i As Integer

cldDialog1.ShowOpen

Nkan = FreeFile 'Nkan - номер свободного канала для обмена данных

NameFile = cldDialog1.FileName

NameFile1 = NameFile 'NameFile1 хранит имя открытого файла

If NameFile = "" Then Exit Sub

Open NameFile For Input As #Nkan

For i = 0 To 5

Input #Nkan, Z1

Text1(i).Text = Z1

Next i

Close #Nkan

End Sub

• Откройте пункт меню Файл\Сохранить и запишите текст программы:

Private Sub mnuSave_Click()

Dim i As Integer, Nkan As Integer

NameFile = NameFile1

Nkan = FreeFile

If NameFile = "" Then

cldDialog1.ShowSave

NameFile = cldDialog1.FileName

End If

Open NameFile For Output As #Nkan

For i = 0 To 5

Write #Nkan, Text1(i).Text

Next i

Close #Nkan

End Sub

• Откройте пункт меню Файл\Сохранить как ... и запишите текст программы:

Private Sub mnuSaveAs_Click()

Dim i As Integer, Nkan As Integer

NameFile = NameFile1

Nkan = FreeFile

cldDialog1.ShowSave

NameFile = cldDialog1.FileName

Open NameFile For Output As #Nkan

For i = 0 To 5

Write #Nkan, Text1(i).Text

Next i

Close #Nkan

End Sub

• Откройте пункт меню Файл\Печать и запишите текст программы:

Private Sub mnuPrint_Click()

Dim i As Integer

Dim j As Integer

cldDialog1.ShowPrinter

Printer.Font.Name = "Times New Roman"

Printer.Font.Size = 16

Printer.Font.Bold = True

CurrentX = 20: CurrentY = 20

Printer.Print Tab(25); "Исходные данные"

Printer.Print ""

Printer.Font.Size = 12

Printer.Font.Bold = False

For i = 0 To N

For j = 0 To M

Printer.Print Z(i, j);

Next j

Printer.Print

Next i

Printer.NewPage

Printer.EndDoc

End Sub

Задача 2. Создайте базу данных “Успеваемость” (раздел 6.1.3.)

Задача 3. Добавьте на форму рис.6.2. меню для организации связи с внешними устройствами (см. задача 1 данного раздела, задача 2 раздела 5.2.6)

6.1.5. Закрепление материала

1. Какие типы файлов данных Вам известны и чем они отличаются?

2. Приведите синтаксис команды Open.

3. Приведите синтаксис команды Close.

4. Какие команды используются для записи данных в файл последовательного доступа?

5. Какие команды используются для чтения данных из файла последовательного доступа?

6. Какая последовательность команд необходима для создания файла последовательного доступа?

7. Какая последовательность команд необходима для использования файла последовательного доступа?

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