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.


 

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

47256. Психологическое сопровождение команды спортсменов с ограниченными возможностями в СДЮСШОР ГБОУ «Балтийский Берег» 1.25 MB
  Особенностями спортсменов с умственной отсталостью атлетов входящих в команду Специальных олимпийцев является высокая степень неразвитости речи низкий уровень концентрации внимания отсутствие возможности к запоминанию последовательности действий стильное недоразвитие мелкой и недостаточное развитие крупной моторики. Чем выше уровень референтности окружающих цели и содержания деятельности тем больше влияние на отдельную личность способна оказать группа. Эффективность тренировочного процесса спортсменов с ограниченными...
47257. Исследование систем управления персоналом и влияние зарубежного опыта на Российскую модель на примере компании ОАО «Ростелеком» Петербургский филиал 137.86 KB
  Понятия подходы и принципы управления персоналом. Понятия управления персоналом. Основные подходы управления персоналом. Основные принципы управления персоналом за рубежом.
47258. ОЦЕНКА И РАСЧЕТ ФИНАНСОВЫХ ПОКАЗАТЕЛЕЙ, ХАРАКТЕРИЗУЮЩИХ ДЕЯТЕЛЬНОСТЬ ПРЕДПРИЯТИЯ 975.5 KB
  Цель такого анализа — исследовать важнейшие аспекты денежного оборота и принять меры по укреплению финансово-экономического состояния хозяйствующего субъекта. Стабильное финансовое состояние предприятия означает своевременное выполнение обязательств перед его персоналом
47260. Государственное и муниципальное управление 710.5 KB
  елью государственной итоговой аттестации является определение уровня теоретической подготовки выпускников и освоения ими практических навыков по решению профессиональных задач в рамках основных видов их будущей профессиональной деятельности.
47261. Дизайн внутренней предметно-пространственной среды индивидуального малоэтажного жилого дома 7.01 MB
  Деревянные дома из бревна - это некогда забытый вид построек, который сейчас возвращается и становится популярным в разных странах. Такой дом сам по себе имеет уже внутреннюю отделку. Актуальность исследования состоит в изучении незатронутого до настоящего времени подробным анализом, но весьма обширного материала, связанного с различными аспектами формирования внутреннего облика современного загородного жилища.
47262. Методы контроля изнашивания подшипников дизеля 1.27 MB
  Этот фактор так же влияет и на качество очистки масла в системе двигателя где установлены фильтры грубой и тонкой очистки. Для этого всасывающий патрубок первой ступени компрессора соединяют резиновым шлангом с небольшой емкостью переносным ресивером а затем с прибором. Рассчитывается по формуле...
47263. Процедура построения полного дерева поиска и ее особенности 20.87 KB
  Процедура построения полного дерева поиска и ее особенности. Бинарное дерево-это конечное множество элементов, которое либо пусто, либо содержит один элемент, называемый корнем дерева, а остальные элементы множества делятся на два непересекающихся подмножества, каждое из которых само является бинарным деревом
47264. Электроснабжение нового микрорайона города с реконструкцией существующей электрической сети 6.09 MB
  Значения расчетных электрических нагрузок жилых домов зависит от количества квартир, типа энергоносителя для приготовления пищи и количества и номинальной мощности двигателей лифтовых установок.