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.


 

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

15362. Методика проведения социометрического исследования 301 KB
  ВВЕДЕНИЕ Создание и развитие социометрической методики связано с именем известного в практической психологии человека Якобом Леви Морено. Еще в ЗОе годы он создал социометрию как удобную в практике методику для изучения эмоциональных связей в группе. Связи тако
15363. Нормирование труда как функция организации труда 170 KB
  Научно обоснованные нормы труда позволяют оценить результаты трудовой деятельности каждого работника, каждой бригады и сравнить их результаты. Только при сравнении выявляются передовики и отстающие.
15364. Нормирование труда. Принципы, методы, формы 91.5 KB
  Введение За последние годы произошли радикальные сдвиги в общественнополитической и экономической жизни страны. Курс проводимых реформ радикально преобразил социальнотрудовую сферу. В условиях растущих экономических и социальных трудностей проблемы отношен...
15365. Организация работы центра закупки вычислительной техники АВЕРС 3.44 MB
  Цель маркетинговой деятельности этих предприятий – получение определённых коммерческих результатов с помощью наиболее эффективного управления собственными ресурсами, удовлетворяя потребности заказчиков эффективнее, чем конкуренты...
15366. Основные критерии оценки предпринимательских рисков 276.5 KB
  Основные критерии оценки предпринимательских рисков Введение Предпринимательская деятельность как функция управления имеет свою историю и динамику развития. Исходя из истории развития категории предпринимательства в современных трактовках научных деятелей в с
15367. Основные понятия аудита и аудиторской деятельности 195.5 KB
  Аудит – это вид деятельности, заключающийся в сборе и оценке фактов, касающихся функционирования и положения экономического объекта (самостоятельного хозяйственного подразделения) или касающихся информации о таком положении и функционировании...
15368. Анализ развития перестрахования в России 247.5 KB
  Содержание Введение 1. Понятие перестрахования и его назначение 1.1 Сущность и теоретические основы перестрахования 1.2 Виды перестрахования 1.3 Функции перестрахования 1.4 Нормативноправовая основа перестрахования 2. Анализ развития перестрахования в России ...
15369. Повышение эффективности производства подсолнечника на примере ООО Лосево 1.28 MB
  Основы экономики производства подсолнечника 5 Народнохозяйственное значение производства подсолнечника 5 Состояние и основные тенденции развития рынка 9 подсолнечника в России Краткая характеристика ООО Лосево
15370. Понятие и виды освобождения от наказания 191.5 KB
  Проявившиеся в последнее время тенденции широкого применения к лицам, впервые совершившим преступления не только небольшой, но и средней тяжести, института освобождения от наказания, нуждается в дальнейшем изучении с целью выявления необходимости последующего изменения уголовного закона и эффективности его применения