VBScript 初始化代碼

VBScript 初始化代碼

地址簿應用程序的 VBScript 節(jié)首先聲明變量 myQuery。該變量將包含由搜索字段文本動態(tài)建立并發(fā)送到數(shù)據(jù)庫的 SQL 查詢。然后，Find_OnClick 子過程設置該變量的值。

Dim myQuery

其余的初始化內(nèi)容被包含在 Load 子過程中。其中包括給數(shù)據(jù)網(wǎng)格添加標題。這樣的 WHERE 子句使記錄無法取出，從而只有列標題可以提供。請復制并粘貼該代碼到標記 SCRIPT 和 /SCRIPT 之間。

Sub Load

   Grid1.Caption = "Arcadia Bay Corporate Phone Directory"

   ' 僅用列名稱對數(shù)據(jù)網(wǎng)格進行初始化。

   SControl.SQL = "Select FirstName, LastName, Title, Email, " _

      & "Building, Room, Phone from Employee where 2 < 1"

   SControl.Refresh

End Sub