Catch ex As Exception

AdptCalls.Update(dsCalls)

Try

DsCalls.Calls.AddCallsRow(rowNew)

Dim rowNew As dsCalls.CallsRow

ByVal e As System.EventArgs) Handles butOKAdd.Click

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

End Sub

End If

Else

Dim intID As Integer

End Sub

ByVal e As System.EventArgs) Handles butAddCall.Click

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

End Sub

' Задать исходные значения даты и времени.

txtDate.Text = Now.ToShortDateString()

txtTime.Text = Now.ToShortTimeString()

' Сделать панель для добавления звонков видимой.

pnlAdd.Visible = True

' Деактивировзть кнопки и раскрывающийся список.

butView.Enabled = False

butAddCall.Enabled = False

drpContacts.Enabled = False

11. Добавьте вспомогательную функцию, которая получает новое значение CalllD. Поскольку поле CalllD является первичным ключом в таблице Calls, его значение должно быть уникальным внутри БД:

' Эта функция возвращает новое уникальное значение CalllD.

Private Function GetCallID() As Integer

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

" FROM Calls", ContactMgmt)

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

ContactMgmt.Open()

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

' Проверить, существует ли запись

If Not (cmdNewID.ExecuteScalar() Is DBNull.Value) Then

' Получить наибольшее число...

intID = CInt(cmdNewID.ExecuteScalar())

'...или присвоить intID значение О.

intID = 0

' Закрыть соединение.

ContactMgmt.Close()

' Вернуть новое значение ключа (оно будет на единицу больше прежнего).

Return intID + 1

12. Добавьте к обработчикам событий кнопок ОК и Cancel код, показанный ниже. Он очень похож на обработчики событий, использованные для добавления (или отмены добавления) записей в таблицу Contacts (см. предыдущее задание).

rowNew = dsCalls.Calls.NewCallsRow

rowNew.ContactID = drpContacts.SelectedItem.Value

rowNew.CallID = GetCallID()

rowNew.CallDate = txtDate.Text

rowNew.CallTime = txtDate.Text & " " & txtTime.Text

rowNew.Subject = txtSubject.Text

rowNew.Notes = txtNotes.Text

' Добавить строку к набору данных со сведениями о звонках.

' Скрыть панель добавления звонков.

pnlAdd.Visible = False

' Очистить поля.

txtSubject.Text = ""

txtNotes.Text = ""

' Активировать другие элементы управления.

butView.Enabled = True

butAddCall.Enabled = True

drpContacts.Enabled = True

' Отобразить сообщение об ошибке.

litError.Text = "Во время исполнения произошла ошибка" & _

"the call:<br>" & _

ex.Message & "<br>" & _

"Исправте ошибку и повторите попытку" & _

"< br>"

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