Chương : Xử dụng Class Module Class Module ? Là tổng hợp phận ứng dụng bạn Gọi tắt COM ( Component Object Model ) Phương pháp viết chương trình đại xử dụng components, chế ứng dụng bạn Như biết : Hệ thống viễn thơng ngày phát triển đóng vai trò quan trọng đời sống hàng ngày người giới Và hệ thống viễn thông, đại đa số, họ xử dụng COM components Do đó, việc viết chương trình ứng dụng, bạn thiếu COM components Ứng dụng bạn, tách thành cấu (components) dể dàng việc phát triển (developement) giử gìn Sau đây, chúng tơi giải thích làm sau việc xử dụng Class Module hữu ích Chương _ Phần 1_ Ðoạn : Xử dụng object components COM components, phận mang lấy chức định ứng dụng Chính ứng dụng, có code, methodes, functions hốn chuyển thành dll, bas, , từ đó, xử dụng COM Dưới hình ảnh cho thấy bạn tạo thành component lúc tạo thành instances lúc run time Khi bạn có Components rồi, bạn lấy từ dự án bạn dự án xử dụng hết Chương 3_Phần 1_Ðoạn : Những lợi ích xử dụng Components *Xử dụng nhiều lần : Khi bạn tạo thành cho phận ứng dụng (component) phận xử dụng nhiều lần Hoặc ứng dụng bạn form khác chẳng hạn Hay người nhóm phát triển ứng dụng xử dụng component Chỉ cần bạn bỏ phận kho nhu liệu bạn xử dụng lúc Với Object browser, bạn gọi component xử dụng nhiều lần *Làm giảm bớt phức tạp : Những người làm việc nhóm với bạn không nhiều thời gian công sức tìm hiểu chức phận phương trình ứng dụng *Dể dàng việc sửa đổi : Khi cần thay đổi phương trình ứng dụng, bạn không cần phải tốn nhiều thời gian tránh nhiều bugs nâng cấp ứng dụng Chương 3_Phần 1_Ðoạn : Windows Distributed InterNet Applications Architecture Windows Distributed InterNet Architecture gọi tắt Windows DNA, hệ thống giúp cho hệ thống viển thông trao đổi thơng tin dể dàng Nó dựa gia đình Windows (95, 98, NT, 2000 ) cộng với components thiết lập từ bên hay bên mà trao đổi lượng thông tin giửa Client, Server, users, application Một ứng dụng nhiều người xử dụng đến tương lai Web Application Và Web Application thiếu Windows DNA Windows DNA cấu tạo công thức sau : Integrated Storage > Business Processes > User Interface and Navigation Từ đó, bạn thấy COM giử vai trò quan trọng hệ thống viễn thông đại Chương 3_Phần 1_Ðoạn : Class Module ? Các bạn muốn có COM component ứng dụng mình, chuyện bạn phải có class module ứng dụng bạn trước Rối sau đó, bạn xử dụng phận COM suốt q trình hồn chỉnh ứng dụng hay cho vay mượn tùy theo yêu cầu chương trình Class Module, đơn giản loại Visual Basic code module Ðược viết dạng *.cls tương tợ *.bas , Khác biệt chổ Class Module bao gồm chức (funtion) mà chức xử dụng form khác ứng dụng Mỗi class module ứng cho phận ứng dụng bạn có vài thể loại class module ứng dụng Ðể xử dụng class module, bạn phải làm cho instance, sau thơng qua instance đó, mà properties, methods, events để hồn thành class cho ứng dụng Thí dụ điển hình vầy : Muốn có Employee class mà có properties : Lastname, Firstname Method hired Bạn phải làm instance cho Employee object Rồi sau đó, muốn tìm chi tiết nhân viên đâu ứng dụng, cần xử dụng Employee class module mà Chương 3_Phần 2_Ðoạn : Xử dụng Class Builder Ðể dể dàng cho việc tạo thành Class, Visual Basic có cơng cụ gọi Class Builder Nó tự động làm cho bạn số việc chuyện bạn điền vào chi tiết mà Ðây công cụ để tạo thành Class : Theo bước sau đây, bạn có Class Builder ứng dụng : Trên Add_Ins menu, bấm Add-In Manager Chọn VB Class Builder Utilitytrong danh sách sẳn có Dưới Load Behavior, chọn Loaded/Unloaded, bấm OK Theo bước sau đây, bạn thêm class vào ứng dụng : Trên Add-Ins menu, bấm Class Buider Utility Trong Class Builder, bấm File menu, New chọn Class Trong Class Module Builder, thêm vào chi tiết Ðiền chi tiết cần thiết vào phần Attributes help file có Sau phần mà Class Builder bao gồm : Property Builder Method Builder Event Builder Attributes Chương 3_Phần 2_Ðoạn : Class Module Events Ðể tạo dể dàng cho bạn viết ứng dụng, Visual Basic viết sẳn cho bạn events Ðó initialize terminate Initialize event : Nhất định bạn phải kiểm soát nhu liệu hay tài liệu cần thiết cho ứng dụng mình, đó, initialize event event phải xử dụng Sau hàng code : Private Sub Class_Initialize () 'Initialize Data iDept = End Sub Terminate event : Dùng để chấm dứt công việc Sau hàng code Private Sub Class_Terminate() 'Any termination code End Sub Và dỉ nhiên bạn thêm vào nhiều event tùy theo yêu cầu người xử dụng Chương 3_Phần 2_Ðoạn : Adding Component information and Help Vì có nhiều classes ứng dụng, để dể dàng việc xử dụng, cần phải thêm vào chi tiết nói chức class Và mủi chuột đến đâu lời giải thích chức Theo bước sau bạn thêm vào lời giải thích : Mở project có class mà bạn xử dụng Mở code window class module Trên Tools menu, bấm Procedure Attributes Ðiền vào ô trống Description Help context ID Một cách khác : Trên Project menu, bấm project properties Ðiền vào tên Help file, bấm OK Nhìn vào hình ảnh đây, thấy để điền thêm chi tiết vào phận Class Chương _Phần 2_Ðoạn : Xử dụng Object Browser Ðể nhận xét cách tổng quát class ứng dụng, xử dụng Oject Browser Object Browser Visual Basic cơng cụ dùng để nhìn xem properties, methods, events chứa đựng class Trên View menu, bấm Object Browser, bạn có Object Browser Theo bước trên, bạn có : Có danh sách cho thấy project có classes? Trong class có members ? Và Object Browser cho nhìn biết phận tron ứng dụng dể dàng Chương _Phần _Ðoạn : Tạo thành Property Property xác định nhu liệu hay chức class Thí dụ class Employee có properties FirstName, LastName, HireDate…Các bạn xác định property ứng dụng cách : Xử dụng Public Variables : Các bạn không cần phải viết code property hình thành, bạn cần xác định Public variable để giử nhu liệu mà thơi Thí dụ sau Public FirstName As String Xử dụng Property Procedure : Dùng cách bạn muốn viết code hình thành property Với property procedure, bạn làm việc sau :   Tiến hành procedure dử kiện property xác định Làm cho property có chức định giao trả nhu liệu giới hạn  Khơng cho phép property thay đổi Property procedure có phần : Set, Let, Get Khi hình thành property procedure, bạn xác định theo cặp, thí dụ : Set Get, Let Get Bởi lý giản dị property set hay let phải tiến hành trước, sau đó, procedure get cung cấp nhu liệu mà procedure Set hay Let xác định Như thí dụ điển hình sau : Public Property Let FirstName(passedName As String) mvarFirstName = Ucase(passedName) End Property Public Property Get FirstName() As String FirstName = mvarFirstName End Property Xử dụng default Property : Theo bước sau bạn xác định default property Mở class mà có chứa đựng property Trên Tools menu, chọn Procedure Attributes Trong khung ảnh Procedure Attributes, bấm nút Advanced Trong danh sách property, chọn lấy property mà bạn muốn trở thành default Trong danh sách Procedure ID, chọn Default bấm nút OK Các bạn thấy hình ảnh procedure attributes sau Chương 3_Phần 3_Ðoạn : Tạo thành Methods Methods đại diện cho chức ứng dụng bạn mà class bao gồm Thí dụ class Employee có methods Hire PayIncrease Ðể tạo thành method cho phận ứng dụng, bạn cần tạo thành Public Sub Function procedure class module Sau thí dụ để tạo thành method thêm kiện vào kho nhu liệu : Public Function Hire() As Boolean ‘ add employee record to database here MsgBox “Employee was added to the Database” ‘ if successful Hire = True End Sub Sau thí dụ để tạo thành method tăng lương cho nhân viên : Public Function PayIncrease (dPercent As Double) As Integer mvarSalary = mvarSalary * (1 + dPercent) End Function Chương 3_Phần 3_Ðoạn : Xử dụng Named Constants Khi bạn xử dụng cách thay (variables) suốt trình ứng dụng tiến hành, variables giao trả cho bạn nhiều nhu liệu chứa Database (Kho nhu liệu) Nhưng với Named Constants (thay cách đặt tên), bạn có lợi điểm Named Constant giao trả nhu liệu định mà thơi Thí dụ trường hợp phải xài nút Yes No cho lựa chọn, bạn cần xài Named Constant vbYesNo mà Tạo thành Named Constants : Ðơn giản xử dụng variable Sau thí dụ để có Named Constant tên JobLevel Public Enum JobLevel jExecutive = jManagement = jStaff = End Enum Với Named Constant này, bạn thêm method vào class module Như method xem cấp bậc việc làm nhân viên sau : Public Sub CheckExecutiveStatus(iLevel As JobLevel) If iLevel = jExecutive Then MsgBox “Executive Level Status Approved” Else MsgBox “Executive Status Denied” End If End Sub Xử dụng Enumerations (cách xếp thứ tự số) Property value : Các bạn có Named Constant, bạn biết property value theo cặp Set Get Let Get Thì để xác định giao trả dử kiện định cho class module mình, phương pháp hữu hiệu xử dụng Enumerations Property value Thí dụ bạn xáx định property có tên ActiveJobLevel theo bước sau : Private mvarJobLevel As JobLevel Public Property Let ActiveJobLevel (jl As JobLevel) mvarJobLevel = jl End Property Public Property Get ActiveJobLevel () As JobLevel ActiveJobLevel = mvarJobLevel End Property Chương 3_Phần 3_Ðoạn : Thêm Events vào Class Module Trước biết Visual Basic có sẳn events Initialize Terminate Và thêm events vào class tùy theo u cầu Thí dụ có component gọi COrder Chúng ta dựng nên event gọi Status COrder tiến hành Theo bước sau đây, thêm events vào class : Declare the event (Nhận định the event) Raise the event (Dựng lên the event) Nhận định event : Xử dụng keyword Event để nhận định Chẳng hạn : Public Event Status(ByVal StatusText As String) Dựng lên event : Xử dụng RaiseEvent statement để dựng lên event Chẳng hạn : Public Sub SubmitOrder() ‘code to submit an order goes here RaiseEvent Status (“Checking Credit ”) ‘code to check the credit goes here RaiseEvent Status (“Processing Order ”) ‘code to process an order goes here End Sub Những liên hệ khác với component : Khi nhận định Event, xử dụng ByVal (by value) hay ByRef (by reference) Do tùy theo trường hợp nhận định event mà dựng event lên Nếu ByRef, phải để class trao đổi nhu liệu event tiến hành Chẳng hạn thí dụ sau : Dim iLimit As Integer iLimit = 400 ‘raise the event to be handled by the client RaiseEvent LimitChanged(iLimit) ‘now check to see if the client changed the limit If iLimit 400 Then ‘client did not accept the new limit End If Chương 3_Phần 3_Ðoạn : Dựng Errors cho class Như biết, không tránh khỏi bugs tron ứng dụng, phải dựng nên hay nhiều phận quản lý Errors ứng dụng Ðể dựng nên phận quản lý Errors, theo công thức sau : ERR.Raise Number, Source, Description, HelpFile, HelpContext Cẩn thận nhớ đừng để trùng Errors number có sẳn Visual Basic Sau thí dụ Errors handler Err.Raise vbOjectError + 100, “CEmployee”, “Employee could not be added” ... trình Class Module, đơn giản loại Visual Basic code module Ðược viết dạng *.cls tương tợ *.bas , Khác biệt chổ Class Module bao gồm chức (funtion) mà chức xử dụng form khác ứng dụng Mỗi class module. .. ứng dụng bạn có vài thể loại class module ứng dụng Ðể xử dụng class module, bạn phải làm cho instance, sau thơng qua instance đó, mà properties, methods, events để hồn thành class cho ứng dụng. .. 1_Ðoạn : Class Module ? Các bạn muốn có COM component ứng dụng mình, chuyện bạn phải có class module ứng dụng bạn trước Rối sau đó, bạn xử dụng phận COM suốt q trình hoàn chỉnh ứng dụng hay cho