程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB6 >> 在VBScript中使用類(一)

在VBScript中使用類(一)

編輯:VB6

前言

首先,在我進入實質性主題並解釋如何建立類之前,我希望保證你知道“對象”。雖然你可以在程序中使用對象而不用知道其正確的規則,但我並不建議如此!對於對象的初學者,接下來的部分將讓你了解其概念及內容。已經了解面向對象編程(OOP)的讀者可以跳過這章節。

導論

l “對象是什麼?”——對象通常代表某種實體,主要是一個變量和函數的集合。

l “實體是什麼?”——字面上說,實體是一個“事物”,我的意思是一個概念或者任何一個物體。例如,一輛汽車是一個實體,因為它是一個物體。你公司銷售部門銷售產品也是一個實體,當然,你也可以將其拆開來看,銷售人員、客戶、產品等都是實體。

讓我們更深入的來看“銷售”這個實體(對象)。為了使你更准確地有一個銷售的“映像”,你需要知道客戶買了什麼,是哪個客戶,誰是銷售人員等等……這看來是一個簡單的事件,但假設所有信息是存儲在單獨的數據庫表中的,那麼當你需要獲得某個銷售過程所有相關信息時,你必須在你的數據庫中做多次獨立查詢,再將所有的數據集攏。有沒有更簡便的辦法而一次獲得銷售的所有信息呢?“對象”。

在對象中,你可以植入代碼以從其他表中獲得數據,你也可以保存對象屬性的所有信息,這樣,你可以輕松地使用代碼管理你的銷售數據。例如:

'Open the database connection
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "MyDSN"

'Create the recordset object
Set objRS = Server.CreateObject("ADODB.Recordset")

'Define the SQL query
strComplexSQLQuery = "SELECT C.Name, S.Name FROM Customers C, " & _
"Salespeople S, Sales Sl WHERE Sl.CustomerID=C.ID AND " & _
"Sl.SalespersonID=S.ID AND Sl.ID=" & strIDOfThisSale & ";"

'Open the recordset
objRS.Open strComplexSQLQuery, objConn, adOpenForwardOnly, _
adLockReadOnly, adCmdText

'Take the customer and sales person names from the recordset
strCustomerName = objRS(0)
strSalesPersonName = objRS(1)

'Tidy up the objects
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing

'Output the data
Response.Write "This sale was made by " & strSalesPersonName & _
" to " & strCustomerName

可以使用“對象”來替代:

'Create the "Sale" object
Set objSale = New Sale

'Lookup the correct sale
objSale.ID = strIDOfThisSale

'Output the data
Response.Write "This sale was made by " & objSale.SalesPersonName & _
" to " & objSale.CustomerName

'Tidy up the objects
objSale.Close
Set objSale = Nothing
如果你使用“Sale”對象做比打印更多的事,可以讓你省去很多的打字時間。

計算中,對象包括“屬性”和“方法”。屬性主要是儲存在對象中的一個變量,其用法與變量相同。唯一的區別在於參數賦值為:strMyVar = "This is a string variant", 而對象屬性為 objObject.Property="This is a string variant"。這點非常簡單而有用處。方法可以理解為植入對象中的函數與過程,可以使用strMyVar = objObject.MethodName(strMyVar)來代替strMyVar =FunctionName(strMyVar)。寫法不同,但功能相同。屬性的一個例子是對象Response中的ExpireAbsolute,Response.ExpiresAbsolute = CDate("1 September 1999")。方法的一個例子是對象Response中的Write方法,Response.Write "Hello world!"。

VBScript的一個新特性就是其可以創建新的對象而不需要求諸於花銷時間都極大的編譯器。我將向讀者展示如何創建對象的類,並希望提供一個良好的開端.

如果有問題歡迎在http://www.showc.com中提出

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved