Просмотр файла базы данных
Для просмотра файла базы данных с использованием формы frmInputEdit необходимо в форме frmMenu написать процедуру обработки события выбора команды меню «Просмотр Форма», которая содержит вызов пользовательской процедуры View_Form, принадлежащей форме frmInputEdit: При просмотре данных в виде формы экранная форма содержит данные одной записи файла базы данных. Но иногда необходимо иметь… Читать ещё >
Просмотр файла базы данных (реферат, курсовая, диплом, контрольная)
Файл базы данных можно просмотреть, используя форму frmInputEdit. Для этого необходимо написать еще одну пользовательскую процедуру для данной формы (не забудьте для этого перейти в окно кода формы frmInputEdit). Это процедура с именем View_Form, которая должна загрузить данные и вывести первую запись в уже известном нам виде на форме frmInputEdit. Ниже приведен код этой процедуры.
Public Sub view_form ().
Dim R As TStud = New TStud ().
' загрузка формы frmInputEdit.
frmMenu.Enabled = False.
Me.Enabled = True.
Me.Show ().
' загрузка Файла-справочника по специальности, выполнение.
' пользовательской процедуры.
Call LoadSprav ().
' определение количества записей в основном файле базы.
N = f1. Length R.len.
' если записей нет, то вызов процедуры для заполнения.
' новой записи.
If N = 0 Then.
Call ShowNewZap ().
cmdAdd.Enabled = True.
Else.
' иначе производится загрузка и вывод первой записи.
Pos = 1.
vscrZap.Value = Pos.
Call ShowZap (Pos).
' кнопки перемещения по записям становятся активными.
cmdTop.Enabled = True.
cmdBottom.Enabled = True.
cmdForward.Enabled = True.
cmdBackUp.Enabled = True.
' кнопки «Изменить» и «Обновить» становятся активными.
cmdEdit.Enabled = True.
cmdPack.Enabled = True.
' кнопка «Добавить» становится неактивной.
cmdAdd.Enabled = False.
' фокус передается на кнопку «Выход».
cmdExit.Focus ().
End If.
End Sub.
В данной процедуре открытый файл проверяется на пустоту и если он пуст (т.е. файл существует, но в нем нет ни одной записи данных), то вызывается процедура создания нового файла-базы данных (процедура ShowNewZap). Если файл не является пустым, то вызывается процедура ShowZap для вывода в форму первой записи, а так же делаются активными кнопки, позволяющие перемещаться по записям базы данных.
Для просмотра файла базы данных с использованием формы frmInputEdit необходимо в форме frmMenu написать процедуру обработки события выбора команды меню «Просмотр Форма», которая содержит вызов пользовательской процедуры View_Form, принадлежащей форме frmInputEdit:
Private Sub mnuViewFormItem_Click (ByVal sender As _.
System.Object, ByVal e As System. EventArgs) _.
Handles mnuViewFormItem.Click.
` вызов процедуры загрузки формы.
frmInputEdit.View_Form.
End Sub.
При просмотре данных в виде формы экранная форма содержит данные одной записи файла базы данных. Но иногда необходимо иметь возможность просмотреть данные файла в виде таблицы, в столбцах которой выводятся значения полей записей файла.
Для вывода данных в виде таблицы добавим в проект еще одну форму, дадим этой форме имя frmTableReadOnly и поместим на нее элемент для отображения данных в виде таблицы (DataGridView), переименуем этот элемент, задав его имя, GridView1.
Процедура обработки события выбора пункта меню «Просмотр Таблица» имеет вид:
Private Sub mnuViewTableItem_Click (ByVal sender As _.
System.Object, ByVal e As System. EventArgs) _.
Handles mnuViewTableItem.Click.
Dim i As Integer.
Dim j As Integer.
Dim R As TStud = New TStud ().
Dim sp As TSpec = New TSpec ().
With frmTableReadOnly. GridView1.
' установка количества строк таблицы и ширины столбцов.
.ColumnCount = 12.
' запись названий столбцов в таблицу.
.Columns (0).Name = «Номер» .
.Columns (1).Name = «Курс» .
.Columns (2).Name = «Группа» .
.Columns (3).Name = «Специальность» .
.Columns (4).Name = «ФИО» .
.Columns (5).Name = «Пол» .
.Columns (6).Name = «Кол-во оценок» .
For j = 1 To 5.
.Columns (j + 6).Name = «Оц.№ «+ CStr (j).
Next j.
' чтение очередной записи и загрузка ее полей.
' в таблицу.
For i = 1 To N.
R.ReadFromFile (f1, Ind (i)).
' чтение специальности по ее коду.
j = frmInputEdit. FindSpecIndex (R.Spec).
sp.ReadFromFile (F1_sp, j).
' загрузка новой строки в таблицу.
Dim row As String () = New String () _.
{CStr (i), R. Kurs, R. Group, _.
Trim (sp.Number) + «- «+ Trim (sp.Name), Trim (R.FIO), _.
R.Pol, R. Kol, R. M (0), R. M (1), R. M (2), R. M (3), R. M (4)}.
.Rows.Add (row).
Next i.
End With.
' изменение заголовка формы.
frmTableReadOnly.Text = «Просмотр файла: «+ Decl.Path.
' загрузка формы frmTableReadOnly.
frmTableReadOnly.Show ().
End Sub.
На этом месте рекомендуется протестировать создаваемый проект. Особое внимание следует уделить корректности чтения записей из файла и вывода их в таблицу и элементы формы.