Использование средств Visual Basic .NET в создании информационных систем - 53 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

53
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

Страницы