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

Dim lab1 As Label

Dim lab2 As Label

If Check1.Value = 1 Then

If MsgBox("Вы действительно желаете удалить данную видеокарту ?", vbYesNo, "База данных видеокарт") = vbYes Then

GoTo lab1

Else: GoTo lab2

End If

Else

GoTo lab1

End If

lab1:

Dim i As Byte

Dim zpust As Byte

zpust = Form1.zerocell

For i = 1 To zpust

If Form1.excelist.ActiveWorkbook.ActiveSheet.Cells(i, 1) = Combo1.Text Then

Form1.excelist.ActiveWorkbook.ActiveSheet.Rows(i).Delete

Beep

Dim log1 As log

Dim u As Integer

Dim chk1 As tune

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