VBCOM基礎講座之類的測試

2019-11-18 17:54:36

字體：大中小

來源：轉載

供稿：網友

現在就來測試前面創建的類。

　　按F5運行程序；在彈出的屬性對話框中，選中"WaitforComponentstoStart"(啟動工程時等待創建部件)，然后按[OK]按鈕；
-align="right">->->->
　　這時，類就會被激活，其他程序就可使用它的功能。

　　再次運行VisualBasic另一個實例；

　　創建一個新的"StandardEXE"工程；

　　選擇"'
　　瀏覽對話框中可引用的列表項，可以發現一些額外的組件。

　　選中"Northwind"列表項；

　　Northwind就是前面創建的ActiveX工程。

　　單擊[OK]按鈕；

　　現在添加一些代碼來使用上述工程：

　　在Form1表單中添加一個命令按鈕；為命令按鈕添加下列代碼：

->　　DimTestAsCustomers
　　SetTest=NewCustomers
　　MsgBoxTest.CustomerID
　　SetTest=Nothing->

　　該代碼首先創建一個新的Customers對象，然后顯示CustomerID信息，最后將Test對象置為Nothing，并關閉它。

　　按F5鍵運行測試程序；

　　需要說明的是，當運行時出現"invalidreference"錯誤提示時，肯定哪些地方有問題。這時可按下面步驟重新來一次：

　　(1)在測試工程中去掉Northwind引用；

　　(2)重新啟動Northwind工程；

　　(3)在測試工程中添加Northwind引用，再運行！

　　單擊表單中的命令按鈕；

　　這時運行時可能需要幾秒鐘，畢竟還要做一些如數據庫連接等工作。但是，除了一開始的停留外，后面的調用就快得多了。程序將顯示包含"ALFKI"的消息對話框。

　　關閉測試程序。

　　現在，我們來看看程序背后究竟發生什么。

　　將插入符移動到MsgBoxTest.CustomerID這條語句上；按F9；

　　該語句顯示為紅色，用來標記一個斷點。當代碼運行時，它會停留在這里。按F8將單步運行此語句，并移動到下一句代碼上。

　　按F5再次運行測試程序；

　　單擊命令按鈕；

　　流程將停留在MsgBox這條命令上。

　　按F8，慢慢單步執行各條語句；

　　將會看到系統在兩個VisualBasic中來回切換，顯示出不同屬性的處理過程。

　　結束后，關閉測試程序。

　　下面再對前面的工程進行測試。這一次，我們不僅獲取CustomerID的值，而且還設置這個值。

　　將命令按鈕的代碼改為：

->　　DimTestAsCustomers
　　SetTest=NewCustomers
　　Test.CustomerID="KARLY"
　　Test.Update
　　MsgBoxTest.CustomerID
　　SetTest=Nothing->

　　該代碼首先設置"CustomerID"字段，然后更新記錄集，最后顯示出CustomerID屬性，其結果應該是設置的"KARLY"。

　　假如愿意，仍然可以按F9高亮顯示"Test.CustomerID="這條語句，然后按F8單步運行來查看其工作情況。

　　至此，我們已經成功地創建并測試一個簡單的基于數據庫的類。但是，還沒有對customerID的字符串長度作測試，如果其長度超過5個字符，看看會發生什么？

下一步，我們將擴充并改進這個數據庫類。

　　首先添加類的幾個特征：其他的屬性、一些方法甚至一兩個事件。其相應的代碼如下：

->　　DimWithEventsrsAsRecordset
　　PublicEventRecordsetMove()
　　PrivateSubClass_Initialize()
　　　Setrs=NewRecordset
　　　rs.ActiveConnection="Provider=Microsoft."&_"Jet.OLEDB.4.0;DataSource=C:/ProgramFiles/"&_"MicrosoftVisualStudio/VB98/Nwind.mdb;"&_"PersistSecurityInfo=False"
　　　rs.Open"select*fromcustomers",,adOpenKeyset,adLockOptimistic
　　EndSub

　　PrivateSubClass_Terminate()
　　　rs.Close
　　　Setrs=Nothing
　　EndSub

　　PublicPropertyGetCustomerID()AsString
　　　CustomerID=rs("CustomerID")
　　EndProperty

　　PublicPropertyLetCustomerID(NewValueAsString)
　　　'IfthelengthofNewValueisgreaterthanfive
　　　IfLen(NewValue)>5Then
　　　　'...thenraiseanerrortotheprogram
　　　　'usingthisclass,byrunning
　　　　'Err.RaisevbObjectError OurErrorNumber
　　　　Err.RaisevbObjectError 1,"CustomerID",_"CustomerIDcanonlybeuptofive"&_"characterslong!"

　　　Else
　　　　'...otherwise,changethefieldvalue
　　　　rs("CustomerID")=NewValue
　　　EndIf
　　EndProperty
　　PublicPropertyGetCompanyName()AsVariant
　　　CompanyName=rs("CompanyName")
　　EndProperty

