46903 (665654), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

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

If k = 1 Then MsgBox "Модель не найдена"

Else

MsgBox "Введите модель"

End If

Case 7

If Val(Combo2.Text) < Val(Combo3.Text) Then

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

Dim j As Integer

k = 1

For j = 1 To zpust

If Val(Form1.excelist.ActiveWorkbook.ActiveSheet.Cells(j, 6)) >= Val(Combo2.Text) And Val(Form1.excelist.ActiveWorkbook.ActiveSheet.Cells(j, 6)) <= Val(Combo3.Text) Then

With Form1.excelist.ActiveWorkbook.ActiveSheet

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

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

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

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

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

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

k = k + 1

End With

End If

Next j

With MSFlexGrid1

Rows = k

Col = 5

Sort = 1

Rows = 70

End With

Else

MsgBox "Неверно задан диапазон"

End If

Case Else

MsgBox "Неудача"

End Select

Option1.Enabled = True

Option2.Enabled = True

Option3.Enabled = True

Option4.Enabled = True

Option5.Enabled = True

Option6.Enabled = True

Option7.Enabled = True

Option8.Enabled = True

Combo1.Enabled = True

Combo2.Enabled = True

Combo3.Enabled = True

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Option5.Value = False

Option6.Value = False

Option7.Value = False

Option8.Value = False

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

Else

MsgBox "Выберите действие"

End If

e = False

End Sub

В любой момент можно просмотреть информацию о программе:

При нажатии клавиши выход появляется окно "Вы действительно желаете выйти?", при утвердительном ответе программа сохраняет все изменения и закрывается.

Заключение:

Использованные ресурсы:

Программа использует следующее компоненты:

- Microsoft Flex Grid Control 6.0 (SP3)

- Microsoft Windows Common Controls 6.0 (SP4)

и библиотеки:

- Visual Basic for Applications

- Visual Basic runtime objects and procedures

- Visual Basic objects and procedures

- Microsoft Excel 10.0 Object Library

Отличительные особенности программы:

- Практически все формы программы снабжены помощью, т.е. областями в которых появляется информация об объекте, на который наведен курсор. Например в форме поиска при движении курсора по объекту MSFlexGrid появляется информация о количестве найденных видеокарт.

- База данных имеет кроме файла с информацией о видеокартах (.dat) файлы с произвольным доступом. Файл настроек хранит информацию о положении флажков и количестве действий в истории. Файл истории хранит все сведения истории.

- В программе ведется история добавления, удаления, изменения видеокарт (а также очистки) с точностью до секунд. Её можно просмотреть в любой момент и очистить, если возникнет необходимость.

- Поиск по базе данных ведется по количеству введенных символов. Например если вы ввели "GeF" результатом будут все видеокарты GeForce …

- Существует функция поиска в диапазоне цен:

от …

до …

и от … до …

- Использованы защиты от неверных действий. При выходе, удалении, очистки истории появляется окно подтверждения.

- При оформлении программы использованы изображения реальных видеокарт.

В процессе написания программы мною были освоены азы программирования на VB 6.5. Изучены основные операции функции и процедуры.

Характеристики

Список файлов реферата