Основы офисного программирования и язык VBA


Пример 14.5


Public Sub CreateRec(Rec As Товар)

'Создает запись типа Товар

Randomize

Rec.КодТовара = Int(Rnd * 9 + 1) 'Код от 1 до 9

Rec.Наименование = "Товар" & Rec.КодТовара

Rec.Цена = Int(Rnd * 99 + 1) * Rec.КодТовара

End Sub

Public Sub PrintRec(Rec As Товар)

'Печать записи о товаре

Debug.Print "Код Товара:", Rec.КодТовара, "Цена:", Rec.Цена

End Sub

Public Sub CreateRandomFile()

Dim i As Integer, NewRec As Товар

Open Path & "Товары.9" For Random Access Write As #1 Len = Len(NewRec)

'Создаем 10 записей

For i = 1 To 10

Call CreateRec(NewRec)

Call PrintRec(NewRec)

Put #1, NewRec.КодТовара, NewRec

Next i

Debug.Print "Файл Товары.9 успешно создан"

Debug.Print "Размер файла", LOF(1)

Close #1

End Sub




Начало  Назад  Вперед



Книжный магазин