Реферат: База данных видеокарт

log1.vlog = "Измененавидеокарта "

log1.vdate = Date$

log1.vname = Combo1.Text

log1.vtime = Time$

Get #1, 3, chk1.chekn

u = Val(chk1.chekn) + 1

chk1.chekn = u

Put #1, 3, chk1.chekn

Put #2, u, log1

Beep

GoTo f

End If

Next o

Else

MsgBox "Введите модель"

GoTof

EndIf

MsgBox "Модель не найдена"

f:

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

Combo4.Text = ""

Combo5.Text = ""

Text1.Text = ""

End Sub

Поиск и сортировка:

Осуществляются в одном окне, с помощью элементов optionbutton. Поиск: