Кнопки команд адресной книги

Статья
06/02/2023

Приложение адресной книги содержит следующие кнопки:

Кнопка Найти для отправки запроса в базу данных.
Кнопка Очистить для очистки текстовых полей перед началом нового поиска.
Кнопка Обновить профиль для сохранения изменений в записи сотрудника.
Кнопка Отмена изменений для отмены изменений.

Важно!

Начиная с Windows 8 и Windows Server 2012 компоненты сервера RDS больше не включаются в операционную систему Windows (дополнительные сведения см. в Windows 8 и Windows Server 2012 совместимости). Клиентские компоненты RDS будут удалены в следующей версии Windows. Избегайте использования этого компонента в новых разработках и запланируйте изменение существующих приложений, в которых он применяется. Приложения, использующие RDS, должны перейти на службу данных WCF.

Кнопка "Найти"

Нажатие кнопки Найти активирует процедуру VBScript Find_OnClick Sub, которая создает и отправляет SQL-запрос. При нажатии этой кнопки сетка данных заполняется.

Создание SQL-запроса

Первая часть процедуры Find_OnClick Sub создает SQL-запрос по одной фразе за раз, добавляя текстовые строки в глобальную инструкцию SQL SELECT. Она начинается с задания переменной myQuery инструкции SQL SELECT, которая запрашивает все строки данных из таблицы источника данных. Затем процедура Sub сканирует каждое из четырех полей ввода на странице.

Так как программа использует слово like при построении инструкций SQL, запросы выполняют поиск по подстрокам, а не точные совпадения.

Например, если поле Last Name содержит запись "Berge", а поле Title содержит запись "Program Manager", инструкция SQL (значение myQuery) будет вычитывать следующее:

Select FirstName, LastName, Title, Email, Building, Room, Phone from Employee where lastname like 'Berge%' and title like 'Program Manager%'

Если запрос выполнен успешно, в сетке данных HTML отображаются все пользователи с фамилией, содержащей текст "Berge" (например, Berge и Berger) и заголовок со словами "Руководитель программы" (например, "Руководитель программы", "Расширенные технологии").

Подготовка и отправка запроса

Последняя часть процедуры Find_OnClick Sub состоит из двух инструкций. Первая инструкция назначает свойство SQL службы удаленных рабочих служб. Объект DataControl , равный динамически созданному SQL-запросу. Вторая инструкция вызывает RDS. Объект DataControl (DC1) для запроса базы данных, а затем отображения новых результатов запроса в сетке.

Sub Find_OnClick  
   '...  
   DC1.SQL = myQuery  
   DC1.Refresh  
End Sub

Кнопка "Обновить профиль"

При нажатии кнопки Обновить профиль активируется процедура VBScript Update_OnClick Sub, которая выполняет RDS. Методы SubmitChanges и Refresh объекта DataControl (DC1).

Sub Update_OnClick  
   DC1.SubmitChanges  
   DC1.Refresh  
End Sub

При DC1.SubmitChanges выполнении удаленная служба данных упаковает все сведения об обновлении и отправляет их на сервер по протоколу HTTP. Обновление является "все или ничего"; Если часть обновления не выполнена, изменения не вносятся, и возвращается сообщение о состоянии. DC1.Refresh не требуется после отправки Изменений с удаленной службой данных, но он обеспечивает свежие данные.

Кнопка "Отмена изменений"

При нажатии кнопки Отмена изменений активируется процедура VBScript Cancel_OnClick Sub, которая выполняет RDS. Объект DataControl (DC1)метод CancelUpdate.

Sub Cancel_OnClick  
   DC1.CancelUpdate  
End Sub

При DC1.CancelUpdate выполнении он отменяет все изменения, внесенные пользователем в запись сотрудника в сетке данных с момента последнего запроса или обновления. Он восстанавливает исходные значения.

См. также:

Кнопки навигации адресной книги
Объект DataControl (служба удаленных рабочих столов)

Поделиться через