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

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

MsgBox "Модель не найдена"

lab2:

Combo1.Text = ""

End Sub

Изменение видеокарты происходит с помощью поиска модели видеокарты, если видеокарта не найдена появляется окно "Модель не найдена". Как и в форме добавления есть защита от пустого ввода.

‘изменение

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. Поиск:

Поиск происходит по модели и по цене, в т.ч. в диапазоне цен "от … до", "от … ", "до …". Автоматически происходит сортировка найденных элементов по цене в сторону увеличения.

Сортировка:

Можно выбрать любой параметр сортировки. Она будет произведена в сторону увеличения.

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

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

MSFlexGrid1.TextMatrix(k, 0) = .Cells(u, 1)

MSFlexGrid1.TextMatrix(k, 1) = .Cells(u, 2)

MSFlexGrid1.TextMatrix(k, 2) = .Cells(u, 3)

MSFlexGrid1.TextMatrix(k, 3) = .Cells(u, 4)

MSFlexGrid1.TextMatrix(k, 4) = .Cells(u, 5)

MSFlexGrid1.TextMatrix(k, 5) = .Cells(u, 6)

k = k + 1

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

End With

End If

Next u

 Скачать реферат