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.


 

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

15617. НОВАЯ ТЕОСОФИЯ КАК ФИЛОСОФИЯ ГЛОБАЛЬНОЙ БЕЗОПАСНОСТИ РОССИИ 133 KB
  НОВАЯ ТЕОСОФИЯ КАК Философия ГЛОБАЛЬНОЙ безопасности России Землетрясения и цунами вызвавшие радиоактивную катастрофу на Японских островах в марте 2011 г. свидетельствуют о начале глобальной природнотехногенной катастрофы. Кризис индустриальной цивилизации прояв...
15618. Принципы нравственной экономики 53 KB
  Принципы нравственной экономики Потребность в новой экономике обусловлена усиливающимся цивилизационным кризисом [1]. Методологической основой для создания концепции нравственной экономики может служить нравственнорелигиозный неоинституционализм разработанны
15619. КИТАЙСКИЙ, ИНДИЙСКИЙ И ЯПОНСКИЙ ПРОЕКТЫ ДЛЯ ГЕОПОЛИТИКИ И ГЕОЭКОНОМИКИ РОССИИ 218.5 KB
  КИТАЙСКИЙ ИНДИЙСКИЙ И ЯПОНСКИЙ ПРОЕКТЫ ДЛЯ ГЕОПОЛИТИКИ И ГЕОЭКОНОМИКИ РОССИИ Переход к легальной рыночной экономике ускорил центробежные силы разрывающие Россию. Если на юге страны использовались военные и идеологические орудия развала государства то на Дальнем
15620. Культура, кризис, этика и эстетика 38 KB
  Культура кризис этика и эстетика Темы для обсуждения предложены две: насчёт того переживает ли нынешняя культура кризис и вторая об этическом и эстетическом в современной культуре. Ничего существенного я не могу сказать ни на первую тему ни на вторую. Потому что ч...
15621. Das Prinzip verum factum: seine theologische Pramisse bei Nikolaus von Kues 41.5 KB
  Das Prinzip verumfactum: seine theologische Pramisse bei Nikolaus von Kues Das Tatsachlichkeit der Wahrheit heutzutage ist etwas dass versteht sich von selbst. Dass die Wahrheit gewissermassen erzeugt ist davon man sagt seitdem am Morgen der Philosophie war klargestellt dass obgleich die Wahrheit von sich selbst existiert denn seine Stellung in die Sprache in dem Urteil von Wahrheit ist. Das bei uns aus Latein angekommende Faktum hat vor langer Zeit derUntersch...
15622. Николай Кузанский и философия эпохи культуры 58 KB
  Николай Кузанский и философия эпохи культуры слишком обширная тема если считать что эпоха культуры это всё Новое время. Я попытаюсь эскизно очертить только один сюжет из этой большой темы правда он один из главных. Речь пойдёт об истоках новоевропейского г
15623. Бог был для мира не сим одним 109.5 KB
  Бог был для мира не сим одним Бог был для мира не сим одним не причиною только бытия но сотворил как благий полезное как премудрый прекраснейшее как могущественный величайшее Василий Великий. Беседы на Шестоднев.1 Всё дальнейшее будет попыткой комментария...
15624. Время событий и событие времени 43.5 KB
  Время событий и событие времени На последней странице Онтологии времени значится учебное издание. Я бы даже сказал учебное пособие. Для меня это учебное пособие по истории философии настоящее и одно из лучших и немногих при наличии кучи учебников плохих и хор...
15625. Принцип verum/factum: его богословские предпосылки У Николая Кузанского 99.5 KB
  Принцип verum/factum: его богословские предпосылки У Николая Кузанского Фактичность истины сегодня нечто само собой разумеющееся. О сделанности истины о том что она какимто образом производится речь идёт с тех пор как на заре философии было выяснено что хотя ист