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.


 

А также другие работы, которые могут Вас заинтересовать

62048. Выполнение практических заданий из различных предметных областей. Исследование зависимостей 540.9 KB
  Несколько смежных ячеек образующих прямоугольный блок диапазон 6.Для копирования формул в диапазон ячеек используют автозаполнение 10.Самый быстрый и наглядный способ перемещения диапазона ячеек перетаскивание 14.
62049. Демократические выборы и политические партии 23.62 KB
  Запишем определение мажоритарной избирательной системы. Мажоритарная избирательная система Какие же плюсы это системы Запишем. Плюсы системы: Минусы системы: кто избирается в РФ по данной избирательной системе на сколько лет избирается...
62050. Способы и средства транспортировки пострадавших 17.04 KB
  Транспортировка пострадавших требует от спасателей знания приемов и навыков выполнения этой работы в зависимости от состояния пострадавшего и степени его травмирования наличия специальных средств для транспортировки...
62051. Виртуальное путешествие по Литве 20.02 KB
  Цель: Сделать урок разнообразным и интересным, познакомить с обычаями и культурой. Задачи: Образовательная: познакомить с Литвой, её географией, литературой. Воспитательная: воспитывать любовь к родной стране, интерес к её географии, литературе: сказкам и легендам.
62052. Птицы осенью 16.75 KB
  Птички улетели Стали дни короче Солнышка не видно Тёмны тёмны ночи Появление таблички Перелётные птицы Как вы думаете о чём мы будем говорить сегодня на уроке Отвечают на вопросы Выдвигают гипотезы.
62053. Осень 18.86 KB
  Задачи: Образовательные: познакомить детей с понятием окружающий мир; расширить представление обучающихся о приметах осени; формировать у детей понятия живая и неживая природа. Но ведь природа тоже бывает разная живая и неживая.
62054. Внутрішня будова Землі. Мінерали та гірські породи 53.02 KB
  Сформувати в учнів поняття про властивості гірських порід та мінералів. Сприяти розвитку навичок дослідження обєктів природи при описі зразків гірських порід та мінералів за зовнішніми ознаками.