p>
MsgBox "Модель не знайдена"
lab2:
Combo1.Text = ""
End Sub
Зміна відеокарти відбувається за допомогою пошуку моделі відеокарти, якщо відеокарта не знайдена з'являється вікно "Модель не знайдено ". Як і у формі додавання є захист від порожнього введення. br/>В
'зміна
Private Sub Command1_Click ()
If Combo1.Text <> Empty Then
Dim o As Byte
Dim f As Label
Dim zpust As Byte
zpust = Form1.zerocell
For o = 1 To zpust
If Form1.excelist.ActiveWorkbook.ActiveSheet.Cells (o, 1) = Combo1.Text Then
Form1.excelist.ActiveWorkbook.ActiveSheet.Rows (o). Delete
With Form1.excelist.ActiveWorkbook.ActiveSheet
Cells (o, 1) = Combo1.Text
Cells (o, 2) = Combo2.Text
Cells (o, 3) = Combo3.Text
Cells (o, 4) = Combo4.Text
Cells (o, 5) = Combo5.Text
Cells (o, 6) = Text1.Text
End With
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
Beep
GoTo f
End If
Next o
Else
MsgBox "Введіть модель"
GoTo f
End If
MsgBox "Модель не знайдена"
f:
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Text1.Text = ""
End Sub
Пошук і сортування:
Здійснюються в одному вікні, за допомогою елементів optionbutton. Пошук:
В
Пошук відбувається за моделлю і за ціною, в т.ч. в діапазоні цін "від ... до", "від ...", "до ...". Автоматично відбувається сортування знайдених елементів за ціною в бік збільшення.
Сортування:
Можна вибрати будь-який параметр сортування. Вона буде проведена у бік збільшення. br/>В
'завантаження форми
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
k = 1
zpust = Form1.zerocell
For i = 1 To zpust
With Form1.excelist.ActiveWorkbook.ActiveSheet
MSFlexGrid1.TextMatrix (k, 0) = . Cells (i, 1)
MSFlexGrid1.TextMatrix (k, 1) = . Cells (i, 2)
MSFlexGrid1.TextMatrix (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
MSFlexGrid1.Rows = zpust + 1
MSFlexGrid1.Sort = 1
MSFlexGrid1.Rows = 70
End Sub
'пошук/сортування
Private Sub Command3_Click ()
If e = True Then
Dim zpust As Integer
zpust = Form1.zerocell
Select Case r
Case Is <6
Dim i As Integer
k = 1
For i = 1 To zpust
With Form1.excelist.ActiveWorkbook.ActiveSheet
MSFlexGrid1.TextMatrix (k, 0) = . Cells (i, 1)
MSFlexGrid1.TextMatrix (k, 1) = . Cells (i, 2)
MSFlexGrid1.TextMatrix (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
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
End With
Next i
With MSFlexGrid1
Rows = zpust + 1
Col ​​= r
Sort = 1
Rows = 70
End With
Case 6
If Combo1.Text <> Empty Then
Dim u As Byte
zpust = Form1.zerocell
k = 1
MSFlexGrid1.Clear
With MSFlexGrid1
TextMatrix (0, 0) = "Модель"
TextMatrix (0, 1) = "Шина AGP "
TextMatrix (0, 2) = "Частота ядра/пам'яті"
TextMatrix (0, 3) = "об'ем пам'яті"
TextMatrix (0, 4) = "Тип пам'яті"
TextMatrix (0, 5) = "Ціна"
End With
For u = 1 To zpust
If Form1.excelist.ActiveWorkbook.ActiveSheet.Cells (u, 1) = Combo1.Text Then
With Form1.excelist.ActiveWorkbook.ActiveSheet
