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.


 

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

68324. Транспозон. Типи транспозонів та механізми їх пересування 36.5 KB
  Мобільні генетичні елементи за типом транспозиції можна поділити на два класи: ДНК-транспозони які застосовують метод вирізати й вставити та ретротранспозони пересування яких має в своєму алгоритмі синтез РНК з ДНК та подальшим зворотнім синтезом ДНК з молекули РНК тобто метод копіювати й вставити.
68325. УЧЕБНЫЙ ПЛАН 32 KB
  В ответ нам покажут один максимум три листика с аккуратным указанием количества часов по каждому предмету в каждом классе. То есть практически учебный план сетка часов. Учебный план должен состоять из двух частей: объяснительная записка и сетка часов.
68326. УЧЕБНАЯ ПРОГРАММА 74.5 KB
  Нормативный текст определяющий цели ценности образования учебный план учебные программы педагогические технологии и методики их практической реализации и определения результата. Организационно-управленческое знание позволяющее реализовать принцип личностной ориентации...
68327. Учебник. Учебный материал 66 KB
  Как известно содержание единицы учебника параграфы главы характеризуется следующими параметрами: структурная сложность число разнородных единиц элементов их иерархия связи и отношения; содержательная сложность категория цели; информативность степень изменения тезауруса учебника...
68328. Формы, уровни, содержание и участники процесса правового обучения 236 KB
  Формы и уровни содержание гражданско-правового юридического образования право как обучение. Формы и уровни содержание гражданско-правового образования право как предмет обучения. Уровни образования. Законодатель допускает возможность получения образования в следующих формах каждая из которых есть особый способ...
68329. Управление и нормативно-правовое регулирование в области правого обучения 166 KB
  Нормативно-правовые акты регламентирующие процесс обучения. Муниципальная система образования это территориально обособленная и относительно самостоятельная часть системы образования республики взаимосвязанная с другими аналогичными частями.
68330. Методика преподавания учебной дисциплины «Уголовное право» 39 KB
  Задачи изучения дисциплины В результате изучения уголовного права студенты должны знать: − понятие предмет задачи и принципы уголовного права как отрасли национального права; − понятие значение структуру уголовного закона отдельных его статей; − понятие уголовной ответственности и ее основание...
68331. Евреи в Сибири 40 KB
  Первые упоминания о евреях в Сибири отнесятся к началу 2й четверти XVII века. В деле Сибирского приказа за 1635 год о возвращении из Сибири военнопленных сосланных в службу и на пашню упоминаются литовские немецкие люди и жиды. Относительно последних приказ дает воеводам подробные инструкции...