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.


 

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

25512. Конструкционные материалы, обрабатываемые давлением. Свойства материалов 200 KB
  Диаграмма фазового равновесия (диаграмма состояния) железо-углерод (иногда говорят железо-цементит) — графическое отображение фазового состояния сплавов железа с углеродом в зависимости от их химического состава и температуры.
25513. Особенности межличностной коммуникации в молодой семье 14.23 KB
  Межличностное общение в семье является ключевым моментом ее жизнедеятельности. Задачи коммуникации: естественный обмен информации согласование усилий выполнение ролей в совместной деятельности установление и развитие межличностных отношений познание партнёра и самопознание Особенностью межличностной коммуникации в семье является высокая эмоциональная насыщенность и интенсивность общения. В работах Петровской андреевой Сатир Роджерса Гордона и других выделены условия эффективного межличностного общения в семье: 1 открытость 2 высокая...
25515. планирование семьи появился в XX веке когда проблемой и процессом выбора числа детей в семье и времени их ро. 24.2 KB
  Деятельность служб планирования семьи. В широком смысле под планированием семьи понимается совокупность социальноэкономических правовых медицинских педагогических мероприятий направленных на рождение желанных детей воспитание в обществе культуры осознанного родительства достижение гармонии в браке поддержание репродуктивного здоровья населения. Термин планирование семьи появился в XX веке когда проблемой и процессом выбора числа детей в семье и времени их рождения управлять стало максимально возможно.
25516. Повторный брак 19.19 KB
  Во втором типе брака психологические проблемы могут возникать при отказе детей признать право отчима на полноправное место в структуре семейных отношений. Он может восприниматься ими как незваный гость отнимающий у детей часть материнского времени и любви. Жена начинает чувствовать себя обиженной и раздраженной когда новый муж позволяет себе критиковать ее детей. Она называет семью созданную мужчиной и женщиной имеющих детей от первого брака смешанной семьей.
25517. Половое воспитание в России: история и современное состояние 24.69 KB
  Кроме того по решению Министерства просвещения СССР с 1983 года в программы школ страны были введены обязательные курсы Гигиеническое и половое воспитание 8 кл. В постсоветский период начинают распространяться различного рода программы сексуального просвещения. Появляются всё новые и новые фантастические программы оздоровления психического совершенствования эстетического развития и т. Возникла потребность в переработки программы 1982 года по данному предмету.
25518. Понятие, особенности молодой семьи 15.71 KB
  Понятие Молодая семья давно используется в демографической социологической педагогической литературе. Использовалось в постановлении ЦК КПСС и совета министров СССР от 22 января 1981 г О мерах по усилению государственной помощи семьям имеющим детей. Затем стало выделяться понятие студенческая семьясм. Молодая семья возраст каждого из супругов которой не превышает 30 лет либо не полная семья состоящая из 1 молодого родителя возраст которого не превышает 30 и одного и более детей.
25519. Семья 13.04 KB
  Существует ряд подходов определения семья: Ожегов: СЕМЬЯ это группа живущих вместе близких родственников. Традиционное определение: СЕМЬЯ это важнейшая форма организации личной жизни вид социальной общности малая группа основанная на супружеском союзе родственных связей или усыновлении т.: СЕМЬЯ это историческиконкретная система взаимоотношений между супругами между родителями и детьми малая социальная группа члены которой связаны брачными и родительскими отношениями общностью бытом и взаимной моральной ответственностью...
25520. Государственная поддержка семей с детьми 12.08 KB
  Виды пособий: По беременности и родам; Ежемесячные пособие на период отпуска по уходу за ребенком до достижения возраста 15 года; Единовременное пособие женщинам ставшим на учет в медицинское учреждение в ранние сроки беременности до 12 недель; Единовременное пособие при рождении ребенка; Ежемесячные пособия на ребенка до достижения 16 лет на учащегося в общеобразовательном учреждении до окончания им обучения но не более чем до 18 лет; Единовременное пособие беременным женам военнослужащих проходящих военную службу по призыву;...