tMatrix (k, 2) = . Cells (i, 3)
MSFlexGrid1.TextMatrix (k, 3) = . Cells (i, 4)
MSFlexGrid1.TextMatrix (k, 4) = . Cells (i, 5)
MSFlexGrid1.TextMatrix (k, 5) = . Cells (i, 6)
k = k + 1
End With
Next i
With MSFlexGrid1
Rows = zpust + 1
Col ​​= 0
Sort = 1
Rows = 70
End With
End Sub
'кол-во відеокарт
Private Sub MSFlexGrid1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim zpust As Integer
zpust = Form1.zerocell
Label1.Caption = "Всього в базі даних - "& Zpust &" відеокарт "
End Sub
Як вже говорилося раніше в програмі передбачено ведення історії:
В
При натисканні на клавішу очищення вміст файлу історії обнуляється.
'завантаження форми
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
Dim s As Integer
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. Якщо у форму нічого не введено то з'являється вікно "Введіть модель відеокарти".
'додавання
Private Sub Command1_Click ()
If Combo1.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
Cells (zpust + 1, 5) = Combo5.Text
Cells (zpust + 1, 6) = Text1.Text
End With
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
Put # 2, u, log1
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Text1.Text = ""
Else
MsgBox "Введіть модель відеокарти"
End If
End Sub
Видалення відеокарти з бази даних:
В
Форма забезпечена елементом checkbox. При встановленому прапорці, при натисканні на клавішу Видалити з'являється вікно "Ви дійсно бажаєте видалити дану відеокарту?".
'видалення
Private Sub Command1_Click ()
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
Put # 2, u, log1
GoTo lab2
End If
Next i
