Нижегородський Державний Технічний Університет
База даних відеокарт
Нижній Новгород 2003
Мета роботи:
Створення каталогу відеокарт. Програма повинна вміти: заносити, змінювати і видаляти відеокарту. Видавати максимальну і мінімальну вартість відеокарти, в порядку збільшення вартості.
Програма "База даних відеокарт" (DataBase v.1.02 beta.exe) повинна бути написана мовою Visual Basic 6.3.
Складові програми:
В
На малюнку:
-ліворуч - 4 файлу програми:
- data.dat - інформація про відеокарти (файл Excel (. xls) перейменований в. dat)
- DataBase v.1.02 beta.exe - виконуючий файл програми
- log.dat - історія бази даних (файл з довільним доступом)
- set.ini - файл (з довільним доступом) для зберігання налаштувань програми
- праворуч - робоча папка проекту
Робота з програмою:
При першому завантаженні відразу створюються файл налаштувань та історії.
Завантажується сплешскрін:
В
'створення нових типів даних
Private Type tune
chekv As String * 1
chekn As String * 16
End Type
Private Type log
vlog As String * 23
vname As String * 17
vdate As String * 12
vtime As String * 10
End Type
'завантаження форми
Private Sub Form_Load ()
Dim chk1 As tune
Dim log1 As log
Open CurDir $ + " Set.ini" For Random As # 1 Len = Len (chk1)
Get # 1, 1, chk1
If chk1.chekv = "0" Then
Unload Me
Form1.Show
Else
Form1.Check1.Value = 1
End If
Open CurDir $ + " log.dat" For Random As # 2 Len = Len (log1)
End Sub
При натисканні курсором в будь-яку область сплешскрін вивантажується і з'являється вікно основного меню:
В
При наведенні курсору на будь-яку область в рамці допомога з'являється підказка.
Public excelist As New Excel.Application
'чек
Private Sub Check1_Click ()
Dim chk1 As tune
chk1.chekn = "= Check1.value "
chk1.chekv = Check1.Value
Put # 1, 1, chk1.chekv
End Sub
'допомогу чек
Private Sub Check1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Показувати/немає сплешскрін (інформацію про програму) при завантаженні бази даних "
End Sub
'завантаження форми
Private Sub Form_Load ()
Static w As Byte
If w = 0 Then
Set excelist = New Excel.Application
With excelist
Workbooks.Open CurDir $ + " Data.dat"
Visible = False
End With
w = 1
End If
Dim chk1 As tune
chk1.chekn = "= Check1.value "
Get # 1, 1, chk1
If chk1.chekv = "0" Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub
'вихід
Private Sub Command6_Click ()
Dim chk1 As tune
If MsgBox ("Ви дійсно бажаєте вийти ? ", VbYesNo," База даних відеокарт ") = vbYes Then
With excelist.ActiveWorkbook
Save
Close
End With
chk1.chekn = "= Check1.value "
If Check1.Value = 1 Then
chk1.chekv = "1"
Put # 1, 1, chk1
Else
chk1.chekv = "0"
Put # 1, 1, chk1
End If
Close # 1
Close # 2
End
End If
End Sub
Вікно бази даних:
В
Тут також є область з підказками. На малюнку, наприклад, при наведенні на область об'єктах MSFlexgrid з'являється інформація про кол-ве відеокарт в базі даних.
'завантаження форми
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
Dim k 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.Tex...
