Исходный код программы

Private Type med

name As String * 40

pr As Double

dt As Date

pst As Long

mem As Integer

sys As String * 25

vol As Integer

vid As String * 35

res As Integer

cor As Integer

End Type

Dim mw As med

Dim id As Long

Private Sub Command1_Click()

mw.name = Text2.Text

mw.pr = Val(Text10.Text)

mw.dt = CDate(Text8.Text)

mw.pst = Val(Text11.Text)

mw.sys = Text3.Text

mw.mem = Val(Text4.Text)

mw.vol = Val(Text5.Text)

mw.vid = Text6.Text

mw.cor = Val(Text7.Text)

mw.res = Val(Text9.Text)

id = Val(Text1.Text)

Put #1, id, mw

End Sub

Private Sub Command2_Click()

List1.Clear

id = 1

Seek #1, id

Do While Not EOF(1)

Get #1, id, mw

If InStr(Trim(UCase(mw.name)), Trim(UCase(Text12.Text))) Or InStr(Trim(UCase(mw.sys)), Trim(UCase(Text12.Text))) Or InStr(Trim(UCase(mw.mem)), Trim(UCase(Text12.Text))) Or InStr(Trim(UCase(mw.vol)), Trim(UCase(Text12.Text))) Or InStr(Trim(UCase(mw.vid)), Trim(UCase(Text12.Text))) Or InStr(Trim(UCase(mw.cor)), Trim(UCase(Text12.Text))) Or InStr(Trim(UCase(mw.dt)), Trim(UCase(Text12.Text))) Or InStr(Trim(UCase(mw.res)), Trim(UCase(Text12.Text))) Or InStr(Trim(UCase(mw.pr)), Trim(UCase(Text12.Text))) Or InStr(Trim(UCase(mw.pst)), Trim(UCase(Text12.Text))) > 0 Then

List1.AddItem id & " " & mw.name & " " & mw.sys & " " & mw.mem & " " & mw.vol & " " & mw.vid & " " & mw.cor & " " & mw.dt & " " & mw.res & " " & mw.pr & " " & mw.pst

End If

id = id + 1

Loop

If Text12.Text = "" Then List1.Clear

If Text12.Text = "" Then

List1.Visible = False

Text1.Text = False

Text2.Text = False

Text3.Text = False

Text4.Text = False

Text5.Text = False

Text6.Text = False

Text7.Text = False

Text8.Text = False

Text9.Text = False

Text10.Text = False

Text11.Text = False

End If

If List1.ListCount = 0 Then List1.AddItem " По вашему запросу ничего не найдено "

End Sub

Private Sub Command3_Click()

List2.Clear

id = Val(Text13.Text)

If id < 1 Then

MsgBox " Данной записи не существует ",, "Подсказка "

Else

If id > LOF(1) / Len(mw) Then

MsgBox " Данной записи не существует ",, "Подсказка "

Else

If Text13.Text = "" Then

MsgBox " Введите номер записи "

Else

id = Val(Text13.Text)

Get #1, id, mw

List2.AddItem id & "." & mw.name & " " & mw.pr & " " & mw.dt & " " & mw.pst & " " & mw.sys & " " & mw.mem & " " & mw.vol & " " & mw.vid & " " & mw.res & " " & mw.cor & " "

End If

End If

End If

End Sub

Private Sub Command4_Click()

List1.Clear

id = 1

Get #1, id, mw

List2.AddItem id & "." & mw.name & " " & mw.sys & " " & mw.mem & " " & mw.vol & " " & mw.vid & " " & mw.cor & " " & mw.dt & " " & mw.res & " " & mw.pr & " " & mw.pst & " "

End Sub

Private Sub Command5_Click()

List1.Clear

If id > 1 Then

id = id - 1

Else: id = 1

End If

Get #1, id, mw

List2.AddItem id & "." & mw.name & " " & mw.sys & " " & mw.mem & " " & mw.vol & " " & mw.vid & " " & mw.cor & " " & mw.dt & " " & mw.res & " " & mw.pr & " " & mw.pst & " "

End Sub

Private Sub Command6_Click()

