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.


 

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

84101. Механизм государства, государственный аппарат: понятие и их соотношение 21.97 KB
  Механизм государства есть та реальная организационная материальная сила располагая которой государство осуществляет власть. Механизм является структурным и предметным олицетворением государства представляет собой материальное вещество из которого оно состоит. Можно сказать что механизм суть деятельное постоянно функционирующее выражение государства.
84102. Понятие государственного органа. Классификация государственных органов 24.37 KB
  Классификация государственных органов Первичным и важнейшим структурным элементом механизма государства является орган государства. Государственный орган это звено элемент механизма государства участвующее в осуществлении функций государства и наделенное для этого властными полномочиями. Раскрытие понятия признаков данного органа позволяет глубже познать механизм государства в целом. Хотя орган государства и обладает определенной самостоятельностью автономией он служит частью единого механизма государства занимает в государственной...
84103. Государственные учреждения в механизме государства 22.34 KB
  Для обозначения этой системы обычно используют понятие механизм государства. Механизм государства – это совокупность государственных органов осуществляющих государственную власти и обеспечивающих реализацию функций государства. Первичной ячейкой государства выступают его органы и учреждения.
84104. Принципы формирования и деятельности государственного аппарата 21.91 KB
  Они подразделяются на общие принципы относящиеся к механизму государства в целом и частные принципы действие которых распространяется лишь на некоторые звенья государственного механизма отдельные органы или группы органов. Общие принципы принято делить на две группы. К первой относятся принципы закрепленные в Конституции Российской Федерации ко второй принципы сформулированные в Федеральном законе Об основах государственной службы Российской Федерации и иных федеральных законах О Конституционном Суде Российской Федерации О...
84106. Политическая система общества: понятие и структура 21.39 KB
  Политическая система общества система отношений государственных и негосударственных организаций институтов с помощью которых осуществляется политическая жизнь общества. Политическая система общества это упорядоченная на основе права и иных социальных норм совокупность институтов государственных органов политических партий движений общественных организаций и т. в рамках которых проходит политическая жизнь общества и осуществляется политическая власть. Понятие политическая система показывает как регулируются политические процессы...
84108. Государство и общественно-правовые объединения 21.85 KB
  Появление таких общественных организаций как партии является объективным процессом который позволяет выявлять общие интересы различных групп формулировать их преобразовывать в правовые требования добиваться их осуществления. Поэтому государство и выступает важнейшим и очень ценным объектом политической борьбы определяет участие партии в завоевании государственной власти. Различают парламентские партии ставящие целью завоевание власти демократическим путем участием в парламентской деятельности и партии которые ставят своей задачей...
84109. Правовой статус личности, понятия структуры виды 21.03 KB
  В структуру этого понятия входят следующие элементы: а правовые нормы; б правоспособность и дееспособность лица обладающего правовым статусом; в основные права свободы и обязанности; г законные интересы; д гражданство; е юридическая ответственность; ж правовые принципы; з правоотношения. В зависимости от перечисленных критериев различают: а общий или конституционный статус гражданина; б специальный или родовой статус определенных категорий граждан; в индивидуальный статус. Набор правовых статусов велик но в теоретическом плане...