Public RecStud As RecordStud

Public nRecStud As Integer

End Module

 

6.2. В окне проекта выбрать форму FormStudent и открыть окно редактора кодов с модулем формы.

6.3. В процедуру FormStudent_Load() добавить строки:

 

FileOpen(1, "Student.dat", OpenMode.Random, _

OpenAccess.Default, OpenShare.Default, Len(RecStud))

nRecStud = LOF(1) / Len(RecStud) + 1

txtNomSt.Text = nRecStud

 

6.4. В модуль формы добавить процедуру SaveRecordStud. Так как эта процедура не связана с событиями имеющихся объектов, то её придётся добавлять вручную. Создайте каркас процедуры, добавив в класс формы следующий код:

 

Private Sub SaveRecordStud()

End Sub

Отредактируйте код процедуры следующим образом:

 

Private Sub SaveRecordStud()

RecStud.NomSt = nRecStud

RecStud.FIO = txtFIO.Text

RecStud.Adr = txtAdr.Text

If Opt1.Checked = True Then

RecStud.Pol = "м"

ElseIf Opt2.Checked = True Then

RecStud.Pol = "ж"

End If

Dim mes As String, way As String, god As String

mes = LTrim(Str(cmbMonth.SelectedIndex + 1))

way = LTrim(Str(UpDownDay.Value))

god = LTrim(Str(UpDownYear.Value))

RecStud.DataR = CDate(way + "." + mes + "." + god)

RecStud.NomGr = txtNomGr.Text

RecStud.Sp = lstSP.SelectedItem

If Check1.Checked = True Then

RecStud.VidOpl = True

Else

RecStud.VidOpl = False

End If

FilePut(1, RecStud, CInt(nRecStud))

nRecStud = nRecStud + 1

txtNomSt.Text = nRecStud

txtFIO.Text = ""

txtAdr.Text = ""

txtNomGr.Text = ""

UpDownDay.Value = 1

UpDownYear.Value = 1985

Opt1.Checked = True

Opt2.Checked = False

Check1.Checked = True

cmbMonth.Text = ""

End Sub

6.5. С событием Click командной кнопки CmdSave связать процедуру, вызывающую процедуру SaveRecordStud. Текст процедуры:

 

Private Sub cmdSave_Click(ByVal sender As System._

Object, ByVal e As System.EventArgs) Handles cmdSave.Click

SaveRecordStud()

End Sub

 

7. Выполнить закрытие файла Student.dat при закрытии формы FormStudent. С событием Closing объекта FormStudent Events связать процедуру:

 

Private Sub FormStudent_Closing(ByVal sender As Object, ByVal _

e As System.ComponentModel.CancelEventArgs) Handles _

MyBase.Closing

FileClose(1)

End Sub

8. Сохранить проект.

9. Создать новую форму (Name - FormMenu, Text - Университет) командой меню Project команда Add Windows Form и разместить в ней управляющие элементы в соответствии с рис 3.3. Кнопке Создание присвоить имя cmdCr, кнопке Просмотр – cmdLst.

10. Сделать форму главной, открывающейся первой после запуска приложения. Для этого в окне проекта выбрать строку проекта и из контекстного меню выбрать команду Properties. В диалоговом окне в категории Application выбрать из списка Startup Form значение FormMenu.

11. Связать с событием Click кнопки cmdCr процедуру открытия формы FormStudent:

 

Private Sub cmdCr_Click(ByVal sender As System.Object,_

ByVal e As System.EventArgs) Handles cmdCr.Click

Dim form1 As FormStudent = New FormStudent

Form1.Show()

End Sub

 

12. Проверить работу приложения Университет по созданию файла Student.dat.

13. Создать новую форму (Name - FormStudLst, Text – Сведения о студентах) и разместить в ней следующие элементы управления, выбрав для них размеры и установив их положение в соответствии с рис. 3.3:

· поле txtFIO1 для вывода фамилии;

· поле txtAdr1 для вывода адреса студента;

· поле txtDr1 для вывода даты рождения;

· поле txtPol1 для вывода пола студента;

· поле txtNomSt1 для вывода номера зачетной книжки;

· поле txtNomGr1 для вывода номера группы;

· поле txtSp1 для вывода названия специальности;

· переключатель Check _1 для отображения вида обучения;

· кнопку CmdUp для вывода сведений о студенте из следующей записи файла;

· кнопку CmdDown для вывода сведений о студенте из предыдущей записи файла;

· надписи к полям: lblFIO1, lblAdr1, lblDr1, lblPol1, lblNomSt1, lblNomGr1, lblSp1.

14. С событием Load объекта FormStudLst Events связать следующую процедуру:

 

Private Sub FormStudLst_Load(ByVal sender As _

System.Object, ByVal e As System.EventArgs) Handles _

MyBase.Load

FileOpen(1, "Student.dat", OpenMode.Random, _

OpenAccess.Default, OpenShare.Default, Len(RecStud))

nRecStud = 1

ReadRecordStud()

End Sub

 

15. В модуль формы добавить процедуру ReadRecordStud: