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

If w = 0 Then

Set excelist = New Excel.Application

With excelist

Workbooks.Open CurDir$ + "\data.dat"

Visible = False

End With

w = 1

End If

Dim chk1 As tune

chk1.chekn = " = Check1.value "

Get #1, 1, chk1

If chk1.chekv = "0" Then

Check1.Value = 0

Else

Check1.Value = 1

End If

End Sub

‘выход

Private Sub Command6_Click()

Dim chk1 As tune

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

With excelist.ActiveWorkbook

Save

Close

End With

chk1.chekn = " = Check1.value "

If Check1.Value = 1 Then

chk1.chekv = "1"

Put #1, 1, chk1