通讯簿命令按钮

  • 项目

适用于：Access 2013、Office 2013

通讯簿应用程序包括以下命令按钮：

  • “查找”按钮，用于向数据库提交查询。

  • “清除”按钮，用于在开始新的搜索之前清除文本框中的内容。

  • “更新配置文件”按钮，用于保存对雇员记录所做的更改。

  • “取消更改”按钮，用于放弃更改。

“查找”按钮

Clicking the Find button activates the VBScript Find_OnClick Sub procedure, which builds and sends the SQL query. 单击此按钮可填充数据网格。

生成 SQL 查询

Find_OnClick 子过程的前一部分通过将文本字符串追加到全局 SQL SELECT 语句来生成 SQL 查询，一次一个词组。 它首先将变量设置为 SQL SELECT 语句，该语句从数据源表请求所有行数据。 然后，子过程对页面上的四个输入框逐一进行扫描。

由于程序在生成 SQL 语句时使用 单词，因此查询是子字符串搜索，而不是完全匹配。

例如，如果“ 姓氏 ”框包含条目“Berge”，而 “标题 ”框包含条目“Program Manager”，则 sql 语句 (值 ) 将如下所示：

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

如果查询成功，则姓氏中包含文本“高”（如“高”和“高阳”），且职务中包含“程序管理员”（如“高级技术程序管理员”）的所有人都将显示在 HTML 数据网格中。

准备和发送查询

Find_OnClick 子过程的后一部分包含两个语句。 第一个语句为 RDS.DataControl 对象的 SQL 属性赋值以动态生成 SQL 查询。 第二个语句导致 RDS。DataControl 对象 () 查询数据库，然后在网格中显示查询的新结果。

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

“更新配置文件”按钮

单击“ 更新配置文件” 按钮将激活执行 RDS 的 VBScript Update_OnClick Sub 过程。DataControl 对象的 () SubmitChanges 和 Refresh 方法。

 
Sub Update_OnClick 
 DC1.SubmitChanges 
 DC1.Refresh 
End Sub

当 DC1 时。SubmitChanges 执行后，远程数据服务会打包所有更新信息，并通过 HTTP 将其发送到服务器。 The update is all-or-nothing; if a part of the update is unsuccessful, none of the changes is made, and a status message is returned. executes, the Remote Data Service packages all the update information and sends it to the server via HTTP. The update is all-or-nothing; if a part of the update is unsuccessful, none of the changes is made, and a status message is returned. DC1。使用远程数据服务 进行 SubmitChanges 后，不需要刷新，但它可确保新数据。

“取消更改”按钮

单击“ 取消更改” 将激活执行 RDS 的 VBScript Cancel_OnClick Sub 过程。DataControl 对象的 ( CancelUpdate 方法。

 
Sub Cancel_OnClick 
 DC1.CancelUpdate 
End Sub

执行时，它会放弃自上次查询或更新以来用户对数据网格上的员工记录所做的任何编辑。 它还原原始值。