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

Private Sub Form_Load()

With MSFlexGrid1

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

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

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

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

End With

MSFlexGrid1.ColWidth(0) = 3500

MSFlexGrid1.ColWidth(1) = 3500

MSFlexGrid1.ColWidth(2) = 1385

MSFlexGrid1.ColWidth(3) = 1390

Dim chk1 As tune

Dim log1 As log

Dim X As Integer

Dim Y As Integer

Get #1, 3, chk1.chekv

X = Val(chk1.chekv)

For Y = 1 To X

Get #2, Y, log1

MSFlexGrid1.TextMatrix(Y, 0) = log1.vlog

MSFlexGrid1.TextMatrix(Y, 1) = log1.vname

MSFlexGrid1.TextMatrix(Y, 2) = log1.vdate

MSFlexGrid1.TextMatrix(Y, 3) = log1.vtime

Next Y

End Sub

'очисткалога

Private Sub Command1_Click()

Dim chk1 As tune

Dim log1 As log