Giáo trình đào tạo Visual Basic_9

Giáo trình đào tạo Visual Basic 6.0 9. Hộp thoại Collection Builder xuất hiện. Trong ô Name, nhập tên của lớp tập hợp – colOrder. 10. Chọn COrder trong bảng có chữ “Collection Of “.i
Nội dung trích xuất từ tài liệu:
Giáo trình đào tạo Visual Basic_9Giáo trình đào tạo Visual Basic 6.0 9. Hộp thoại Collection Builder xuất hiện. Trong ô Name, nhập tên của lớp tập hợp – colOrder. 10. Chọn COrder trong bảng có chữ “Collection Of “.Điều này cho biết lớp tập hợp này là một tập hợp của đối tượng COrder. Nó tạo sự an toàn v ề ki ểu cho lớp – khác với các tập hợp thông thường, chỉ đối tượng COrder mới được thêm vào tập hợp này. 11. Nhấn OK. Lớp tập hợp được thêm vào tiện ích xây dựng lớp. 12. Ta có thấy tiện ích xây dựng lớp phát sinh các thuộc tính và phương thức để hỗ trợ 4 phương thức của tập hợp ( Add, Count, Item và Remove) cũng như là NewEnum. Lưu ý :Tiện ích xây dựng lớp tạo thuộc tính NewEnum cho phép lớp tập hợp hỗ trợ phép lặp xuyên qua tập hợp dùng cấu trúc điều khiển For Each..Next. Không nhất thiết phải dùng thuộc tính này trong chương trình, nhưng ta biết sẽ dùng nó với For Each..Next. Hình 16.3 Cửa sổ tiện ích xây dựng lớp sau khi nó tạo một lớp tập hợp. 13. Bây giờ ta định nghĩa lớp tập hợp, ta có thể yêu cầu tiện ích xây dựng lớp phát sinh chương trình bằng chọn menu File Update Project hoặc dùng phím tắt Ctrl+S. 14. Tiện ích tự động xây dựng lớp tập hợp. Đóng tiện ích bằng cách ch ọn File, Exit. Ta thấy lớp Orders được tạo ra do tiện ích xây dựng lớp. Ta cũng thấy rằng tiện ích đã định nghĩa lại cú pháp của phương thức Add củatập hợp. Thay vì lấy đối tượng làm tham biến như phương th ức Add của tập hợpquy ước, phương thức Add mới lấy biến làm tham biến. Những biến này gắn vớicác thuộc tính của đối tượng COrder. Điều này cho phép ta tạo đối tượng, thêm nóvào tập hợp, gán giá trị cho nó - những cải ti ến đáng k ể so v ới cách th ức th ực hi ệnthông thường. Dim MyOrder as COrder Dim MyOrders as colOrder Set MyOrders= New colOrder set MyOrder= MyOrders.Add(2.99, “Cheese”, 201, #6/5/99#)FPT Software Solution Trang:217/264Giáo trình đào tạo Visual Basic 6.0 Mặc dù vậy, đây chưa phải là cú pháp tốt nhất để thêm mộ phần tử vào tập hợp. thể gọn hơn: Có dùng cách gàng Dim MyOrder as COrder Dim MyOrders as colOrder Set MyOrders= New colOrder set MyOrder= MyOrders.Add() MyOrder.Price = 2.99 MyOrder.ItemOrdered = “Cheese” MyOrder.CustomerID = 201 MyOrder.OrderDate = #6/5/99# Cả hai cách đều đưa về cùng kết quả: một đối tượng được thêm vào t ập h ợpvà thuộc tính được gán giá trị. Cách thứ hai, dùng thuộc tính thay vì tham bi ến trôngrõ ràng, vì vậy ta sử dụng nó rộng rãi hơn. Một trường hợp dùng tham biến thuận tiện hơn thuộc tính là khi lớp tập hợptồn tại trong một thành phần triển khai từ xa qua mạng. Theo k ịch bản đó, m ỗi l ầngọi đến thuộc tính là sinh ra một truy cập 2 lượt đi v ề qua m ạng. Vì v ậy, đ ể ứngdụng hoạt động tốt hơn, ta nên dùng tham biến và chỉ gọi một lần. • Ví dụ mẫu - Sửa đổi phương thức Add của lớp tập h ợp đ ể b ỏ qua tham biến Public Function Add(Optional sKey as String) as COrder Dim objNewMember as COrder Set objNewMember = New COrder If Len(sKey) =0 Then mCol.Add objNewMember Else mCol.Add objNewMember, sKey End If Set Add = objNewMember Set objNewMember = Nothing End Function Dùng lớp tập hợp để thao tác với các phần tử dữ liệu16.1.1.1 Để xây dựng ứng dụng dùng lớp COrder và colOrder, ta theo các bước sau : 1. Tạo đề án Standard Exe mới. Thêm lớp COrder và colOrder. 2. Trong đề án, tạo một biểu mẫu cho phép người sử dụng đ ưa vào Date, CustomerID, Item, Price. Thêm 2 nút lệnh vào giao diện, nút thứ nhất nhập dữ liệu, trong khi nút thứ hai tính toán tổng số hoá đơn được nhập.FPT Software Solution Trang:218/264Giáo trình đào tạo Visual Basic 6.0 Hình 16.4 Giao diện của mô hình của hệ thống nhập hoá đơn hướng đ ối tượng có 2 nút lệnh. 3. Trong biểu mẫu, khai báo 2 biến mức mô-dun, một cho đối tượng COrder và một cho tập hợp colOrder. Option Explicit Private ThisOrder as COrder Private AllOrders as colOrder 4. Tạo instance cho tập hợp colOrder trong sự kiện Load của biểu mẫu. Private Sub Form_Load () Set AllOrders = New colOrder End Sub 5. Viết chương trình cho sự kiện Click của nút Add để thêm hoá đơn vào tập hợp, rồi khởi động lại giao diện người sử dụng của ứng dụng. Private Sub cmdAdd_Click () ‘ Creates a new order and adds ‘ it to the collection Set ThisOrder = AllOrders.Add ThisOrder.OrderDate = txtOrderDate.Text ...