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

Dim r As Integer

Get #1, 3, chk1.chekn

s = Val(chk1.chekn)

For r = 1 To s

Put #2, r, log1

Next r

chk1.chekn = 0

Put #1, 3, chk1.chekn

With MSFlexGrid1

Clear

TextMatrix(0, 0) = "Действие"

TextMatrix(0, 1) = "Модельвидеокарты"

TextMatrix(0, 2) = "Дата"

TextMatrix(0, 3) = "Время"

End With

End Sub

Добавление в базу данных:

Добавление происходит с помощью 4 – х элементов combobox и одного textbox. Если в форму ничего не введено то появляется окно "Введите модель видеокарты".

‘добавление

PrivateSubCommand1_Click()

IfCombo1.Text <> Empty Then

Dim zpust As Byte

zpust = Form1.zerocell

With Form1.excelist.ActiveWorkbook.ActiveSheet

Cells(zpust + 1, 1) = Combo1.Text

Cells(zpust + 1, 2) = Combo2.Text

Cells(zpust + 1, 3) = Combo3.Text

Cells(zpust + 1, 4) = Combo4.Text