List1.Clear

If id < LOF(1) / Len(mw) Then

id = id + 1

Else: id = LOF(1) / Len(mw)

End If

Get #1, id, mw

List2.AddItem id & "." & mw.name & " " & mw.sys & " " & mw.mem & " " & mw.vol & " " & mw.vid & " " & mw.cor & " " & mw.dt & " " & mw.res & " " & mw.pr & " " & mw.pst & " "

End Sub

Private Sub Command7_Click()

List1.Clear

id = LOF(1) / Len(mw)

Get #1, id, mw

List2.AddItem id & "." & mw.name & " " & mw.sys & " " & mw.mem & " " & mw.vol & " " & mw.vid & " " & mw.cor & " " & mw.dt & " " & mw.res & " " & mw.pr & " " & mw.pst & " "

End Sub

Private Sub Command8_Click()

Open App.Path & "\db2.dat" For Random As #2 Len = Len(mw)

id = 1

Seek #1, id

Do While id <= LOF(1) / Len(mw)

Get #1, id, mw

If id <> Val(Text14.Text) Then

Put #2,, mw

End If

End If

id = id + 1

Loop

Close #2

Close #1

Kill App.Path & "\db.dat"

FileCopy App.Path & "\db2.dat", App.Path & "\db.dat"

Kill App.Path & "\db2.dat"

Open App.Path & "\db.dat" For Random As #1 Len = Len(mw)

List4.Clear

For id = 1 To LOF(1) / Len(mw)

Get #1, id, mw

List4.AddItem id & "." & mw.name & " " & mw.sys & " " & mw.mem & " " & mw.vol & " " & mw.vid & " " & mw.cor & " " & mw.dt & " " & mw.res & " " & mw.pr & " " & mw.pst & " "

Next id

End Sub

Private Sub Command9_Click()

Text12.Text = ""

End Sub

Private Sub Form_Activate()

Open App.Path & "\db.dat" For Random As #1 Len = Len(mw)

List3.Clear

For id = 1 To LOF(1) / Len(mw)

Get #1, id, mw

List3.AddItem id & "." & mw.name & " " & mw.sys & " " & mw.mem & " " & mw.vol & " " & mw.vid & " " & mw.cor & " " & mw.dt & " " & mw.res & " " & mw.pr & " " & mw.pst & " "

Next id

End Sub

Private Sub Form_Resize()

Text12.Top = 0

Text12.Left = Form1.Width / 2 - Text12.Width / 2

Label12.Top = 0

Label12.Left = Form1.Width / 2 - Text12.Width / 2 - Label12.Width

Command2.Top = 0

Command2.Left = Form1.Width / 2 + Text12.Width / 2

Command9.Top = 0

Command9.Left = Form1.Width / 2 + Text12.Width / 2 + Command2.Width

Frame3.Top = Text12.Height

Frame3.Left = Form1.Width / 2 - Text12.Width / 2 - Label12.Width

Frame1.Top = Frame3.Top + Frame3.Height

Frame1.Left = Form1.Width / 2 - Text12.Width / 2 - Label12.Width

Frame4.Top = Frame1.Top + Frame1.Height

Frame4.Left = Form1.Width / 2 - Text12.Width / 2 - Label12.Width

Frame2.Top = Frame4.Top + Frame4.Height

Frame2.Left = Form1.Width / 2 - Text12.Width / 2 - Label12.Width

End Sub

Заключение.

Список используемой литературы.

1. Токарев С.В., Колобов Ю.В. Основные объекты пользовательских интерфейсов.

Н. Новгород, 2009. 16с.

2. Токарев С.В., Колобов Ю.В. Обработка событий пользовательских интерфейсов.

Н. Новгород, 2009. 16с.

3. Сафронов И.К. Visual Basic в задачах и примерах. СПб., БХВ Петербург,

2008. 394с.

4. Информатика. Базовый курс. 2-е издание / Под ред. С.В.Симоновича. – СПб.: Питер, 2005. – 640 с.: ил.

Дата добавления: 2017-01-14; Просмотров: 47; Нарушение авторских прав?; Мы поможем в написании вашей работы!