?? mdhowabcombuttons.htm
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML dir=ltr>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=GB_2312-80">
<title>地址簿命令按鈕</title>
<style>@import url(msdn_ie4.css);</style>
</HEAD>
<BODY>
<h3><a name="mdhowabcombuttons"></a>地址簿命令按鈕</h3>
<p><a href="dir.htm">目錄</a></p>
<p>
地址簿應用程序包括下列命令按鈕：
<ul type=disc>
<li>
<a href="#mdhowfindbutton">“查找”</a>按鈕，用于向數據庫提交查詢。<br><br></li>
<li>
<a href="#mdhowclear">“清除”</a>按鈕，用于開始進行新搜索前清除文本框<br><br></li>
<li>
<a href="#mdhowupdateprofile">“更新配置文件”</a>按鈕，用于保存對雇員記錄的更改。<br><br></li>
<li>
<a href="#mdhowcancelchanges">“取消更改”</a>按鈕，用于放棄更改。 </li>
</ul><h4><a name="mdhowfindbutton"></a>“查找”按鈕</h4>
<p>
下列 HTML 語句定義“查找”按鈕。該 HTML 語句出現在程序的 VBScript 節之前。請將該控件復制并粘貼在 HTML 命令按鈕的注釋后面。</p>
<pre><INPUT TYPE=BUTTON NAME="Find" VALUE="Find"></pre><p class=label>
<b><a name="mdhowfindonclick"></a>Find_OnClick 子過程</b></p>
<p>
單擊“查找”按鈕可激活<b> </b>VBScript Find_OnClick 子過程，該過程建立并發送 SQL 查詢。在工程完成之后，請單擊該按鈕填充數據網格。</p>
<p>
<b>建立 SQL 查詢</b></p>
<p>
Find_OnClick 子過程的第一部分建立 SQL 查詢（一次一個短語），方法是向全局 SQL SELECT 語句追加文本字符串。該字符串以設置變量 myQuery 為 SQL SELECT 語句開始，SQL SELECT 從數據源表中請求所有數據行。請將此代碼復制并粘貼到打開 SCRIPT 標記的后面。</p>
<pre>Sub Find_OnClickmyQuery = "Select FirstName, LastName, Title, Type, Email, " _
& "ManagerEmail, Building, Room, Phone from Employee"
</pre>
<p>
然后，子過程掃描地址簿的四個<a href="mdhowabtextboxes.htm">輸入框</a>。請復制并粘貼該代碼到“查找”子程序中。</p>
<pre> If (SFirst.Value <> "") Then
myQuery = myQuery + " where FirstName like '" + SFirst.Value + "%'"
End If IF (SLast.Value <> "") Then
myQuery = myQuery + " where LastName like '" + SLast.Value + "%'"
End If If (STitle.Value <> "") Then
myQuery = myQuery + " where Title like '" + STitle.Value + "%'"
End If If (SEmail.Value <> "") Then
myQuery = myQuery + " where Email like '" + SEmail.Value + "%'"
End If
</pre>
<p>
每個“If”語句檢查相應的文本框中的內容。如果文本框包含文本，則執行“Then”語句，將引號內的文本追加到包含在變量 myQuery 中的全局 SELECT 語句。由于程序在建立 SQL 語句時使用單詞“like”，查詢將采用子字符串搜索，而不是完全匹配。</p>
<p>
例如，如果“姓”框包含條目“Berge”并且“標題”框包含條目“程序管理員”，則 SQL 語句（myQuery 的值）將讀?。?lt;/p>
<pre>Select FirstName, LastName, Title, Email, Building, Room, Phone from Employee where lastname like 'Berge%' and title like 'Program Manager%'
</pre>
<p>
如查詢成功，則所有姓中包含“Berge”的人（如<b> </b>Berge 和 Berger），以及職務包含“程序管理員”的人（例如，“程序管理員”，“高級技術”）都被顯示在<a href="mdhowabdatagrid.htm">數據網格</a>中。</p>
<p>
<b>準備和發送查詢</b></p>
<p class=label>
</p>
<p>
子過程 Find_OnClick 的最后部分包含兩個語句。第一個語句將 <a href="mdprosqlprop.htm">SQL</a> 對象的 <a href="mdobjdatacontrol.htm">RDS.DataControl</a> 查詢屬性賦給動態建立的<b> </b>SQL 查詢。第二個語句使<b> RDS.DataControl </b>對象<b> </b>(SControl)<b> </b>查詢數據庫，然后顯示網格中查詢的新結果。請復制并粘貼該代碼到查找子程序中。</p>
<pre> SControl.SQL = myQuery
SControl.Refresh
End Sub
</pre><h4><a name="mdhowclear"></a>“清除”按鈕</h4>
<p>
下列 HTML 語句定義“清除”按鈕。該 HTML 語句出現在程序的 VBScript 節之前。請復制并粘貼該代碼到 Find HTML 按鈕之后。</p>
<pre><INPUT TYPE=BUTTON NAME="Clear" VALUE="Clear">
</pre>
<p>
標記<b> </b>INPUT 定義如按鈕，選項按鈕，復選框，或文本之類的元素。使用 TYPE<b> </b>參數可指定元素，在這里即是按鈕。參數 NAME 定義按鈕在代碼中被調用的內容。參數 VALUE<b> </b>指定與顯示在網頁中的按鈕 (Clear) 相關聯的標簽。</p><p class=label>
<b><a name="mdhowclearonclick"></a>Clear_OnClick 子過程</b></p>
<p>
單擊 Clear 按鈕可激活 VBScript Clear_OnClick 子過程。請復制并粘貼該代碼到標記 SCRIPT 和 /SCRIPT 之間。</p>
<pre>Sub Clear_OnClick
SFirst.Value=""
SLast.Value=""
STitle.Value=""
SEmail.Value=""
End Sub
</pre>
<p>
執行子過程時，通過 ID 標記的參數<b> </b>NAME<b> </b>標識的四個<a href="mdhowabtextboxes.htm">輸入框</a>, 都被初始化。屬性 .Value 指示顯示在 Web 頁中的文本框對象的字符。該過程用 0 長度串 ("") 替換所有文本，為新的查找做準備。</p><h4><a name="mdhowupdateprofile"></a>“更新配置文件”按鈕</h4>
<p>
下列代碼定義“更新配置文件”按鈕。該 HTML 語句出現在程序的 VBScript 節之前。請復制并粘貼該 HTML 控件在“清除”按鈕之后。</p>
<pre><INPUT TYPE=BUTTON NAME="Update" VALUE="Update Profile">
</pre>
<p class=label>
標記 INPUT 定義如按鈕，選項按鈕，復選框或文本之類的元素。參數<b> NAME </b>定義代碼中按鈕被調用的內容。參數 TYPE 指定窗體元素的類型 — 在這里即是按鈕。參數 <b>VALUE</b> 指定與按鈕（“更新配置文件”）關聯的標簽。</p><p class=label>
<b><a name="mdhowupdateonclick"></a>Update_OnClick 子過程</b></p>
<p>
單擊“更新配置文件”按鈕可激活 VBScript Update_OnClick 子過程，該子過程執行 <a href="mdobjdatacontrol.htm">RDS.DataControl</a> 對象 (SControl) 的 <a href="mdmthsubchanges.htm">SubmitChanges</a> 和 <a href="mdmthrdsrefresh.htm">Refresh</a> 方法。請復制并粘貼該代碼到標記 SCRIPT 和 /SCRIPT 之間。</p>
<pre>Sub Update_OnClick
SControl.SubmitChanges
SControl.Refresh
End Sub
</pre>
<p>
執行 SControl.SubmitChanges 時，程序將所有更新信息打包，通過 HTTP 發送到服務器。更新要么全部更新要么不更新。如果部分更新不成功，將不做任何變更，并返回狀態信息。在遠程數據服務中，SControl.Refresh 不一定必需跟在 <b>SubmitChanges </b>的后面，但這樣可確保數據得以刷新。</p><h4><a name="mdhowcancelchanges"></a>“取消更改”按鈕</h4>
<p>
下列代碼定義“取消更改”按鈕。該 HTML 語句出現在程序的 VBScript 節之前。請復制并粘貼該 HTML 控件到“更新”按鈕之后。</p>
<pre><INPUT TYPE=BUTTON NAME="Cancel" VALUE="Cancel Changes">
</pre><p class=label>
<b><a name="mdhowcancelonclick"></a>Cancel_OnClick 子過程</b></p>
<p>
單擊“取消更改”可激活 VBScript Cancel_OnClick 子過程，執行 <b>RDS.DataContro</b>l 對象 (SControl) 的 <a href="mdmthrdscanupd.htm">CancelUpdate</a> 方法。請復制并粘貼該代碼到標記 SCRIPT 和 /SCRIPT 之間。</p>
<pre>Sub Cancel_OnClick
SControl.CancelUpdate
End Sub
</pre>
<p>
執行 SControl.CancelUpdate 時，它將放棄自從上一次查詢或更新以來用戶對<a href="mdhowabdatagrid.htm">數據網格</a>上雇員記錄所作的任何編輯。由此恢復初始值。 </p>
<center> <A HREF="http://www.51windows.Net">www.51windows.Net</A></center>
<SCRIPT LANGUAGE="JavaScript" src="/log/sitelog2.asp"></SCRIPT>
<script src="script.js"></script></BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -