End Sub. AdptContacts.Fill(dsContacts)

AdptContacts.Fill(dsContacts)

AdptContactTypes.Fill(dsContactTypes)

ByVal e As System.EventArgs) Handles MyBase.Load

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

Dim adptContacts As SqlDataAdapter

Dim adptContactTypes As SqlDataAdapter

Dim ContactMgmt As SqlConnection

Создание Web-формы для ввода данных AddContact

1. Добавьте к проекту новую Web-форму и назовите ее AddContact.aspx.

2. В окне Properties выберите объект DOCUMENT и задайте для свойства P ageLayou t значение FlowLayout.

3. Разместите на Web-форме элементы управления, перечисленные в следующей таблице, и задайте их свойства, как указано в этой таблице.

Элемент управления	Свойство	Значение
TextBox	ID	txtFirstName
TextBox	ID	txtLastName
TextBox	ID	txtAddress
	TextMode	MultiLine
TextBox	ID	txtCity
DropDownList	ID	drpStates
	DataSource	arrState
TextBox	ID	txtZIP
TextBox	ID	txtHomePhone
TextBox	ID	txtWorkPhone
TextBox	ID	txtNotes
DropDownList	ID	drpContactTypes
Button	ID	butAdd
	Text	Add
Button	ID	butCancel
	Text	Cancel
Literal	ID	litStatus
Hyperlink	Text	Вернуться на главную
	NavigateUrl	SwitchBoard.aspx

4. Введите подписи полей прямо на Web-форме, для перехода на новую строку используйте Enter.

5. Вызовите окно Code, дважды щелкнув Web-форму, и добавьте в начало модуля следующий оператор: Imports System.Data.SqlClient

6. Web-форма AddContact использует компоненты БД. созданные в файле Global.asax во время выполнения задания 2. Чтобы получить возможность применять эти компоненты в Web-форме, объявите переменные на уровне класса и получите ссылки на эти компоненты из переменных состояния, где они хранятся. Следующий код демонстрирует, как это делается:

Dim dsContacts As New dsContacts()

' Это открытые переменные для привязки данных.

Public dsContactTypes As New dsContactTypes()

Public arrState As String() = Московская", "Тульская", "Калужская", "Воронежская", _

"Ростовская", "Владимирская"}

' Получить объекты соединения и адаптера из переменной состояния Session.

ContactMgmt = Session("ContactMgmt")

adptContactTypes = Session("adptContactTypes")

adptContacts = Session("adptContacts")

' Заполните набор дачных ContactType.

' Заполните набор данных Contacts.

' Связать с данными списки drpContactTypes и drpState.

drpContactTypes.DataBind()

drpStates.DataBind()

7. Каждый контакт в таблице Contacts идентифицируется значением поля ContactlD. Это первичный ключ таблицы, следовательно, его значение должно быть уникальным для каждого контактного лица. Поэтому перед добавлением к набору данных Contacts сведений о контактном лице необходимо получить из БД новое уникальное значение ContactlD, для чего к классу Web-формы потребуется добавить следующую вспомогательную функцию (эта функция возвращает новое уникальное значение ContactlD):

Private Function GetNewContactID() As Integer

Dim cmdNewID As New SqlCommand("SELECT MAX(ContactID)" & _

" FROM Contacts", ContactMgmt)

' Открыть соединение с БД.

ContactMgmt.Open()

' Получить наибольшее значение ключа.

Дата добавления: 2014-12-27