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

chk1.chekv = "0"

Put #1, 1, chk1

End If

Close #1

Close #2

End

End If

End Sub

Окно базы данных:

Здесь также имеется область с подсказками. На рисунке, например, при наведении на область об’екта MSFlexgrid появляется информация о кол-ве видеокарт в базе данных.

‘загрузкаформы

Private Sub Form_Load()

With MSFlexGrid1

TextMatrix(0, 0) = "Модель"

TextMatrix(0, 1) = "Шина AGP"

TextMatrix(0, 2) = "Частотаядра/памяти"

TextMatrix(0, 3) = "Об'ёмпамяти"

TextMatrix(0, 4) = "Типпамяти"

TextMatrix(0, 5) = "Цена"

End With

MSFlexGrid1.ColWidth(0) = 3100

MSFlexGrid1.ColWidth(1) = 990

MSFlexGrid1.ColWidth(2) = 1900

MSFlexGrid1.ColWidth(3) = 1300

MSFlexGrid1.ColWidth(4) = 1100

MSFlexGrid1.ColWidth(5) = 1360

Dim i As Integer

Dim zpust As Integer