4927
Работа с файлами в среде Visual Basic
Лабораторная работа
Информатика, кибернетика и программирование
Работа с файлами в VB. Цель работы Приобрести практические навыки в работе с файлами последовательного доступа и использовании стандартных окон Windows. Задание Разработайте и отладьте базу данных Склад с использованием файла последо...
Русский
2012-11-29
211.5 KB
17 чел.
Работа с файлами в VB.
Цель работы
Приобрести практические навыки в работе с файлами последовательного доступа и использовании стандартных окон Windows.
Задание
Разработайте и отладьте базу данных “ Склад ” с использованием файла последовательного доступа.
Решение
1. Разработайте форму согласно этой форме :
2. Для хранения базы данных в ОЗУ используйте двухмерный массив BD(n,5). Где n число записей в базе данных, а 5 число полей. Номер записи нужен только на экране или на бумаге, в программе хранить его не требуется. Для отображения базы данных на экране воспользуйтесь сеткой MSFlexGrid. Для ввода данных создайте линейку из массива элементов управления (txtText2).
3. Опишите состав элементов управления на форме
4. Опишите переменные, используемые в программе
Блок-схема
Программа
Dim i As Integer, j As Integer, Bd() As String
Dim n As Integer, Sb As Single, nKanal As Integer
Private Sub Form_Activate()
For i = 0 To 5
Grid1.ColAlignment(i) = 3
Grid1.TextMatrix(0, i) = Label2(i).Caption
Next i
Grid1.ColAlignment(6) = 3
Grid1.TextMatrix(0, 6) = "Стоимость"
Grid1.Row = 0
Grid1.ColWidth(0) = 600: Grid1.ColWidth(1) = 2000
Grid1.ColWidth(2) = 1000: Grid1.ColWidth(3) = 1100
Grid1.ColWidth(4) = 1200: Grid1.ColWidth(5) = 1200
Grid1.ColWidth(6) = 1200
End Sub
Private Sub txtText1_Change()
n = Val(txtText1.Text)
Grid1.Rows = n + 1
End Sub
Private Sub cmdVvod_Click()
Dim i As Integer, j As Integer
n = Val(txtText1.Text)
If n = 0 Then
MsgBox "Укажите число записей"
Exit Sub
End If
ReDim Preserve Bd(6, n) As String
If n < Val(txtText2(0).Text) Then
n = Val(txtText2(0).Text)
Grid1.Rows = n + 1
ReDim Preserve Bd(6, n) As String
End If
i = Val(txtText2(0).Text)
Grid1.Row = i: For j = 0 To 5
Bd(j, i) = txtText2(j).Text
Grid1.Col = j
Grid1.Text = Bd(j, i)
Grid1.Visible = True
Next j
st = Val(txtText2(4).Text) * Val(txtText2(5).Text)
Grid1.Col = j
Grid1.Text = Str$(Round(st, 2))
Grid1.Visible = True
Bd(6, i) = Str$(st)
For j = 1 To 5
txtText2(j).Text = ""
Next j
If i < n Then
txtText2(0).Text = i + 1
End If
End Sub
Private Sub cmdSave_Click()
nKanal = FreeFile
Open "D:\file\dat.txt" For Output As #nKanal
Write #nKanal, n
For i = 1 To n
For j = 0 To 6
Write #nKanal, Bd(j, i)
Next j
Next i
Close #nKanal
End Sub
Private Sub cmdOpen_Click()
nKanal = FreeFile
Open "D:\file\dat.txt " For Input As #nKanal
Input #nKanal, n
ReDim Bd(6, n)
Grid1.Rows = n + 1
For i = 1 To n
For j = 0 To 6
Input #nKanal, Bd(j, i)
Grid1.TextMatrix(i, j) = Bd(j, i)
Next j
Next i
Close #nKanal
End Sub
Private Sub cmdExit_Click()
End
End Sub
Результат
Вывод
Я приобрел практические навыки в работе с файлами последовательного доступа и использовании стандартных окон Windows.
А также другие работы, которые могут Вас заинтересовать | |||
80414. | Становление отечественной оперы во II половине XVIII века | 279.5 KB | |
Среди всех отраслей русского искусства XVIII столетия именно музыка оказалась надолго и прочно забытой. Огромным препятствием здесь было прежде всего отсутствие многих музыкальных памятников и общее состояние музыкальных архивов. | |||
80415. | Уголовно-правовая характеристика незаконного оборота наркотиков в России и зарубежных странах | 296 KB | |
В 2003 г. в России употребляли наркотики около 4 млн человек. Только около 500 тысяч человек обратились в медучреждения за помощью. На учете в медучреждениях находилось только 15-20% от числа людей, употребляющих наркотики. 80% употребляющих наркотики – это люди в возрасте 18-39 лет. | |||
80416. | Разработка технологии сборки и сварки кольцевых швов кожуха газификационной установки | 1.23 MB | |
Сварочная техника и технология занимает одно из ведущих мест в современном производстве. Развитие техники и технологии предъявляет все новые требования к способам производства и, в частности к технологии сварки. Сегодня свариваются материалы, которые еще относительно недавно считались экзотическими. | |||
80418. | Теоретико-методичні підходи і практичні рекомендацій щодо удосконалення системи управління капіталом ТОВ «ПАО» | 1.64 MB | |
Розвиток ринкових відносин та інтеграція України у світове економічне співтовариство потребують нових підходів до управління економікою як на макрорівні, так і на рівні окремих підприємств. Особливого значення набувають проблеми створення таких механізмів управління фінансами підприємств... | |||
80420. | Изучение особенностей адаптации к роли матери у женщин, имеющих детей разного возраста | 731.5 KB | |
Важность материнского поведения для развития ребенка его сложная структура и путь развития множественность культурных и индивидуальных вариантов а также огромное количество современных исследований в этой области позволяют говорить об особой актуальности изучения материнства... | |||
80421. | ОРГАНІЗАЦІЯ ТА ОБЛІК РОЗРАХУНКІВ З ОПЛАТИ ПРАЦІ (НА МАТЕРІАЛАХ СІЛЬСЬКОГОСПОДАРСЬКИХ ПІДПРИЄМСТВ БЕРЕЗАНСЬКОГО РАЙОНУ) | 1.56 MB | |
Актуальність даного питання посилюється ще й тим, що в сучасних умовах здійснюється адаптація існуючої системи обліку та організації праці відповідно до міжнародних стандартів, впроваджуються нові методики організації обліку оплати праці на підприємствах. | |||
80422. | Развитие интеллектуальных умений при обучении математике (на примере умений анализировать, синтезировать, алгоритмизировать) | 526 KB | |
Чтобы учащиеся могли глубже осознать междисциплинарные связи, понять возможность переноса результатов с одного учебного предмета на другой, у них не должно создаваться впечатления, будто каждый предмет призван решать свои, отдельные от других дисциплин, задачи. | |||