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

Статья
07/04/2024

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

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

Внимание

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

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

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

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

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

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

Например, если поле "Фамилия" содержит запись "Berge" и поле "Заголовок " содержит запись "Program Manager", инструкция SQL (значение myQuery) будет прочитана:

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

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

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

Последняя часть процедуры Find_OnClick Sub состоит из двух операторов. Первая инструкция назначает свойство SQL RDS. Объект 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 не требуется после отправкиChanges с удаленной службой данных, но обеспечивает свежие данные.

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

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

Sub Cancel_OnClick  
   DC1.CancelUpdate  
End Sub

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

См. также

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

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