Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Новые рефераты » База даних відеокарт

Реферат База даних відеокарт





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


Назад | сторінка 2 з 4 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Ієрархічна модель даних. Структури даних
  • Реферат на тему: Російський ринок private banking