Page 124 - 4450

Продавцям необхідно зберегти відомості про продані
товари, наприклад, з метою обліку та для підбиття
підсумків в кінці дня.
Використаємо для рішення цієї задачі файл з
послідовним доступом. Розмістимо на Формі 1, яка
використовувалась в додатку «Покупки» ще три командні
кнопки, яким дамо імена Записати, Доповнити, Показати та
змінимо відповідно написи на них.
Клацанням на цих кнопках ставимо їм у відповідність
процедури Записати_Click(), Доповнити_Click, Показати
_Click. Відображати вміст файлу з записами можна було б на
окрему форму, додану з цією метою до проекту, але якщо
записів багато, то вони можуть на ній не розміститись. Тому
повний список проданого товару будем виводити в Список4,
в якому за потреби виникне смуга прокручування.
Private Sub Обчислити_Click()
Dim Код As Integer, Ціна As Currency, S As Single, i
As Integer
S=0: ‘ Загальна вартість
i=0 ‘ номер покупки
Do While MsgBox(“Будуть ще
покупки?”,vbQuestion+_
vbYesNo, “Покупки”)=vbYes
i=i+1
Код=Val(InputBox(“Введіть ціну”, i & “ –го товару”))
Ціна=CCur(InputBox(“Введіть ціну”, i & “ –го товару”))
Кількість=Val(InputBox(“Введіть ціну”, i & “ –го
товару”))
Список1. AddItem Код
Список2. AddItem Ціна
Список3. AddItem Кількість
S=S+Ціна*Кількість
Loop
MsgBox “Вартість всіх покупок “ & Format( S, “0.00”)
& “Грн.”
End Sub

Private Sub Записати_Click()
Open "D:\Продажі.txt" For Output As #1
For i = 0 To Список1.ListCount - 1

122