　　PublicPropertyLetCompanyName(ByValNewValueAsVariant)
　　　rs("CompanyName")=NewValue
　　EndProperty

　　PublicPropertyGetContactName()AsVariant
　　　ContactName=rs("ContactName")
　　EndProperty

　　PublicPropertyLetContactName(ByValNewValueAsVariant)
　　　　rs("ContactName")=NewValue
　　EndProperty

　　PublicPropertyGetContactTitle()AsVariant
　　　ContactTitle=rs("ContactTitle")
　　EndProperty

　　PublicPropertyLetContactTitle(ByValNewValueAsVariant)
　　　rs("ContactTitle")=NewValue
　　EndProperty

　　PublicPropertyGetAddress()AsVariant
　　　Address=rs("Address")
　　EndProperty

　　PublicPropertyLetAddress(ByValNewValueAsVariant)
　　　rs("Address")=NewValue
　　EndProperty

　　PublicPropertyGetCity()AsVariant
　　　City=rs("City")
　　EndProperty

　　PublicPropertyLetCity(ByValNewValueAsVariant)
　　　rs("City")=NewValue
　　EndProperty

　　PublicPropertyGetRegion()AsVariant
　　　　Region=rs("Region")
　　EndProperty

　　PublicPropertyLetRegion(ByValNewValueAsVariant)
　　　rs("Region")=NewValue
　　EndProperty

　　PublicPropertyGetPostalCode()AsVariant
　　　PostalCode=rs("PostalCode")
　　EndProperty

　　PublicPropertyLetPostalCode(ByValNewValueAsVariant)
　　　rs("PostalCode")=NewValue
　　EndProperty

　　PublicPropertyGetCountry()AsVariant
　　　Country=rs("Country")
　　EndProperty

　　PublicPropertyLetCountry(ByValNewValueAsVariant)
　　　rs("Country")=NewValue
　　EndProperty

　　PublicPropertyGetPhone()AsVariant
　　Phone=rs("Phone")
　　EndProperty

　　PublicPropertyLetPhone(ByValNewValueAsVariant)
　　　rs("Phone")=NewValue
　　EndProperty

　　PublicPropertyGetFax()AsVariant
　　　Fax=rs("Fax")
　　EndProperty

　　PublicPropertyLetFax(ByValNewValueAsVariant)
　　　rs("Fax")=NewValue
　　EndProperty

　　PublicSubAddNew()
　　　rs.AddNew
　　EndSub

　　PublicSubUpdate()
　　　rs.Update
　　EndSub

　　PublicSubCancelUpdate()
　　　Ifrs.EditMode=adEditInProgressOr_rs.EditMode=adEditAddThen
　　　　rs.CancelUpdate
　　　EndIf
　　EndSub
　　PublicSubMoveNext()
　　　rs.MoveNext
　　EndSub

　　PublicSubMovePrevious()
　　　rs.MovePrevious
　　EndSub

　　PublicSubMoveFirst()
　　　rs.MoveFirst
　　EndSub

　　PublicSubMoveLast()
　　　rs.MoveLast
　　EndSub

　　PublicFunctionFindByCustomerID(CustomerIDAsString)AsBoolean
　　　'UsestheFindmethodtolocatecustomers
　　　'withamatchingCustomerID.
　　　'ReturnsTruevalueiscustomer(s)found
　　　DimvarBookmarkAsVariant
　　　rs.MoveFirst
　　　rs.Find("CustomerID='"&CustomerID&"'")
　　　Ifrs.EOF=TrueThen
　　　　　FindByCustomerID=False
　　　　　rs.Bookmark=varBookmark
　　　Else
　　　　　FindByCustomerID=True
　　　EndIf
　　EndFunction

　　PublicPropertyGetEOF()AsBoolean
　　'Exampleofaread-onlyproperty
　　NoPropertyLetshere
　　EOF=rs.EOF
　　EndProperty
　　PublicPropertyGetBOF()AsBoolean
　　　'Anotherexampleofaread-onlyproperty
　　　BOF=rs.BOF
　　EndProperty
　　PrivateSubrs_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,_
　　　　　　　ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,_
　　　　　　　ByValpRecordsetAsADODB.Recordset)

　　　'ReactstotherecordsetMoveComplete
　　　'method-raiseseventwitheachmove
　　　RaiseEventRecordsetMove
　　EndSub->

　　需要說明的是：迄今為止，我們僅僅是在一個類中添加代碼。當然，也可以選擇"Project"->"AddClass"菜單來向工程添加多個類，而且還可利用"collections"使這些類工作在一起。但是在這里，我們仍然想用一個類來處理一個數據表。

　　將上述類的代碼復制并粘貼到自己的類中，下一節將討論該程序的編譯。
->

上一篇：VBCOM基礎講座之添加屬性和方法

下一篇：VBCOM基礎講座之建立測試程序