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.


 

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

5620. Издержки, прибыль и рентабельность производства 378 KB
  Издержки, прибыль и рентабельность производства Издержки. Понятие и виды Для принятия предприятием (фирмой) оптимальных решений по объемам выпуска продукции необходимо учитывать информацию об уровне издержек. Издержки — это денежное выражени...
5621. Механизм и инструментарий управления предприятием (фирмой) 110.5 KB
  Механизм и инструментарий управления предприятием (фирмой) Функции и методы управления экономикой, их развитие и совершенствование Установление целей производственно-хозяйственной деятельности предполагает целенаправленное воздействие на участник...
5622. Планирование деятельности предприятия (фирмы) 180 KB
  Планирование деятельности предприятия (фирмы) 1. Планирование как функция управления производством Обоснование целей производства, целей экономической системы, особенностей управления ее функционированием и развитием позволяет охарактеризовать одну ...
5623. Цена, ценообразование на предприятии (фирме) 96 KB
  Цена, ценообразование на предприятии (фирме) Цена, ценообразующие факторы Важнейшими категориями рыночной экономики являются цена и ценообразование. Цена - это денежное выражение стоимости товара, а ценообразование - процесс формирования цен, опр...
5624. Маркетинговая деятельность на предприятии (фирме) 70 KB
  Маркетинговая деятельность на предприятии (фирме) Сущность и содержание маркетинга Одним из кардинальных требований, диктуемых рыночной экономикой, является необходимость производства продукции такого количества и качества, которое может быть исп...
5625. Внешнеэкономическая деятельность предприятия 102 KB
  Внешнеэкономическая деятельность предприятия Основные понятия Внешнеэкономическая деятельность (ВЭД) представляет собой совокупность методов и средств торгово-экономического, научно-технического сотрудничества, валютно-финансовых и кредитных отно...
5626. Система налогообложения при выполнении соглашений о разделе продукции (СРП) 30.5 KB
  Система налогообложения при выполнении соглашений о разделе продукции (СРП) СРП - договор, в соответствии с которым РФ предоставляет инвестору на возмездной основе и на определенный срок исключительные права на поиски, разведку, добычу минераль...
5627. Единый налог на вмененный доход для отдельных видов деятельности (ЕНВД) 40 KB
  Единый налог на вмененный доход для отдельных видов деятельности (ЕНВД) ЕНВД - это налог на хозяйственную деятельность в виде промысла, приносящего доход. Он предусматривает уплату единого налога вместо налога на прибыль организаций (для индиви...
5628. Упрощенная система налогообложения (УСН) 39 KB
  Упрощенная система налогообложения (УСН) УСН предусматривает уплату единого налога вместо уплаты нескольких налогов. Единый налог заменяет: налог на прибыль организаций (для индивидуальных предпринимателей - НДФЛ) НДС налог на имущество ЕСН....